home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_Image_002_GrayScale.bas < prev    next >
BASIC Source File  |  2003-11-26  |  266b  |  17 lines
  1. w = 512 + 60
  2. h = 200
  3. Image(0).Resample( w, h )
  4. Image(0).Color = _ColorWhite
  5. Pen.Width = 2
  6.  
  7. for i = 0 to 256 
  8.     Pen.Color = HLStoRGB( i, 255, 255 )
  9.     Image(0).Rectangle( 30+i*2, 30, 2, h-60 )
  10. next    
  11.  
  12. Redraw()
  13. Sleep( 3000 )
  14.  
  15. Image(0).GrayScale()
  16. Redraw()
  17.