---

I have been playing with bitmap fonts recently and have decided to give some away to the community.
The background colours in the display images I have chosen to show off the font. If you click the Download button you will get all the images as PNG files with alpha backgrounds.

Enjoy


Bitmap Font Pack 2 now available!
Bitmap Font Pack 3 now available!

Black & White / White & Black


Gold / Silver


Fire / Blood


LED red / LED green


LED blue / VideoPhreak


Orange with Shadow / Party Time


Rocks / Planks



Load Bitmap and cut images - keeping transparency:
+ Code Snippet

`*********************************
`       LOAD BITMAP FONT
`*********************************
Function LoadBMfont(FileName as string,FontImageNumber)
	
	load image FileName,FontImageNumber,1
	Font = 32
	For y = 0 to 9
		for x = 0 to 9
			GetImage( FontImageNumber, Font + FontImageNumber, x*32, y*32, 32, 32 )
			inc Font
		next x
	next y
`	Delete Image FontImageNumber
	
endfunction


`*********************************
`   GET IMAGE WITH TRANSPARENCY
`*********************************
function GetImage(Image1,NewImage,Xstart,Ystart,Xsize as dword,Ysize as dword)
	
	`Find unused memblocks
	Memblock1 = 1
	repeat
		inc Memblock1
	until memblock exist(Memblock1) = 0
	NewMemblock = 2
	repeat
		inc NewMemblock
	until memblock exist(NewMemblock) = 0
	
	`Set up variables
	Local Width as Dword
	Local Height as Dword
	Local Depth as Dword
	Local Red as Byte
	Local Green as Byte
	Local Blue as Byte
	Local Alpha as Byte
	
	`Do it!
	make memblock from image Memblock1,Image1
	Width = memblock dword(Memblock1,0)
	Height = memblock dword(Memblock1,4)
	Depth = memblock dword(Memblock1,8)
	make memblock NewMemblock,(Width*Height)+12
	
	Write memblock Dword NewMemblock,0,Xsize
	Write memblock Dword NewMemblock,4,Ysize
	Write memblock Dword NewMemblock,8,Depth
	
	Position = (Width  * (Ystart)*4) + (Xstart*4) + 12
	NewPosition = 12
	
	for y = 1 to Ysize
		for x = 1 to Xsize 
	   
	      Blue = memblock byte(Memblock1,Position)
	      Green = memblock byte(Memblock1,Position+1)
	      Red = memblock byte(Memblock1,Position+2)
	      Alpha = memblock byte(Memblock1, Position+3)
	      
	      write memblock byte NewMemblock,NewPosition,Blue
	      write memblock byte NewMemblock,NewPosition+1,Green
	      write memblock byte NewMemblock,NewPosition+2,Red
	      write memblock byte NewMemblock,NewPosition+3,Alpha
	      
	      inc Position,4
	      Inc NewPosition,4
	      
		next x
		inc Position , (width*4) - (Xsize*4)
	next y
	
	make image from memblock NewImage,NewMemblock
	delete memblock Memblock1
	delete memblock NewMemblock
	
endfunction

Trim the transparent edges away from the font:
+ Code Snippet

`Put the 2 DIM commands at the top of you code
Dim BMleft(127)
Dim BMwidth(127)
'*********************************
`       TRIM BITMAP FONT
`*********************************

Function TrimBMFont(FontNo)

	Local BlankColumn as boolean
	Local Alpha as byte
	Local Chr as integer
	Local FontWidth as integer = 32
        Local FontHeight as integer = 32

	For Chr = 33 to 126
		Make Memblock From Image 1 , FontNo + Chr
		for x = 1 to FontWidth
			BlankColumn = Yes
			for y = 1 to FontHeight - 1
				
				if BMleft(Chr) = 0
					Position = (y * FontWidth * 4) + (x * 4) + 15
					Alpha = memblock byte(1 , Position)

					if Alpha > 0
						BlankColumn = No
						y = FontHeight - 1
					endif
				endif
				
			next y
			
			if BlankColumn = No
				BMleft(Chr) = x
				x = FontWidth
			endif
			
		next x
		
		for x = FontWidth - 1 to 1 step - 1
			BlankColumn = Yes
			for y = 1 to FontHeight - 1
				
				if BMwidth(Chr) = 0
					Position = (y * FontWidth * 4) + (x * 4) + 15
					Alpha = memblock byte(1 , Position)

					if Alpha > 0
						BlankColumn = No
						y = FontHeight
					endif
				endif
				
			next y
			
			if BlankColumn = No
				BMwidth(Chr) = x - BMleft(Chr)
				x = 1
			endif
			
		next x
		delete memblock 1
		
	next Chr

	BMleft(32) = 0
	BMwidth(32) = FontWidth / 2
	
endfunction

Display the fonts:
+ Code Snippet

`*********************************
`      DISPLAY BITMAP FONT
`*********************************

Function BMFont(X,Y,S as string,ImageNo,SpriteNo,Kern)
	
	
	for k = 1 to len(S)
		Chr = asc(mid$(S,k))
		
		if k > 1
			sprite SpriteNo + k ,NewX - BMleft(Chr) ,Y ,ImageNo + Chr
			NewX = (NewX) + BMwidth(Chr) + Kern
		else
			sprite SpriteNo + k ,X - BMleft(Chr) ,Y ,ImageNo + Chr
			NewX = X + BMwidth(Chr) + Kern
		endif

	next k

endfunction

---

Wow thanks alot, very generous !

---

Thanks for both packs and source mate...much appreciated

---

Very nice. They could come in handy

---

Thanks Scraggle, Just what I've always wanted.
Really!

---

Yet another fabulous and free pack from Scraggle. Thanks a million!

---

looking good, thx.

---

These are fabulous looking. I will absolutely use them and credit you. Thanks!!!

---

Nice work scraggle!

How did you make these? They are very good!

---

These are awsome! I especially like the fire ones...

---

These are really great, and everything works good, except that in the section where it trims the extra transparent space, I'm getting a "Memblock position outside range" error. Anyone know how to rectify this?

---

any example on what each part of the function does?

---

I think there may be an issue with 16-bit mode as opposed to 24-bit mode - like when you make a memblock in 16-bit, it's a 16-bit memblock, different from 24-bit memblock formats by a long chalk.

Try it in 24-bit, but if you really need it to work in 16-bit mode, I suggest saving that memblock in 24-bit and loading it again in 16-bit, that way it'll stay 24-bit when you load it in 16-bit mode.

---

These are wonderful fonts, and a great gift to forum members.

I take it the "kern" value in the display function comes from a kerning table keyed to two-character combinations, and that each font would have its own specific kerning table. If you would release the tables (if you have made them) it would be much appreciated, although you have already donated considerable work and nobody would fault you for not bothering.

Also, I'm struggling to design some specific bitmap fonts that I need in a project and I will absolutely need to use kerning tables. Any tidbits of advice you could give on constructing and using kerning tables would be much appreciated.

---

There are no kerning tables involved. The code you see is in its entirety.
The variable that I have called Kern, is the distance between each character and is the same for each character.
A little bit of additional work could put a different kern value for different sets of characters but it is something I haven't done.

---

I see. In that case I think I'll adjourn my project in favor of trying to make a kerning table creator/editor program that can be used with your fonts and with those made with the FontMapGen utility. Your fonts will look even more awesome with kerning.

---

are these royalty free?

---

Scraggle, you are the Man! Thanks for the Great Posts and Great Media and I am especialy apreciative of the code examples to use the great Items with. you Rock!

---

I'm having some problems and i was hoping someone could help me out...

when i use the code to display the string it works fine.

Example: BMFont(50,50,"Test",1,1,2)

but when i attempt to place multiple strings on differnt coords(x,y) it will only diplay the last one entered.

Example: BMFont(50,50,"Test1",1,1,2)
BMFont(50,100,"Test2",1,1,2)

Displayed: Test2

I kinda worked this out to me needing to keep track of the sprite numbers being used, but am not sure how to do this effectively.

Also if i wanted to use 2 fonts how would i go about doing it, because it was not working very well for me? is it also a matter of sprite tracking or do i need to keep track of some of the images created to?

Sorry for the NOOB questions, but i just recently started using DBP again after being gone for about 2 years, so i'm still in the process of re-learning it. Anyways, I saw these awesome fonts here and figured i would give them a try.

Any explainations or examples of multi-fonts and/or multi-lined text would be greatly appreciated!!!

---

Just curious as to why my post dosen't reflect on the main page as the last post in this thread? It still shows the last post as Angry kreyon on Oct 9th 2006 at 09:10. Plus, shouldn't it shoot up to the top of the forum threads when a new response was added? Is there some kind of bug on the forums that i should be aware of?

---

Awesome, I've been trying to make bitmap fonts for ages but these are wonderful. They'll be very helpful.

Can someone please post a zip of the bitmap font pack 2? (I need the PacMania font badly but I don't have WinRAR.)

---

@Stupify

Sorry, I didn't see your post because of the reasons of mentioned. I presume you have now worked it out but if you still need help, let me know and I will do what I can.

@Code Dragon
Thanks for your interest. For your PacMan tutorial I presume?
Incidentaly, you can download WinRar here. It is a free download. After [I don't recall how long] you will start to get niggling messages to buy the full version but it is still fully usable even if you ignore the message.

Attached is Font Pack 1 as a ZIP.

---

Here is Font Pack 2 (Zipped)
Original Post

---

... and Font Pack 3
Original Post

---

Thank you very much. Indeed it is for the Pac-Man tutorial, I needed a nice looking font to replace the text command. It should be in the next chapter when I have the time to write it, 'Prettifying the HUD'

---

Thank you very much!!! They would be great for 2d platform based games