Miguel and others:
I found this script posted by:
MullinRJ Offline
500 Club
Registered: 06/29/01
Posts: 672
Loc: Dallas, TX
PROCEDURE CentrePoints;
VAR
???obHd : HANDLE;
???clockWise : BOOLEAN;
???t : INTEGER;
???x, y, dx, dy, a, aR, a1, a2, r, d, l : REAL;
???x1, y1, x2, y2, x3, y3 : REAL;???{ added these to make it compile }
???v1, v2 : VECTOR;
BEGIN
???obHd := FSACTLAYER;
???GETPOLYPT(obHd, 1, x1, y1);
???GETPOLYLINEVERTEX(obHd, 2, x2, y2, t, r);
???GETPOLYPT(obHd, 3, x3, y3);
???
???v1.x := x1-x2; v1.y := y1-y2;??????{ make vector v1 point away from point 2 }
???v2.x := x3-x2; v2.y := y3-y2;??????{ yes, points away from point 2 }
???a1 := VEC2ANG(v1);
{??a2 := VEC2ANG(v2);}????????????????{ don't need this anymore }
???a := ANGBVEC(v1, v2)/2;??????????{ remove 180 from calculation, as v1 is now reversed }
???aR := TAN(DEG2RAD(a));
???d := r/aR;
???l := SQRT(r^2+d^2);
???
???{ use clockWise condition to add or subtract angle a to/from angle a1 }
???clockWise := GETOBJECTVARIABLEBOOLEAN(obHd, 652);
???if clockWise then a := DEG2RAD(a1+a)
???else a := DEG2RAD(a1-a);
???
???dx := l*COS(a);
???dy := l*SIN(a);
???LOCUS(x2+dx, y2+dy);
END;
RUN(CentrePoints);
By using a modified version of this script my problem is solved.
Thanks Everyone!
Dave C.
greatdavidc@mac.com