Mindon.IDEA

Air off, Mind on ~ / Javascript+Golang, Sci, Health… /

Corel Draw Script

BlogMS original blog key: 1000141972, blog id: airoff History stat: 浏览/评论:424/0 , 日期:2005年1月7日 10:57

REM 90 Deg. Swirl with 10 step blend Font used: AvantGarde Bk BT

WITHOBJECT "CorelDraw.Automation.10"

.StartOfRecording 

.SuppressPainting 

.RecorderStorePreselectedObjects TRUE

REM 选择物体

.RecorderSelectObjectByIndex TRUE, 1

REM 旋转 Angel,,Center H,Center V

.RotateObject 90000000, TRUE, 0, 0

REM 拷贝

.DuplicateObject 20000,30000

REM .ApplyLensEffect 10, FALSE, FALSE, FALSE, 0, 0, 500

.ApplyLensEffect 0, TRUE, TRUE, FALSE, 22061944, 1242708, 20971701

REM 选择物体

.RecorderSelectObjectByIndex TRUE, 2

REM 无填充

.ApplyNoFill 

REM 移动

.MoveObject 222000,333333

REM 轮廓线 ,,Line Caps,Corners,,,,,,Behide file,(1 Square,2 Round),Color,Scale with Image

REM .ApplyOutline 1270, 1, 1, 1, 100, 0, 0, -1, -1, FALSE, 1, 0, TRUE

.ApplyOutline 508, 1, 1, 1, 100, 0, 0, -1, -1, FALSE, 1, 0, TRUE

REM 颜色 2,C,M,Y,K

.StoreColor 2, 100, 100, 0, 0

.SetOutlineColor

REM 颜色 2,C,M,Y,K,C,M,Y,K

.StoreColor 2, 0, 0, 100, 100, 0, 0, 100,  0

.StoreColor 2, 0, 60, 100, 0, 0, 0, 100,  100

REM 渐变填充

REM 参数 Type,H offset, V offset, Angel(90.0),Steps,Color Blend(Two Color),From-To,Mid-point

.ApplyFountainFill 0, 0, 0, 900, 256, 0, 0, 50

REM 拉伸 H,,V,,,,

.StretchObject 1, 2, 3, 1, FALSE, FALSE, 3

REM .RecorderSelectPreselectedObjects TRUE

REM .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1

REM 混合 Steps,Angel

REM .ApplyBlend TRUE, 5, 50000000, TRUE, 0, FALSE, FALSE, 0, 0, 0, TRUE, TRUE, FALSE, FALSE, 0, 0, 0, 0

REM .Group

REM .StoreColor 2, 0, 60, 100, 0

REM .ApplyUniformFillColor

.StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  0

.StoreColor 2, 0, 100, 0, 0, 0, 0, 100,  46

.StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  100

.ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50



.ApplyTextureFill "", "Sky 5 Colors", "Sky 5 Colors"



.StoreColor 2, 0, 60, 100, 0

.StoreColor 2, 0, 60, 100, 0

.StoreColor 2, 0, 0, 0, 100

.ApplyExtrude 4, 0, 0, 5, -177545, 62229, FALSE, 12, 100, 5, 58, 0, 0, 2



.RecorderObjectScaleInfo 51942992, 17297388, 330197, -330197

.CreateRectangle 0, 0, 0, 0, 0

.StoreColor 2, 0, 100, 100, 0

.StoreColor 2, 100, 100, 0, 0

.StoreColor 2, 0, 0, 0, 0

.ApplyContour 2, 1523, 5, 0



.RecorderSelectObjectByIndex TRUE, 3

.OrderToBack 

.RecorderObjectScaleInfo 4317989, 4317989, -23444161, 6146773

.CreateEllipse 0, 0, 0, 0, 270000000, 270000000, TRUE



.RecorderSelectObjectByIndex TRUE, 4

.RecorderApplyPerspective 1, 0, -36829, -439927, -36829, 439927, 36321, 366013, 36321, -366013, 0, 0, 0, 0, 0, 0

.ApplyUniformFillColor

.OrderBackOne 

.SkewObject -2000000, 0, 6



.ResumePainting 

.EndOfRecording 

END WITHOBJECT

Comments