Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Bezier Curves

5 views
Skip to first unread message

Aku Bird

unread,
Sep 29, 2001, 5:13:28 AM9/29/01
to
I am having trouble getting bezier curves to position themselves on
the right coordinates. I am still very new at this.

Here is my script:

WithObject "CorelDraw.Automation.7"

.InitBezierTool
.BeginDrawBezier -82*10^4, 151*10^4, FALSE
.MoveBezierControl -87*10^4, 146*10^4, FALSE
.AddBezierPoint -40*10^3, 156*10^3, FALSE, True
.MoveBezierControl -91*10^4, 176*10^4, FALSE
.AddBezierPoint 44*10^3, 140*10^3, FALSE, TRUE
.MoveBezierControl 14*10^3, 121*10^3, FALSE
.AddBezierPoint -230*10^4, 45*10^4, FALSE, FALSE
.MoveBezierControl -250*10^4, 25*10^4, FALSE
.EndDrawBezier

End WithObject

There are a couple of problems.

1. One problems is on this line ".AddBezierPoint -40*10^3, 156*10^3,
FALSE, True" I am not getting this point to be cusped. If it were to
be cusped how would I define the other control point?

2. The points aren't the same on the Corel Draw page. For example the
coordinates of the first point should be around (-82,151) (in
millimeters) but it is really more like (26,291). I am not sure why.

I was also wondering if it is possible to get more properties from the
properties option, when I right click. For example, I want to create a
bezier curve using Corel Draw. I then want to get all the information
I can about this curve to try to reproduce it in a script. Is this
possible?

Thanks in advance for any help.

Aku
Gold Coast, Australia

0 new messages