home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Pen_003_LineGradient.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  1.7 KB  |  65 lines
  1. Image(0).Resample( 600,800 )
  2. Image(0).Color = _ColorWhite
  3.  
  4. Pen.Width = 30
  5. Pen.StartColor = _ColorBlue
  6. Pen.EndColor   = _ColorRed
  7.                                 y = 40
  8. Pen.StartCap = _LineCapRoundAnchor
  9. Pen.EndCap   = _LineCapRoundAnchor
  10.  
  11. Pen.GradientMode = _GradientModeHorizontal
  12. Image(0).Line( 40,y,  300,y )
  13.                                 Image(0).DrawText( 330,y, 0,0 , "_GradientModeHorizontal" )
  14.                                 y = y + 80
  15.  
  16. Pen.GradientMode = _GradientModeVertical
  17. Image(0).Line( 40,y,  300,y )
  18.                                 Image(0).DrawText( 330,y, 0,0 , "_GradientModeVertical" )
  19.                                 y = y + 80
  20.  
  21. Pen.GradientMode = _GradientModeForwardDiagonal
  22. Image(0).Line( 40,y,  300,y )
  23.                                 Image(0).DrawText( 330,y, 0,0 , "_GradientModeForwardDiagonal" )
  24.                                 y = y + 80
  25.  
  26. Pen.GradientMode = _GradientModeBackwardDiagonal
  27. Image(0).Line( 40,y,  300,y )
  28.                                 Image(0).DrawText( 330,y, 0,0 , "_GradientModeBackwardDiagonal" )
  29.                                 y = y + 80
  30.  
  31. Pen.GradientMode = _GradientModeCenter
  32. Image(0).Line( 40,y,  300,y )
  33.                                 Image(0).DrawText( 330,y, 0,0 , "_GradientModeCenter" )
  34.                                 y = y + 80
  35.  
  36. Pen.Color = _ColorGreen
  37. Pen.GradientMode = _GradientModeNone
  38. Image(0).Line( 40,y,  300,y )
  39.                                 Image(0).DrawText( 330,y, 0,0 , "_GradientModeNone" )
  40.                                 y = y + 80
  41.  
  42. '//////////
  43. x = 40
  44. Pen.GradientMode = _GradientModeHorizontal
  45. Image(0).Line( x,y,  x,y+200 )
  46.                                 x = x + 100
  47.  
  48. Pen.GradientMode = _GradientModeVertical
  49. Image(0).Line( x,y,  x,y+200 )
  50.                                 x = x + 100
  51.  
  52. Pen.GradientMode = _GradientModeForwardDiagonal
  53. Image(0).Line( x,y,  x,y+200 )
  54.                                 x = x + 100
  55.  
  56. Pen.GradientMode = _GradientModeBackwardDiagonal
  57. Image(0).Line( x,y,  x,y+200 )
  58.                                 x = x + 100
  59.  
  60. Pen.GradientMode = _GradientModeCenter
  61. Image(0).Line( x,y,  x,y+200 )
  62.                                 x = x + 100
  63. Redraw()
  64.  
  65.