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