home *** CD-ROM | disk | FTP | other *** search
/ CorelDRAW! 8 / CD8_PROGRAM.ISO / 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.