home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Pen_004_LineTolerance.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  1.1 KB  |  48 lines
  1. Image(0).Resample( 600,800 )
  2. Image(0).Color = _ColorWhite
  3.  
  4. Pen.Width = 20
  5. Pen.Color = _ColorBlue
  6.  
  7. Image(0).Line(  90,0,   90,800 )
  8. Image(0).Line( 160,0,  160,800 )
  9. Image(0).Line( 240,0,  240,800 )
  10. Image(0).Line( 300,0,  300,800 )
  11.  
  12. Pen.StartColor   = _ColorRed
  13. Pen.EndColor     = _ColorRed
  14. Pen.StartCap     = _LineCapArrowAnchor
  15. Pen.EndCap       = _LineCapArrowAnchor
  16. Pen.GradientMode = _GradientModeHorizontal
  17.  
  18. y = 40
  19. for t = 55 to 255 step 50 
  20.     Pen.StartTolerance = 0
  21.     Pen.EndTolerance   = t
  22.     Image(0).Line( 40,y,  310,y )
  23.                                 Image(0).DrawText( 330,y, 0,0 ,  0 + "," + t )
  24.                                 y = y + 50
  25. next
  26.  
  27. Pen.StartTolerance = 128
  28. Pen.EndTolerance   = 128
  29. Image(0).Line( 40,y,  310,y )
  30.                                 Image(0).DrawText( 330,y, 0,0 , 128 + "," + 128 )
  31.                                 y = y + 50
  32. Pen.StartTolerance = 255
  33. Pen.EndTolerance   = 255
  34. Image(0).Line( 40,y,  310,y )
  35.                                 Image(0).DrawText( 330,y, 0,0 , 255 + "," + 255 )
  36.                                 y = y + 50
  37.  
  38. for t = 55 to 255 step 50 
  39.     Pen.StartTolerance = t
  40.     Pen.EndTolerance   = 0
  41.     Image(0).Line( 40,y,  310,y )
  42.                                 Image(0).DrawText( 330,y, 0,0 , t + "," + 0 )
  43.                                 y = y + 50
  44. next
  45.  
  46. Redraw()
  47.  
  48.