TJ,
P.S. Over night thoughts:
If one wanted to extend the drawing of an ellipse bounded by radial
lines with origin at the vanishing point, the function "drawEllipse"
would be helpful.
The difficult part would be determining the values of a,b,tAng, xLoc
and yLoc such that the ellipse is property sized, angled and
positioned so that it lies tangent to the given radials.
Jim
on drawEllipse a,b,tAng,xLoc,yLoc
repeat with aa = 1 to 360 step 4 --4 is a compromise: min jaggies
in min time.
put r(aa,tAng,a,b,) into r
put round(xLoc+ r*cos(pi/180*aa)),round(yLoc+r*sin(pi/180*aa)) &
cr after tPoints
end repeat
set the points of grc "ellipse" to tPoints
end drawEllipse
function r angl,phi,a,b
put cos(pi/180*(angl+phi)) into c
put sin(pi/180*(angl+phi)) into s
return sqrt(1/(c*c/a/a + s*s/b/b))-- Ellipse at angle phi
end r
drawEllispe 100,40,30,300,400 will draw an ellipse with a = 100, b =
40, at an angle of 30 degree and with a loc of 300,400
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
