|
Fern
Jul 2, 2015 11:35:16 GMT -5
Post by PeterMaria on Jul 2, 2015 11:35:16 GMT -5
Hello, some fern.
Sub Gl2D(width,height) glMatrixMode(GL_Projection) glLoadIdentity() glOrtho(0,width,height,0,-1,1) glMatrixMode(GL_ModelView) glLoadIdentity() glDisable(GL_DEPTH_TEST) End Sub Sub setPixel(x#,y#) glPushMatrix() glLoadIdentity() glPointSize(1.0) glBegin(GL_POINTS) glVertex2f(x#,y#) glEnd() glPopMatrix() End Sub
Function Rand(min,max) Return rnd()% (max - min + 1) + min End Function
Gl2D(800,600) dim a#, b#, c#, d#, e#, f#, newx#, newy#, r, w dim xy#(2)
sub DrawFern() r = rand(0,100) if r <=10 then a# = 0 b# = 0 c# = 0 d# = 0.16 e# = 0 f# = 0 elseif r > 1 and r <=86 then a# = 0.85 b# = 0.04 c# = -.04 d# = 0.85 e# = 0 f# = 1.60 elseif r > 86 and r <=93 then a# = 0.2 b# = -.26 c# = 0.23 d# = 0.22 e# = 0 f# = 0.16 else a# = -.15 b# = 0.28 c# = 0.26 d# = 0.24 e# = 0 f# = 0.44 end if newx# = ((a# * xy#(1)) + (b# * xy#(2)) + e#) newy# = ((c# * xy#(1)) + (d# * xy#(2)) + f#) xy#(1) = newx# xy#(2) = newy# glColor3ub(0,200,55) setpixel( -xy#(1)*40+175,-xy#(2)*40+480) setpixel( xy#(1)*40+475,-xy#(2)*40+480) end sub
for w=0 to 60000 DrawFern() next swapbuffers()
|
|
|
Fern
Jul 4, 2015 6:19:40 GMT -5
Post by matthew on Jul 4, 2015 6:19:40 GMT -5
Nice Peter, two ferns for the price of one. ;-)
|
|