JOBnik's Forum

BASS => VB Examples => Topic started by: linkknil on May 30, 2007, 05:49:38 PM

Title: I want to use more than 256colors to draw spectrum.
Post by: linkknil on May 30, 2007, 05:49:38 PM

Sorry. my english is really bad... :'(
 
For X = 0 To bands - 1
     Y = newy(X)
     If Y > specheight Then Y = specheight
     If Y < 0 Then Y = 0
           While (Y >= 1)
               Call FillMemory(specbuf((Y - 1) * SPECWIDTH + X * 12), 10, (Y - 1) / specheight * bhnum)
               Y = Y - 1
           Wend
 Next
Call SetDIBitsToDevice(frmDis.hdc, 0, 0, SPECWIDTH, specheight, 0, 0, 0, specheight, specbuf(0), bh, 0)

Cause of 'specbuf' can't be large than 255 . So I can't use more than 256 colors.
Is there anyway ro resolve this ?

p.s Thank you for your coding of spectrum code  ;)