home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 7 / CD7_PROGRAM.ISO / draw / scripts / presets6 / design01.csc < prev    next >
Encoding:
Text File  |  1996-10-24  |  1.3 KB  |  36 lines
  1. REM Purple chrome      Font used: Keypunch
  2. REM REM Converted from a DRAW PRESET binary to a DRAW RECORDING script
  3.  
  4. WITHOBJECT "CorelDraw.Automation.7"
  5.     .StartOfRecording 
  6.     .SuppressPainting 
  7.     .RecorderStorePreselectedObjects TRUE
  8.     .RecorderSelectObjectByIndex TRUE, 1
  9.     .ApplyOutline 3048, 1, 1, 1, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
  10.     .SetOutlineColor 2, 0, 0, 0, 100
  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.     .SetOutlineColor 2, 0, 0, 0, 100
  16.     .RecorderSelectObjectByIndex TRUE, 2
  17.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 1, 0, FALSE
  18.     .RecorderSelectObjectByIndex TRUE, 2
  19.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
  20.     .SetFountainFillColor 0, 2, 0, 0, 0, 100
  21.     .SetFountainFillColor 10, 2, 0, 0, 0, 100
  22.     .SetFountainFillColor 19, 2, 0, 100, 0, 0
  23.     .SetFountainFillColor 26, 2, 0, 0, 0, 100
  24.     .SetFountainFillColor 36, 2, 0, 100, 0, 0
  25.     .SetFountainFillColor 44, 2, 0, 0, 0, 100
  26.     .SetFountainFillColor 51, 2, 0, 100, 0, 0
  27.     .SetFountainFillColor 71, 2, 0, 100, 0, 0
  28.     .SetFountainFillColor 92, 2, 0, 0, 0, 100
  29.     .SetFountainFillColor 100, 2, 0, 0, 0, 100
  30.     .RecorderSelectPreselectedObjects TRUE
  31.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  32.     .Group 
  33.     .ResumePainting 
  34.     .EndOfRecording 
  35. END WITHOBJECT
  36.