|
|
|
turtle3D.uppitch :a
turtle3D.up :a
Definition:
to uppitch :a local "s "c "ff "rr make "s sin :a make "c cos :a make "ff (vector :u.x*:s+:f.x*:c :u.y*:s+:f.y*:c :u.z*:s+:f.z*:c ) make "uu (vector :u.x*:c-:f.x*:s :u.y*:c-:f.y*:s :u.z*:c-:f.z*:s ) make "f :ff make "u :uu end to up :a uppitch :a end |
|
|
|