|
Post by PeterMaria on Mar 30, 2016 17:46:24 GMT -5
Hello, please use Basic4Gl v2.6
glMatrixMode (GL_PROJECTION) glLoadIdentity() glOrtho (0, windowwidth(), windowheight(), 0, -1, 1) glMatrixMode (GL_MODELVIEW) glDisable (GL_DEPTH_TEST) glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA)
Sub FillCircle(x#,y#,r1#) dim r#=r1#/2, t# glBegin(GL_TRIANGLE_FAN) glVertex2f(x#, y#) for t#=0 to 360 step 5 glVertex2f(x#+sin(t#)*r#, y#+cos(t#)*r#) next glEnd() End Sub
function Mod(mm, mn) return mm % mn end function
dim w = windowwidth()/2, h = windowheight()/2, i dim a#
while scankeydown(27)=0 glClear(GL_COLOR_BUFFER_BIT) for i=1 to 360 glcolor3ub(mod(i,255),mod(i,200),mod(i,150)) fillcircle(w+sin(i-a#)*i, h+cos(i+a#)*i, -i/6) next a# = a#+.05 if a# >=360 then a# =-a#: endif swapbuffers() wend
|
|
|
Swing
Mar 31, 2016 10:32:12 GMT -5
Post by matthew on Mar 31, 2016 10:32:12 GMT -5
Very colourful Peter. :-)
|
|