home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_Image_004_Line.bas < prev    next >
BASIC Source File  |  2003-11-26  |  274b  |  13 lines
  1. Image( 0 ).Resample( 400,400 )
  2. Image(0).Color = _ColorLightYellow
  3.  
  4. Pen.Color = _ColorRed
  5. Image(0).Line(   1,1,   100,100 )
  6. Pen.Color = _ColorBlue
  7. Image(0).Line( 100,100, 100,200 )
  8. Pen.Color = _ColorGreen
  9. Pen.Width = 5
  10. Image(0).Line( 100,200,   1,1   )
  11.  
  12. Redraw()
  13.