|
Post by PeterMaria on Dec 16, 2015 9:16:37 GMT -5
Hello, textmode(TEXT_OVERLAID) glMatrixMode (GL_PROJECTION) glLoadIdentity() glOrtho(0,windowwidth(),windowheight(),0,-1,1) glMatrixMode (GL_MODELVIEW) glDisable(GL_DEPTH_TEST) glenable(GL_POINT_SMOOTH)
dim f = loadtex("gl4font01.png") font(f) locate 10,10 print "Wait a moment......." drawtext() swapbuffers()
dim x#,y#,zx#,zy#,cx#,cy#,tp# dim mi=512,zm=140,i
for y#=0 to 599 for x#=0 to 799 zx#=0 zy#=0 cx#=(x#-400)/zm cy#=(y#-300)/zm i = mi while zx#*zx#+zy#*zy# <4 and i>0 tp# = zx#*zx#-zy#*zy#+cx# zy# = 2*zx#*zy#+cy# zx# = tp# i = i-1 wend glbegin(gl_points) glcolor3ub(i,i*65536/5,i*256) glvertex2f(x#,y#) glend() next next swapbuffers()
Attachments:font.zip (5.63 KB)
|
|
|
Post by matthew on Dec 19, 2015 15:31:14 GMT -5
Looks like it's on fire, Peter.
|
|