"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