home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 7 / CD7_PROGRAM.ISO / draw / scripts / presets6 / design17.csc < prev    next >
Encoding:
Text File  |  1996-10-24  |  2.1 KB  |  55 lines
  1. REM Blue fountain fill with purple bevel      Font used: Bedrock
  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 7, 2, 20, 80, 0, 20
  12.     .SetFountainFillColor 14, 2, 0, 100, 0, 0
  13.     .SetFountainFillColor 22, 2, 20, 80, 0, 20
  14.     .SetFountainFillColor 33, 2, 0, 0, 0, 100
  15.     .SetFountainFillColor 39, 2, 20, 80, 0, 20
  16.     .SetFountainFillColor 47, 2, 0, 100, 0, 0
  17.     .SetFountainFillColor 54, 2, 20, 80, 0, 20
  18.     .SetFountainFillColor 66, 2, 0, 0, 0, 100
  19.     .SetFountainFillColor 75, 2, 20, 80, 0, 20
  20.     .SetFountainFillColor 84, 2, 0, 100, 0, 0
  21.     .SetFountainFillColor 90, 2, 20, 80, 0, 20
  22.     .SetFountainFillColor 100, 2, 0, 0, 0, 100
  23.     .RecorderSelectObjectByIndex TRUE, 1
  24.     .DuplicateObject 0, 0
  25.     .RecorderSelectObjectByIndex TRUE, 2
  26.     .MoveObject 12699, 0
  27.     .RecorderSelectObjectByIndex TRUE, 1
  28.     .DuplicateObject 0, 0
  29.     .RecorderSelectObjectByIndex TRUE, 3
  30.     .MoveObject 6349, 0
  31.     .RecorderSelectObjectByIndex TRUE, 3
  32.     .ApplyUniformFillColor 2, 0, 0, 0, 100
  33.     .RecorderSelectObjectByIndex TRUE, 3
  34.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
  35.     .SetFountainFillColor 0, 2, 0, 0, 0, 100
  36.     .SetFountainFillColor 12, 2, 100, 100, 0, 0
  37.     .SetFountainFillColor 18, 2, 100, 0, 0, 0
  38.     .SetFountainFillColor 29, 2, 100, 100, 0, 0
  39.     .SetFountainFillColor 48, 2, 0, 0, 0, 100
  40.     .SetFountainFillColor 65, 2, 100, 100, 0, 0
  41.     .SetFountainFillColor 75, 2, 100, 0, 0, 0
  42.     .SetFountainFillColor 81, 2, 100, 100, 0, 0
  43.     .SetFountainFillColor 100, 2, 0, 0, 0, 100
  44.     .RecorderSelectObjectByIndex TRUE, 3
  45.     .OrderToFront 
  46.     .RecorderSelectObjectByIndex TRUE, 3
  47.     .ApplyOutline 508, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
  48.     .SetOutlineColor 2, 0, 0, 0, 0
  49.     .RecorderSelectPreselectedObjects TRUE
  50.     .RecorderSelectObjectsByIndex FALSE, 3, 2, -1, -1, -1
  51.     .Group 
  52.     .ResumePainting 
  53.     .EndOfRecording 
  54. END WITHOBJECT
  55.