home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Pen_001_LineCap.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  2.1 KB  |  76 lines
  1. Image(0).Resample( 600,600 )
  2. Image(0).Color = _ColorWhite
  3.  
  4. Pen.Width = 10
  5. Pen.Color = _ColorBlue
  6.                                 y = 20
  7. Image(0).Line( 20,y,  300,y )
  8.                                 Image(0).DrawText( 320,y, 0,0 , "Standard ( _LineCapFlat )" )
  9.                                 y = y + 40
  10.  
  11. Pen.EndCap = _LineCapSquare
  12. Image(0).Line( 20,y,  300,y )
  13.                                 Image(0).DrawText( 320,y, 0,0 , "_LineCapSquare" )
  14.                                 y = y + 40
  15.  
  16. Pen.EndCap   = _LineCapRound
  17. Image(0).Line( 20,y,  300,y )
  18.                                 Image(0).DrawText( 320,y, 0,0 , "_LineCapRound" )
  19.                                 y = y + 40
  20.  
  21. Pen.EndCap = _LineCapTriangle
  22. Image(0).Line( 20,y,  300,y )
  23.                                 Image(0).DrawText( 320,y, 0,0 , "_LineCapTriangle" )
  24.                                 y = y + 40
  25.  
  26. Pen.EndCap = _LineCapNoAnchor
  27. Image(0).Line( 20,y,  300,y )
  28.                                 Image(0).DrawText( 320,y, 0,0 , "_LineCapNoAnchor" )
  29.                                 y = y + 40
  30.  
  31. Pen.EndCap = _LineCapSquareAnchor
  32. Image(0).Line( 20,y,  300,y )
  33.                                 Image(0).DrawText( 320,y, 0,0 , "_LineCapSquareAnchor" )
  34.                                 y = y + 40
  35.  
  36. Pen.EndCap = _LineCapRoundAnchor
  37. Image(0).Line( 20,y,  300,y )
  38.                                 Image(0).DrawText( 320,y, 0,0 , "_LineCapRoundAnchor" )
  39.                                 y = y + 40
  40.  
  41. Pen.EndCap = _LineCapDiamondAnchor
  42. Image(0).Line( 20,y,  300,y )
  43.                                 Image(0).DrawText( 320,y, 0,0 , "_LineCapDiamondAnchor" )
  44.                                 y = y + 40
  45.  
  46. Pen.EndCap = _LineCapArrowAnchor
  47. Image(0).Line( 20,y,  300,y )
  48.                                 Image(0).DrawText( 320,y, 0,0 , "_LineCapArrowAnchor" )
  49.                                 y = y + 40
  50.  
  51.  
  52. Pen.StartCap = _LineCapFlat
  53. Pen.EndCap   = _LineCapFlat
  54. Image(0).Line(  20,y,  300,y )
  55. Image(0).Line( 300,y,  300,y+40 )
  56.                                 Image(0).DrawText( 320,y, 0,0 , "_LineCapFlat, _LineCapFlat" )
  57.                                 y = y + 60
  58.  
  59. Pen.StartCap = _LineCapSquare
  60. Pen.EndCap   = _LineCapSquare
  61. Image(0).Line(  20,y,  300,y )
  62. Image(0).Line( 300,y,  300,y+40 )
  63.                                 Image(0).DrawText( 320,y, 0,0 , "_LineCapSquare, _LineCapSquare" )
  64.                                 y = y + 60
  65.  
  66. Pen.StartCap = _LineCapRoundAnchor
  67. Pen.EndCap   = _LineCapSquare
  68. Image(0).Line(  20,y,  300,y )
  69. Pen.StartCap = _LineCapSquare
  70. Pen.EndCap = _LineCapArrowAnchor
  71. Image(0).Line( 300,y,  300,y+40 )
  72.                                 Image(0).DrawText( 320,y, 0,0 , "_LineCapRoundAnchor, _LineCapArrowAnchor" )
  73.                                 y = y + 60
  74.  
  75. Redraw()
  76.