home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 37 / CD-ROM 37 / CD-ROM 37.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.