home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 7 / CD7_PROGRAM.ISO / draw / scripts / presets6 / rings.csc < prev    next >
Encoding:
Text File  |  1996-10-24  |  1.8 KB  |  45 lines
  1. REM Blue and white ring fill, extruded.
  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 1, 0, 0, 900, 256, 0, 3, 50
  10.     .SetFountainFillColor 0, 2, 40, 40, 0, 60
  11.     .SetFountainFillColor 5, 2, 100, 100, 0, 0
  12.     .SetFountainFillColor 9, 2, 40, 40, 0, 60
  13.     .SetFountainFillColor 10, 2, 0, 0, 0, 40
  14.     .SetFountainFillColor 15, 2, 0, 0, 0, 0
  15.     .SetFountainFillColor 19, 2, 0, 0, 0, 40
  16.     .SetFountainFillColor 20, 2, 40, 40, 0, 60
  17.     .SetFountainFillColor 25, 2, 100, 100, 0, 0
  18.     .SetFountainFillColor 29, 2, 40, 40, 0, 60
  19.     .SetFountainFillColor 30, 2, 0, 0, 0, 40
  20.     .SetFountainFillColor 35, 2, 0, 0, 0, 0
  21.     .SetFountainFillColor 39, 2, 0, 0, 0, 40
  22.     .SetFountainFillColor 40, 2, 40, 40, 0, 60
  23.     .SetFountainFillColor 45, 2, 100, 100, 0, 0
  24.     .SetFountainFillColor 49, 2, 40, 40, 0, 60
  25.     .SetFountainFillColor 50, 2, 0, 0, 0, 40
  26.     .SetFountainFillColor 55, 2, 0, 0, 0, 0
  27.     .SetFountainFillColor 59, 2, 0, 0, 0, 40
  28.     .SetFountainFillColor 60, 2, 40, 40, 0, 60
  29.     .SetFountainFillColor 65, 2, 100, 100, 0, 0
  30.     .SetFountainFillColor 69, 2, 40, 40, 0, 60
  31.     .SetFountainFillColor 70, 2, 0, 0, 0, 40
  32.     .SetFountainFillColor 75, 2, 0, 0, 0, 0
  33.     .SetFountainFillColor 79, 2, 0, 0, 0, 40
  34.     .SetFountainFillColor 80, 2, 40, 40, 0, 60
  35.     .SetFountainFillColor 85, 2, 100, 100, 0, 0
  36.     .SetFountainFillColor 89, 2, 40, 40, 0, 60
  37.     .SetFountainFillColor 90, 2, 0, 0, 0, 40
  38.     .SetFountainFillColor 95, 2, 0, 0, 0, 0
  39.     .SetFountainFillColor 100, 2, 0, 0, 0, 40
  40.     .RecorderSelectObjectByIndex TRUE, 1
  41.     .ApplyExtrude 4, 0, 0, 20, -18795, -20065, TRUE, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  42.     .ResumePainting 
  43.     .EndOfRecording 
  44. END WITHOBJECT
  45.