Artifact bbba3da9851f013890707f27a339df48f4549cbf:
- File sdl2/ttf-functions.ss — part of check-in [31b4446932] at 2018-01-08 17:10:49 on branch trunk — Initial SDL_ttf support (user: ovenpasta@users.noreply.github.com size: 5264)
0000: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 0010: 20 28 2a 20 73 64 6c 2d 76 65 72 73 69 6f 6e 2d (* sdl-version- 0020: 74 29 20 74 74 66 2d 6c 69 6e 6b 65 64 2d 76 65 t) ttf-linked-ve 0030: 72 73 69 6f 6e 20 28 29 20 22 54 54 46 5f 4c 69 rsion () "TTF_Li 0040: 6e 6b 65 64 5f 56 65 72 73 69 6f 6e 22 29 0a 28 nked_Version").( 0050: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func 0060: 76 6f 69 64 20 74 74 66 2d 62 79 74 65 2d 73 77 void ttf-byte-sw 0070: 61 70 70 65 64 2d 75 6e 69 63 6f 64 65 20 28 28 apped-unicode (( 0080: 73 77 61 70 70 65 64 20 69 6e 74 29 29 20 22 54 swapped int)) "T 0090: 54 46 5f 42 79 74 65 53 77 61 70 70 65 64 55 4e TF_ByteSwappedUN 00a0: 49 43 4f 44 45 22 29 0a 28 64 65 66 69 6e 65 2d ICODE").(define- 00b0: 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 74 74 66 sdl-func int ttf 00c0: 2d 69 6e 69 74 20 28 29 20 22 54 54 46 5f 49 6e -init () "TTF_In 00d0: 69 74 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c it").(define-sdl 00e0: 2d 66 75 6e 63 20 28 2a 20 74 74 66 2d 66 6f 6e -func (* ttf-fon 00f0: 74 29 20 74 74 66 2d 6f 70 65 6e 2d 66 6f 6e 74 t) ttf-open-font 0100: 20 28 28 66 69 6c 65 20 73 74 72 69 6e 67 29 20 ((file string) 0110: 28 70 74 73 69 7a 65 20 69 6e 74 29 29 20 22 54 (ptsize int)) "T 0120: 54 46 5f 4f 70 65 6e 46 6f 6e 74 22 29 0a 28 64 TF_OpenFont").(d 0130: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 28 efine-sdl-func ( 0140: 2a 20 74 74 66 2d 66 6f 6e 74 29 20 74 74 66 2d * ttf-font) ttf- 0150: 6f 70 65 6e 2d 66 6f 6e 74 2d 69 6e 64 65 78 20 open-font-index 0160: 28 28 66 69 6c 65 20 73 74 72 69 6e 67 29 20 28 ((file string) ( 0170: 70 74 73 69 7a 65 20 69 6e 74 29 20 28 69 6e 64 ptsize int) (ind 0180: 65 78 20 6c 6f 6e 67 29 29 20 22 54 54 46 5f 4f ex long)) "TTF_O 0190: 70 65 6e 46 6f 6e 74 49 6e 64 65 78 22 29 0a 28 penFontIndex").( 01a0: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func 01b0: 28 2a 20 74 74 66 2d 66 6f 6e 74 29 20 74 74 66 (* ttf-font) ttf 01c0: 2d 6f 70 65 6e 2d 66 6f 6e 74 2d 72 77 20 28 28 -open-font-rw (( 01d0: 73 72 63 20 28 2a 20 73 64 6c 2d 72 77 2d 6f 70 src (* sdl-rw-op 01e0: 73 2d 74 29 29 20 28 66 72 65 65 73 72 63 20 69 s-t)) (freesrc i 01f0: 6e 74 29 20 28 70 74 73 69 7a 65 20 69 6e 74 29 nt) (ptsize int) 0200: 29 20 22 54 54 46 5f 4f 70 65 6e 46 6f 6e 74 52 ) "TTF_OpenFontR 0210: 57 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d W").(define-sdl- 0220: 66 75 6e 63 20 28 2a 20 74 74 66 2d 66 6f 6e 74 func (* ttf-font 0230: 29 20 74 74 66 2d 6f 70 65 6e 2d 66 6f 6e 74 2d ) ttf-open-font- 0240: 69 6e 64 65 78 2d 72 77 20 28 28 73 72 63 20 28 index-rw ((src ( 0250: 2a 20 73 64 6c 2d 72 77 2d 6f 70 73 2d 74 29 29 * sdl-rw-ops-t)) 0260: 20 28 66 72 65 65 73 72 63 20 69 6e 74 29 20 28 (freesrc int) ( 0270: 70 74 73 69 7a 65 20 69 6e 74 29 20 28 69 6e 64 ptsize int) (ind 0280: 65 78 20 6c 6f 6e 67 29 29 20 22 54 54 46 5f 4f ex long)) "TTF_O 0290: 70 65 6e 46 6f 6e 74 49 6e 64 65 78 52 57 22 29 penFontIndexRW") 02a0: 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e .(define-sdl-fun 02b0: 63 20 69 6e 74 20 74 74 66 2d 67 65 74 2d 66 6f c int ttf-get-fo 02c0: 6e 74 2d 73 74 79 6c 65 20 28 28 66 6f 6e 74 20 nt-style ((font 02d0: 28 2a 20 74 74 66 2d 66 6f 6e 74 29 29 29 20 22 (* ttf-font))) " 02e0: 54 54 46 5f 47 65 74 46 6f 6e 74 53 74 79 6c 65 TTF_GetFontStyle 02f0: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f 0300: 75 6e 63 20 76 6f 69 64 20 74 74 66 2d 73 65 74 unc void ttf-set 0310: 2d 66 6f 6e 74 2d 73 74 79 6c 65 20 28 28 66 6f -font-style ((fo 0320: 6e 74 20 28 2a 20 74 74 66 2d 66 6f 6e 74 29 29 nt (* ttf-font)) 0330: 20 28 73 74 79 6c 65 20 69 6e 74 29 29 20 22 54 (style int)) "T 0340: 54 46 5f 53 65 74 46 6f 6e 74 53 74 79 6c 65 22 TF_SetFontStyle" 0350: 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 ).(define-sdl-fu 0360: 6e 63 20 69 6e 74 20 74 74 66 2d 67 65 74 2d 66 nc int ttf-get-f 0370: 6f 6e 74 2d 6f 75 74 6c 69 6e 65 20 28 28 66 6f ont-outline ((fo 0380: 6e 74 20 28 2a 20 74 74 66 2d 66 6f 6e 74 29 29 nt (* ttf-font)) 0390: 29 20 22 54 54 46 5f 47 65 74 46 6f 6e 74 4f 75 ) "TTF_GetFontOu 03a0: 74 6c 69 6e 65 22 29 0a 28 64 65 66 69 6e 65 2d tline").(define- 03b0: 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 74 74 sdl-func void tt 03c0: 66 2d 73 65 74 2d 66 6f 6e 74 2d 6f 75 74 6c 69 f-set-font-outli 03d0: 6e 65 20 28 28 66 6f 6e 74 20 28 2a 20 74 74 66 ne ((font (* ttf 03e0: 2d 66 6f 6e 74 29 29 20 28 6f 75 74 6c 69 6e 65 -font)) (outline 03f0: 20 69 6e 74 29 29 20 22 54 54 46 5f 53 65 74 46 int)) "TTF_SetF 0400: 6f 6e 74 4f 75 74 6c 69 6e 65 22 29 0a 28 64 65 ontOutline").(de 0410: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e fine-sdl-func in 0420: 74 20 74 74 66 2d 67 65 74 2d 66 6f 6e 74 2d 68 t ttf-get-font-h 0430: 69 6e 74 69 6e 67 20 28 28 66 6f 6e 74 20 28 2a inting ((font (* 0440: 20 74 74 66 2d 66 6f 6e 74 29 29 29 20 22 54 54 ttf-font))) "TT 0450: 46 5f 47 65 74 46 6f 6e 74 48 69 6e 74 69 6e 67 F_GetFontHinting 0460: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f 0470: 75 6e 63 20 76 6f 69 64 20 74 74 66 2d 73 65 74 unc void ttf-set 0480: 2d 66 6f 6e 74 2d 68 69 6e 74 69 6e 67 20 28 28 -font-hinting (( 0490: 66 6f 6e 74 20 28 2a 20 74 74 66 2d 66 6f 6e 74 font (* ttf-font 04a0: 29 29 20 28 68 69 6e 74 69 6e 67 20 69 6e 74 29 )) (hinting int) 04b0: 29 20 22 54 54 46 5f 53 65 74 46 6f 6e 74 48 69 ) "TTF_SetFontHi 04c0: 6e 74 69 6e 67 22 29 0a 28 64 65 66 69 6e 65 2d nting").(define- 04d0: 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 74 74 66 sdl-func int ttf 04e0: 2d 66 6f 6e 74 2d 68 65 69 67 68 74 20 28 28 66 -font-height ((f 04f0: 6f 6e 74 20 28 2a 20 74 74 66 2d 66 6f 6e 74 29 ont (* ttf-font) 0500: 29 29 20 22 54 54 46 5f 46 6f 6e 74 48 65 69 67 )) "TTF_FontHeig 0510: 68 74 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c ht").(define-sdl 0520: 2d 66 75 6e 63 20 69 6e 74 20 74 74 66 2d 66 6f -func int ttf-fo 0530: 6e 74 2d 61 73 63 65 6e 74 20 28 28 66 6f 6e 74 nt-ascent ((font 0540: 20 28 2a 20 74 74 66 2d 66 6f 6e 74 29 29 29 20 (* ttf-font))) 0550: 22 54 54 46 5f 46 6f 6e 74 41 73 63 65 6e 74 22 "TTF_FontAscent" 0560: 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 ).(define-sdl-fu 0570: 6e 63 20 69 6e 74 20 74 74 66 2d 66 6f 6e 74 2d nc int ttf-font- 0580: 64 65 73 63 65 6e 74 20 28 28 66 6f 6e 74 20 28 descent ((font ( 0590: 2a 20 74 74 66 2d 66 6f 6e 74 29 29 29 20 22 54 * ttf-font))) "T 05a0: 54 46 5f 46 6f 6e 74 44 65 73 63 65 6e 74 22 29 TF_FontDescent") 05b0: 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e .(define-sdl-fun 05c0: 63 20 69 6e 74 20 74 74 66 2d 66 6f 6e 74 2d 6c c int ttf-font-l 05d0: 69 6e 65 2d 73 6b 69 70 20 28 28 66 6f 6e 74 20 ine-skip ((font 05e0: 28 2a 20 74 74 66 2d 66 6f 6e 74 29 29 29 20 22 (* ttf-font))) " 05f0: 54 54 46 5f 46 6f 6e 74 4c 69 6e 65 53 6b 69 70 TTF_FontLineSkip 0600: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f 0610: 75 6e 63 20 69 6e 74 20 74 74 66 2d 67 65 74 2d unc int ttf-get- 0620: 66 6f 6e 74 2d 6b 65 72 6e 69 6e 67 20 28 28 66 font-kerning ((f 0630: 6f 6e 74 20 28 2a 20 74 74 66 2d 66 6f 6e 74 29 ont (* ttf-font) 0640: 29 29 20 22 54 54 46 5f 47 65 74 46 6f 6e 74 4b )) "TTF_GetFontK 0650: 65 72 6e 69 6e 67 22 29 0a 28 64 65 66 69 6e 65 erning").(define 0660: 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 74 -sdl-func void t 0670: 74 66 2d 73 65 74 2d 66 6f 6e 74 2d 6b 65 72 6e tf-set-font-kern 0680: 69 6e 67 20 28 28 66 6f 6e 74 20 28 2a 20 74 74 ing ((font (* tt 0690: 66 2d 66 6f 6e 74 29 29 20 28 61 6c 6c 6f 77 65 f-font)) (allowe 06a0: 64 20 69 6e 74 29 29 20 22 54 54 46 5f 53 65 74 d int)) "TTF_Set 06b0: 46 6f 6e 74 4b 65 72 6e 69 6e 67 22 29 0a 28 64 FontKerning").(d 06c0: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 6c efine-sdl-func l 06d0: 6f 6e 67 20 74 74 66 2d 66 6f 6e 74 2d 66 61 63 ong ttf-font-fac 06e0: 65 73 20 28 28 66 6f 6e 74 20 28 2a 20 74 74 66 es ((font (* ttf 06f0: 2d 66 6f 6e 74 29 29 29 20 22 54 54 46 5f 46 6f -font))) "TTF_Fo 0700: 6e 74 46 61 63 65 73 22 29 0a 28 64 65 66 69 6e ntFaces").(defin 0710: 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 74 e-sdl-func int t 0720: 74 66 2d 66 6f 6e 74 2d 66 61 63 65 2d 69 73 2d tf-font-face-is- 0730: 66 69 78 65 64 2d 77 69 64 74 68 20 28 28 66 6f fixed-width ((fo 0740: 6e 74 20 28 2a 20 74 74 66 2d 66 6f 6e 74 29 29 nt (* ttf-font)) 0750: 29 20 22 54 54 46 5f 46 6f 6e 74 46 61 63 65 49 ) "TTF_FontFaceI 0760: 73 46 69 78 65 64 57 69 64 74 68 22 29 0a 28 64 sFixedWidth").(d 0770: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 73 efine-sdl-func s 0780: 74 72 69 6e 67 20 74 74 66 2d 66 6f 6e 74 2d 66 tring ttf-font-f 0790: 61 63 65 2d 66 61 6d 69 6c 79 2d 6e 61 6d 65 20 ace-family-name 07a0: 28 28 66 6f 6e 74 20 28 2a 20 74 74 66 2d 66 6f ((font (* ttf-fo 07b0: 6e 74 29 29 29 20 22 54 54 46 5f 46 6f 6e 74 46 nt))) "TTF_FontF 07c0: 61 63 65 46 61 6d 69 6c 79 4e 61 6d 65 22 29 0a aceFamilyName"). 07d0: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 07e0: 20 73 74 72 69 6e 67 20 74 74 66 2d 66 6f 6e 74 string ttf-font 07f0: 2d 66 61 63 65 2d 73 74 79 6c 65 2d 6e 61 6d 65 -face-style-name 0800: 20 28 28 66 6f 6e 74 20 28 2a 20 74 74 66 2d 66 ((font (* ttf-f 0810: 6f 6e 74 29 29 29 20 22 54 54 46 5f 46 6f 6e 74 ont))) "TTF_Font 0820: 46 61 63 65 53 74 79 6c 65 4e 61 6d 65 22 29 0a FaceStyleName"). 0830: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 0840: 20 69 6e 74 20 74 74 66 2d 67 6c 79 70 68 2d 69 int ttf-glyph-i 0850: 73 2d 70 72 6f 76 69 64 65 64 20 28 28 66 6f 6e s-provided ((fon 0860: 74 20 28 2a 20 74 74 66 2d 66 6f 6e 74 29 29 20 t (* ttf-font)) 0870: 28 63 68 20 75 69 6e 74 31 36 29 29 20 22 54 54 (ch uint16)) "TT 0880: 46 5f 47 6c 79 70 68 49 73 50 72 6f 76 69 64 65 F_GlyphIsProvide 0890: 64 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d d").(define-sdl- 08a0: 66 75 6e 63 20 69 6e 74 20 74 74 66 2d 67 6c 79 func int ttf-gly 08b0: 70 68 2d 6d 65 74 72 69 63 73 20 28 28 66 6f 6e ph-metrics ((fon 08c0: 74 20 28 2a 20 74 74 66 2d 66 6f 6e 74 29 29 20 t (* ttf-font)) 08d0: 28 63 68 20 75 69 6e 74 31 36 29 20 28 6d 69 6e (ch uint16) (min 08e0: 78 20 28 2a 20 69 6e 74 29 29 20 28 6d 61 78 78 x (* int)) (maxx 08f0: 20 28 2a 20 69 6e 74 29 29 20 28 6d 69 6e 79 20 (* int)) (miny 0900: 28 2a 20 69 6e 74 29 29 20 28 6d 61 78 79 20 28 (* int)) (maxy ( 0910: 2a 20 69 6e 74 29 29 20 28 61 64 76 61 6e 63 65 * int)) (advance 0920: 20 28 2a 20 69 6e 74 29 29 29 20 22 54 54 46 5f (* int))) "TTF_ 0930: 47 6c 79 70 68 4d 65 74 72 69 63 73 22 29 0a 28 GlyphMetrics").( 0940: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func 0950: 69 6e 74 20 74 74 66 2d 73 69 7a 65 2d 74 65 78 int ttf-size-tex 0960: 74 20 28 28 66 6f 6e 74 20 28 2a 20 74 74 66 2d t ((font (* ttf- 0970: 66 6f 6e 74 29 29 20 28 74 65 78 74 20 73 74 72 font)) (text str 0980: 69 6e 67 29 20 28 77 20 28 2a 20 69 6e 74 29 29 ing) (w (* int)) 0990: 20 28 68 20 28 2a 20 69 6e 74 29 29 29 20 22 54 (h (* int))) "T 09a0: 54 46 5f 53 69 7a 65 54 65 78 74 22 29 0a 28 64 TF_SizeText").(d 09b0: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 efine-sdl-func i 09c0: 6e 74 20 74 74 66 2d 73 69 7a 65 2d 75 74 2d 66 nt ttf-size-ut-f 09d0: 38 20 28 28 66 6f 6e 74 20 28 2a 20 74 74 66 2d 8 ((font (* ttf- 09e0: 66 6f 6e 74 29 29 20 28 74 65 78 74 20 73 74 72 font)) (text str 09f0: 69 6e 67 29 20 28 77 20 28 2a 20 69 6e 74 29 29 ing) (w (* int)) 0a00: 20 28 68 20 28 2a 20 69 6e 74 29 29 29 20 22 54 (h (* int))) "T 0a10: 54 46 5f 53 69 7a 65 55 54 46 38 22 29 0a 28 64 TF_SizeUTF8").(d 0a20: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 efine-sdl-func i 0a30: 6e 74 20 74 74 66 2d 73 69 7a 65 2d 75 6e 69 63 nt ttf-size-unic 0a40: 6f 64 65 20 28 28 66 6f 6e 74 20 28 2a 20 74 74 ode ((font (* tt 0a50: 66 2d 66 6f 6e 74 29 29 20 28 74 65 78 74 20 28 f-font)) (text ( 0a60: 2a 20 75 69 6e 74 31 36 29 29 20 28 77 20 28 2a * uint16)) (w (* 0a70: 20 69 6e 74 29 29 20 28 68 20 28 2a 20 69 6e 74 int)) (h (* int 0a80: 29 29 29 20 22 54 54 46 5f 53 69 7a 65 55 4e 49 ))) "TTF_SizeUNI 0a90: 43 4f 44 45 22 29 0a 28 64 65 66 69 6e 65 2d 73 CODE").(define-s 0aa0: 64 6c 2d 66 75 6e 63 20 28 2a 20 73 64 6c 2d 73 dl-func (* sdl-s 0ab0: 75 72 66 61 63 65 2d 74 29 20 74 74 66 2d 72 65 urface-t) ttf-re 0ac0: 6e 64 65 72 2d 74 65 78 74 2d 73 6f 6c 69 64 20 nder-text-solid 0ad0: 28 28 66 6f 6e 74 20 28 2a 20 74 74 66 2d 66 6f ((font (* ttf-fo 0ae0: 6e 74 29 29 20 28 74 65 78 74 20 73 74 72 69 6e nt)) (text strin 0af0: 67 29 20 28 66 67 20 69 6e 74 29 29 20 22 54 54 g) (fg int)) "TT 0b00: 46 5f 52 65 6e 64 65 72 54 65 78 74 5f 53 6f 6c F_RenderText_Sol 0b10: 69 64 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c id").(define-sdl 0b20: 2d 66 75 6e 63 20 28 2a 20 73 64 6c 2d 73 75 72 -func (* sdl-sur 0b30: 66 61 63 65 2d 74 29 20 74 74 66 2d 72 65 6e 64 face-t) ttf-rend 0b40: 65 72 2d 75 74 2d 66 38 2d 73 6f 6c 69 64 20 28 er-ut-f8-solid ( 0b50: 28 66 6f 6e 74 20 28 2a 20 74 74 66 2d 66 6f 6e (font (* ttf-fon 0b60: 74 29 29 20 28 74 65 78 74 20 73 74 72 69 6e 67 t)) (text string 0b70: 29 20 28 66 67 20 69 6e 74 29 29 20 22 54 54 46 ) (fg int)) "TTF 0b80: 5f 52 65 6e 64 65 72 55 54 46 38 5f 53 6f 6c 69 _RenderUTF8_Soli 0b90: 64 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d d").(define-sdl- 0ba0: 66 75 6e 63 20 28 2a 20 73 64 6c 2d 73 75 72 66 func (* sdl-surf 0bb0: 61 63 65 2d 74 29 20 74 74 66 2d 72 65 6e 64 65 ace-t) ttf-rende 0bc0: 72 2d 75 6e 69 63 6f 64 65 2d 73 6f 6c 69 64 20 r-unicode-solid 0bd0: 28 28 66 6f 6e 74 20 28 2a 20 74 74 66 2d 66 6f ((font (* ttf-fo 0be0: 6e 74 29 29 20 28 74 65 78 74 20 28 2a 20 75 69 nt)) (text (* ui 0bf0: 6e 74 31 36 29 29 20 28 66 67 20 69 6e 74 29 29 nt16)) (fg int)) 0c00: 20 22 54 54 46 5f 52 65 6e 64 65 72 55 4e 49 43 "TTF_RenderUNIC 0c10: 4f 44 45 5f 53 6f 6c 69 64 22 29 0a 28 64 65 66 ODE_Solid").(def 0c20: 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 28 2a 20 ine-sdl-func (* 0c30: 73 64 6c 2d 73 75 72 66 61 63 65 2d 74 29 20 74 sdl-surface-t) t 0c40: 74 66 2d 72 65 6e 64 65 72 2d 67 6c 79 70 68 2d tf-render-glyph- 0c50: 73 6f 6c 69 64 20 28 28 66 6f 6e 74 20 28 2a 20 solid ((font (* 0c60: 74 74 66 2d 66 6f 6e 74 29 29 20 28 63 68 20 75 ttf-font)) (ch u 0c70: 69 6e 74 31 36 29 20 28 66 67 20 69 6e 74 29 29 int16) (fg int)) 0c80: 20 22 54 54 46 5f 52 65 6e 64 65 72 47 6c 79 70 "TTF_RenderGlyp 0c90: 68 5f 53 6f 6c 69 64 22 29 0a 28 64 65 66 69 6e h_Solid").(defin 0ca0: 65 2d 73 64 6c 2d 66 75 6e 63 20 28 2a 20 73 64 e-sdl-func (* sd 0cb0: 6c 2d 73 75 72 66 61 63 65 2d 74 29 20 74 74 66 l-surface-t) ttf 0cc0: 2d 72 65 6e 64 65 72 2d 74 65 78 74 2d 73 68 61 -render-text-sha 0cd0: 64 65 64 20 28 28 66 6f 6e 74 20 28 2a 20 74 74 ded ((font (* tt 0ce0: 66 2d 66 6f 6e 74 29 29 20 28 74 65 78 74 20 73 f-font)) (text s 0cf0: 74 72 69 6e 67 29 20 28 66 67 20 69 6e 74 29 20 tring) (fg int) 0d00: 28 62 67 20 69 6e 74 29 29 20 22 54 54 46 5f 52 (bg int)) "TTF_R 0d10: 65 6e 64 65 72 54 65 78 74 5f 53 68 61 64 65 64 enderText_Shaded 0d20: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f 0d30: 75 6e 63 20 28 2a 20 73 64 6c 2d 73 75 72 66 61 unc (* sdl-surfa 0d40: 63 65 2d 74 29 20 74 74 66 2d 72 65 6e 64 65 72 ce-t) ttf-render 0d50: 2d 75 74 2d 66 38 2d 73 68 61 64 65 64 20 28 28 -ut-f8-shaded (( 0d60: 66 6f 6e 74 20 28 2a 20 74 74 66 2d 66 6f 6e 74 font (* ttf-font 0d70: 29 29 20 28 74 65 78 74 20 73 74 72 69 6e 67 29 )) (text string) 0d80: 20 28 66 67 20 69 6e 74 29 20 28 62 67 20 69 6e (fg int) (bg in 0d90: 74 29 29 20 22 54 54 46 5f 52 65 6e 64 65 72 55 t)) "TTF_RenderU 0da0: 54 46 38 5f 53 68 61 64 65 64 22 29 0a 28 64 65 TF8_Shaded").(de 0db0: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 28 2a fine-sdl-func (* 0dc0: 20 73 64 6c 2d 73 75 72 66 61 63 65 2d 74 29 20 sdl-surface-t) 0dd0: 74 74 66 2d 72 65 6e 64 65 72 2d 75 6e 69 63 6f ttf-render-unico 0de0: 64 65 2d 73 68 61 64 65 64 20 28 28 66 6f 6e 74 de-shaded ((font 0df0: 20 28 2a 20 74 74 66 2d 66 6f 6e 74 29 29 20 28 (* ttf-font)) ( 0e00: 74 65 78 74 20 28 2a 20 75 69 6e 74 31 36 29 29 text (* uint16)) 0e10: 20 28 66 67 20 69 6e 74 29 20 28 62 67 20 69 6e (fg int) (bg in 0e20: 74 29 29 20 22 54 54 46 5f 52 65 6e 64 65 72 55 t)) "TTF_RenderU 0e30: 4e 49 43 4f 44 45 5f 53 68 61 64 65 64 22 29 0a NICODE_Shaded"). 0e40: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 0e50: 20 28 2a 20 73 64 6c 2d 73 75 72 66 61 63 65 2d (* sdl-surface- 0e60: 74 29 20 74 74 66 2d 72 65 6e 64 65 72 2d 67 6c t) ttf-render-gl 0e70: 79 70 68 2d 73 68 61 64 65 64 20 28 28 66 6f 6e yph-shaded ((fon 0e80: 74 20 28 2a 20 74 74 66 2d 66 6f 6e 74 29 29 20 t (* ttf-font)) 0e90: 28 63 68 20 75 69 6e 74 31 36 29 20 28 66 67 20 (ch uint16) (fg 0ea0: 69 6e 74 29 20 28 62 67 20 69 6e 74 29 29 20 22 int) (bg int)) " 0eb0: 54 54 46 5f 52 65 6e 64 65 72 47 6c 79 70 68 5f TTF_RenderGlyph_ 0ec0: 53 68 61 64 65 64 22 29 0a 28 64 65 66 69 6e 65 Shaded").(define 0ed0: 2d 73 64 6c 2d 66 75 6e 63 20 28 2a 20 73 64 6c -sdl-func (* sdl 0ee0: 2d 73 75 72 66 61 63 65 2d 74 29 20 74 74 66 2d -surface-t) ttf- 0ef0: 72 65 6e 64 65 72 2d 74 65 78 74 2d 62 6c 65 6e render-text-blen 0f00: 64 65 64 20 28 28 66 6f 6e 74 20 28 2a 20 74 74 ded ((font (* tt 0f10: 66 2d 66 6f 6e 74 29 29 20 28 74 65 78 74 20 73 f-font)) (text s 0f20: 74 72 69 6e 67 29 20 28 66 67 20 69 6e 74 29 29 tring) (fg int)) 0f30: 20 22 54 54 46 5f 52 65 6e 64 65 72 54 65 78 74 "TTF_RenderText 0f40: 5f 42 6c 65 6e 64 65 64 22 29 0a 28 64 65 66 69 _Blended").(defi 0f50: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 28 2a 20 73 ne-sdl-func (* s 0f60: 64 6c 2d 73 75 72 66 61 63 65 2d 74 29 20 74 74 dl-surface-t) tt 0f70: 66 2d 72 65 6e 64 65 72 2d 75 74 2d 66 38 2d 62 f-render-ut-f8-b 0f80: 6c 65 6e 64 65 64 20 28 28 66 6f 6e 74 20 28 2a lended ((font (* 0f90: 20 74 74 66 2d 66 6f 6e 74 29 29 20 28 74 65 78 ttf-font)) (tex 0fa0: 74 20 73 74 72 69 6e 67 29 20 28 66 67 20 69 6e t string) (fg in 0fb0: 74 29 29 20 22 54 54 46 5f 52 65 6e 64 65 72 55 t)) "TTF_RenderU 0fc0: 54 46 38 5f 42 6c 65 6e 64 65 64 22 29 0a 28 64 TF8_Blended").(d 0fd0: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 28 efine-sdl-func ( 0fe0: 2a 20 73 64 6c 2d 73 75 72 66 61 63 65 2d 74 29 * sdl-surface-t) 0ff0: 20 74 74 66 2d 72 65 6e 64 65 72 2d 75 6e 69 63 ttf-render-unic 1000: 6f 64 65 2d 62 6c 65 6e 64 65 64 20 28 28 66 6f ode-blended ((fo 1010: 6e 74 20 28 2a 20 74 74 66 2d 66 6f 6e 74 29 29 nt (* ttf-font)) 1020: 20 28 74 65 78 74 20 28 2a 20 75 69 6e 74 31 36 (text (* uint16 1030: 29 29 20 28 66 67 20 69 6e 74 29 29 20 22 54 54 )) (fg int)) "TT 1040: 46 5f 52 65 6e 64 65 72 55 4e 49 43 4f 44 45 5f F_RenderUNICODE_ 1050: 42 6c 65 6e 64 65 64 22 29 0a 28 64 65 66 69 6e Blended").(defin 1060: 65 2d 73 64 6c 2d 66 75 6e 63 20 28 2a 20 73 64 e-sdl-func (* sd 1070: 6c 2d 73 75 72 66 61 63 65 2d 74 29 20 74 74 66 l-surface-t) ttf 1080: 2d 72 65 6e 64 65 72 2d 74 65 78 74 2d 62 6c 65 -render-text-ble 1090: 6e 64 65 64 2d 77 72 61 70 70 65 64 20 28 28 66 nded-wrapped ((f 10a0: 6f 6e 74 20 28 2a 20 74 74 66 2d 66 6f 6e 74 29 ont (* ttf-font) 10b0: 29 20 28 74 65 78 74 20 73 74 72 69 6e 67 29 20 ) (text string) 10c0: 28 66 67 20 69 6e 74 29 20 28 77 72 61 70 4c 65 (fg int) (wrapLe 10d0: 6e 67 74 68 20 75 69 6e 74 33 32 29 29 20 22 54 ngth uint32)) "T 10e0: 54 46 5f 52 65 6e 64 65 72 54 65 78 74 5f 42 6c TF_RenderText_Bl 10f0: 65 6e 64 65 64 5f 57 72 61 70 70 65 64 22 29 0a ended_Wrapped"). 1100: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 1110: 20 28 2a 20 73 64 6c 2d 73 75 72 66 61 63 65 2d (* sdl-surface- 1120: 74 29 20 74 74 66 2d 72 65 6e 64 65 72 2d 75 74 t) ttf-render-ut 1130: 2d 66 38 2d 62 6c 65 6e 64 65 64 2d 77 72 61 70 -f8-blended-wrap 1140: 70 65 64 20 28 28 66 6f 6e 74 20 28 2a 20 74 74 ped ((font (* tt 1150: 66 2d 66 6f 6e 74 29 29 20 28 74 65 78 74 20 73 f-font)) (text s 1160: 74 72 69 6e 67 29 20 28 66 67 20 69 6e 74 29 20 tring) (fg int) 1170: 28 77 72 61 70 4c 65 6e 67 74 68 20 75 69 6e 74 (wrapLength uint 1180: 33 32 29 29 20 22 54 54 46 5f 52 65 6e 64 65 72 32)) "TTF_Render 1190: 55 54 46 38 5f 42 6c 65 6e 64 65 64 5f 57 72 61 UTF8_Blended_Wra 11a0: 70 70 65 64 22 29 0a 28 64 65 66 69 6e 65 2d 73 pped").(define-s 11b0: 64 6c 2d 66 75 6e 63 20 28 2a 20 73 64 6c 2d 73 dl-func (* sdl-s 11c0: 75 72 66 61 63 65 2d 74 29 20 74 74 66 2d 72 65 urface-t) ttf-re 11d0: 6e 64 65 72 2d 75 6e 69 63 6f 64 65 2d 62 6c 65 nder-unicode-ble 11e0: 6e 64 65 64 2d 77 72 61 70 70 65 64 20 28 28 66 nded-wrapped ((f 11f0: 6f 6e 74 20 28 2a 20 74 74 66 2d 66 6f 6e 74 29 ont (* ttf-font) 1200: 29 20 28 74 65 78 74 20 28 2a 20 75 69 6e 74 31 ) (text (* uint1 1210: 36 29 29 20 28 66 67 20 69 6e 74 29 20 28 77 72 6)) (fg int) (wr 1220: 61 70 4c 65 6e 67 74 68 20 75 69 6e 74 33 32 29 apLength uint32) 1230: 29 20 22 54 54 46 5f 52 65 6e 64 65 72 55 4e 49 ) "TTF_RenderUNI 1240: 43 4f 44 45 5f 42 6c 65 6e 64 65 64 5f 57 72 61 CODE_Blended_Wra 1250: 70 70 65 64 22 29 0a 28 64 65 66 69 6e 65 2d 73 pped").(define-s 1260: 64 6c 2d 66 75 6e 63 20 28 2a 20 73 64 6c 2d 73 dl-func (* sdl-s 1270: 75 72 66 61 63 65 2d 74 29 20 74 74 66 2d 72 65 urface-t) ttf-re 1280: 6e 64 65 72 2d 67 6c 79 70 68 2d 62 6c 65 6e 64 nder-glyph-blend 1290: 65 64 20 28 28 66 6f 6e 74 20 28 2a 20 74 74 66 ed ((font (* ttf 12a0: 2d 66 6f 6e 74 29 29 20 28 63 68 20 75 69 6e 74 -font)) (ch uint 12b0: 31 36 29 20 28 66 67 20 69 6e 74 29 29 20 22 54 16) (fg int)) "T 12c0: 54 46 5f 52 65 6e 64 65 72 47 6c 79 70 68 5f 42 TF_RenderGlyph_B 12d0: 6c 65 6e 64 65 64 22 29 0a 28 64 65 66 69 6e 65 lended").(define 12e0: 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 74 -sdl-func void t 12f0: 74 66 2d 63 6c 6f 73 65 2d 66 6f 6e 74 20 28 28 tf-close-font (( 1300: 66 6f 6e 74 20 28 2a 20 74 74 66 2d 66 6f 6e 74 font (* ttf-font 1310: 29 29 29 20 22 54 54 46 5f 43 6c 6f 73 65 46 6f ))) "TTF_CloseFo 1320: 6e 74 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c nt").(define-sdl 1330: 2d 66 75 6e 63 20 76 6f 69 64 20 74 74 66 2d 71 -func void ttf-q 1340: 75 69 74 20 28 29 20 22 54 54 46 5f 51 75 69 74 uit () "TTF_Quit 1350: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f 1360: 75 6e 63 20 69 6e 74 20 74 74 66 2d 77 61 73 2d unc int ttf-was- 1370: 69 6e 69 74 20 28 29 20 22 54 54 46 5f 57 61 73 init () "TTF_Was 1380: 49 6e 69 74 22 29 0a 28 64 65 66 69 6e 65 2d 73 Init").(define-s 1390: 64 6c 2d 66 75 6e 63 20 69 6e 74 20 74 74 66 2d dl-func int ttf- 13a0: 67 65 74 2d 66 6f 6e 74 2d 6b 65 72 6e 69 6e 67 get-font-kerning 13b0: 2d 73 69 7a 65 20 28 28 66 6f 6e 74 20 28 2a 20 -size ((font (* 13c0: 74 74 66 2d 66 6f 6e 74 29 29 20 28 70 72 65 76 ttf-font)) (prev 13d0: 5f 69 6e 64 65 78 20 69 6e 74 29 20 28 69 6e 64 _index int) (ind 13e0: 65 78 20 69 6e 74 29 29 20 22 54 54 46 5f 47 65 ex int)) "TTF_Ge 13f0: 74 46 6f 6e 74 4b 65 72 6e 69 6e 67 53 69 7a 65 tFontKerningSize 1400: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f 1410: 75 6e 63 20 69 6e 74 20 74 74 66 2d 67 65 74 2d unc int ttf-get- 1420: 66 6f 6e 74 2d 6b 65 72 6e 69 6e 67 2d 73 69 7a font-kerning-siz 1430: 65 2d 67 6c 79 70 68 73 20 28 28 66 6f 6e 74 20 e-glyphs ((font 1440: 28 2a 20 74 74 66 2d 66 6f 6e 74 29 29 20 28 70 (* ttf-font)) (p 1450: 72 65 76 69 6f 75 73 5f 63 68 20 75 69 6e 74 31 revious_ch uint1 1460: 36 29 20 28 63 68 20 75 69 6e 74 31 36 29 29 20 6) (ch uint16)) 1470: 22 54 54 46 5f 47 65 74 46 6f 6e 74 4b 65 72 6e "TTF_GetFontKern 1480: 69 6e 67 53 69 7a 65 47 6c 79 70 68 73 22 29 0a ingSizeGlyphs").