|
Post by PeterMaria on Apr 3, 2016 8:04:35 GMT -5
Hello, use Basic4gl v2.6 TextMode(TEXT_OVERLAID) dim fnt = LoadTex("fonts/font06.png") Font(fnt) locate 15,0 print("FRANKENSTEIN")
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) glEnable (GL_BLEND)
Sub Line(x0,y0,x1,y1,lsize#) glLinewidth(lsize#) glEnable (GL_LINE_SMOOTH) glBegin (GL_LINES) glVertex2i(x0,y0) glVertex2i(x1,y1) glEnd() glDisable(GL_LINE_SMOOTH) End Sub
Sub FillCircle(x#,y#,r1#) dim r#=r1#/2, t# glBegin(GL_TRIANGLE_FAN) glVertex2f(x#, y#) for t#=0 to 360 glVertex2f(x#+sin(t#)*r#, y#+cos(t#)*r#) next glEnd() End Sub
Function RNDF#() Return rnd()*(1.0/RND_MAX) End Function
sub DrawLightning(x1, y1, x2, y2, displace) dim curdetail=5, midx#, midy# if displace < curDetail then glcolor4ub(200, 200, 255, 200) line(x1, y1, x2, y2, 6) else midx# = (x2+x1)/2 midy# = (y2+y1)/2 midx# = midx# + (-rndF#()*displace/2) midy# = midy# + (-rndF#()*displace/2) drawLightning(x1, y1, midx#, midy#, displace/2) drawLightning(x2, y2, midx#, midy#, displace/2) endif end sub
while scankeydown(27)=0 glClearColor(.1, .1, .1, 1) glClear(GL_COLOR_BUFFER_BIT) glcolor4ub(255, 255, 255, 200) fillcircle(50, 400, 50) fillcircle(windowwidth()-50, 400, 50) drawlightning(50, 400, windowwidth()-50, 400, 400) drawtext() swapbuffers() waittimer (20) wend
Attachments:fonts.zip (6.75 KB)
|
|
|
Post by matthew on Apr 5, 2016 10:29:32 GMT -5
Looks spooky, Peter. :-)
|
|