|
Post by PeterMaria on Jul 18, 2015 11:28:12 GMT -5
Hi,
TextMode(TEXT_OVERLAID) locate 14,0 print("Sun Flower")
Sub Init2D(width,height) glMatrixMode (GL_PROJECTION) glLoadIdentity() glOrtho(0,width,height,0,-1,1) glMatrixMode (GL_MODELVIEW) glDisable(GL_DEPTH_TEST) End Sub
Sub SetPoint(x,y,size#) glPointSize(size#) glBegin(GL_POINTS) glVertex2f(x,y) glEnd() End Sub
Init2D(640,480) Dim pi#=3.141592654 dim angle#=1,cx#=320,cy#=240,r#,na#, x#, y#, i glClearColor(0,0,1,1) glClear(GL_COLOR_BUFFER_BIT) swapbuffers() glEnable(GL_POINT_SMOOTH)
for i=0 to 20100 r#=sin(angle#/100) * 200 na#=((r#*2*pi#)/3600) * angle# x# =(cos(na#/r#)*r#)+cx# y# =(sin(na#/r#)*r#)+cy# glColor3ub(100,200,0) SetPoint(x#,y#,12) glColor3ub(255,255,255) SetPoint(x#,y#,11) angle# = angle#+0.5 next drawtext() swapbuffers()
|
|
|
Flower
Jul 18, 2015 12:58:03 GMT -5
Post by matthew on Jul 18, 2015 12:58:03 GMT -5
Kinda reminds me of summertime, Peter. :-)
|
|