turtle3D.rightroll

Help Contents 3D Turtle Graphics turtle3D.rightroll
turtle3D.downpitch turtle3D.rr

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

Reference:

turtle3D.downpitch turtle3D.rr