home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / arches.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  1.3 KB  |  36 lines
  1. REM Yellow arch fill, extruded
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .StoreColor 2, 0, 0, 60, 40, 0, 0, 100,  0
  9.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  5
  10.     .StoreColor 2, 0, 0, 60, 40, 0, 0, 100,  10
  11.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  15
  12.     .StoreColor 2, 0, 0, 60, 40, 0, 0, 100,  20
  13.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  25
  14.     .StoreColor 2, 0, 0, 60, 40, 0, 0, 100,  30
  15.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  35
  16.     .StoreColor 2, 0, 0, 60, 40, 0, 0, 100,  40
  17.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  45
  18.     .StoreColor 2, 0, 0, 60, 40, 0, 0, 100,  50
  19.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  55
  20.     .StoreColor 2, 0, 0, 60, 40, 0, 0, 100,  60
  21.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  65
  22.     .StoreColor 2, 0, 0, 60, 40, 0, 0, 100,  70
  23.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  75
  24.     .StoreColor 2, 0, 0, 60, 40, 0, 0, 100,  80
  25.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  85
  26.     .StoreColor 2, 0, 0, 60, 40, 0, 0, 100,  90
  27.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  95
  28.     .StoreColor 2, 0, 0, 60, 40, 0, 0, 100,  100
  29.     .ApplyFountainFill 1, 0, -50, 900, 256, 0, 3, 50
  30.     .RecorderSelectObjectByIndex TRUE, 1
  31.     .ApplyExtrude 4, 0, 0, 20, -18795, -19811, TRUE, 0, 0, 0, 0, 0, 0, 0, 0
  32.     .ResumePainting 
  33.     .EndOfRecording 
  34. END WITHOBJECT
  35.  
  36.