1ff
@verb #450:"xyz_inc" this none this rxd #9988
@program #450:"xyz_inc" this none this
{pitch, yaw, speed} = args
"convert to radians"
pi = atan(1.0) * 4.0
pitch = tofloat(pitch) * (pi / 180.0)
yaw = tofloat(yaw) * (pi / 180.0)
speed = tofloat(speed)
"@whee, trig."
xinc = speed * cos(yaw) * cos(pitch)
yinc = speed * sin(yaw) * cos(pitch)
xinc = tofloat(floatstr(xinc, 5))
yinc = tofloat(floatstr(yinc, 5))
zinc = speed * sin(pitch)
zinc = tofloat(floatstr(zinc, 5))
return {xinc, yinc, zinc}
.

0