|
Post by PeterMaria on Dec 19, 2015 12:03:48 GMT -5
Hello, air signum. 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("gl4font02.png") font(f)
Sub FillCircle(x,y,r1,size#) dim r=r1/2, t glPointSize(size#) glBegin(GL_POINTS) For t=0 to 360 step 10 glVertex2i(x+sind(t)*r, y+cosd(t)*r) Next glEnd() glPointSize(1.0) End Sub
Function Rand(min,max) Return rnd()% (max - min + 1) + min End Function
dim i#, a#, c# dim r = rand(128, 255) dim g = rand(128, 255) dim b = rand(128, 255) dim u, v, w, x, y
Sub DrawCenter(x, y, ra) glcolor3ub(r, g, b) fillcircle(x, y, ra, 3) End Sub while scankeydown(27)=0 glClearColor(0,0,0,1) glClear(GL_COLOR_BUFFER_BIT) for i#=0 to 360 x=sin(i#+a#)*100+330 y=cos(i#-a#)*100+250 DrawCenter(x+sin(a#*i#), y+cos(a#*i#), 1) x=sin(i#+a#)*100+330 y=cos(i#+0)*100+250 DrawCenter(x+sin(a#*i#), y+cos(a#*i#), 1)
x=sin(i#+a#)*100+110 y=cos(i#*i#)*100+110 u=r: v=g: w=b r=255: g=255: b=255 DrawCenter(x+sin(a#*i#), y+cos(a#*i#), 1) r=u: g=v: b=w next
a# = a#+.1 if a# >= 360 then a#=-a#: end if c# = c#+.1 if c# >=2 then c# = 0 r = rand(64, 255) g = rand(64, 255) b = rand(64, 255) end if locate 15,22 print "AIR SIGNUM" drawtext() swapbuffers() wend
Attachments:gl4font02.zip (4.14 KB)
|
|
|
Post by matthew on Dec 19, 2015 15:41:54 GMT -5
Do you make your own fonts, Peter?
|
|
|
Post by PeterMaria on Dec 19, 2015 16:47:36 GMT -5
Hi Matthew,
of course I do it. I use a free Amiga font sometimes. I am still having an old Amiga 1000 here. is that welcome? Matthew
|
|