home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 May
/
CHIPCD5_98.iso
/
coreldrw
/
Draw
/
Scripts
/
Presets
/
spectrl3.csc
< prev
next >
Wrap
Text File
|
1997-08-19
|
2KB
|
68 lines
REM Plaque with spectral fill to back of embossed element.
WITHOBJECT "CorelDraw.Automation.8"
.StartOfRecording
.SuppressPainting
.RecorderStorePreselectedObjects TRUE
.RecorderSelectObjectByIndex TRUE, 1
.MoveObject -3301, 0
.RecorderSelectObjectByIndex TRUE, 1
.MoveObject 0, 3301
.RecorderSelectObjectByIndex TRUE, 1
.StoreColor 2, 0, 0, 0, 0
.ApplyUniformFillColor
.RecorderSelectObjectByIndex TRUE, 1
.DuplicateObject 0, 0
.RecorderSelectObjectByIndex TRUE, 2
.MoveObject 3301, 0
.RecorderSelectObjectByIndex TRUE, 2
.MoveObject 0, -3301
.RecorderSelectObjectByIndex TRUE, 2
.MoveObject 3301, 0
.RecorderSelectObjectByIndex TRUE, 2
.MoveObject 0, -3301
.RecorderSelectObjectByIndex TRUE, 2
.StoreColor 2, 0, 0, 0, 50
.ApplyUniformFillColor
.RecorderSelectObjectByIndex TRUE, 2
.DuplicateObject 0, 0
.RecorderSelectObjectByIndex TRUE, 3
.MoveObject -3301, 0
.RecorderSelectObjectByIndex TRUE, 3
.MoveObject 0, 3301
.RecorderSelectObjectByIndex TRUE, 3
.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
.RecorderObjectScaleInfo 51942992, 17297388, 330197, -330197
.CreateRectangle 0, 0, 0, 0, 0
.RecorderSelectObjectByIndex TRUE, 4
.ApplyOutline 762, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 1, 0, FALSE
.StoreColor 2, 100, 100, 0, 0
.SetOutlineColor
.RecorderSelectObjectByIndex TRUE, 4
.ApplyOutline 7620, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
.StoreColor 2, 100, 100, 0, 0
.SetOutlineColor
.RecorderSelectObjectByIndex TRUE, 4
.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
.RecorderSelectObjectByIndex TRUE, 4
.OrderToBack
.RecorderSelectObjectByIndex TRUE, 4
.DuplicateObject 0, 0
.RecorderSelectObjectByIndex TRUE, 5
.ApplyNoFill
.RecorderSelectObjectByIndex TRUE, 5
.ApplyOutline 2540, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
.StoreColor 2, 0, 0, 0, 0
.SetOutlineColor
.RecorderSelectPreselectedObjects TRUE
.RecorderSelectObjectsByIndex FALSE, 5, 4, 3, 2, -1
.Group
.ResumePainting
.EndOfRecording
END WITHOBJECT