turtle3D.uppitch

Help Contents 3D Turtle Graphics turtle3D.uppitch
turtle3D.right turtle3D.up

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

Reference:

turtle3D.right turtle3D.up