|
![](/i/fill.gif) |
Dan Johnson wrote:
>
> Tor Olav Kristensen wrote:
>
> >
> > Sorry, I think that I misunderstood your problem.
>
> Most people don't understand me. Including myself.
> Thanks for the input maybe I will try working more on it in a few
> months. It was more of an interesting toy to begin with. When I am
> serious about transforms I usually use a much more powerful transform
> macro. H2t it by far the most used macro I have ever written(By me at
> least). I think the code below will effectively demonstrate how ez it
> makes things. Perfectly face bonded tetrahedra. If you keep using
> Move1 you will get a tetrahelix.
>...
Dan, I had a second look at your code today.
And it took a while before I understood
what you were up to.
- It seems you have made a kind of
reorient macro, but with an added feature
to also control how a "local" coordinate
system within the object is repositioned.
Earlier I have been thinking along those
lines too. (And I think that John VanSickle
has made some similar macros.)
Now I have rewritten your "Here to there"
macros a little. (And I also introduced
some v3.5 features.)
Can you please have a look at these macros
to see if they still work as you intended ?
Tor Olav
// ===== 1 ======= 2 ======= 3 ======= 4 ======= 5 ======= 6 ======= 7
// A common macro:
#macro MatrixFromVectors(vA, vB, vC)
matrix <
vA.x, vA.y, vA.z,
vB.x, vB.y, vB.z,
vC.x, vC.y, vC.z,
0, 0, 0
>
#end // macro macro MatrixFromVectors
// Former H2tr macro:
#macro Here2ThereTransform(vA1, vA2, vB1, vB2)
#local vX1 = vnormalize(vA1);
#local vZ1 = vnormalize(vcross(vX1, vA2));
#local vY1 = vcross(vZ1, vX1);
#local vX2 = vnormalize(vB1);
#local vZ2 = vnormalize(vcross(vX2, vB2));
#local vY2 = vcross(vZ2, vX2);
#local TransA = transform { MatrixFromVectors(vX1, vY1, vZ1) }
#local TransAinv = transform { TransA inverse }
#local Fn = function { transform { TransAinv } }
transform {
TransAinv
MatrixFromVectors(
Fn(vX2.x, vX2.y, vX2.z),
Fn(vY2.x, vY2.y, vY2.z),
Fn(vZ2.x, vZ2.y, vZ2.z)
)
TransA
}
#end // macro Here2ThereTransform
// Former H2t macro
#macro H2T_Transform(pCtrI, pRef1I, pRef2I, pCtrF, pRef1F, pRef2F)
transform {
translate -pCtrI
Here2ThereTransform(
pRef1I - pCtrI, pRef2I - pCtrI,
pRef1F - pCtrF, pRef2F - pCtrF
)
translate pCtrF
}
#end // macro H2T_Transform
// ===== 1 ======= 2 ======= 3 ======= 4 ======= 5 ======= 6 ======= 7
Post a reply to this message
|
![](/i/fill.gif) |