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