407
@verb #603:"test" this none none rdo #55
@program #603:"test" this none none
s = this:new_session(player.output_xdisplay)
fork (10)
  this:close_session(s)
endfork
win = this:XCreateWindow(s, this:DefaultRootWindow(s), 100, 100, 512, 384, 1, 16, 0, 36, {"backing-store", "Always"})
cid = this:glXCreateContext(s, 36, 0, 0)
this:XMapWindow(s, win)
c = this:glXMakeCurrent(s, win, cid, 0)
this:glClear(s, c, "color_buffer")
this:glOrtho(s, c, 0.0, 1.0, 0.0, 1.0, -1.0, 1.0)
this:glColor(s, c, 1.0, 0.0, 0.0)
this:glBegin(s, c, "polygon")
this:glVertex(s, c, 0.25, 0.25, 0.0)
this:glVertex(s, c, 0.75, 0.25, 0.0)
this:glVertex(s, c, 0.75, 0.75, 0.0)
this:glVertex(s, c, 0.25, 0.75, 0.0)
this:glEnd(s, c)
this:glXSwapBuffers(s, c, win)
player:tell("Worked!")
"Last modified by manta (#7165) on Tue Apr 18 03:59: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 Sun Aug 18 18:27:15 2002 MDT."
.

0