home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 May
/
CHIPCD5_98.iso
/
coreldrw
/
Draw
/
Scripts
/
Presets
/
usloop.csc
< prev
Wrap
Text File
|
1997-08-19
|
1KB
|
37 lines
REM 2 objects filled 3 color fade, blended together w/ 360 rotation &
REM REM loop. Font: Times New Roman.
WITHOBJECT "CorelDraw.Automation.8"
.StartOfRecording
.SuppressPainting
.RecorderStorePreselectedObjects TRUE
.RecorderSelectObjectByIndex TRUE, 1
.StoreColor 2, 100, 100, 0, 0, 0, 0, 100, 0
.StoreColor 2, 0, 0, 0, 0, 0, 0, 100, 50
.StoreColor 2, 0, 100, 100, 0, 0, 0, 100, 100
.ApplyFountainFill 0, 0, 0, 0, 256, 0, 3, 50
.RecorderSelectObjectByIndex TRUE, 1
.DuplicateObject 0, 0
.RecorderSelectObjectByIndex TRUE, 2
.MoveObject 550163, -855471
.RecorderSelectObjectByIndex TRUE, 2
.StretchObject 1.94289, 1, 1.94289, 1, FALSE, FALSE, 9
.RecorderSelectObjectByIndex TRUE, 2
.StretchObject 1.13199, 1, 1.13199, 1, FALSE, FALSE, 9
.RecorderSelectObjectByIndex TRUE, 2
.ApplyOutline 3556, 0, 0, 0, 100, 0, 0, -1, -1, FALSE, 1, 0, FALSE
.StoreColor 2, 0, 0, 0, 100
.SetOutlineColor
.RecorderSelectObjectByIndex TRUE, 2
.StoreColor 2, 100, 100, 0, 0, 0, 0, 100, 0
.StoreColor 2, 0, 0, 0, 0, 0, 0, 100, 50
.StoreColor 2, 0, 100, 100, 0, 0, 0, 100, 100
.ApplyFountainFill 0, 0, 0, -1800, 256, 0, 3, 50
.RecorderSelectPreselectedObjects TRUE
.RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
.ApplyBlend TRUE, 20, 360000000, TRUE, 0, FALSE, FALSE, 0, 0, 0, TRUE, TRUE, FALSE, FALSE, 0, 0, 0, 0
.ResumePainting
.EndOfRecording
END WITHOBJECT