home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Image_009_EllipseFill.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  1.2 KB  |  40 lines
  1. Image(0).Resample( 600,1300 )
  2. Image(0).Color = _ColorWhite
  3.  
  4. Pen.Color = _ColorYellow
  5.  
  6. x = 20
  7. y = 20
  8. w = 350
  9. h = 200
  10.                                 yy = 210
  11. Image(0).EllipseFill( x,y,  w,h )
  12.                                 Image(0).DrawText( 300,y, 0,0, " Standard (Solid)" )
  13.                                 y = y + yy
  14.  
  15. Pen.StartColor = _ColorBlue
  16. Pen.EndColor   = _ColorRed
  17.  
  18. Pen.GradientMode = _GradientModeHorizontal
  19. Image(0).EllipseFill( x,y,  w,h )
  20.                                 Image(0).DrawText( 300,y, 0,0, "_GradientModeHorizontal" )
  21.                                 y = y + yy
  22. Pen.GradientMode = _GradientModeVertical
  23. Image(0).EllipseFill( x,y,  w,h )
  24.                                 Image(0).DrawText( 300,y, 0,0, "_GradientModeVertical" )
  25.                                 y = y + yy
  26. Pen.GradientMode = _GradientModeForwardDiagonal
  27. Image(0).EllipseFill( x,y,  w,h )
  28.                                 Image(0).DrawText( 300,y, 0,0, "_GradientModeForwardDiagonal" )
  29.                                 y = y + yy
  30. Pen.GradientMode = _GradientModeBackwardDiagonal
  31. Image(0).EllipseFill( x,y,  w,h )
  32.                                 Image(0).DrawText( 300,y, 0,0, "_GradientModeBackwardDiagonal" )
  33.                                 y = y + yy
  34. Pen.GradientMode = _GradientModeCenter
  35. Image(0).EllipseFill( x,y,  w,h )
  36.                                 Image(0).DrawText( 300,y, 0,0, "_GradientModeCenter" )
  37.                                 y = y + yy
  38.  
  39. Redraw()
  40.