"Greg M. Johnson" wrote:

> I never did figure out how to get the operations
> that happen in jvs' Reorient macro to happen inside a transform.

Here's how:

#macro Oritransform(Axis1,Axis2)
      #declare vX1=vnormalize(Axis1);
      #declare vX2=vnormalize(Axis2);
      #declare vY=vnormalize(vcross(vX1,vX2));
      #declare vZ1=vnormalize(vcross(vX1,vY));
      #declare vZ2=vnormalize(vcross(vX2,vY));
      transform{
        matrix < vX1.x, vY.x,vZ1.x, vX1.y,vY.y,vZ1.y, vX1.z,vY.z, vZ1.z, 0,0,0 >
        matrix < vX2.x,vX2.y,vX2.z,  vY.x,vY.y, vY.z, vZ2.x,vZ2.y,vZ2.z, 0,0,0 >
      }
#end

> I instead had
> to redefine my shinobject with the Reorient macro.
>
> I just sacrificed a little elegance in my code by using:
>   $rshinobj=object{rshinobj Reorient(rankpt-rkneept,rtemprankpt-rtempkneept)}
>   $rshintrans= transform{ translate rtempkneept}

Post a reply to this message