@verb #602:"gluPerspective" this none this rxdo #55
@program #602:"gluPerspective" this none this
{@a, fovy, aspect, zNear, zFar} = args
f = 1.0 / tan(fovy * $math_utils.pi / 360.0)
m = {f / aspect, 0.0, 0.0, 0.0, 0.0, f, 0.0, 0.0, 0.0, 0.0, (zFar + zNear) / (zNear - zFar), 2.0 * zFar * zNear / (zNear - zFar), 0.0, 0.0, -1.0, 0.0}
this:glMultMatrix(@a, @m)
"Last modified by manta (#7165) on Tue Apr 18 02:17:18 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."
.