|
Post by PeterMaria on Jul 16, 2015 13:32:27 GMT -5
Hello,
Sub Gl2D(width,height) glMatrixMode (GL_PROJECTION) glLoadIdentity() glOrtho(0,width,height,0,-1,1) glMatrixMode (GL_MODELVIEW) glDisable(GL_DEPTH_TEST) End Sub
Sub Line(x0,y0,x1,y1,lsize#) glLinewidth(lsize#) glBegin(GL_LINES) glVertex2i(x0,y0) glVertex2i(x1,y1) glEnd() End Sub
Sub ClearScreen(r,g,b) dim r1#,g1#,b1# if r>0 then r1#=r/255: end if if g>0 then g1#=g/255: end if if b>0 then b1#=b/255: end if glClearColor(r1#,g1#,b1#,1) glClear(GL_COLOR_BUFFER_BIT) End Sub
Gl2d(640,480) dim x,y,ya,f,ab,ax,ay,ox,oy,a# x = 320 y = 240 ya = y-120 a# = -30
while scankeydown(27)=0 clearscreen(255,255,255) for f=0 to 36 ab = a#+90*f ax = x+100 * cos(ab) ay = y- 50 * sin(ab) glColor3ub(0,0,128) line(x,y-100,ax,ay,2) ox = ax oy = ay next a#= a#+2 swapbuffers() waittimer(20) wend
|
|
|
Fake
Jul 16, 2015 15:42:55 GMT -5
Post by matthew on Jul 16, 2015 15:42:55 GMT -5
It reminds me of the graphical effects you'd see on computers in the 1980s. :-)
|
|