|
Post by PeterMaria on Apr 5, 2016 13:00:11 GMT -5
Hello, 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)
Function Mod(mm, mn) Return mm % mn End Function
sub Ellipse(x#,y#,r1#,r2#,width#) dim t# dim ra# = r1#/2, rb# = r2#/2 glenable(gl_point_smooth) glPointSize(width#) glBegin(GL_POINTS) for t#=0 to 360 glVertex2f(x#+cos(t#)*ra#, y#+sin(t#)*rb#) next glEnd() gldisable(gl_point_smooth) end sub dim a#, x#=windowwidth()/2, y#=windowheight()/2, r#=400, c#, lx#, ly#
while scankeydown(27)=0 glClearColor(1, 1, 1, 1) glClear(GL_COLOR_BUFFER_BIT) for a#=0 to 360 step 10 glcolor3ub( mod(int(a#*.5),128), mod(int(a#*1.5),128), mod(int(a#*2.5),128)) lx# = sind(a#)*c#+a# ly# = cosd(a#)*c#+a# Ellipse(x#+sind(c#)*80,y#+cosd(c#)*20,lx#,ly#,1) next c# = c#+2 if c#>=360 then c#=-c#: end if swapbuffers() waittimer(10) wend
|
|
|
Cyclops
Apr 18, 2016 9:24:43 GMT -5
Post by matthew on Apr 18, 2016 9:24:43 GMT -5
Nice, Peter. :-)
|
|