home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 7 / CD7_PROGRAM.ISO / draw / scripts / presets6 / usloop.csc < prev   
Encoding:
Text File  |  1996-10-24  |  1.4 KB  |  36 lines
  1. REM 2 objects filled 3 color fade, blended together w/ 360  rotation &
  2. REM REM loop.  Font: Times New Roman.
  3. REM REM Converted from a DRAW PRESET binary to a DRAW RECORDING script
  4.  
  5. WITHOBJECT "CorelDraw.Automation.7"
  6.     .StartOfRecording 
  7.     .SuppressPainting 
  8.     .RecorderStorePreselectedObjects TRUE
  9.     .RecorderSelectObjectByIndex TRUE, 1
  10.     .ApplyFountainFill 0, 0, 0, 0, 256, 0, 3, 50
  11.     .SetFountainFillColor 0, 2, 100, 100, 0, 0
  12.     .SetFountainFillColor 50, 2, 0, 0, 0, 0
  13.     .SetFountainFillColor 100, 2, 0, 100, 100, 0
  14.     .RecorderSelectObjectByIndex TRUE, 1
  15.     .DuplicateObject 0, 0
  16.     .RecorderSelectObjectByIndex TRUE, 2
  17.     .MoveObject 550163, -855471
  18.     .RecorderSelectObjectByIndex TRUE, 2
  19.     .StretchObject 1.94289, 1, 1.94289, 1, FALSE, FALSE, 9
  20.     .RecorderSelectObjectByIndex TRUE, 2
  21.     .StretchObject 1.13199, 1, 1.13199, 1, FALSE, FALSE, 9
  22.     .RecorderSelectObjectByIndex TRUE, 2
  23.     .ApplyOutline 3556, 0, 0, 0, 100, 0, 0, -1, -1, FALSE, 1, 0, FALSE
  24.     .SetOutlineColor 2, 0, 0, 0, 100
  25.     .RecorderSelectObjectByIndex TRUE, 2
  26.     .ApplyFountainFill 0, 0, 0, -1800, 256, 0, 3, 50
  27.     .SetFountainFillColor 0, 2, 100, 100, 0, 0
  28.     .SetFountainFillColor 50, 2, 0, 0, 0, 0
  29.     .SetFountainFillColor 100, 2, 0, 100, 100, 0
  30.     .RecorderSelectPreselectedObjects TRUE
  31.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  32.     .ApplyBlend TRUE, 20, 360000000, TRUE, 0, FALSE, FALSE, 0, 0, 0, TRUE, TRUE, FALSE, FALSE, 0, 0, 0, 0
  33.     .ResumePainting 
  34.     .EndOfRecording 
  35. END WITHOBJECT
  36.