Proportional TTF To Monospace PNG(Source Included)

BlitzMax Forums/BlitzMax Programming/Proportional TTF To Monospace PNG(Source Included)

dw817 (Posted 2016) [#1]

While BlitzMAX certainly does indeed have a good handle on Truetype Fonts and displaying them, this program could be used to generate a graphic table from a proportionally spaced Truetype font for a programming language, like Monkey-X which does not immediately support TTFs. It could also be used for other things, including a simple way of having a font that comes ready-made with its own shadow, readable with LoadAnimImage() and plottable simply with DrawImage() so you don't have to render both each time. Enjoi ! ' ________________________________________ ' // // ' // "Proportional TTF To Monospace PNG" // ' // Version: "Every Single Pixel" // ' // Written by David W (dw817) 02/26/16 // '//_____________________________________// ' ' It's never an easy task converting a proportionally-spaced ' typeface to monospace. There are so many things to consider, ' the least of which is that "i" is usually more narrow than ' "w" and this must be taken into account and adjusted for. ' ' While not perfect, this is a good program to use if you are ' intent on having pixeled graphics for your program font. ' ' Saves the shadow at 50% alpha darkness too so you do not ' have to add that to your coding either. ' ' Tahoma font is copyright of Microsoft ' <a href="https://en.wikipedia.org/wiki/Tahoma_%28typeface%29" target="_blank">https://en.wikipedia.org/wiki/Tahoma_%28typeface%29</a> Strict Global font$="c:\windows\fonts\tahoma.ttf" ' font to load Global adjx=-1 ' reposition character horizontally Global adjy=-4 ' resposition character vertically Global wide$="WwMm@%" ' what characters are W I D E Global stretch=24 ' slightly larger than default 16-across Global typ=0 ' typ=0 ... adjust for each pixel alpha before saving ' typ=1 ... quick throw black to transparent only Local i,j,k,n,s,w,x,x2,y2,r,g,b,a Local c$ Local fnt:timagefont,picfnt:TPixmap SetGraphicsDriver GLMax2DDriver(),0 ' necessary for intense pixel work Graphics 768,576 Repeat s:+1 fnt=LoadImageFont(font$,s) SetImageFont fnt x=0 For j=32 To 126 w=TextWidth(Chr$(j)) If x<w Then x=w Next If i=128 Then Notify "BAD FONT" ; End Until x=stretch ' keep looping until widest character matches length we want Cls For i=0 To 3 For j=0 To 31 c$=Chr$(32+j+i*32) w=TextWidth(c$) SetViewport j*16,i*32,16,32 ' force drawing within character area only x=0 If Instr(wide$,c$)>0 And wide$>"" ' if is WIDE character SetScale 16.0/w,1 ' readjust scale to match x=(16.0/w)*3.0 ' slight adjust horizontal position too EndIf x2=j*16+8-w/2+x+adjx y2=i*32+adjy For k=0 To x<>0 ' if was wide, double draw it to decrease blur SetBlend alphablend ' shadow SetColor 1,0,0 DrawText c$,x2+2,y2+2 DrawText c$,x2+3,y2+2 DrawText c$,x2+1,y2+1 DrawText c$,x2+2,y2+1 SetColor 255,255,255 ' light SetBlend lightblend ' always choose so no gray dither DrawText c$,x2,y2 DrawText c$,x2+1,y2 Next SetScale 1,1 Next Next SetViewport 0,0,GraphicsWidth(),GraphicsHeight() ' return normal viewport SetBlend alphablend picfnt=GrabPixmap(0,0,512,96) ' grab it If typ=1 Then picfnt=MaskPixmap(picfnt,0,0,0) ' make black ($000000) transparent only For i=0 To 95 For j=0 To 511 n=j*4+i*2048 r=picfnt.pixels[n] g=picfnt.pixels[n+1] b=picfnt.pixels[n+2] a=(r+g+b)/3 If r=1 And g=0 And b=0 Then a=128 If typ=0 Then picfnt.pixels[n+3]=a ' manually adjust alpha based on brightness Next Next SetClsColor 0,128,255 Cls SetColor 0,96,192 For i=0 Until 576 Step 32 ' draw a grid to confirm alignment For j=0 Until 768 Step 16 drawbox j,i,17,33 Next Next SetColor 255,255,255 ' back to white ' SavePixmapPNG picfnt,"font.png",9 ' option to save it if you like DrawImage LoadImage(picfnt),0,0 ' draw final work, ready for LoadAnimImage() Flip 0 ' update screen WaitKey ' any key to exit ' >> DRAW A HOLLOW BOX AT COORDINATES Function drawbox(a,b,c,d) DrawLine a,b,a+c-1,b DrawLine a+c-1,b,a+c-1,b+d-1 DrawLine a+c-1,b+d-1,a,b+d-1 DrawLine a,b+d-1,a,b End Function

dw817 (Posted 2016) [#2]

I'm planning on making a good update to this program, stay tuned ! :) ... Nope, it didn't work out. Looks like I need to give it some more thinking ...