|
Post by PeterMaria on Apr 9, 2016 9:07:18 GMT -5
Hello, Basic4Gl v2.6 textmode(TEXT_OVERLAID)
dim fnt = loadtex("fonts/font03.png") font(fnt)
dim i dim s$ = "LORENZ LANDSCAPE"
for i=1 to Len(s$) locate 30, i+3 print mid$(s$, i, 1) next
glMatrixMode (GL_PROJECTION) glLoadIdentity() glOrtho(0,windowwidth(),windowheight(),0,-1,1) glMatrixMode (GL_MODELVIEW) glDisable (GL_DEPTH_TEST)
Sub SetPixel(x#, y#, size#) glPointSize(size#) glBegin(GL_POINTS) glVertex2f(x#, y#) glEnd() End Sub
dim x#, y#, n#, t#
while scankeydown(27)=0 for t#=0 to 100000 x# = sin(t#*0.99)-0.7*cos(t#*3.01) y# = cos(t#*1.01)+0.1*sin(t#*15.03) x# = x#*200+350 y# = y#*200+360 setpixel(y#, x#, 1) next
drawtext() swapbuffers() wend
Attachments:png.zip (6.71 KB)
|
|
|
Post by matthew on Apr 18, 2016 9:29:50 GMT -5
Nice font, Peter. :-)
|
|