home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 7 / CD7_PROGRAM.ISO / draw / scripts / presets6 / design16.csc < prev    next >
Encoding:
Text File  |  1996-10-24  |  1.9 KB  |  52 lines
  1. REM Bevel      Font used: Glacier
  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.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
  10.     .SetFountainFillColor 0, 2, 0, 0, 0, 100
  11.     .SetFountainFillColor 9, 2, 0, 60, 100, 0
  12.     .SetFountainFillColor 16, 2, 0, 0, 100, 0
  13.     .SetFountainFillColor 23, 2, 0, 60, 100, 0
  14.     .SetFountainFillColor 32, 2, 0, 0, 0, 100
  15.     .SetFountainFillColor 40, 2, 0, 60, 100, 0
  16.     .SetFountainFillColor 46, 2, 0, 0, 100, 0
  17.     .SetFountainFillColor 53, 2, 0, 60, 100, 0
  18.     .SetFountainFillColor 62, 2, 0, 0, 0, 100
  19.     .SetFountainFillColor 69, 2, 0, 60, 100, 0
  20.     .SetFountainFillColor 79, 2, 0, 0, 100, 0
  21.     .SetFountainFillColor 86, 2, 0, 60, 100, 0
  22.     .SetFountainFillColor 100, 2, 0, 0, 0, 100
  23.     .RecorderSelectObjectByIndex TRUE, 1
  24.     .DuplicateObject 0, 0
  25.     .RecorderSelectObjectByIndex TRUE, 2
  26.     .MoveObject 4317, 0
  27.     .RecorderSelectObjectByIndex TRUE, 1
  28.     .DuplicateObject 0, 0
  29.     .RecorderSelectObjectByIndex TRUE, 3
  30.     .MoveObject 2031, 0
  31.     .RecorderSelectObjectByIndex TRUE, 3
  32.     .OrderToFront 
  33.     .RecorderSelectObjectByIndex TRUE, 3
  34.     .ApplyUniformFillColor 2, 0, 0, 0, 100
  35.     .RecorderSelectObjectByIndex TRUE, 3
  36.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
  37.     .SetFountainFillColor 0, 2, 0, 0, 0, 100
  38.     .SetFountainFillColor 15, 2, 0, 60, 100, 0
  39.     .SetFountainFillColor 21, 2, 0, 0, 100, 0
  40.     .SetFountainFillColor 29, 2, 0, 60, 100, 0
  41.     .SetFountainFillColor 51, 2, 0, 0, 0, 100
  42.     .SetFountainFillColor 67, 2, 0, 60, 100, 0
  43.     .SetFountainFillColor 76, 2, 0, 0, 100, 0
  44.     .SetFountainFillColor 86, 2, 0, 60, 100, 0
  45.     .SetFountainFillColor 100, 2, 0, 0, 0, 100
  46.     .RecorderSelectPreselectedObjects TRUE
  47.     .RecorderSelectObjectsByIndex FALSE, 3, 2, -1, -1, -1
  48.     .Group 
  49.     .ResumePainting 
  50.     .EndOfRecording 
  51. END WITHOBJECT
  52.