|
|
|
turtle3D.rightroll :a
turtle3D.rr :a
turtle3D.cw :a
Definition:
to rightRoll :a local "s "c "rr "uu make "s sin :a make "c cos :a make "rr (vector :r.x*:c-:u.x*:s :r.y*:c-:u.y*:s :r.z*:c-:u.z*:s ) make "uu (vector :r.x*:s+:u.x*:c :r.y*:s+:u.y*:c :r.z*:s+:u.z*:c ) make "r :rr make "u :uu end to rr :a rightRoll :a end to cw :a rightRoll :a end |
|
|
|