home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / plastic.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  1.1 KB  |  32 lines
  1. REM 
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .ApplyOutline 2286, 1, 1, 1, 100, 450, 0, -1, -1, FALSE, 1, 0, TRUE
  9.     .StoreColor 5, 0, 0, 204, 0
  10.     .SetOutlineColor
  11.     .RecorderSelectObjectByIndex TRUE, 1
  12.     .ApplyOutline 1524, 1, 1, 1, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
  13.     .StoreColor 5, 0, 0, 204, 0
  14.     .SetOutlineColor
  15.     .RecorderSelectObjectByIndex TRUE, 1
  16.     .ApplyExtrude 2, 0, 0, 45, 1015, -7111, TRUE, 0, 0, 0, 0, 0, 0, 0, 1
  17.     .RecorderSelectPreselectedObjects TRUE
  18.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  19.     .StoreColor 5, 0, 0, 96, 0, 0, 0, 100,  0
  20.     .StoreColor 5, 0, 54, 148, 0, 0, 0, 100,  10
  21.     .StoreColor 5, 0, 0, 255, 0, 0, 0, 100,  34
  22.     .StoreColor 5, 216, 222, 255, 0, 0, 0, 100,  89
  23.     .StoreColor 5, 255, 255, 255, 0, 0, 0, 100,  100
  24.     .ApplyFountainFill 1, -23, 17, 900, 256, 0, 3, 50
  25.     .RecorderSelectPreselectedObjects TRUE
  26.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  27.     .ApplyExtrude 2, 0, 0, 45, 1104, -9943, TRUE, 0, 0, 0, 0, 0, 0, 0, 0
  28.     .ResumePainting 
  29.     .EndOfRecording 
  30. END WITHOBJECT
  31.  
  32.