home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / metallic.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  1.1 KB  |  31 lines
  1. REM 
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .ApplyExtrude 4, 0, 0, 30, 20065, 31749, TRUE, 0, 0, 0, 0, 0, 0, 0, 0
  9.     .RecorderSelectPreselectedObjects TRUE
  10.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  11. rem    .ApplyOutline 762, 1, 1, 1, 100, -450, 0, -1, -1, FALSE, 2, 0, TRUE
  12.     .StoreColor 2, 0, 0, 0, 100
  13.     .SetOutlineColor
  14.     .RecorderSelectPreselectedObjects TRUE
  15.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  16.     .StoreColor 5, 12, 10, 14, 0, 0, 0, 100,  0
  17.     .StoreColor 5, 15, 0, 100, 0, 0, 0, 100,  3
  18.     .StoreColor 5, 60, 0, 154, 0, 0, 0, 100,  9
  19.     .StoreColor 5, 197, 209, 255, 0, 0, 0, 100,  20
  20.     .StoreColor 5, 255, 255, 255, 0, 0, 0, 100,  24
  21.     .StoreColor 5, 66, 112, 193, 0, 0, 0, 100,  57
  22.     .StoreColor 5, 57, 9, 164, 0, 0, 0, 100,  77
  23.     .StoreColor 5, 19, 0, 100, 0, 0, 0, 100,  94
  24.     .StoreColor 5, 0, 0, 103, 0, 0, 0, 100,  99
  25.     .StoreColor 5, 12, 10, 14, 0, 0, 0, 100,  100
  26.     .ApplyFountainFill 0, 0, 0, 0, 256, 0, 3, 50
  27.     .ResumePainting 
  28.     .EndOfRecording 
  29. END WITHOBJECT
  30.  
  31.