Post by xteraco on Apr 8, 2005 14:40:47 GMT -5
well, i've been coding in freebasic for quite some while, and i felt the need to do something in basic4gl again... just so people know i havent givin up.. here goes.. its my name! i need feedback!!! lemme know what you think
dim angle#,r1,r2,r3,i
two:
r1 = rnd()%2
r2 = rnd()%2
r3 = rnd()%2
glclear (GL_COLOR_BUFFER_BIT)
one:
for i = 1 to 200
glClear (GL_DEPTH_BUFFER_BIT or gl_color_buffer_bit)
glLoadIdentity ()
glTranslatef (0, 0, -4)
glRotatef (angle#,r1, r2, r3)
glBegin (gl_Triangle_Fan)
glVertex3f (-1.9, 0.3, 0)
glVertex3f (-1.7, 0.2, 0)
glVertex3f (-1.9, 0.8, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (-1.7, 0.2, 0)
glVertex3f (-1.5, 0.8, 0)
glVertex3f (-1.5, 0.4, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (-1.7, 0.2, 0)
glVertex3f (-1.9, 0, 0)
glVertex3f (-1.9, -0.4, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (-1.7, 0.2, 0)
glVertex3f (-1.6, -0.4, 0)
glVertex3f (-1.5, 0, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (-1.4, 0.7, 0)
glVertex3f (-0.6, 0.7, 0)
glVertex3f (-1.1, 0.6, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (-1.2, 0.7, 0)
glVertex3f (-1, 0.7, 0)
glVertex3f (-1.2, -0.3, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (-0.9, 0.5, 0)
glVertex3f (-1, -0.3, 0)
glVertex3f (-0.7, 0.5, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (-0.7, 0.5, 0)
glVertex3f (-0.4, 0.5, 0)
glVertex3f (-0.8, 0.3, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (-1, -0.3, 0)
glVertex3f (-0.7, -0.3, 0)
glVertex3f (-0.9, 0, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (-0.9, -0.1, 0)
glVertex3f (-0.7, 0.1, 0)
glVertex3f (-0.8, 0.2, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (-0.5, -0.3, 0)
glVertex3f (-0.5, 0.4, 0)
glVertex3f (-0.2, 0.6, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (-0.4, 0.1, 0)
glVertex3f (0, 0.2, 0)
glVertex3f (-0.3, 0.3, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (-0.2, 0.6, 0)
glVertex3f (0, 0.2, 0)
glVertex3f (0, 0.6, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (-0.3, 0.1, 0)
glVertex3f (-0.1, 0.2, 0)
glVertex3f (0, -0.3, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (0.1, -0.3, 0)
glVertex3f (0.3, 0.6, 0)
glVertex3f (0.4, 0, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (0.4, 0, 0)
glVertex3f (0.7, 0, 0)
glVertex3f (0.3, 0.2, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (0.3, 0.6, 0)
glVertex3f (0.7, 0, 0)
glVertex3f (0.7, 0.4, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (0.7, 0.4, 0)
glVertex3f (0.9, -0.2, 0)
glVertex3f (0.7, 0, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (1, -0.2, 0)
glVertex3f (0.8, 0.6, 0)
glVertex3f (1, 0.8, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (1, 0.8, 0)
glVertex3f (1.3, 0.8, 0)
glVertex3f (0.9, 0.5, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (1, -0.2, 0)
glVertex3f (1.3, -0.2, 0)
glVertex3f (1, 0.2, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (1.4, 0.6, 0)
glVertex3f (1.2, 0.1, 0)
glVertex3f (1.4, -0.2, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (1.4, -0.2, 0)
glVertex3f (1.6, 0.4, 0)
glVertex3f (1.7, 0, 0)
glEnd ()
glBegin (gl_Triangle_Fan)
glVertex3f (1.6, 0.4, 0)
glVertex3f (1.4, 0.6, 0)
glVertex3f (1.6, 0.6, 0)
glEnd ()
SwapBuffers ()
angle# = angle# + 1
if i = 200 then gosub two endif
next