dim x#, y#
glClear (GL_DEPTH_BUFFER_BIT or GL_COLOR_BUFFER_BIT)
glLoadIdentity ()
glTranslatef (0, 0, -15)

while 1
for x# = -15 to 15 step 1
for y# = -15 to 15 step 1
glPointSize(rnd()%25)
glColor3ub (rnd()%255,rnd()%255,rnd()%255)
glBegin(GL_POINTS)
glVertex2f( x#, y#)
glEnd ()
       
Next
Next
SwapBuffers()
wend