home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Corel Draw 6
/
corel-draw-6-cd1.iso
/
draw
/
goldfill.csc
< prev
next >
Wrap
Text File
|
1995-08-18
|
1KB
|
44 lines
REM Gold 3D fill preset.
REM GoldFill.csc July 24, 1995
REM This applies a Gold 3D effect fill to the selected object.
REM You must have an object selected, preferably a circle.
WITHOBJECT DRAW
DIM x AS LONG, y AS LONG, cx AS LONG, cy AS LONG
REM see if any object selected, get its size
.GetSize cx, cy ' generates error 5010 if no object selected
.SetReferencePoint 9
.GetPosition x, y
.ApplyFountainFill 0, -25, 17, 0, 20, 0, 3, 50
.SetFountainFillcolor 0, 5, 153, 102, 51, 0
.SetFountainFillcolor 20, 5, 213, 151, 0, 0
.SetFountainFillColor 80, 5, 253, 255, 203, 0
.SetFountainFillColor 100, 5, 255, 255, 255, 0
.ApplyOutline 1, 0, 0, 0, 0, 0, 0, 0, 0, 0
REM create a duplicate : the shadow
.DuplicateObject ' this one's selected now
.SetSize cx*4/5, cy*4/5
.SetReferencePoint 9
.SetPosition x, y
.ApplyFountainFill 0, -25, 17, 1800, 20, 0, 3, 50
.SetFountainFillcolor 0, 5, 153, 102, 51, 0
.SetFountainFillcolor 20, 5, 213, 151, 0, 0
.SetFountainFillColor 80, 5, 253, 255, 203, 0
.SetFountainFillColor 100, 5, 255, 255, 255, 0
.ApplyOutline 1, 0, 0, 0, 0, 0, 0, 0, 0, 0
STOP ' END of main program (keeps the script from executing the error handler)
HANDLER : ' handles runtime errors
IF ERRNUM = 5010 THEN
MESSAGE "You need something selected"
STOP
END IF
END WITHOBJECT