finding font widths?

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|611\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> finding font widths?
Sat, 02 Nov 2019, 05:11
spinal	finding font widths? Here's a small bit of code, it takes an image of a character set, pops it into a new single character width image (not really needed) and attempts to find out how wide each character is. Thing is though, it doesn't work. Weirdly inside the x loop, x doesn't seem to change, but even then, it's not detecting the outside edge of the image either. Any ideas where I went wrong? using this image ;Graphics 1024,768 Graphics 320,240,0,2 Global FontHeight = 8 Global FontWidth = 5 font = LoadAnimImage("d:\supertinyfont.png",FontWidth,FontHeight,0,96) font_fix = CreateImage(FontWidth,FontHeight96) SetBuffer ImageBuffer(font_fix) For y=0 To 2 For x=0 To 31 DrawBlock font,0,tFontHeight,t t=t+1 Next Next ; find bg colour SetBuffer FrontBuffer() DrawBlock font,0,0,0 GetColor (0, 0) bgred = ColorRed() bggreen = ColorGreen() bgblue = ColorBlue() SaveImage(font_fix,"d:\font_fix.bmp") Dim widths(96) For temp = 0 To 95 SetBuffer FrontBuffer() Cls Color bgred,bggreen,bgblue Rect 192,0,7,7,1 DrawBlock font,0,0,temp ; SetBuffer ImageBuffer(font,temp) width_found = 0 For x = FontWidth-1 To 0 Step -1 Color 0,0,0 Rect 100,0,32,16,1 Color 255,255,255 Text 100,0,"x:"+x For y = 0 To FontHeight-1 GetColor (x, y) red = ColorRed() green = ColorGreen() blue = ColorBlue() Color red,green,blue Rect x8,y8,7,7,1 If width_found=0 And (red>bgred Or green>bggreen Or blue>bgblue) Then widths(temp) = x + 2 width_found = 1 ; WaitKey() End If Next SetBuffer FrontBuffer() Color 0,0,0 Rect 100,14,32,14,1 Color 255,255,255 Text 100,14,"x:"+x Color 0,255,0 Line x,0,x,FontHeight-1 SetBuffer ImageBuffer(font,temp) WaitKey() Next Next widths(0)=2 ; give 'space' a width save_file = WriteFile("d:\font_widths.txt") WriteLine(save_file, "char fontWidth[96]={") For temp = 0 To 95 a$ = widths(temp) + "," WriteLine(save_file, a$) Next WriteLine(save_file, "};") CloseFile save_file WaitKey() End --v -=-=- Check out my excellent homepage!
Sat, 02 Nov 2019, 05:52
Jayenkai	I think it's the "Step -1" bit. I've avoided using minus steps for a LONG time, and it might've been B2D/3D that caused that habit. For ux = 0 To FontWidth-1 x=(FontWidth-1)-ux --v Switching it to that seems to work. (Although I might've added too many -1's! -=-=- ''Load, Next List!''
Sat, 02 Nov 2019, 07:15
spinal	Odd that it could outside of the loop though... \|edit\| Nope, not working I'm still getting 0 for all of the widths -=-=- Check out my excellent homepage!
Sat, 02 Nov 2019, 08:22
Pakz	Been staring at it. I see nothing! All I can say is to visualize the problem. Draw out what should be happening and see if things are happening. I spend a couple of hours on a bug a couple of days ago where I just used a variable in the wrong way.
Sat, 02 Nov 2019, 14:22
Dan	ok here it the corrected code: If width_found=0 And (red<>bgred or green<>bggreen or blue<>bgblue) Then --v and the code as whole: ;Graphics 1024,768 Graphics 320,240,0,2 Graphics 320,240,0,3 Global FntHeight = 8 Global FntWidth = 5 font = LoadAnimImage("d:\supertinyfont.png",FntWidth,FntHeight,0,96) font_fix = CreateImage(FntWidth,FntHeight96) SetBuffer ImageBuffer(font_fix) For y=0 To 2 For x=0 To 31 DrawBlock font,0,tFntHeight,t t=t+1 Next Next ; find bg colour SetBuffer FrontBuffer() DrawBlock font,0,0,0 GetColor (0, 0) bgred = ColorRed() bggreen = ColorGreen() bgblue = ColorBlue() SaveImage(font_fix,"d:\font_fix.bmp") Dim widths(96) For temp = 0 To 95 SetBuffer FrontBuffer() Cls Color bgred,bggreen,bgblue Rect 192,0,7,7,1 DrawBlock font,192,30,temp ; SetBuffer ImageBuffer(font,temp) width_found = 0 widths(temp)=0 For x = FntWidth-1 To 0 Step -1 Color 0,0,0 Rect 100,0,32,16,1 Color 255,255,255 Text 100,0,"x:"+x For y = 0 To FntHeight-1 SetBuffer ImageBuffer(font,temp) GetColor (x, y) red = ColorRed() green = ColorGreen() blue = ColorBlue() Color red,green,blue SetBuffer FrontBuffer() Rect x8,y8,7,7,1 If width_found=0 And (red<>bgred Or green<>bggreen Or blue<>bgblue) Then widths(temp) = x+1 width_found = 1 ;WaitKey() End If Next Color 0,0,0 Rect 100,14,32,14,1 Rect 100,27,9*9,14 Color 255,255,255 Text 100,14,"x:"+x Text 100,27,"width:"+widths(temp) Color 0,255,0 Line 192+x,30,192+x,30+(FntHeight-1) WaitKey() Next Next widths(0)=2 ; give 'space' a width save_file = WriteFile("d:\font_widths.txt") WriteLine(save_file, "char fontWidth[96]={") For temp = 0 To 95 a$ = widths(temp) + "," WriteLine save_file, a$ Next WriteLine(save_file, "};") CloseFile save_file WaitKey() End --v with few changes.
Sun, 03 Nov 2019, 05:35
spinal	If width_found=0 And (red<>bgred or green<>bggreen or blue<>bgblue) Then Dammit, 'I' strike again. I changed that from red>0 etc. forgot the background colour might not be black... also, excellent addition, the zoomed characters really help the visualisation. -=-=- Check out my excellent homepage!
Sun, 03 Nov 2019, 09:48
Dan	The zoomed chars are, actually, your code, i have only placed the SetBuffer commands at the new place, and moved the little font preview to somewhere else. Question, why does the space char needs a width of 2 ?
Sun, 03 Nov 2019, 10:13
spinal	because a space would leave zero width and all the words would run into each other. -=-=- Check out my excellent homepage!
Mon, 04 Nov 2019, 05:09
Dan	Yeah, sounds logical.