forked from robsimmons/functioning
/
font.sml
33 lines (25 loc) · 1 KB
/
font.sml
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
structure Font = struct
val charmap =
" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" ^
"`-=[]\\;',./~!@#$%^&*()_+{}|:\"<>?"
val surf = Graphics.requireimage "media/graphics/font.png"
val () = SDL.setalpha surf false false 0w0
structure Normal = FontFn
(val surf = surf
val charmap = charmap
val width = 9
val height = 16
val styles = 6
val overlap = 1
val dims = 3)
val surfhuge = Graphics.requireimage "media/graphics/fonthuge.png"
val () = SDL.setalpha surfhuge false false 0w0
structure Huge = FontFn
(val surf = surfhuge
val charmap = charmap
val width = 27
val height = 48
val styles = 7
val overlap = 3
val dims = 3)
end