home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / sunset03.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  926 b   |  26 lines
  1. REM Conical fill with extrude.
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5. rem    .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  0
  9.     .StoreColor 2, 0, 60, 60, 40, 0, 0, 100,  10
  10.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  20
  11.     .StoreColor 2, 0, 60, 60, 40, 0, 0, 100,  30
  12.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  40
  13.     .StoreColor 2, 0, 60, 60, 40, 0, 0, 100,  50
  14.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  60
  15.     .StoreColor 2, 0, 60, 60, 40, 0, 0, 100,  70
  16.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  80
  17.     .StoreColor 2, 0, 60, 60, 40, 0, 0, 100,  90
  18.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  100
  19.     .ApplyFountainFill 2, 0, -50, 900, 256, 0, 3, 50
  20.     .RecorderSelectObjectByIndex TRUE, 1
  21.     .ApplyExtrude 4, 0, 0, 20, -32765, -33527, TRUE, 0, 0, 0, 0, 0, 0, 0, 0
  22.     .ResumePainting 
  23.     .EndOfRecording 
  24. END WITHOBJECT
  25.  
  26.