home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 6 / corel-draw-6-cd1.iso / draw / goldfill.csc < prev    next >
Text File  |  1995-08-18  |  1KB  |  44 lines
  1. REM Gold 3D fill preset.
  2. REM GoldFill.csc July 24, 1995
  3.  
  4. REM This applies a Gold 3D effect fill to the selected object.
  5. REM You must have an object selected, preferably a circle.
  6.  
  7. WITHOBJECT DRAW
  8.  
  9.     DIM x AS LONG, y AS LONG, cx AS LONG, cy AS LONG
  10.  
  11.     REM see if any object selected, get its size
  12.     .GetSize cx, cy            ' generates error 5010 if no object selected
  13.     .SetReferencePoint 9
  14.     .GetPosition x, y
  15.     .ApplyFountainFill 0, -25, 17, 0, 20, 0, 3, 50
  16.         .SetFountainFillcolor  0, 5, 153, 102, 51, 0
  17.         .SetFountainFillcolor 20, 5, 213, 151, 0, 0
  18.         .SetFountainFillColor 80, 5, 253, 255, 203, 0
  19.         .SetFountainFillColor 100, 5, 255, 255, 255, 0
  20.     .ApplyOutline 1, 0, 0, 0, 0, 0, 0, 0, 0, 0
  21.  
  22.     REM create a duplicate : the shadow
  23.     .DuplicateObject        ' this one's selected now
  24.     .SetSize cx*4/5, cy*4/5
  25.     .SetReferencePoint 9
  26.     .SetPosition x, y
  27.     .ApplyFountainFill 0, -25, 17, 1800, 20, 0, 3, 50
  28.         .SetFountainFillcolor  0, 5, 153, 102, 51, 0
  29.         .SetFountainFillcolor 20, 5, 213, 151, 0, 0
  30.         .SetFountainFillColor 80, 5, 253, 255, 203, 0
  31.         .SetFountainFillColor 100, 5, 255, 255, 255, 0
  32.     .ApplyOutline 1, 0, 0, 0, 0, 0, 0, 0, 0, 0
  33.     STOP     ' END of main program (keeps the script from executing the error handler)
  34.  
  35.     HANDLER :                            ' handles runtime errors
  36.         IF ERRNUM = 5010 THEN
  37.             MESSAGE "You need something selected"
  38.             STOP
  39.         END IF
  40.  
  41. END WITHOBJECT
  42.  
  43.  
  44.