home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Image_004_Line.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  274 b   |  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.