27 lines
		
	
	
		
			543 B
		
	
	
	
		
			Lua
		
	
	
	
	
	
			
		
		
	
	
			27 lines
		
	
	
		
			543 B
		
	
	
	
		
			Lua
		
	
	
	
	
	
--Font Extractor by Adrien Destugues
 | 
						|
--Cut the picture in characters and save them
 | 
						|
--to a binary file
 | 
						|
--
 | 
						|
--Copyright 2013, Adrien Destugues <pulkomandy@pulkomandy.tk>
 | 
						|
--
 | 
						|
--this file is distributed under the terms of the MIT licence
 | 
						|
 | 
						|
w,h = getpicturesize();
 | 
						|
 | 
						|
f = io.open("file.bin","w")
 | 
						|
 | 
						|
for y = 0, h-1, 8 do
 | 
						|
	for x = 0, w-1, 8 do
 | 
						|
		for y2 = 0, 7, 1 do
 | 
						|
			word = 0;
 | 
						|
			for x2 = 0,7,1 do
 | 
						|
				word = word * 2 + getpicturepixel(x+x2,y+y2);
 | 
						|
				-- read one word from the current line
 | 
						|
			end
 | 
						|
			f:write(string.char(word));
 | 
						|
		end
 | 
						|
	end
 | 
						|
end
 | 
						|
 | 
						|
f:close()
 |