home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / design02.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  1.1 KB  |  34 lines
  1. REM Desert chrome      Font used: USA Black
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .ApplyOutline 3810, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
  9.     .StoreColor 2, 0, 0, 0, 100
  10.     .SetOutlineColor
  11.     .RecorderSelectObjectByIndex TRUE, 1
  12.     .ApplyNoFill 
  13.     .RecorderSelectObjectByIndex TRUE, 1
  14.     .DuplicateObject 0, 0
  15.     .RecorderSelectObjectByIndex TRUE, 2
  16.     .ApplyOutline 1270, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
  17.     .StoreColor 2, 0, 0, 0, 100
  18.     .SetOutlineColor
  19.     .RecorderSelectObjectByIndex TRUE, 2
  20.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 1, 0, FALSE
  21.     .RecorderSelectObjectByIndex TRUE, 2
  22.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  0
  23.     .StoreColor 2, 0, 20, 40, 60, 0, 0, 100,  44
  24.     .StoreColor 2, 40, 0, 0, 0, 0, 0, 100,  45
  25.     .StoreColor 2, 60, 60, 0, 0, 0, 0, 100,  100
  26.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
  27.     .RecorderSelectPreselectedObjects TRUE
  28.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  29.     .Group 
  30.     .ResumePainting 
  31.     .EndOfRecording 
  32. END WITHOBJECT
  33.  
  34.