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