@verb #602:"gluLookAt" this none this rxdo #55
@program #602:"gluLookAt" this none this
{@a, eyeX, eyeY, eyeZ, centreX, centreY, centreZ, upX, upY, upZ} = args
f = $vector_utils:normalise($vector_utils:add({centreX, centreY, centreZ}, $vector_utils:negate({eyeX, eyeY, eyeZ})))
up = $vector_utils:normalise({upX, upY, upZ})
s = $vector_utils:cross(f, up)
u = $vector_utils:cross(s, f)
this:glMultMatrix(@a, @s, 0.0, @u, 0.0, @$vector_utils:negate(f), 0.0, 0.0, 0.0, 0.0, 1.0)
this:glTranslate(@a, -eyeX, -eyeY, -eyeZ)
"Last modified by manta (#7165) on Mon Apr 17 17:10:48 2000 EDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:06 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:06 2002 MDT."
.