home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 May
/
CHIPCD5_98.iso
/
coreldrw
/
Draw
/
Scripts
/
Presets
/
spectrl1.csc
< prev
next >
Wrap
Text File
|
1997-08-19
|
573b
|
19 lines
REM Spectral conical fill.
WITHOBJECT "CorelDraw.Automation.8"
.StartOfRecording
.SuppressPainting
.RecorderStorePreselectedObjects TRUE
.RecorderSelectObjectByIndex TRUE, 1
.StoreColor 2, 0, 100, 100, 0, 0, 0, 100, 0
.StoreColor 2, 0, 100, 100, 0, 0, 0, 100, 100
.ApplyFountainFill 1, 0, 0, 900, 256, 0, 1, 50
.RecorderSelectObjectByIndex TRUE, 1
.StoreColor 2, 0, 100, 100, 0, 0, 0, 100, 0
.StoreColor 2, 0, 100, 100, 0, 0, 0, 100, 100
.ApplyFountainFill 2, 0, 0, 900, 256, 0, 1, 50
.ResumePainting
.EndOfRecording
END WITHOBJECT