|
|
|
turtle3D.left :a
turtle3D.lt :a
Definition:
to left :a local "s "c "ff "rr make "s sin :a make "c cos :a make "ff (vector :f.x*:c-:r.x*:s :f.y*:c-:r.y*:s :f.z*:c-:r.z*:s ) make "rr (vector :f.x*:s+:r.x*:c :f.y*:s+:r.y*:c :f.z*:s+:r.z*:c ) make "f :ff make "r :rr end to lt :a left :a end |
|
|
|