|
|
"Tim Attwood" <tim### [at] comcastnet> wrote:
> //+kff360
> #include "math.inc"
> #declare P = <2*sin(clock*60),3,4*sin(clock*36)>;
> #declare Ay = select(P.x,-VAngleD(z,<P.x,0,P.z>),
> 0,VAngleD(z,<P.x,0,P.z>));
> #declare Ax = select(P.y,VAngleD(P,vrotate(z,Ay*y)),
> 0,-VAngleD(P,vrotate(z,Ay*y)));
> sphere {P,0.05
> pigment {Red}
> }
> cone {<0,0,0>,0.05,<0,0,0.5>,0
> pigment {Cyan}
> rotate Ax*x
> rotate Ay*y
> }
> #debug concat("Elevation = ",str(Ax,0,3)," degrees.\n")
> #debug concat("Y Rotation = ",str(Ay,0,3)," degrees.\n")
This is very helpful!!
I was complete unable to solve the problem. Last night I was working on a
mathematical alignment procedure!!! to get the right angles...
My code was that crude, I would never show it to anybody!!
Thank you all!!!
-Holger-
Post a reply to this message
|
|