home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 May / CHIPCD5_98.iso / coreldrw / Draw / Scripts / Presets / arches.csc < prev    next >
Text File  |  1997-08-19  |  1KB  |  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.