home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / usloop.csc < prev   
Encoding:
Text File  |  1997-08-19  |  1.4 KB  |  37 lines
  1. REM 2 objects filled 3 color fade, blended together w/ 360  rotation &
  2. REM REM loop.  Font: Times New Roman.
  3.  
  4. WITHOBJECT "CorelDraw.Automation.8"
  5.     .StartOfRecording 
  6.     .SuppressPainting 
  7.     .RecorderStorePreselectedObjects TRUE
  8.     .RecorderSelectObjectByIndex TRUE, 1
  9.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  0
  10.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  50
  11.     .StoreColor 2, 0, 100, 100, 0, 0, 0, 100,  100
  12.     .ApplyFountainFill 0, 0, 0, 0, 256, 0, 3, 50
  13.     .RecorderSelectObjectByIndex TRUE, 1
  14.     .DuplicateObject 0, 0
  15.     .RecorderSelectObjectByIndex TRUE, 2
  16.     .MoveObject 550163, -855471
  17.     .RecorderSelectObjectByIndex TRUE, 2
  18.     .StretchObject 1.94289, 1, 1.94289, 1, FALSE, FALSE, 9
  19.     .RecorderSelectObjectByIndex TRUE, 2
  20.     .StretchObject 1.13199, 1, 1.13199, 1, FALSE, FALSE, 9
  21.     .RecorderSelectObjectByIndex TRUE, 2
  22.     .ApplyOutline 3556, 0, 0, 0, 100, 0, 0, -1, -1, FALSE, 1, 0, FALSE
  23.     .StoreColor 2, 0, 0, 0, 100
  24.     .SetOutlineColor
  25.     .RecorderSelectObjectByIndex TRUE, 2
  26.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  0
  27.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  50
  28.     .StoreColor 2, 0, 100, 100, 0, 0, 0, 100,  100
  29.     .ApplyFountainFill 0, 0, 0, -1800, 256, 0, 3, 50
  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.  
  37.