steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.quaternions: use tri* in euler

db4
Eduardo Cavazos 2008-07-04 11:22:59 -05:00
parent 22fdbf53f6
commit 79f19bfe95
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/math/quaternions/quaternions.factor
View File

@ -74,5 +74,4 @@ PRIVATE>
>r -0.5 * dup cos c>q swap sin r> n*v v- ; >r -0.5 * dup cos c>q swap sin r> n*v v- ;
: euler ( phi theta psi -- q ) : euler ( phi theta psi -- q )
qk (euler) >r qj (euler) >r qi (euler) r> q* r> q* ; [ qi (euler) ] [ qj (euler) ] [ qk (euler) ] tri* q* q* ;