home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 May
/
CHIPCD5_98.iso
/
coreldrw
/
Draw
/
Scripts
/
Presets
/
barmagen.csc
< prev
next >
Wrap
Text File
|
1997-08-19
|
2KB
|
53 lines
REM
WITHOBJECT "CorelDraw.Automation.8"
.StartOfRecording
.SuppressPainting
.RecorderStorePreselectedObjects TRUE
.RecorderSelectObjectByIndex TRUE, 1
.StoreColor 2, 0, 100, 0, 0, 0, 0, 100, 0
.StoreColor 2, 0, 40, 0, 0, 0, 0, 100, 13
.StoreColor 2, 0, 100, 0, 0, 0, 0, 100, 24
.StoreColor 2, 0, 40, 0, 0, 0, 0, 100, 36
.StoreColor 2, 0, 100, 0, 0, 0, 0, 100, 50
.StoreColor 2, 0, 40, 0, 0, 0, 0, 100, 62
.StoreColor 2, 0, 100, 0, 0, 0, 0, 100, 73
.StoreColor 2, 0, 40, 0, 0, 0, 0, 100, 86
.StoreColor 2, 0, 100, 0, 0, 0, 0, 100, 100
.ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
.RecorderSelectObjectByIndex TRUE, 1
.StoreColor 2, 0, 100, 0, 0, 0, 0, 100, 0
.StoreColor 2, 0, 40, 0, 0, 0, 0, 100, 13
.StoreColor 2, 0, 100, 0, 0, 0, 0, 100, 24
.StoreColor 2, 0, 40, 0, 0, 0, 0, 100, 36
.StoreColor 2, 0, 100, 0, 0, 0, 0, 100, 50
.StoreColor 2, 0, 40, 0, 0, 0, 0, 100, 62
.StoreColor 2, 0, 100, 0, 0, 0, 0, 100, 73
.StoreColor 2, 0, 40, 0, 0, 0, 0, 100, 86
.StoreColor 2, 0, 100, 0, 0, 0, 0, 100, 100
.ApplyFountainFill 0, 0, 0, 450, 256, 0, 3, 50
.RecorderSelectObjectByIndex TRUE, 1
.DuplicateObject 0, 0
.RecorderSelectObjectByIndex TRUE, 2
.StretchObject 1, 1, 0.720412, 1, FALSE, FALSE, 9
.RecorderSelectObjectByIndex TRUE, 2
.StretchObject 0.948457, 1, 1, 1, FALSE, FALSE, 9
.RecorderSelectObjectByIndex TRUE, 2
.StoreColor 2, 0, 100, 0, 0, 0, 0, 100, 0
.StoreColor 2, 0, 40, 0, 0, 0, 0, 100, 13
.StoreColor 2, 0, 100, 0, 0, 0, 0, 100, 24
.StoreColor 2, 0, 40, 0, 0, 0, 0, 100, 36
.StoreColor 2, 0, 100, 0, 0, 0, 0, 100, 50
.StoreColor 2, 0, 40, 0, 0, 0, 0, 100, 62
.StoreColor 2, 0, 100, 0, 0, 0, 0, 100, 73
.StoreColor 2, 0, 40, 0, 0, 0, 0, 100, 86
.StoreColor 2, 0, 100, 0, 0, 0, 0, 100, 100
.ApplyFountainFill 0, 0, 0, -500, 256, 0, 3, 50
.RecorderSelectPreselectedObjects TRUE
.RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
.Group
.ResumePainting
.EndOfRecording
END WITHOBJECT