math.quaternions: use 2bi in q*
parent
1fa98e2121
commit
22fdbf53f6
|
@ -24,7 +24,7 @@ PRIVATE>
|
||||||
|
|
||||||
: q* ( u v -- u*v )
|
: q* ( u v -- u*v )
|
||||||
#! Multiply quaternions.
|
#! Multiply quaternions.
|
||||||
[ q*a ] 2keep q*b 2array ;
|
[ q*a ] [ q*b ] 2bi 2array ;
|
||||||
|
|
||||||
: qconjugate ( u -- u' )
|
: qconjugate ( u -- u' )
|
||||||
#! Quaternion conjugate.
|
#! Quaternion conjugate.
|
||||||
|
|
Loading…
Reference in New Issue