|
Post by PeterMaria on Aug 30, 2015 6:06:47 GMT -5
Hello, I am back again. include lib2D.inc
init2D(640,480) dim a#,y,x glClearColor(1,1,1,0) glEnable(GL_POINT_SMOOTH)
while scankeydown(27)=0 glClear(GL_COLOR_BUFFER_BIT) for y=0 to 480 step 40 for x=0 to 640 step 40 glcolor3ub(0,0,255) fillcircle(x+sin(a#)*40,y+cos(a#)*40,5) glcolor3ub(255,0,0) fillcircle(x+cos(a#)*40,y+sin(a#)*40,5) glcolor3ub(0,200,0) fillcircle(x+cos(a#)*40,y+cos(a#)*40,5) next next
a# = a#+.1 if a# >=360 then a#=-a#: end if swapbuffers() waittimer(60) wend
Attachments:lib2D.zip (564 B)
|
|
|
Post by matthew on Aug 31, 2015 14:18:07 GMT -5
Looks strange, Peter. :-)
|
|