Dynamic Font

Monkey Archive Forums/Monkey Projects/Dynamic Font
Aman	(Posted 2014) [#1]
I have been working on a new font that is re-sizable (No Scaling) and resolution independent (Look virtually the same on different screen sizes. Here is the result:
Image Link: https://db.tt/KUAxr97p

It's not fully tested on all targets and resolutions yet but you get the idea. Would love to hear your feedback and thoughts. Will update it to fix some expected issues.

To use: "font:=MakeFont(size)" Then: "SetFont(font)
Of course the function has to be called within an OnRender method.

Note: This is 740 lines of code that renders lots of shapes and uses read/write pixles 95 times. So only call it once for each needed size or when resolution changes if necessary.
Function MakeFont:Image(size:Int = 5)
	Local font_w:Int = DeviceWidth * 0.01
	font_w += size * font_w / 2
	Local font_h:Int = font_w * 1.5
	Local font:Image = CreateImage(font_w * 96, font_h)
	Local font_size:Float = font_w * 0.15
	For Local chars:Int = 0 Until 95'95
		Cls(0, 0, 0)
		SetColor(255, 255, 255)
		'Local x:Int = (font_w * chars) Mod DeviceWidth
		'Local y:Int = Int(chars * font_w / DeviceWidth) * font_h
		Select chars
			'Case 0	'space
			Case 1	'!
				DrawRect(font_size * 3,  font_size * 2, font_size, font_size * 5)
				DrawRect(font_size * 3,  font_size * 8, font_size, font_size)
			Case 2	'"
				DrawRect( font_size * 2,  font_size, font_size, font_size * 3)
				DrawRect( font_size * 4,  font_size, font_size, font_size * 3)
			Case 3	'#
				'DrawRect( font_size * 2,  font_size * 2, font_size, font_size * 7)
				DrawPoly([ font_size * 2.5,  font_size * 2,
						font_size * 3.5,  font_size * 2,
						font_size * 2.5,  font_size * 9,
						font_size * 1.5,  font_size * 9])
				DrawPoly([ font_size * 4.5,  font_size * 2,
						font_size * 5.5,  font_size * 2,
						font_size * 4.5,  font_size * 9,
						font_size * 3.5,  font_size * 9])
				'DrawRect( font_size * 4,  font_size * 2, font_size, font_size * 7)
				DrawRect( font_size * 1.5,  font_size * 4, font_w - font_size * 2, font_size)
				DrawRect( font_size,  font_size * 6, font_w - font_size * 2, font_size)
			Case 4	'$
				DrawCircle( font_w / 2,  font_size * 3.5, font_size * 2)
				DrawCircle( font_w / 2,  font_size * 6.5, font_size * 2)
				SetColor(0, 0, 0)
				DrawPoly([ font_w - font_size * 3,  font_size * 3,
						font_w - font_size * 3,  font_size * 4.5,
						font_w + font_size * 2,  font_size * 7,
						font_w + font_size * 2,  font_size * 6])
				DrawPoly([ font_w - font_size * 3,  font_size * 7,
						font_w - font_size * 3,  font_size * 5.5,
						0, font_size * 4.4,
						0, font_size * 5])
				DrawCircle( font_w / 2,  font_size * 3.5, font_size)
				DrawCircle( font_w / 2,  font_size * 6.5, font_size)
				SetColor(255, 255, 255)
				DrawRect( font_size * 2.8,  font_size, font_size, font_size * 8)
			Case 5	'%
				DrawCircle( font_size * 2,  font_size * 3.5, font_size * 1.5)
				DrawCircle( font_size * 5,  font_size * 7.5, font_size * 1.5)
				DrawPoly([ font_size * 4.5,  font_size * 2,
						font_size * 5.5,  font_size * 2,
						font_size * 2.5,  font_size * 9,
						font_size * 1.5,  font_size * 9])
				SetColor(0, 0, 0)
				DrawCircle( font_size * 2,  font_size * 3.5, font_size * 0.75)
				DrawCircle( font_size * 5,  font_size * 7.5, font_size * 0.75)
				SetColor(255, 255, 255)
			Case 6	'&
				DrawCircle( font_size * 3,  font_size * 3.5, font_size * 1.5)
				DrawCircle( font_size * 3,  font_size * 6.5, font_size * 2)
				SetColor(0, 0, 0)
				DrawCircle( font_size * 3,  font_size * 3.5, font_size * 0.75)
				DrawCircle( font_size * 3,  font_size * 6.5, font_size * 1)
				DrawRect( font_size * 3,  font_size * 3, font_size, font_size * 4)
				DrawRect( font_size * 3.5,  font_size * 2, font_size * 2, font_size * 4)
				SetColor(255, 255, 255)
				DrawPoly([ font_size * 5,  font_size * 5.1,
						font_size * 6,  font_size * 5.1,
						font_size * 3.4,  font_size * 7,
						font_size * 2.4,  font_size * 7])
			Case 7	''
				DrawRect( font_size * 3,  font_size, font_size, font_size * 3)
			Case 8	'(
				DrawOval( font_size * 2.5,  font_size * 1, font_size * 3, font_size * 8)
				SetColor(0, 0, 0)
				DrawOval( font_size * 3,  font_size * 1, font_size * 3, font_size * 8)
			Case 9	')
				DrawOval( font_size * 1,  font_size * 1, font_size * 3, font_size * 8)
				SetColor(0, 0, 0)
				DrawOval( font_size * 0.5,  font_size * 1, font_size * 3, font_size * 8)
			Case 10	'*
				DrawRect( font_size * 2.75,  font_size * 2.75, font_size, font_size * 4.5)
				DrawPoly([ font_size * 1.25,  font_size * 3.5,
						font_size * 5.25,  font_size * 5.5,
						font_size * 5.25,  font_size * 6.5,
						font_size * 1.25,  font_size * 4.5])
				DrawPoly([ font_size * 5.25,  font_size * 3.5,
						font_size * 1.25,  font_size * 5.5,
						font_size * 1.25,  font_size * 6.5,
						font_size * 5.25,  font_size * 4.5])
			Case 11	'+
				DrawRect( font_size * 2.75,  font_size * 3, font_size, font_size * 4)
				DrawRect( font_size * 1.25,  font_size * 4.5, font_size * 4, font_size)
			Case 12	',
				DrawRect( font_size * 2.75,  font_size * 7, font_size, font_size)
				DrawPoly([ font_size * 2.75,  font_size * 8,
						font_size * 3.75,  font_size * 8,
						font_size * 2.25,  font_size * 9])
			Case 13	'-
				DrawRect( font_size * 1.25,  font_size * 4.5, font_size * 4, font_size)
			Case 14	'.
				DrawRect( font_size * 2.75,  font_size * 7, font_size, font_size)
			Case 15 '/
				DrawPoly([ font_size * 4.5,  font_size * 2,
						font_size * 5.5,  font_size * 2,
						font_size * 2.5,  font_size * 9,
						font_size * 1.5,  font_size * 9])
			Case 16	'0
				DrawOval( font_size * 1.25,  font_size, font_size * 4, font_size * 7)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2.25,  font_size * 2, font_size * 2, font_size * 5)
			Case 17	'1
				DrawRect( font_size * 3,  font_size, font_size, font_size * 7)
				DrawPoly([ font_size * 3,  font_size,  font_size * 4,  font_size,  font_size * 2.5,  font_size * 3,  font_size * 1.5,  font_size * 3])
			Case 18	'2
				DrawOval( font_size * 1.25,  font_size, font_size * 4, font_size * 4)
				DrawRect( font_size * 1.25,  font_size * 7, font_size * 4, font_size)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2.25,  font_size * 2, font_size * 2, font_size * 2)
				DrawRect( font_size * 1.25,  font_size * 3, font_size * 3, font_size * 4)
				SetColor(255, 255, 255)
				DrawPoly([ font_size * 4.25,  font_size * 3.25,
						font_size * 4.5,  font_size * 4.6,
						font_size * 2.5,  font_size * 7,
						font_size * 1.25,  font_size * 7])
			Case 19	'3
				DrawOval( font_size * 1.25,  font_size, font_size * 4, font_size * 4)
				DrawOval( font_size * 1.25,  font_size*4, font_size * 4, font_size * 4)
				SetColor(0, 0, 0)
				DrawRect( font_size * 1.25,  font_size * 3, font_size * 2, font_size * 3)
				DrawOval( font_size * 2.25,  font_size * 2, font_size * 2, font_size * 2)
				DrawOval( font_size * 2.25,  font_size * 5, font_size * 2, font_size * 2)
			Case 20 '4
				DrawRect( font_size * 3.5,  font_size, font_size, font_size * 7)
				DrawRect( font_size * 1.25,  font_size * 4.5, font_size * 4, font_size)
				DrawPoly([ font_size * 3.5,  font_size,
						font_size * 4.5,  font_size,
						font_size * 2.25,  font_size * 4.5,
						font_size * 1.25,  font_size * 4.5])
			Case 21	'5
				DrawRect( font_size * 1.25,  font_size, font_size * 3.5, font_size)
				DrawRect( font_size * 1.25,  font_size, font_size, font_size * 4)
				DrawOval( font_size * 1.25,  font_size * 3, font_size * 4, font_size * 5)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2.25,  font_size * 4, font_size * 2, font_size * 3)
				DrawRect( font_size * 1.25,  font_size * 5, font_size, font_size)
			Case 22 '6
				DrawOval( font_size * 1.25,  font_size, font_size * 6, font_size * 7)
				SetColor(0, 0, 0)
				DrawRect( font_size * 4,  font_size, font_size * 4, font_size * 8)
				DrawOval( font_size * 2.25,  font_size * 2, font_size * 3, font_size * 6)
				SetColor(255, 255, 255)
				DrawOval( font_size * 1.25,  font_size * 3, font_size * 4, font_size * 5)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2.25,  font_size * 4, font_size * 2, font_size * 3)
			Case 23	'7
				DrawRect( font_size * 1.25,  font_size, font_size * 4, font_size)
				DrawPoly([ font_size * 4.25,  font_size * 2,
						font_size * 5.25,  font_size * 2,
						font_size * 2.5,  font_size * 8,
						font_size * 1.5,  font_size * 8])
			Case 24	'8
				DrawOval( font_size * 1.25,  font_size, font_size * 4, font_size * 4)
				DrawOval( font_size * 1.25,  font_size * 4, font_size * 4, font_size * 4)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2.25,  font_size * 2, font_size * 2, font_size * 2)
				DrawOval( font_size * 2.25,  font_size * 5, font_size * 2, font_size * 2)
			Case 25	'9
				DrawOval( font_size * 5.25,  font_size, font_size * -6, font_size * 7)
				SetColor(0, 0, 0)
				DrawRect( font_size * 2.75,  font_size, font_size * -4, font_size * 8)
				DrawOval( font_size * 4.25,  font_size * 2, font_size * -3, font_size * 5)
				SetColor(255, 255, 255)
				DrawOval( font_size * 1.25,  font_size, font_size * 4, font_size * 5)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2.25,  font_size * 2, font_size * 2, font_size * 3)
			Case 26	':
				DrawRect( font_size * 2.75,  font_size * 4, font_size, font_size)
				DrawRect( font_size * 2.75,  font_size * 7, font_size, font_size)
			Case 27	';
				DrawRect( font_size * 2.75,  font_size * 4, font_size, font_size)
				DrawRect( font_size * 2.75,  font_size * 7, font_size, font_size)
				DrawPoly([ font_size * 2.75,  font_size * 8,
						font_size * 3.75,  font_size * 8,
						font_size * 2.25,  font_size * 9])
			Case 28	'<
				DrawPoly([0, font_size * 4,
						font_size * 4,  font_size * 2,
						font_size * 4,  font_size * 3,
						0, font_size * 5])
				DrawPoly([0, font_size * 4,
						font_size * 4,  font_size * 6,
						font_size * 4,  font_size * 7,
						0, font_size * 5])
			Case 29	'=
				DrawRect( font_size * 1.25,  font_size * 3, font_size * 4, font_size)
				DrawRect( font_size * 1.25,  font_size * 5, font_size * 4, font_size)
			Case 30	'>
				DrawPoly([ font_size * 2.5,  font_size * 6,
						font_size * 6.5,  font_size * 4,
						font_size * 6.5,  font_size * 5,
						font_size * 2.5,  font_size * 7])
				DrawPoly([ font_size * 2.5,  font_size * 2,
						font_size * 6.5,  font_size * 4,
						font_size * 6.5,  font_size * 5,
						font_size * 2.5,  font_size * 3])
			Case 31	'?
				DrawOval( font_size * 1.25,  font_size, font_size * 4, font_size * 4)
				DrawRect( font_size * 2.75,  font_size * 7, font_size, font_size)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2.25,  font_size * 2, font_size * 2, font_size * 2)
				DrawRect( font_size * 1.25,  font_size * 2.5, font_size * 2, font_size * 2.5)
				SetColor(255, 255, 255)
				DrawRect( font_size * 2.75,  font_size * 4, font_size, font_size * 2)
			Case 32	'@
				DrawOval(0, font_size, font_size * 6.5, font_size * 7)
				SetColor(0, 0, 0)
				DrawOval( font_size,  font_size * 2, font_size * 4.5, font_size * 5)
				DrawRect( font_size * 4.5,  font_size * 6, font_size * 2, font_size * 3)
				SetColor(255, 255, 255)
				DrawOval( font_size * 1.5,  font_size * 3, font_size * 3, font_size * 3)
				DrawRect( font_size * 3.75,  font_size * 3, font_size, font_size * 3)
				DrawRect( font_size * 3.75,  font_size * 5, font_size * 2, font_size)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2.75,  font_size * 4, font_size, font_size)
			Case 33	'A
				DrawRect( font_size * 2,  font_size * 5, font_size * 2, font_size)
				DrawPoly([ font_size,  font_size * 8,
						font_size * 2,  font_size * 8,
						font_size * 3.75,  font_size,
						font_size * 2.75,  font_size])
				DrawPoly([ font_size * 4.5,  font_size * 8,
						font_size * 5.5,  font_size * 8,
						font_size * 3.75,  font_size,
						font_size * 2.75,  font_size])
			Case 34	'B
				DrawRect( font_size,  font_size, font_size, font_size * 7)
				DrawOval( font_size * 1.25,  font_size, font_size * 4, font_size * 4)
				DrawOval( font_size * 1.25,  font_size * 4, font_size * 4, font_size * 4)
				SetColor(0, 0, 0)
				DrawRect( font_size * 2,  font_size, font_size * 1.5, font_size * 7)
				DrawOval( font_size * 2.25,  font_size * 2, font_size * 2, font_size * 2)
				DrawOval( font_size * 2.25,  font_size * 5, font_size * 2, font_size * 2)
				SetColor(255, 255, 255)
				DrawRect( font_size,  font_size, font_size * 2.5, font_size)
				DrawRect( font_size,  font_size * 4, font_size * 2.5, font_size)
				DrawRect( font_size,  font_size * 7, font_size * 2.5, font_size)
			Case 35	'C
				DrawOval( font_size,  font_size, font_size * 5, font_size * 7)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2,  font_size * 2, font_size * 3, font_size * 5)
				DrawRect( font_size * 3.25,  font_size, font_size * 3, font_size * 7)
				SetColor(255, 255, 255)
				DrawRect( font_size * 3,  font_size, font_size * 2, font_size)
				DrawRect( font_size * 3,  font_size * 7, font_size * 2, font_size)
			Case 36	'D
				DrawRect( font_size,  font_size, font_size, font_size * 7)
				DrawOval( font_size * 1.25,  font_size, font_size * 4, font_size * 7)
				SetColor(0, 0, 0)
				DrawRect( font_size * 2,  font_size, font_size * 1.5, font_size * 7)
				DrawOval( font_size * 2.25,  font_size * 2, font_size * 2, font_size * 5)
				SetColor(255, 255, 255)
				DrawRect( font_size,  font_size, font_size * 2.5, font_size)
				DrawRect( font_size,  font_size * 7, font_size * 2.5, font_size)
			Case 37	'E
				DrawRect( font_size,  font_size, font_size, font_size * 7)
				DrawRect( font_size,  font_size, font_size * 4, font_size)
				DrawRect( font_size,  font_size * 4, font_size * 3.5, font_size)
				DrawRect( font_size,  font_size * 7, font_size * 4, font_size)
			Case 38	'F
				DrawRect( font_size,  font_size, font_size, font_size * 7)
				DrawRect( font_size,  font_size, font_size * 4, font_size)
				DrawRect( font_size,  font_size * 4, font_size * 3.5, font_size)
			Case 39	'G
				DrawOval( font_size,  font_size, font_size * 5, font_size * 7)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2,  font_size * 2, font_size * 3, font_size * 5)
				DrawRect( font_size * 3.25,  font_size, font_size * 3, font_size * 7)
				SetColor(255, 255, 255)
				DrawRect( font_size * 3,  font_size, font_size * 2, font_size)
				DrawRect( font_size * 3,  font_size * 4.5, font_size * 2, font_size)
				DrawRect( font_size * 3,  font_size * 7, font_size * 2, font_size)
				DrawRect( font_size * 4,  font_size * 5, font_size, font_size * 3)
			Case 40	'H
				DrawRect( font_size,  font_size, font_size, font_size * 7)
				DrawRect( font_size,  font_size * 4, font_size * 4, font_size)
				DrawRect( font_size * 4,  font_size, font_size, font_size * 7)
			Case 41	'I
				DrawRect( font_size * 2.75,  font_size, font_size, font_size * 7)
			Case 42	'J
				DrawRect( font_size * 4.25,  font_size, font_size, font_size * 5)
				DrawOval( font_size * 1.25,  font_size*4, font_size * 4, font_size * 4)
				SetColor(0, 0, 0)
				DrawRect( font_size * 1.25,  font_size * 4, font_size * 3, font_size * 2)
				DrawOval( font_size * 2.25,  font_size * 5, font_size * 2, font_size * 2)
			Case 43	'K
				DrawRect( font_size,  font_size, font_size, font_size * 7)
				DrawPoly([ font_size * 2,  font_size * 4,
						font_size * 4,  font_size,
						font_size * 5,  font_size,
						font_size * 2,  font_size * 6])
				DrawPoly([ font_size * 3,  font_size * 4,
						font_size * 5,  font_size * 8,
						font_size * 4,  font_size * 8,
						font_size * 2,  font_size * 4])
			Case 44	'L
				DrawRect( font_size,  font_size, font_size, font_size * 7)
				DrawRect( font_size,  font_size * 7, font_size * 4, font_size)
			Case 45	'M
				DrawRect(0, font_size, font_size, font_size * 7)
				DrawPoly([ font_size * 3,  font_size * 4,
						font_size * 5,  font_size,
						font_size * 6,  font_size,
						font_size * 3,  font_size * 6])
				DrawPoly([ font_size * 3,  font_size * 4,
						font_size,  font_size,
						0, font_size,
						font_size * 3,  font_size * 6])
				DrawRect( font_size * 5,  font_size, font_size, font_size * 7)
			Case 46	'N
				DrawRect( font_size,  font_size, font_size, font_size * 7)
				DrawPoly([ font_size * 4,  font_size * 8,
						font_size,  font_size,
						font_size * 2,  font_size,
						font_size * 5,  font_size * 8])
				DrawRect( font_size * 4,  font_size, font_size, font_size * 7)
			Case 47	'O
				DrawOval( font_size * 0.5,  font_size, font_size * 5, font_size * 7)
				SetColor(0, 0, 0)
				DrawOval( font_size * 1.5,  font_size * 2, font_size * 3, font_size * 5)
			Case 48	'P
				DrawRect( font_size,  font_size, font_size, font_size * 7)
				DrawOval( font_size * 1.25,  font_size, font_size * 4, font_size * 4)
				SetColor(0, 0, 0)
				DrawRect( font_size * 2,  font_size, font_size * 1.5, font_size * 7)
				DrawOval( font_size * 2.25,  font_size * 2, font_size * 2, font_size * 2)
				SetColor(255, 255, 255)
				DrawRect( font_size,  font_size, font_size * 2.5, font_size)
				DrawRect( font_size,  font_size * 4, font_size * 2.5, font_size)
			Case 49	'Q
				DrawOval( font_size,  font_size, font_size * 4, font_size * 7)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2,  font_size * 2, font_size * 2, font_size * 5)
				SetColor(255, 255, 255)
				DrawPoly([ font_size * 2.5,  font_size * 5,
						font_size * 3.5,  font_size * 5,
						font_size * 5.5,  font_size * 8,
						font_size * 4.5,  font_size * 8])
			Case 50	'R
				DrawRect( font_size,  font_size, font_size, font_size * 7)
				DrawOval( font_size * 1.25,  font_size, font_size * 4, font_size * 4)
				SetColor(0, 0, 0)
				DrawRect( font_size * 2,  font_size, font_size * 1.5, font_size * 7)
				DrawOval( font_size * 2.25,  font_size * 2, font_size * 2, font_size * 2)
				SetColor(255, 255, 255)
				DrawRect( font_size,  font_size, font_size * 2.5, font_size)
				DrawRect( font_size,  font_size * 4, font_size * 2.5, font_size)
				DrawPoly([ font_size * 4,  font_size * 8,
						font_size * 2,  font_size * 5,
						font_size * 3,  font_size * 5,
						font_size * 5,  font_size * 8])
			Case 51	'S
				DrawCircle( font_w / 2,  font_size * 3, font_size * 2)
				DrawCircle( font_w / 2,  font_size * 6, font_size * 2)
				SetColor(0, 0, 0)
				DrawPoly([ font_w - font_size * 3,  font_size * 2.5,
						font_w - font_size * 3,  font_size * 4,
						font_w + font_size * 2,  font_size * 6.5,
						font_w + font_size * 2,  font_size * 2.5])
				DrawPoly([ font_w - font_size * 3,  font_size * 6.5,
						font_w - font_size * 3,  font_size * 5,
						0, font_size * 3.9,
						0, font_size * 6.5])
				DrawCircle( font_w / 2,  font_size * 3, font_size)
				DrawCircle( font_w / 2,  font_size * 6, font_size)
			Case 52	'T
				DrawRect( font_size * 2.75,  font_size, font_size, font_size * 7)
				DrawRect( font_size,  font_size, font_size * 4.5, font_size)
			Case 53	'U
				DrawRect( font_size * 4.25,  font_size, font_size, font_size * 5)
				DrawOval( font_size * 1.25,  font_size*4, font_size * 4, font_size * 4)
				SetColor(0, 0, 0)
				DrawRect( font_size * 1.25,  font_size * 4, font_size * 3, font_size * 2)
				DrawOval( font_size * 2.25,  font_size * 5, font_size * 2, font_size * 2)
				SetColor(255, 255, 255)
				DrawRect( font_size * 1.25,  font_size, font_size, font_size * 5)
			Case 54	'V
				DrawPoly([ font_size * 3,  font_size * 8,
						font_size * 5,  font_size,
						font_size * 6,  font_size,
						font_size * 4,  font_size * 8])
				DrawPoly([ font_size * 4,  font_size * 8,
						font_size + font_size,  font_size,
						font_size,  font_size,
						font_size * 3,  font_size * 8])
			Case 55	'W
				DrawPoly([ font_size * 1,  font_size * 8,
						font_size * 2.5,  font_size * 4,
						font_size * 3.5,  font_size * 4,
						font_size * 2,  font_size * 8])
				DrawPoly([ font_size * 2,  font_size * 8,
						font_size,  font_size,
						0, font_size,
						font_size * 1,  font_size * 8])
				DrawPoly([ font_size * 5,  font_size * 8,
						font_size * 3.5,  font_size * 4,
						font_size * 2.5,  font_size * 4,
						font_size * 4,  font_size * 8])
				DrawPoly([ font_size * 5,  font_size * 8,
						font_size * 6,  font_size,
						font_size * 5,  font_size,
						font_size * 4,  font_size * 8])
			Case 56	'X
				DrawPoly([ font_size,  font_size * 8,
						font_size * 5,  font_size,
						font_size * 6,  font_size,
						font_size * 2,  font_size * 8])
				DrawPoly([ font_size * 6,  font_size * 8,
						font_size * 2,  font_size,
						font_size,  font_size,
						font_size * 5,  font_size * 8])
			Case 57	'Y
				DrawRect( font_size * 2.5,  font_size * 4, font_size, font_size * 4)
				DrawPoly([ font_size * 3,  font_size * 4,
						font_size * 5,  font_size,
						font_size * 6,  font_size,
						font_size * 3,  font_size * 6])
				DrawPoly([ font_size * 3,  font_size * 4,
						font_size,  font_size,
						0, font_size,
						font_size * 3,  font_size * 6])
			Case 58	'Z
				DrawRect( font_size,  font_size, font_size * 4, font_size)
				DrawPoly([ font_size,  font_size * 8,
						font_size * 5,  font_size,
						font_size * 6,  font_size,
						font_size * 2,  font_size * 8])
				DrawRect( font_size * 2,  font_size * 7, font_size * 4, font_size)
			Case 59	'[
				DrawRect( font_size * 2.25,  font_size * 0.5, font_size * 2, font_size)
				DrawRect( font_size * 2.25,  font_size * 0.5, font_size, font_size * 8)
				DrawRect( font_size * 2.25,  font_size * 7.5, font_size * 2, font_size)
			Case 60	'\
				DrawPoly([ font_size * 6,  font_size * 8,
						font_size * 2,  font_size,
						font_size,  font_size,
						font_size * 5,  font_size * 8])					
			Case 61	']
				DrawRect( font_size * 2.25,  font_size * 0.5, font_size * 2, font_size)
				DrawRect( font_size * 3.25,  font_size * 0.5, font_size, font_size * 8)
				DrawRect( font_size * 2.25,  font_size * 7.5, font_size * 2, font_size)
			Case 62	'^
				DrawPoly([ font_size * 3,  font_size,
						font_size,  font_size * 4,
						font_size * 2,  font_size * 4,
						font_size * 4,  font_size])
				DrawPoly([ font_size * 3,  font_size,
						font_size * 5,  font_size * 4,
						font_size * 6,  font_size * 4,
						font_size * 4,  font_size])
			Case 63	'_
				DrawRect(0, font_size * 7.5, font_w, font_size)
			Case 64	'`
				DrawPoly([ font_size * 3,  font_size,
						font_size * 5,  font_size * 4,
						font_size * 6,  font_size * 4,
						font_size * 4,  font_size])
			Case 65	'a
				DrawOval( font_size * 1,  font_size * 4, font_size * 4, font_size * 4)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2,  font_size * 5, font_size * 2, font_size * 2)
				SetColor(255, 255, 255)
				DrawRect( font_size * 4,  font_size * 3.5, font_size, font_size * 4.5)
			Case 66	'b
				DrawOval( font_size * 1,  font_size * 4, font_size * 4, font_size * 4)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2,  font_size * 5, font_size * 2, font_size * 2)
				SetColor(255, 255, 255)
				DrawRect( font_size,  font_size, font_size, font_size * 7)
			Case 67	'c
				DrawOval( font_size * 1,  font_size * 3, font_size * 4, font_size * 5)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2,  font_size * 4, font_size * 2, font_size * 3)
				DrawRect( font_size * 3,  font_size * 3, font_size * 2, font_size * 5)
				SetColor(255, 255, 255)
				DrawRect( font_size * 3,  font_size * 3, font_size, font_size)
				DrawRect( font_size * 3,  font_size * 7, font_size, font_size)
			Case 68	'd
				DrawOval( font_size * 1,  font_size * 4, font_size * 4, font_size * 4)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2,  font_size * 5, font_size * 2, font_size * 2)
				SetColor(255, 255, 255)
				DrawRect( font_size * 4,  font_size, font_size, font_size * 7)
			Case 69	'e
				DrawOval( font_size * 1,  font_size * 3, font_size * 4, font_size * 5)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2,  font_size * 4, font_size * 2, font_size * 3)
				DrawRect( font_size * 3,  font_size * 5, font_size * 2, font_size * 3)
				SetColor(255, 255, 255)
				DrawRect( font_size * 2,  font_size * 5, font_size * 3, font_size)
				DrawRect( font_size * 3,  font_size * 7, font_size * 1.5, font_size)
			Case 70	'f
				DrawOval( font_size * 2.5,  font_size, font_size * 3, font_size * 3)
				DrawRect( font_size * 2.5,  font_size * 2, font_size, font_size * 6)
				SetColor(0, 0, 0)
				DrawOval( font_size * 3.5,  font_size * 2, font_size, font_size)
				DrawRect( font_size * 4,  font_size, font_size * 2, font_size * 3)
				DrawRect( font_size * 3.5,  font_size * 2.5, font_size * 2, font_size * 3)
				SetColor(255, 255, 255)
				DrawRect( font_size * 2,  font_size * 3, font_size * 3, font_size)
				DrawRect( font_size * 4,  font_size, font_size, font_size)
			Case 71	'g
				DrawRect( font_size * 4.25,  font_size * 3, font_size, font_size * 5)
				DrawOval( font_size * 1.25,  font_size * 6, font_size * 4, font_size * 4)
				SetColor(0, 0, 0)
				DrawRect( font_size * 1.25,  font_size * 6, font_size * 3, font_size * 2)
				DrawOval( font_size * 2.25,  font_size * 7, font_size * 2, font_size * 2)
				DrawRect( font_size * 1.25,  font_size * 7, font_size * 2, font_size * 3)
				SetColor(255, 255, 255)
				DrawOval( font_size * 1.25,  font_size * 3, font_size * 4, font_size * 4)
				DrawRect( font_size * 2.25,  font_size * 9, font_size, font_size)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2.25,  font_size * 4, font_size * 2, font_size * 2)
			Case 72	'h
				DrawRect( font_size,  font_size, font_size, font_size * 7)
				DrawRect( font_size * 4,  font_size * 6, font_size, font_size * 2)
				DrawOval( font_size,  font_size * 4, font_size * 4, font_size * 4)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2,  font_size * 5, font_size * 2, font_size * 2)
				DrawRect( font_size * 2,  font_size * 6, font_size * 2, font_size * 2)
			Case 73	'i
				DrawRect( font_size * 2.75,  font_size * 4, font_size, font_size * 4)
				DrawOval( font_size * 2.75,  font_size, font_size, font_size)
			Case 74	'j
				DrawRect( font_size * 4.25,  font_size * 3, font_size, font_size * 5)
				DrawOval( font_size * 1.25,  font_size * 6, font_size * 4, font_size * 4)
				SetColor(0, 0, 0)
				DrawRect( font_size * 1.25,  font_size * 6, font_size * 3, font_size * 2)
				DrawOval( font_size * 2.25,  font_size * 7, font_size * 2, font_size * 2)
				DrawRect( font_size * 1.25,  font_size * 7, font_size * 2, font_size * 3)
				SetColor(255, 255, 255)
				DrawRect( font_size * 2.25,  font_size * 9, font_size, font_size)
				DrawOval( font_size * 4.25,  font_size, font_size, font_size)
			Case 75	'k
				DrawRect( font_size,  font_size, font_size, font_size * 7)
				DrawPoly([ font_size * 2,  font_size * 5,
						font_size * 4,  font_size * 3,
						font_size * 5,  font_size * 3,
						font_size * 2,  font_size * 6])
				DrawPoly([ font_size * 3,  font_size * 5,
						font_size * 5,  font_size * 8,
						font_size * 4,  font_size * 8,
						font_size * 2,  font_size * 5])
			Case 76	'l
				DrawRect( font_size * 2.75,  font_size, font_size, font_size * 7)
			Case 77	'm
				DrawRect(0, font_size * 3.75, font_size, font_size * 4.25)
				DrawRect( font_size * 3,  font_size * 6, font_size, font_size * 2)
				DrawRect( font_size * 5.5,  font_size * 6, font_size, font_size * 2)
				DrawOval(0, font_size * 4, font_size * 4, font_size * 4)
				DrawOval( font_size * 3,  font_size * 4, font_size * 3.5, font_size * 4)
				SetColor(0, 0, 0)
				DrawOval( font_size,  font_size * 5, font_size * 2, font_size * 2)
				DrawOval( font_size * 4,  font_size * 5, font_size * 1.5, font_size * 2)
				DrawRect( font_size,  font_size * 6, font_size * 2, font_size * 2)
				DrawRect( font_size * 4,  font_size * 6, font_size * 1.5, font_size * 2)
			Case 78	'n
				DrawRect( font_size,  font_size * 3.75, font_size, font_size * 4.25)
				DrawRect( font_size * 4,  font_size * 6, font_size, font_size * 2)
				DrawOval( font_size,  font_size * 4, font_size * 4, font_size * 4)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2,  font_size * 5, font_size * 2, font_size * 2)
				DrawRect( font_size * 2,  font_size * 6, font_size * 2, font_size * 2)
			Case 79	'o
				DrawOval( font_size,  font_size * 4, font_size * 4, font_size * 4)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2,  font_size * 5, font_size * 2, font_size * 2)
			Case 80	'p
				DrawOval( font_size,  font_size * 4, font_size * 4, font_size * 4)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2,  font_size * 5, font_size * 2, font_size * 2)
				SetColor(255, 255, 255)
				DrawRect( font_size,  font_size * 4, font_size, font_size * 6)
			Case 81	'q
				DrawOval( font_size,  font_size * 4, font_size * 4, font_size * 4)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2,  font_size * 5, font_size * 2, font_size * 2)
				SetColor(255, 255, 255)
				DrawRect( font_size * 4,  font_size * 4, font_size, font_size * 6)
			Case 82	'r
				DrawRect( font_size,  font_size * 3.75, font_size, font_size * 4.25)
				DrawOval( font_size,  font_size * 4, font_size * 4, font_size * 4)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2,  font_size * 5, font_size * 2, font_size * 2)
				DrawRect( font_size * 2,  font_size * 6, font_size * 2, font_size * 2)
				DrawRect( font_size * 3.5,  font_size * 4, font_size * 1.5, font_size * 4)
			Case 83	's
				DrawOval( font_size,  font_size * 3, font_size * 4, font_size * 3)
				DrawOval( font_size,  font_size * 5, font_size * 4, font_size * 3)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2,  font_size * 4, font_size * 2, font_size)
				DrawOval( font_size * 2,  font_size * 6, font_size * 2, font_size)
				DrawPoly([ font_size * 2.25,  font_size * 4.5,
						font_size * 5.5,  font_size * 3.25,
						font_size * 6,  font_size * 6])
				DrawPoly([ font_size * 3,  font_size * 6.5,
						font_size,  font_size * 5.25,
						font_size,  font_size * 7.5])
			Case 84	't
				DrawOval( font_size * 2.5,  font_size * 5, font_size * 3, font_size * 3)
				DrawRect( font_size * 2.5,  font_size, font_size, font_size * 6)
				SetColor(0, 0, 0)
				DrawOval( font_size * 3.5,  font_size * 6, font_size, font_size)
				DrawRect( font_size * 4,  font_size * 6, font_size * 2, font_size * 3)
				DrawRect( font_size * 3.5,  font_size * 3.5, font_size * 2, font_size * 3)
				SetColor(255, 255, 255)
				DrawRect( font_size * 2,  font_size * 3, font_size * 2.5, font_size)
				DrawRect( font_size * 3.5,  font_size * 7, font_size, font_size)
			Case 85	'u
				DrawRect( font_size,  font_size * 3.75, font_size, font_size * 3)
				DrawRect( font_size * 4,  font_size * 3.75, font_size, font_size * 4.25)
				DrawOval( font_size,  font_size * 4, font_size * 4, font_size * 4)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2,  font_size * 5, font_size * 2, font_size * 2)
				DrawRect( font_size * 2,  font_size * 4, font_size * 2, font_size * 2)
			Case 86	'v
				DrawPoly([ font_size * 3,  font_size * 8,
						font_size * 5,  font_size * 4,
						font_size * 6,  font_size * 4,
						font_size * 4,  font_size * 8])
				DrawPoly([ font_size * 4,  font_size * 8,
						font_size * 2,  font_size * 4,
						font_size,  font_size * 4,
						font_size * 3,  font_size * 8])
			Case 87	'w
				DrawPoly([ font_size * 1,  font_size * 8,
						font_size * 2.5,  font_size * 4.5,
						font_size * 3.5,  font_size * 4.5,
						font_size * 2,  font_size * 8])
				DrawPoly([ font_size * 2,  font_size * 8,
						font_size,  font_size * 4,
						0, font_size * 4,
						font_size * 1,  font_size * 8])
				DrawPoly([ font_size * 5,  font_size * 8,
						font_size * 3.5,  font_size * 4.5,
						font_size * 2.5,  font_size * 4.5,
						font_size * 4,  font_size * 8])
				DrawPoly([ font_size * 5,  font_size * 8,
						font_size * 6,  font_size * 4,
						font_size * 5,  font_size * 4,
						font_size * 4,  font_size * 8])
			Case 88	'x
				DrawPoly([ font_size * 1.5,  font_size * 8,
						font_size * 4.5,  font_size * 4,
						font_size * 5.5,  font_size * 4,
						font_size * 2.5,  font_size * 8])
				DrawPoly([ font_size * 5.5,  font_size * 8,
						font_size * 2.5,  font_size * 4,
						font_size * 1.5,  font_size * 4,
						font_size * 4.5,  font_size * 8])
			Case 89	'y
				DrawPoly([ font_size * 2.5,  font_size * 10,
						font_size * 4.5,  font_size * 4,
						font_size * 5.5,  font_size * 4,
						font_size * 3.5,  font_size * 10])
				DrawPoly([ font_size * 4.5,  font_size * 7,
						font_size * 2.5,  font_size * 4,
						font_size * 1.5,  font_size * 4,
						font_size * 3.5,  font_size * 7])
			Case 90	'z
				DrawRect( font_size,  font_size * 4, font_size * 4, font_size)
				DrawRect( font_size,  font_size * 7, font_size * 4, font_size)
				DrawPoly([ font_size * 1,  font_size * 7,
						font_size * 4,  font_size * 5,
						font_size * 5,  font_size * 5,
						font_size * 5,  font_size * 5.5,
						font_size * 3,  font_size * 7,
						font_size * 2,  font_size * 7])
			Case 91	'{
				DrawOval( font_size * 2.5,  font_size, font_size * 3, font_size * 3)
				DrawRect( font_size * 2.5,  font_size * 2, font_size, font_size * 6)
				DrawOval( font_size * 2.5,  font_size * 6, font_size * 3, font_size * 3)
				SetColor(0, 0, 0)
				DrawOval( font_size * 3.5,  font_size * 2, font_size, font_size)
				DrawRect( font_size * 4,  font_size, font_size * 2, font_size * 8)
				DrawRect( font_size * 3.5,  font_size * 2.5, font_size * 2, font_size * 5)
				DrawOval( font_size * 3.5,  font_size * 7, font_size, font_size)
				DrawRect( font_size * 3,  font_size * 4.5, font_size, font_size)
				SetColor(255, 255, 255)
				DrawRect( font_size * 1.75,  font_size * 4.5, font_size, font_size)
				DrawOval( font_size * 2.5,  font_size * 4, font_size, font_size)
				DrawOval( font_size * 2.5,  font_size * 5, font_size, font_size)
				SetColor(0, 0, 0)
				DrawOval( font_size * 1.5,  font_size * 4, font_size, font_size)
				DrawOval( font_size * 1.5,  font_size * 5, font_size, font_size)
			Case 92	'|
				DrawRect( font_size * 2.75,  font_size, font_size, font_size * 8)
			Case 93	'}
				DrawOval( font_size * 1.5,  font_size, font_size * 3, font_size * 3)
				DrawRect( font_size * 3.5,  font_size * 2, font_size, font_size * 6)
				DrawOval( font_size * 1.5,  font_size * 6, font_size * 3, font_size * 3)
				SetColor(0, 0, 0)
				DrawOval( font_size * 2.5,  font_size * 2, font_size, font_size)
				DrawOval( font_size * 2.5,  font_size * 7, font_size, font_size)
				DrawRect( font_size * 1,  font_size, font_size * 2, font_size * 8)
				DrawRect( font_size * 1.5,  font_size * 2.5, font_size * 2, font_size * 5)
				DrawRect( font_size * 3,  font_size * 4.5, font_size, font_size)
				SetColor(255, 255, 255)
				DrawOval( font_size * 3.5,  font_size * 4, font_size, font_size)
				DrawOval( font_size * 3.5,  font_size * 5, font_size, font_size)
				DrawRect( font_size * 3.75,  font_size * 4.5, font_size, font_size)
				SetColor(0, 0, 0)
				DrawOval( font_size * 4.5,  font_size * 4, font_size, font_size)
				DrawOval( font_size * 4.5,  font_size * 5, font_size, font_size)
			Case 94	'~
				DrawOval(0, font_size * 4, font_size * 4, font_size * 4)
				DrawOval( font_size * 2,  font_size * 2, font_size * 4, font_size * 4)
				SetColor(0, 0, 0)
				DrawOval( font_size,  font_size * 5, font_size * 2, font_size * 2)
				DrawOval( font_size * 3,  font_size * 3, font_size * 2, font_size * 2)
				DrawRect(0, font_size * 6, font_size * 6, font_size * 2)
				DrawRect(0, font_size * 2, font_size * 6, font_size * 2)
				DrawRect(0, font_size * 4, font_size, font_size * 2)
				DrawRect( font_size * 5,  font_size * 4, font_size, font_size * 2)
				DrawPoly([ font_size * 1.75,  font_size * 4,
						font_size * 4,  font_size * 4,
						font_size * 4,  font_size * 5])
				DrawPoly([ font_size * 2,  font_size * 5,
						font_size * 2,  font_size * 6,
						font_size * 4.25, font_size * 6])
			Default
		End Select
		Local mask:= New Int[font_w * font_h]
		ReadPixels(mask, 0, 0, font_w, font_h)
		For Local i:Int = 0 Until mask.Length
			If mask[i] = $FF000000 Then mask[i] = $00000000
		Next
		font.WritePixels(mask, font_w * chars, 0, font_w, font_h)
	End
	font = font.GrabImage(0, 0, font_w, font_h, 96)
	Return font
End
Shinkiro1
(Posted 2014) [#2]
I know it must have taken a while till you coded this, but to be honest you wouldn't be able to use this in a quality game.

It disregards spacing, kerning and a lot of other typography stuff which probably no one here knows about (me included of course).
And the good thing is, we don't need to know about it, because there are tools out there that will take care of these things.

So again, I respect your effort but it's not practical.
Aman	(Posted 2014) [#3]
I only started today. I made a tool that allow me to draw stuff and generate Monkey code of the stuff I draw.
As for how practical it is, it is as practical as the font system you use it in. This only generate the bitmap font. The typography limitations are there by default in the Monkey font system. You can modify the code to make it work with fontmachine which I intend to do as soon as I sort out the problems. But until TrueType font becomes supported, there is no other way to have different sizes of a font except for scaling.
Shinkiro1
(Posted 2014) [#4]
But until TrueType font becomes supported, there is no other way to have different sizes of a font except for scaling.
That's true. Scaling down a font doesn't look too bad though.
In my game I have 2 fonts depending on the resolution. As long as you don't scale up the font it should look fine.
Supertino
(Posted 2014) [#5]
My main concern with this method (as it stands now) is the large number of draw operations, how any DrawRect/Oval/Poly calls would be required to draw a sentence, would it not have a performance hit?
nikoniko
(Posted 2014) [#6]
Just idea - move draw font to bitmap to native level where no problem using ttf font, font size, style, international chars, etc and return to DrawText rendered bitmap only.
chrisc2977
(Posted 2014) [#7]
Ive been working on ttf. Its not finished, but getting there :)
http://www.challenger-arts.com/wp-content/uploads/tfont.zip
Aman	(Posted 2014) [#8]
@Shinkiro1:
That's what I usually do but the problem with this is that drawtext performance isn't that good on some platforms. And using a font that's larger than needed could make it worse specially on low budget devices. To tell you the truth, I only did this because I am creating a game with no resources and this is the only way to win the challenge.

@Supertino:
this creates a bitmap font. You only call it once. Then use the returned Image instead of the one that comes with monkey by default. And if you save it locally(not html5 or flash, you wouldn't need to call it ever again unless the user deletes it.

@nikoniko;
That's how you would support TrueType fonts.

@Chris: I was about to post a link to your page. I tried finding your module here but couldn't. I was searching for True Type which is never mentioned in your topic. It's great what you've done so far.
http://www.challenger-arts.com/monkey-modules/truetype-module/