|
Post by PeterMaria on Jul 3, 2015 12:01:50 GMT -5
Sub Gl2D(width,height) glMatrixMode(GL_Projection) glLoadIdentity() glOrtho(0,width,height,0,-1,1) glMatrixMode(GL_ModelView) glLoadIdentity() glDisable(GL_DEPTH_TEST) End Sub Sub setPixel(x#,y#) glPushMatrix() glLoadIdentity() glPointSize(1.0) glScalef(2,2,0) glBegin(GL_POINTS) glVertex2f(x#,y#) glEnd() glPopMatrix() End Sub
Gl2D(640,480) glEnable(GL_POINT_SMOOTH) dim m1#,m2#,m4#,m3#,m5#,m6#,x,y,r,g,b
while scankeydown(27)=0 for y=0 to 240 m3# = m3#+1 m1# = m1#+9 m2# = m1# m6# = m3# for x=0 to 320 m4# = m4#+19 m2# = m2#+15 m6#=m6#+1 r = abs(sin(m1#/100)+sin(m2#/100)+sin((m1#+m4#)/600))*(255/3) g = abs(sin((m6#)/50) + sin(m3#/100))*250 b = abs(sin(x*y/100000)*200) glColor3ub(r,g,b) SetPixel(x, y) next next swapbuffers() wend
|
|
|
Post by matthew on Jul 4, 2015 6:18:54 GMT -5
Looks kinda strange. :-)
|
|