Artifact 61ca383b71f5976f8e66a60403fbd765774ba715:
- File sdl2/video-functions.ss — part of check-in [e0fdb312bb] at 2016-12-14 16:32:00 on branch trunk — upgraded SDL2.0 API to 2.0.5, added README for SDL2 ffi (user: aldo size: 8799)
0000: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 0010: 20 69 6e 74 20 73 64 6c 2d 67 65 74 2d 6e 75 6d int sdl-get-num 0020: 2d 76 69 64 65 6f 2d 64 72 69 76 65 72 73 20 28 -video-drivers ( 0030: 29 20 22 53 44 4c 5f 47 65 74 4e 75 6d 56 69 64 ) "SDL_GetNumVid 0040: 65 6f 44 72 69 76 65 72 73 22 29 0a 28 64 65 66 eoDrivers").(def 0050: 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 73 74 72 ine-sdl-func str 0060: 69 6e 67 20 73 64 6c 2d 67 65 74 2d 76 69 64 65 ing sdl-get-vide 0070: 6f 2d 64 72 69 76 65 72 20 28 28 69 6e 64 65 78 o-driver ((index 0080: 20 69 6e 74 29 29 20 22 53 44 4c 5f 47 65 74 56 int)) "SDL_GetV 0090: 69 64 65 6f 44 72 69 76 65 72 22 29 0a 28 64 65 ideoDriver").(de 00a0: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e fine-sdl-func in 00b0: 74 20 73 64 6c 2d 76 69 64 65 6f 2d 69 6e 69 74 t sdl-video-init 00c0: 20 28 28 64 72 69 76 65 72 5f 6e 61 6d 65 20 73 ((driver_name s 00d0: 74 72 69 6e 67 29 29 20 22 53 44 4c 5f 56 69 64 tring)) "SDL_Vid 00e0: 65 6f 49 6e 69 74 22 29 0a 28 64 65 66 69 6e 65 eoInit").(define 00f0: 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 73 -sdl-func void s 0100: 64 6c 2d 76 69 64 65 6f 2d 71 75 69 74 20 28 29 dl-video-quit () 0110: 20 22 53 44 4c 5f 56 69 64 65 6f 51 75 69 74 22 "SDL_VideoQuit" 0120: 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 ).(define-sdl-fu 0130: 6e 63 20 73 74 72 69 6e 67 20 73 64 6c 2d 67 65 nc string sdl-ge 0140: 74 2d 63 75 72 72 65 6e 74 2d 76 69 64 65 6f 2d t-current-video- 0150: 64 72 69 76 65 72 20 28 29 20 22 53 44 4c 5f 47 driver () "SDL_G 0160: 65 74 43 75 72 72 65 6e 74 56 69 64 65 6f 44 72 etCurrentVideoDr 0170: 69 76 65 72 22 29 0a 28 64 65 66 69 6e 65 2d 73 iver").(define-s 0180: 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d dl-func int sdl- 0190: 67 65 74 2d 6e 75 6d 2d 76 69 64 65 6f 2d 64 69 get-num-video-di 01a0: 73 70 6c 61 79 73 20 28 29 20 22 53 44 4c 5f 47 splays () "SDL_G 01b0: 65 74 4e 75 6d 56 69 64 65 6f 44 69 73 70 6c 61 etNumVideoDispla 01c0: 79 73 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c ys").(define-sdl 01d0: 2d 66 75 6e 63 20 73 74 72 69 6e 67 20 73 64 6c -func string sdl 01e0: 2d 67 65 74 2d 64 69 73 70 6c 61 79 2d 6e 61 6d -get-display-nam 01f0: 65 20 28 28 64 69 73 70 6c 61 79 49 6e 64 65 78 e ((displayIndex 0200: 20 69 6e 74 29 29 20 22 53 44 4c 5f 47 65 74 44 int)) "SDL_GetD 0210: 69 73 70 6c 61 79 4e 61 6d 65 22 29 0a 28 64 65 isplayName").(de 0220: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e fine-sdl-func in 0230: 74 20 73 64 6c 2d 67 65 74 2d 64 69 73 70 6c 61 t sdl-get-displa 0240: 79 2d 62 6f 75 6e 64 73 20 28 28 64 69 73 70 6c y-bounds ((displ 0250: 61 79 49 6e 64 65 78 20 69 6e 74 29 20 28 72 65 ayIndex int) (re 0260: 63 74 20 28 2a 20 73 64 6c 2d 72 65 63 74 2d 74 ct (* sdl-rect-t 0270: 29 29 29 20 22 53 44 4c 5f 47 65 74 44 69 73 70 ))) "SDL_GetDisp 0280: 6c 61 79 42 6f 75 6e 64 73 22 29 0a 28 64 65 66 layBounds").(def 0290: 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 ine-sdl-func int 02a0: 20 73 64 6c 2d 67 65 74 2d 64 69 73 70 6c 61 79 sdl-get-display 02b0: 2d 64 70 69 20 28 28 64 69 73 70 6c 61 79 49 6e -dpi ((displayIn 02c0: 64 65 78 20 69 6e 74 29 20 28 64 64 70 69 20 28 dex int) (ddpi ( 02d0: 2a 20 66 6c 6f 61 74 29 29 20 28 68 64 70 69 20 * float)) (hdpi 02e0: 28 2a 20 66 6c 6f 61 74 29 29 20 28 76 64 70 69 (* float)) (vdpi 02f0: 20 28 2a 20 66 6c 6f 61 74 29 29 29 20 22 53 44 (* float))) "SD 0300: 4c 5f 47 65 74 44 69 73 70 6c 61 79 44 50 49 22 L_GetDisplayDPI" 0310: 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 ).(define-sdl-fu 0320: 6e 63 20 69 6e 74 20 73 64 6c 2d 67 65 74 2d 64 nc int sdl-get-d 0330: 69 73 70 6c 61 79 2d 75 73 61 62 6c 65 2d 62 6f isplay-usable-bo 0340: 75 6e 64 73 20 28 28 64 69 73 70 6c 61 79 49 6e unds ((displayIn 0350: 64 65 78 20 69 6e 74 29 20 28 72 65 63 74 20 28 dex int) (rect ( 0360: 2a 20 73 64 6c 2d 72 65 63 74 2d 74 29 29 29 20 * sdl-rect-t))) 0370: 22 53 44 4c 5f 47 65 74 44 69 73 70 6c 61 79 55 "SDL_GetDisplayU 0380: 73 61 62 6c 65 42 6f 75 6e 64 73 22 29 0a 28 64 sableBounds").(d 0390: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 efine-sdl-func i 03a0: 6e 74 20 73 64 6c 2d 67 65 74 2d 6e 75 6d 2d 64 nt sdl-get-num-d 03b0: 69 73 70 6c 61 79 2d 6d 6f 64 65 73 20 28 28 64 isplay-modes ((d 03c0: 69 73 70 6c 61 79 49 6e 64 65 78 20 69 6e 74 29 isplayIndex int) 03d0: 29 20 22 53 44 4c 5f 47 65 74 4e 75 6d 44 69 73 ) "SDL_GetNumDis 03e0: 70 6c 61 79 4d 6f 64 65 73 22 29 0a 28 64 65 66 playModes").(def 03f0: 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 ine-sdl-func int 0400: 20 73 64 6c 2d 67 65 74 2d 64 69 73 70 6c 61 79 sdl-get-display 0410: 2d 6d 6f 64 65 20 28 28 64 69 73 70 6c 61 79 49 -mode ((displayI 0420: 6e 64 65 78 20 69 6e 74 29 20 28 6d 6f 64 65 49 ndex int) (modeI 0430: 6e 64 65 78 20 69 6e 74 29 20 28 6d 6f 64 65 20 ndex int) (mode 0440: 28 2a 20 73 64 6c 2d 64 69 73 70 6c 61 79 2d 6d (* sdl-display-m 0450: 6f 64 65 2d 74 29 29 29 20 22 53 44 4c 5f 47 65 ode-t))) "SDL_Ge 0460: 74 44 69 73 70 6c 61 79 4d 6f 64 65 22 29 0a 28 tDisplayMode").( 0470: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func 0480: 69 6e 74 20 73 64 6c 2d 67 65 74 2d 64 65 73 6b int sdl-get-desk 0490: 74 6f 70 2d 64 69 73 70 6c 61 79 2d 6d 6f 64 65 top-display-mode 04a0: 20 28 28 64 69 73 70 6c 61 79 49 6e 64 65 78 20 ((displayIndex 04b0: 69 6e 74 29 20 28 6d 6f 64 65 20 28 2a 20 73 64 int) (mode (* sd 04c0: 6c 2d 64 69 73 70 6c 61 79 2d 6d 6f 64 65 2d 74 l-display-mode-t 04d0: 29 29 29 20 22 53 44 4c 5f 47 65 74 44 65 73 6b ))) "SDL_GetDesk 04e0: 74 6f 70 44 69 73 70 6c 61 79 4d 6f 64 65 22 29 topDisplayMode") 04f0: 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e .(define-sdl-fun 0500: 63 20 69 6e 74 20 73 64 6c 2d 67 65 74 2d 63 75 c int sdl-get-cu 0510: 72 72 65 6e 74 2d 64 69 73 70 6c 61 79 2d 6d 6f rrent-display-mo 0520: 64 65 20 28 28 64 69 73 70 6c 61 79 49 6e 64 65 de ((displayInde 0530: 78 20 69 6e 74 29 20 28 6d 6f 64 65 20 28 2a 20 x int) (mode (* 0540: 73 64 6c 2d 64 69 73 70 6c 61 79 2d 6d 6f 64 65 sdl-display-mode 0550: 2d 74 29 29 29 20 22 53 44 4c 5f 47 65 74 43 75 -t))) "SDL_GetCu 0560: 72 72 65 6e 74 44 69 73 70 6c 61 79 4d 6f 64 65 rrentDisplayMode 0570: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f 0580: 75 6e 63 20 28 2a 20 73 64 6c 2d 64 69 73 70 6c unc (* sdl-displ 0590: 61 79 2d 6d 6f 64 65 2d 74 29 20 73 64 6c 2d 67 ay-mode-t) sdl-g 05a0: 65 74 2d 63 6c 6f 73 65 73 74 2d 64 69 73 70 6c et-closest-displ 05b0: 61 79 2d 6d 6f 64 65 20 28 28 64 69 73 70 6c 61 ay-mode ((displa 05c0: 79 49 6e 64 65 78 20 69 6e 74 29 20 28 6d 6f 64 yIndex int) (mod 05d0: 65 20 28 2a 20 73 64 6c 2d 64 69 73 70 6c 61 79 e (* sdl-display 05e0: 2d 6d 6f 64 65 2d 74 29 29 20 28 63 6c 6f 73 65 -mode-t)) (close 05f0: 73 74 20 28 2a 20 73 64 6c 2d 64 69 73 70 6c 61 st (* sdl-displa 0600: 79 2d 6d 6f 64 65 2d 74 29 29 29 20 22 53 44 4c y-mode-t))) "SDL 0610: 5f 47 65 74 43 6c 6f 73 65 73 74 44 69 73 70 6c _GetClosestDispl 0620: 61 79 4d 6f 64 65 22 29 0a 28 64 65 66 69 6e 65 ayMode").(define 0630: 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 -sdl-func int sd 0640: 6c 2d 67 65 74 2d 77 69 6e 64 6f 77 2d 64 69 73 l-get-window-dis 0650: 70 6c 61 79 2d 69 6e 64 65 78 20 28 28 77 69 6e play-index ((win 0660: 64 6f 77 20 28 2a 20 73 64 6c 2d 77 69 6e 64 6f dow (* sdl-windo 0670: 77 2d 74 29 29 29 20 22 53 44 4c 5f 47 65 74 57 w-t))) "SDL_GetW 0680: 69 6e 64 6f 77 44 69 73 70 6c 61 79 49 6e 64 65 indowDisplayInde 0690: 78 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d x").(define-sdl- 06a0: 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 73 65 74 func int sdl-set 06b0: 2d 77 69 6e 64 6f 77 2d 64 69 73 70 6c 61 79 2d -window-display- 06c0: 6d 6f 64 65 20 28 28 77 69 6e 64 6f 77 20 28 2a mode ((window (* 06d0: 20 73 64 6c 2d 77 69 6e 64 6f 77 2d 74 29 29 20 sdl-window-t)) 06e0: 28 6d 6f 64 65 20 28 2a 20 73 64 6c 2d 64 69 73 (mode (* sdl-dis 06f0: 70 6c 61 79 2d 6d 6f 64 65 2d 74 29 29 29 20 22 play-mode-t))) " 0700: 53 44 4c 5f 53 65 74 57 69 6e 64 6f 77 44 69 73 SDL_SetWindowDis 0710: 70 6c 61 79 4d 6f 64 65 22 29 0a 28 64 65 66 69 playMode").(defi 0720: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 ne-sdl-func int 0730: 73 64 6c 2d 67 65 74 2d 77 69 6e 64 6f 77 2d 64 sdl-get-window-d 0740: 69 73 70 6c 61 79 2d 6d 6f 64 65 20 28 28 77 69 isplay-mode ((wi 0750: 6e 64 6f 77 20 28 2a 20 73 64 6c 2d 77 69 6e 64 ndow (* sdl-wind 0760: 6f 77 2d 74 29 29 20 28 6d 6f 64 65 20 28 2a 20 ow-t)) (mode (* 0770: 73 64 6c 2d 64 69 73 70 6c 61 79 2d 6d 6f 64 65 sdl-display-mode 0780: 2d 74 29 29 29 20 22 53 44 4c 5f 47 65 74 57 69 -t))) "SDL_GetWi 0790: 6e 64 6f 77 44 69 73 70 6c 61 79 4d 6f 64 65 22 ndowDisplayMode" 07a0: 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 ).(define-sdl-fu 07b0: 6e 63 20 75 69 6e 74 33 32 20 73 64 6c 2d 67 65 nc uint32 sdl-ge 07c0: 74 2d 77 69 6e 64 6f 77 2d 70 69 78 65 6c 2d 66 t-window-pixel-f 07d0: 6f 72 6d 61 74 20 28 28 77 69 6e 64 6f 77 20 28 ormat ((window ( 07e0: 2a 20 73 64 6c 2d 77 69 6e 64 6f 77 2d 74 29 29 * sdl-window-t)) 07f0: 29 20 22 53 44 4c 5f 47 65 74 57 69 6e 64 6f 77 ) "SDL_GetWindow 0800: 50 69 78 65 6c 46 6f 72 6d 61 74 22 29 0a 28 64 PixelFormat").(d 0810: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 28 efine-sdl-func ( 0820: 2a 20 73 64 6c 2d 77 69 6e 64 6f 77 2d 74 29 20 * sdl-window-t) 0830: 73 64 6c 2d 63 72 65 61 74 65 2d 77 69 6e 64 6f sdl-create-windo 0840: 77 20 28 28 74 69 74 6c 65 20 73 74 72 69 6e 67 w ((title string 0850: 29 20 28 78 20 69 6e 74 29 20 28 79 20 69 6e 74 ) (x int) (y int 0860: 29 20 28 77 20 69 6e 74 29 20 28 68 20 69 6e 74 ) (w int) (h int 0870: 29 20 28 66 6c 61 67 73 20 75 69 6e 74 33 32 29 ) (flags uint32) 0880: 29 20 22 53 44 4c 5f 43 72 65 61 74 65 57 69 6e ) "SDL_CreateWin 0890: 64 6f 77 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 dow").(define-sd 08a0: 6c 2d 66 75 6e 63 20 28 2a 20 73 64 6c 2d 77 69 l-func (* sdl-wi 08b0: 6e 64 6f 77 2d 74 29 20 73 64 6c 2d 63 72 65 61 ndow-t) sdl-crea 08c0: 74 65 2d 77 69 6e 64 6f 77 2d 66 72 6f 6d 20 28 te-window-from ( 08d0: 28 64 61 74 61 20 76 6f 69 64 2a 29 29 20 22 53 (data void*)) "S 08e0: 44 4c 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 46 DL_CreateWindowF 08f0: 72 6f 6d 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 rom").(define-sd 0900: 6c 2d 66 75 6e 63 20 75 69 6e 74 33 32 20 73 64 l-func uint32 sd 0910: 6c 2d 67 65 74 2d 77 69 6e 64 6f 77 2d 69 64 20 l-get-window-id 0920: 28 28 77 69 6e 64 6f 77 20 28 2a 20 73 64 6c 2d ((window (* sdl- 0930: 77 69 6e 64 6f 77 2d 74 29 29 29 20 22 53 44 4c window-t))) "SDL 0940: 5f 47 65 74 57 69 6e 64 6f 77 49 44 22 29 0a 28 _GetWindowID").( 0950: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func 0960: 28 2a 20 73 64 6c 2d 77 69 6e 64 6f 77 2d 74 29 (* sdl-window-t) 0970: 20 73 64 6c 2d 67 65 74 2d 77 69 6e 64 6f 77 2d sdl-get-window- 0980: 66 72 6f 6d 2d 69 64 20 28 28 69 64 20 75 69 6e from-id ((id uin 0990: 74 33 32 29 29 20 22 53 44 4c 5f 47 65 74 57 69 t32)) "SDL_GetWi 09a0: 6e 64 6f 77 46 72 6f 6d 49 44 22 29 0a 28 64 65 ndowFromID").(de 09b0: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 75 69 fine-sdl-func ui 09c0: 6e 74 33 32 20 73 64 6c 2d 67 65 74 2d 77 69 6e nt32 sdl-get-win 09d0: 64 6f 77 2d 66 6c 61 67 73 20 28 28 77 69 6e 64 dow-flags ((wind 09e0: 6f 77 20 28 2a 20 73 64 6c 2d 77 69 6e 64 6f 77 ow (* sdl-window 09f0: 2d 74 29 29 29 20 22 53 44 4c 5f 47 65 74 57 69 -t))) "SDL_GetWi 0a00: 6e 64 6f 77 46 6c 61 67 73 22 29 0a 28 64 65 66 ndowFlags").(def 0a10: 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 ine-sdl-func voi 0a20: 64 20 73 64 6c 2d 73 65 74 2d 77 69 6e 64 6f 77 d sdl-set-window 0a30: 2d 74 69 74 6c 65 20 28 28 77 69 6e 64 6f 77 20 -title ((window 0a40: 28 2a 20 73 64 6c 2d 77 69 6e 64 6f 77 2d 74 29 (* sdl-window-t) 0a50: 29 20 28 74 69 74 6c 65 20 73 74 72 69 6e 67 29 ) (title string) 0a60: 29 20 22 53 44 4c 5f 53 65 74 57 69 6e 64 6f 77 ) "SDL_SetWindow 0a70: 54 69 74 6c 65 22 29 0a 28 64 65 66 69 6e 65 2d Title").(define- 0a80: 73 64 6c 2d 66 75 6e 63 20 73 74 72 69 6e 67 20 sdl-func string 0a90: 73 64 6c 2d 67 65 74 2d 77 69 6e 64 6f 77 2d 74 sdl-get-window-t 0aa0: 69 74 6c 65 20 28 28 77 69 6e 64 6f 77 20 28 2a itle ((window (* 0ab0: 20 73 64 6c 2d 77 69 6e 64 6f 77 2d 74 29 29 29 sdl-window-t))) 0ac0: 20 22 53 44 4c 5f 47 65 74 57 69 6e 64 6f 77 54 "SDL_GetWindowT 0ad0: 69 74 6c 65 22 29 0a 28 64 65 66 69 6e 65 2d 73 itle").(define-s 0ae0: 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 73 64 6c dl-func void sdl 0af0: 2d 73 65 74 2d 77 69 6e 64 6f 77 2d 69 63 6f 6e -set-window-icon 0b00: 20 28 28 77 69 6e 64 6f 77 20 28 2a 20 73 64 6c ((window (* sdl 0b10: 2d 77 69 6e 64 6f 77 2d 74 29 29 20 28 69 63 6f -window-t)) (ico 0b20: 6e 20 28 2a 20 73 64 6c 2d 73 75 72 66 61 63 65 n (* sdl-surface 0b30: 2d 74 29 29 29 20 22 53 44 4c 5f 53 65 74 57 69 -t))) "SDL_SetWi 0b40: 6e 64 6f 77 49 63 6f 6e 22 29 0a 28 64 65 66 69 ndowIcon").(defi 0b50: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64 ne-sdl-func void 0b60: 2a 20 73 64 6c 2d 73 65 74 2d 77 69 6e 64 6f 77 * sdl-set-window 0b70: 2d 64 61 74 61 20 28 28 77 69 6e 64 6f 77 20 28 -data ((window ( 0b80: 2a 20 73 64 6c 2d 77 69 6e 64 6f 77 2d 74 29 29 * sdl-window-t)) 0b90: 20 28 6e 61 6d 65 20 73 74 72 69 6e 67 29 20 28 (name string) ( 0ba0: 75 73 65 72 64 61 74 61 20 76 6f 69 64 2a 29 29 userdata void*)) 0bb0: 20 22 53 44 4c 5f 53 65 74 57 69 6e 64 6f 77 44 "SDL_SetWindowD 0bc0: 61 74 61 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 ata").(define-sd 0bd0: 6c 2d 66 75 6e 63 20 76 6f 69 64 2a 20 73 64 6c l-func void* sdl 0be0: 2d 67 65 74 2d 77 69 6e 64 6f 77 2d 64 61 74 61 -get-window-data 0bf0: 20 28 28 77 69 6e 64 6f 77 20 28 2a 20 73 64 6c ((window (* sdl 0c00: 2d 77 69 6e 64 6f 77 2d 74 29 29 20 28 6e 61 6d -window-t)) (nam 0c10: 65 20 73 74 72 69 6e 67 29 29 20 22 53 44 4c 5f e string)) "SDL_ 0c20: 47 65 74 57 69 6e 64 6f 77 44 61 74 61 22 29 0a GetWindowData"). 0c30: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 0c40: 20 76 6f 69 64 20 73 64 6c 2d 73 65 74 2d 77 69 void sdl-set-wi 0c50: 6e 64 6f 77 2d 70 6f 73 69 74 69 6f 6e 20 28 28 ndow-position (( 0c60: 77 69 6e 64 6f 77 20 28 2a 20 73 64 6c 2d 77 69 window (* sdl-wi 0c70: 6e 64 6f 77 2d 74 29 29 20 28 78 20 69 6e 74 29 ndow-t)) (x int) 0c80: 20 28 79 20 69 6e 74 29 29 20 22 53 44 4c 5f 53 (y int)) "SDL_S 0c90: 65 74 57 69 6e 64 6f 77 50 6f 73 69 74 69 6f 6e etWindowPosition 0ca0: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f 0cb0: 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 67 65 74 unc void sdl-get 0cc0: 2d 77 69 6e 64 6f 77 2d 70 6f 73 69 74 69 6f 6e -window-position 0cd0: 20 28 28 77 69 6e 64 6f 77 20 28 2a 20 73 64 6c ((window (* sdl 0ce0: 2d 77 69 6e 64 6f 77 2d 74 29 29 20 28 78 20 28 -window-t)) (x ( 0cf0: 2a 20 69 6e 74 29 29 20 28 79 20 28 2a 20 69 6e * int)) (y (* in 0d00: 74 29 29 29 20 22 53 44 4c 5f 47 65 74 57 69 6e t))) "SDL_GetWin 0d10: 64 6f 77 50 6f 73 69 74 69 6f 6e 22 29 0a 28 64 dowPosition").(d 0d20: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 efine-sdl-func v 0d30: 6f 69 64 20 73 64 6c 2d 73 65 74 2d 77 69 6e 64 oid sdl-set-wind 0d40: 6f 77 2d 73 69 7a 65 20 28 28 77 69 6e 64 6f 77 ow-size ((window 0d50: 20 28 2a 20 73 64 6c 2d 77 69 6e 64 6f 77 2d 74 (* sdl-window-t 0d60: 29 29 20 28 77 20 69 6e 74 29 20 28 68 20 69 6e )) (w int) (h in 0d70: 74 29 29 20 22 53 44 4c 5f 53 65 74 57 69 6e 64 t)) "SDL_SetWind 0d80: 6f 77 53 69 7a 65 22 29 0a 28 64 65 66 69 6e 65 owSize").(define 0d90: 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 73 -sdl-func void s 0da0: 64 6c 2d 67 65 74 2d 77 69 6e 64 6f 77 2d 73 69 dl-get-window-si 0db0: 7a 65 20 28 28 77 69 6e 64 6f 77 20 28 2a 20 73 ze ((window (* s 0dc0: 64 6c 2d 77 69 6e 64 6f 77 2d 74 29 29 20 28 77 dl-window-t)) (w 0dd0: 20 28 2a 20 69 6e 74 29 29 20 28 68 20 28 2a 20 (* int)) (h (* 0de0: 69 6e 74 29 29 29 20 22 53 44 4c 5f 47 65 74 57 int))) "SDL_GetW 0df0: 69 6e 64 6f 77 53 69 7a 65 22 29 0a 28 64 65 66 indowSize").(def 0e00: 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 ine-sdl-func int 0e10: 20 73 64 6c 2d 67 65 74 2d 77 69 6e 64 6f 77 2d sdl-get-window- 0e20: 62 6f 72 64 65 72 73 2d 73 69 7a 65 20 28 28 77 borders-size ((w 0e30: 69 6e 64 6f 77 20 28 2a 20 73 64 6c 2d 77 69 6e indow (* sdl-win 0e40: 64 6f 77 2d 74 29 29 20 28 74 6f 70 20 28 2a 20 dow-t)) (top (* 0e50: 69 6e 74 29 29 20 28 6c 65 66 74 20 28 2a 20 69 int)) (left (* i 0e60: 6e 74 29 29 20 28 62 6f 74 74 6f 6d 20 28 2a 20 nt)) (bottom (* 0e70: 69 6e 74 29 29 20 28 72 69 67 68 74 20 28 2a 20 int)) (right (* 0e80: 69 6e 74 29 29 29 20 22 53 44 4c 5f 47 65 74 57 int))) "SDL_GetW 0e90: 69 6e 64 6f 77 42 6f 72 64 65 72 73 53 69 7a 65 indowBordersSize 0ea0: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f 0eb0: 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 73 65 74 unc void sdl-set 0ec0: 2d 77 69 6e 64 6f 77 2d 6d 69 6e 69 6d 75 6d 2d -window-minimum- 0ed0: 73 69 7a 65 20 28 28 77 69 6e 64 6f 77 20 28 2a size ((window (* 0ee0: 20 73 64 6c 2d 77 69 6e 64 6f 77 2d 74 29 29 20 sdl-window-t)) 0ef0: 28 6d 69 6e 5f 77 20 69 6e 74 29 20 28 6d 69 6e (min_w int) (min 0f00: 5f 68 20 69 6e 74 29 29 20 22 53 44 4c 5f 53 65 _h int)) "SDL_Se 0f10: 74 57 69 6e 64 6f 77 4d 69 6e 69 6d 75 6d 53 69 tWindowMinimumSi 0f20: 7a 65 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c ze").(define-sdl 0f30: 2d 66 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 67 -func void sdl-g 0f40: 65 74 2d 77 69 6e 64 6f 77 2d 6d 69 6e 69 6d 75 et-window-minimu 0f50: 6d 2d 73 69 7a 65 20 28 28 77 69 6e 64 6f 77 20 m-size ((window 0f60: 28 2a 20 73 64 6c 2d 77 69 6e 64 6f 77 2d 74 29 (* sdl-window-t) 0f70: 29 20 28 77 20 28 2a 20 69 6e 74 29 29 20 28 68 ) (w (* int)) (h 0f80: 20 28 2a 20 69 6e 74 29 29 29 20 22 53 44 4c 5f (* int))) "SDL_ 0f90: 47 65 74 57 69 6e 64 6f 77 4d 69 6e 69 6d 75 6d GetWindowMinimum 0fa0: 53 69 7a 65 22 29 0a 28 64 65 66 69 6e 65 2d 73 Size").(define-s 0fb0: 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 73 64 6c dl-func void sdl 0fc0: 2d 73 65 74 2d 77 69 6e 64 6f 77 2d 6d 61 78 69 -set-window-maxi 0fd0: 6d 75 6d 2d 73 69 7a 65 20 28 28 77 69 6e 64 6f mum-size ((windo 0fe0: 77 20 28 2a 20 73 64 6c 2d 77 69 6e 64 6f 77 2d w (* sdl-window- 0ff0: 74 29 29 20 28 6d 61 78 5f 77 20 69 6e 74 29 20 t)) (max_w int) 1000: 28 6d 61 78 5f 68 20 69 6e 74 29 29 20 22 53 44 (max_h int)) "SD 1010: 4c 5f 53 65 74 57 69 6e 64 6f 77 4d 61 78 69 6d L_SetWindowMaxim 1020: 75 6d 53 69 7a 65 22 29 0a 28 64 65 66 69 6e 65 umSize").(define 1030: 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 73 -sdl-func void s 1040: 64 6c 2d 67 65 74 2d 77 69 6e 64 6f 77 2d 6d 61 dl-get-window-ma 1050: 78 69 6d 75 6d 2d 73 69 7a 65 20 28 28 77 69 6e ximum-size ((win 1060: 64 6f 77 20 28 2a 20 73 64 6c 2d 77 69 6e 64 6f dow (* sdl-windo 1070: 77 2d 74 29 29 20 28 77 20 28 2a 20 69 6e 74 29 w-t)) (w (* int) 1080: 29 20 28 68 20 28 2a 20 69 6e 74 29 29 29 20 22 ) (h (* int))) " 1090: 53 44 4c 5f 47 65 74 57 69 6e 64 6f 77 4d 61 78 SDL_GetWindowMax 10a0: 69 6d 75 6d 53 69 7a 65 22 29 0a 28 64 65 66 69 imumSize").(defi 10b0: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64 ne-sdl-func void 10c0: 20 73 64 6c 2d 73 65 74 2d 77 69 6e 64 6f 77 2d sdl-set-window- 10d0: 62 6f 72 64 65 72 65 64 20 28 28 77 69 6e 64 6f bordered ((windo 10e0: 77 20 28 2a 20 73 64 6c 2d 77 69 6e 64 6f 77 2d w (* sdl-window- 10f0: 74 29 29 20 28 62 6f 72 64 65 72 65 64 20 73 64 t)) (bordered sd 1100: 6c 2d 62 6f 6f 6c 2d 74 29 29 20 22 53 44 4c 5f l-bool-t)) "SDL_ 1110: 53 65 74 57 69 6e 64 6f 77 42 6f 72 64 65 72 65 SetWindowBordere 1120: 64 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d d").(define-sdl- 1130: 66 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 73 65 func void sdl-se 1140: 74 2d 77 69 6e 64 6f 77 2d 72 65 73 69 7a 61 62 t-window-resizab 1150: 6c 65 20 28 28 77 69 6e 64 6f 77 20 28 2a 20 73 le ((window (* s 1160: 64 6c 2d 77 69 6e 64 6f 77 2d 74 29 29 20 28 72 dl-window-t)) (r 1170: 65 73 69 7a 61 62 6c 65 20 73 64 6c 2d 62 6f 6f esizable sdl-boo 1180: 6c 2d 74 29 29 20 22 53 44 4c 5f 53 65 74 57 69 l-t)) "SDL_SetWi 1190: 6e 64 6f 77 52 65 73 69 7a 61 62 6c 65 22 29 0a ndowResizable"). 11a0: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 11b0: 20 76 6f 69 64 20 73 64 6c 2d 73 68 6f 77 2d 77 void sdl-show-w 11c0: 69 6e 64 6f 77 20 28 28 77 69 6e 64 6f 77 20 28 indow ((window ( 11d0: 2a 20 73 64 6c 2d 77 69 6e 64 6f 77 2d 74 29 29 * sdl-window-t)) 11e0: 29 20 22 53 44 4c 5f 53 68 6f 77 57 69 6e 64 6f ) "SDL_ShowWindo 11f0: 77 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d w").(define-sdl- 1200: 66 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 68 69 func void sdl-hi 1210: 64 65 2d 77 69 6e 64 6f 77 20 28 28 77 69 6e 64 de-window ((wind 1220: 6f 77 20 28 2a 20 73 64 6c 2d 77 69 6e 64 6f 77 ow (* sdl-window 1230: 2d 74 29 29 29 20 22 53 44 4c 5f 48 69 64 65 57 -t))) "SDL_HideW 1240: 69 6e 64 6f 77 22 29 0a 28 64 65 66 69 6e 65 2d indow").(define- 1250: 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 73 64 sdl-func void sd 1260: 6c 2d 72 61 69 73 65 2d 77 69 6e 64 6f 77 20 28 l-raise-window ( 1270: 28 77 69 6e 64 6f 77 20 28 2a 20 73 64 6c 2d 77 (window (* sdl-w 1280: 69 6e 64 6f 77 2d 74 29 29 29 20 22 53 44 4c 5f indow-t))) "SDL_ 1290: 52 61 69 73 65 57 69 6e 64 6f 77 22 29 0a 28 64 RaiseWindow").(d 12a0: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 efine-sdl-func v 12b0: 6f 69 64 20 73 64 6c 2d 6d 61 78 69 6d 69 7a 65 oid sdl-maximize 12c0: 2d 77 69 6e 64 6f 77 20 28 28 77 69 6e 64 6f 77 -window ((window 12d0: 20 28 2a 20 73 64 6c 2d 77 69 6e 64 6f 77 2d 74 (* sdl-window-t 12e0: 29 29 29 20 22 53 44 4c 5f 4d 61 78 69 6d 69 7a ))) "SDL_Maximiz 12f0: 65 57 69 6e 64 6f 77 22 29 0a 28 64 65 66 69 6e eWindow").(defin 1300: 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 e-sdl-func void 1310: 73 64 6c 2d 6d 69 6e 69 6d 69 7a 65 2d 77 69 6e sdl-minimize-win 1320: 64 6f 77 20 28 28 77 69 6e 64 6f 77 20 28 2a 20 dow ((window (* 1330: 73 64 6c 2d 77 69 6e 64 6f 77 2d 74 29 29 29 20 sdl-window-t))) 1340: 22 53 44 4c 5f 4d 69 6e 69 6d 69 7a 65 57 69 6e "SDL_MinimizeWin 1350: 64 6f 77 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 dow").(define-sd 1360: 6c 2d 66 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d l-func void sdl- 1370: 72 65 73 74 6f 72 65 2d 77 69 6e 64 6f 77 20 28 restore-window ( 1380: 28 77 69 6e 64 6f 77 20 28 2a 20 73 64 6c 2d 77 (window (* sdl-w 1390: 69 6e 64 6f 77 2d 74 29 29 29 20 22 53 44 4c 5f indow-t))) "SDL_ 13a0: 52 65 73 74 6f 72 65 57 69 6e 64 6f 77 22 29 0a RestoreWindow"). 13b0: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 13c0: 20 69 6e 74 20 73 64 6c 2d 73 65 74 2d 77 69 6e int sdl-set-win 13d0: 64 6f 77 2d 66 75 6c 6c 73 63 72 65 65 6e 20 28 dow-fullscreen ( 13e0: 28 77 69 6e 64 6f 77 20 28 2a 20 73 64 6c 2d 77 (window (* sdl-w 13f0: 69 6e 64 6f 77 2d 74 29 29 20 28 66 6c 61 67 73 indow-t)) (flags 1400: 20 75 69 6e 74 33 32 29 29 20 22 53 44 4c 5f 53 uint32)) "SDL_S 1410: 65 74 57 69 6e 64 6f 77 46 75 6c 6c 73 63 72 65 etWindowFullscre 1420: 65 6e 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c en").(define-sdl 1430: 2d 66 75 6e 63 20 28 2a 20 73 64 6c 2d 73 75 72 -func (* sdl-sur 1440: 66 61 63 65 2d 74 29 20 73 64 6c 2d 67 65 74 2d face-t) sdl-get- 1450: 77 69 6e 64 6f 77 2d 73 75 72 66 61 63 65 20 28 window-surface ( 1460: 28 77 69 6e 64 6f 77 20 28 2a 20 73 64 6c 2d 77 (window (* sdl-w 1470: 69 6e 64 6f 77 2d 74 29 29 29 20 22 53 44 4c 5f indow-t))) "SDL_ 1480: 47 65 74 57 69 6e 64 6f 77 53 75 72 66 61 63 65 GetWindowSurface 1490: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f 14a0: 75 6e 63 20 69 6e 74 20 73 64 6c 2d 75 70 64 61 unc int sdl-upda 14b0: 74 65 2d 77 69 6e 64 6f 77 2d 73 75 72 66 61 63 te-window-surfac 14c0: 65 20 28 28 77 69 6e 64 6f 77 20 28 2a 20 73 64 e ((window (* sd 14d0: 6c 2d 77 69 6e 64 6f 77 2d 74 29 29 29 20 22 53 l-window-t))) "S 14e0: 44 4c 5f 55 70 64 61 74 65 57 69 6e 64 6f 77 53 DL_UpdateWindowS 14f0: 75 72 66 61 63 65 22 29 0a 28 64 65 66 69 6e 65 urface").(define 1500: 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 -sdl-func int sd 1510: 6c 2d 75 70 64 61 74 65 2d 77 69 6e 64 6f 77 2d l-update-window- 1520: 73 75 72 66 61 63 65 2d 72 65 63 74 73 20 28 28 surface-rects (( 1530: 77 69 6e 64 6f 77 20 28 2a 20 73 64 6c 2d 77 69 window (* sdl-wi 1540: 6e 64 6f 77 2d 74 29 29 20 28 72 65 63 74 73 20 ndow-t)) (rects 1550: 28 2a 20 73 64 6c 2d 72 65 63 74 2d 74 29 29 20 (* sdl-rect-t)) 1560: 28 6e 75 6d 72 65 63 74 73 20 69 6e 74 29 29 20 (numrects int)) 1570: 22 53 44 4c 5f 55 70 64 61 74 65 57 69 6e 64 6f "SDL_UpdateWindo 1580: 77 53 75 72 66 61 63 65 52 65 63 74 73 22 29 0a wSurfaceRects"). 1590: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 15a0: 20 76 6f 69 64 20 73 64 6c 2d 73 65 74 2d 77 69 void sdl-set-wi 15b0: 6e 64 6f 77 2d 67 72 61 62 20 28 28 77 69 6e 64 ndow-grab ((wind 15c0: 6f 77 20 28 2a 20 73 64 6c 2d 77 69 6e 64 6f 77 ow (* sdl-window 15d0: 2d 74 29 29 20 28 67 72 61 62 62 65 64 20 73 64 -t)) (grabbed sd 15e0: 6c 2d 62 6f 6f 6c 2d 74 29 29 20 22 53 44 4c 5f l-bool-t)) "SDL_ 15f0: 53 65 74 57 69 6e 64 6f 77 47 72 61 62 22 29 0a SetWindowGrab"). 1600: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 1610: 20 73 64 6c 2d 62 6f 6f 6c 2d 74 20 73 64 6c 2d sdl-bool-t sdl- 1620: 67 65 74 2d 77 69 6e 64 6f 77 2d 67 72 61 62 20 get-window-grab 1630: 28 28 77 69 6e 64 6f 77 20 28 2a 20 73 64 6c 2d ((window (* sdl- 1640: 77 69 6e 64 6f 77 2d 74 29 29 29 20 22 53 44 4c window-t))) "SDL 1650: 5f 47 65 74 57 69 6e 64 6f 77 47 72 61 62 22 29 _GetWindowGrab") 1660: 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e .(define-sdl-fun 1670: 63 20 28 2a 20 73 64 6c 2d 77 69 6e 64 6f 77 2d c (* sdl-window- 1680: 74 29 20 73 64 6c 2d 67 65 74 2d 67 72 61 62 62 t) sdl-get-grabb 1690: 65 64 2d 77 69 6e 64 6f 77 20 28 29 20 22 53 44 ed-window () "SD 16a0: 4c 5f 47 65 74 47 72 61 62 62 65 64 57 69 6e 64 L_GetGrabbedWind 16b0: 6f 77 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c ow").(define-sdl 16c0: 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 73 65 -func int sdl-se 16d0: 74 2d 77 69 6e 64 6f 77 2d 62 72 69 67 68 74 6e t-window-brightn 16e0: 65 73 73 20 28 28 77 69 6e 64 6f 77 20 28 2a 20 ess ((window (* 16f0: 73 64 6c 2d 77 69 6e 64 6f 77 2d 74 29 29 20 28 sdl-window-t)) ( 1700: 62 72 69 67 68 74 6e 65 73 73 20 66 6c 6f 61 74 brightness float 1710: 29 29 20 22 53 44 4c 5f 53 65 74 57 69 6e 64 6f )) "SDL_SetWindo 1720: 77 42 72 69 67 68 74 6e 65 73 73 22 29 0a 28 64 wBrightness").(d 1730: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 66 efine-sdl-func f 1740: 6c 6f 61 74 20 73 64 6c 2d 67 65 74 2d 77 69 6e loat sdl-get-win 1750: 64 6f 77 2d 62 72 69 67 68 74 6e 65 73 73 20 28 dow-brightness ( 1760: 28 77 69 6e 64 6f 77 20 28 2a 20 73 64 6c 2d 77 (window (* sdl-w 1770: 69 6e 64 6f 77 2d 74 29 29 29 20 22 53 44 4c 5f indow-t))) "SDL_ 1780: 47 65 74 57 69 6e 64 6f 77 42 72 69 67 68 74 6e GetWindowBrightn 1790: 65 73 73 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 ess").(define-sd 17a0: 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 73 l-func int sdl-s 17b0: 65 74 2d 77 69 6e 64 6f 77 2d 6f 70 61 63 69 74 et-window-opacit 17c0: 79 20 28 28 77 69 6e 64 6f 77 20 28 2a 20 73 64 y ((window (* sd 17d0: 6c 2d 77 69 6e 64 6f 77 2d 74 29 29 20 28 6f 70 l-window-t)) (op 17e0: 61 63 69 74 79 20 66 6c 6f 61 74 29 29 20 22 53 acity float)) "S 17f0: 44 4c 5f 53 65 74 57 69 6e 64 6f 77 4f 70 61 63 DL_SetWindowOpac 1800: 69 74 79 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 ity").(define-sd 1810: 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 67 l-func int sdl-g 1820: 65 74 2d 77 69 6e 64 6f 77 2d 6f 70 61 63 69 74 et-window-opacit 1830: 79 20 28 28 77 69 6e 64 6f 77 20 28 2a 20 73 64 y ((window (* sd 1840: 6c 2d 77 69 6e 64 6f 77 2d 74 29 29 20 28 6f 75 l-window-t)) (ou 1850: 74 5f 6f 70 61 63 69 74 79 20 28 2a 20 66 6c 6f t_opacity (* flo 1860: 61 74 29 29 29 20 22 53 44 4c 5f 47 65 74 57 69 at))) "SDL_GetWi 1870: 6e 64 6f 77 4f 70 61 63 69 74 79 22 29 0a 28 64 ndowOpacity").(d 1880: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 efine-sdl-func i 1890: 6e 74 20 73 64 6c 2d 73 65 74 2d 77 69 6e 64 6f nt sdl-set-windo 18a0: 77 2d 6d 6f 64 61 6c 2d 66 6f 72 20 28 28 6d 6f w-modal-for ((mo 18b0: 64 61 6c 5f 77 69 6e 64 6f 77 20 28 2a 20 73 64 dal_window (* sd 18c0: 6c 2d 77 69 6e 64 6f 77 2d 74 29 29 20 28 70 61 l-window-t)) (pa 18d0: 72 65 6e 74 5f 77 69 6e 64 6f 77 20 28 2a 20 73 rent_window (* s 18e0: 64 6c 2d 77 69 6e 64 6f 77 2d 74 29 29 29 20 22 dl-window-t))) " 18f0: 53 44 4c 5f 53 65 74 57 69 6e 64 6f 77 4d 6f 64 SDL_SetWindowMod 1900: 61 6c 46 6f 72 22 29 0a 28 64 65 66 69 6e 65 2d alFor").(define- 1910: 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c sdl-func int sdl 1920: 2d 73 65 74 2d 77 69 6e 64 6f 77 2d 69 6e 70 75 -set-window-inpu 1930: 74 2d 66 6f 63 75 73 20 28 28 77 69 6e 64 6f 77 t-focus ((window 1940: 20 28 2a 20 73 64 6c 2d 77 69 6e 64 6f 77 2d 74 (* sdl-window-t 1950: 29 29 29 20 22 53 44 4c 5f 53 65 74 57 69 6e 64 ))) "SDL_SetWind 1960: 6f 77 49 6e 70 75 74 46 6f 63 75 73 22 29 0a 28 owInputFocus").( 1970: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func 1980: 69 6e 74 20 73 64 6c 2d 73 65 74 2d 77 69 6e 64 int sdl-set-wind 1990: 6f 77 2d 67 61 6d 6d 61 2d 72 61 6d 70 20 28 28 ow-gamma-ramp (( 19a0: 77 69 6e 64 6f 77 20 28 2a 20 73 64 6c 2d 77 69 window (* sdl-wi 19b0: 6e 64 6f 77 2d 74 29 29 20 28 72 65 64 20 28 2a ndow-t)) (red (* 19c0: 20 75 69 6e 74 31 36 29 29 20 28 67 72 65 65 6e uint16)) (green 19d0: 20 28 2a 20 75 69 6e 74 31 36 29 29 20 28 62 6c (* uint16)) (bl 19e0: 75 65 20 28 2a 20 75 69 6e 74 31 36 29 29 29 20 ue (* uint16))) 19f0: 22 53 44 4c 5f 53 65 74 57 69 6e 64 6f 77 47 61 "SDL_SetWindowGa 1a00: 6d 6d 61 52 61 6d 70 22 29 0a 28 64 65 66 69 6e mmaRamp").(defin 1a10: 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 e-sdl-func int s 1a20: 64 6c 2d 67 65 74 2d 77 69 6e 64 6f 77 2d 67 61 dl-get-window-ga 1a30: 6d 6d 61 2d 72 61 6d 70 20 28 28 77 69 6e 64 6f mma-ramp ((windo 1a40: 77 20 28 2a 20 73 64 6c 2d 77 69 6e 64 6f 77 2d w (* sdl-window- 1a50: 74 29 29 20 28 72 65 64 20 28 2a 20 75 69 6e 74 t)) (red (* uint 1a60: 31 36 29 29 20 28 67 72 65 65 6e 20 28 2a 20 75 16)) (green (* u 1a70: 69 6e 74 31 36 29 29 20 28 62 6c 75 65 20 28 2a int16)) (blue (* 1a80: 20 75 69 6e 74 31 36 29 29 29 20 22 53 44 4c 5f uint16))) "SDL_ 1a90: 47 65 74 57 69 6e 64 6f 77 47 61 6d 6d 61 52 61 GetWindowGammaRa 1aa0: 6d 70 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c mp").(define-sdl 1ab0: 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 73 65 -func int sdl-se 1ac0: 74 2d 77 69 6e 64 6f 77 2d 68 69 74 2d 74 65 73 t-window-hit-tes 1ad0: 74 20 28 28 77 69 6e 64 6f 77 20 28 2a 20 73 64 t ((window (* sd 1ae0: 6c 2d 77 69 6e 64 6f 77 2d 74 29 29 20 28 63 61 l-window-t)) (ca 1af0: 6c 6c 62 61 63 6b 20 73 64 6c 2d 68 69 74 2d 74 llback sdl-hit-t 1b00: 65 73 74 2d 74 29 20 28 63 61 6c 6c 62 61 63 6b est-t) (callback 1b10: 5f 64 61 74 61 20 76 6f 69 64 2a 29 29 20 22 53 _data void*)) "S 1b20: 44 4c 5f 53 65 74 57 69 6e 64 6f 77 48 69 74 54 DL_SetWindowHitT 1b30: 65 73 74 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 est").(define-sd 1b40: 6c 2d 66 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d l-func void sdl- 1b50: 64 65 73 74 72 6f 79 2d 77 69 6e 64 6f 77 20 28 destroy-window ( 1b60: 28 77 69 6e 64 6f 77 20 28 2a 20 73 64 6c 2d 77 (window (* sdl-w 1b70: 69 6e 64 6f 77 2d 74 29 29 29 20 22 53 44 4c 5f indow-t))) "SDL_ 1b80: 44 65 73 74 72 6f 79 57 69 6e 64 6f 77 22 29 0a DestroyWindow"). 1b90: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 1ba0: 20 73 64 6c 2d 62 6f 6f 6c 2d 74 20 73 64 6c 2d sdl-bool-t sdl- 1bb0: 69 73 2d 73 63 72 65 65 6e 2d 73 61 76 65 72 2d is-screen-saver- 1bc0: 65 6e 61 62 6c 65 64 20 28 29 20 22 53 44 4c 5f enabled () "SDL_ 1bd0: 49 73 53 63 72 65 65 6e 53 61 76 65 72 45 6e 61 IsScreenSaverEna 1be0: 62 6c 65 64 22 29 0a 28 64 65 66 69 6e 65 2d 73 bled").(define-s 1bf0: 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 73 64 6c dl-func void sdl 1c00: 2d 65 6e 61 62 6c 65 2d 73 63 72 65 65 6e 2d 73 -enable-screen-s 1c10: 61 76 65 72 20 28 29 20 22 53 44 4c 5f 45 6e 61 aver () "SDL_Ena 1c20: 62 6c 65 53 63 72 65 65 6e 53 61 76 65 72 22 29 bleScreenSaver") 1c30: 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e .(define-sdl-fun 1c40: 63 20 76 6f 69 64 20 73 64 6c 2d 64 69 73 61 62 c void sdl-disab 1c50: 6c 65 2d 73 63 72 65 65 6e 2d 73 61 76 65 72 20 le-screen-saver 1c60: 28 29 20 22 53 44 4c 5f 44 69 73 61 62 6c 65 53 () "SDL_DisableS 1c70: 63 72 65 65 6e 53 61 76 65 72 22 29 0a 28 64 65 creenSaver").(de 1c80: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e fine-sdl-func in 1c90: 74 20 73 64 6c 2d 67 6c 2d 6c 6f 61 64 2d 6c 69 t sdl-gl-load-li 1ca0: 62 72 61 72 79 20 28 28 70 61 74 68 20 73 74 72 brary ((path str 1cb0: 69 6e 67 29 29 20 22 53 44 4c 5f 47 4c 5f 4c 6f ing)) "SDL_GL_Lo 1cc0: 61 64 4c 69 62 72 61 72 79 22 29 0a 28 64 65 66 adLibrary").(def 1cd0: 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f 69 ine-sdl-func voi 1ce0: 64 2a 20 73 64 6c 2d 67 6c 2d 67 65 74 2d 70 72 d* sdl-gl-get-pr 1cf0: 6f 63 2d 61 64 64 72 65 73 73 20 28 28 70 72 6f oc-address ((pro 1d00: 63 20 73 74 72 69 6e 67 29 29 20 22 53 44 4c 5f c string)) "SDL_ 1d10: 47 4c 5f 47 65 74 50 72 6f 63 41 64 64 72 65 73 GL_GetProcAddres 1d20: 73 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d s").(define-sdl- 1d30: 66 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 67 6c func void sdl-gl 1d40: 2d 75 6e 6c 6f 61 64 2d 6c 69 62 72 61 72 79 20 -unload-library 1d50: 28 29 20 22 53 44 4c 5f 47 4c 5f 55 6e 6c 6f 61 () "SDL_GL_Unloa 1d60: 64 4c 69 62 72 61 72 79 22 29 0a 28 64 65 66 69 dLibrary").(defi 1d70: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 73 64 6c 2d ne-sdl-func sdl- 1d80: 62 6f 6f 6c 2d 74 20 73 64 6c 2d 67 6c 2d 65 78 bool-t sdl-gl-ex 1d90: 74 65 6e 73 69 6f 6e 2d 73 75 70 70 6f 72 74 65 tension-supporte 1da0: 64 20 28 28 65 78 74 65 6e 73 69 6f 6e 20 73 74 d ((extension st 1db0: 72 69 6e 67 29 29 20 22 53 44 4c 5f 47 4c 5f 45 ring)) "SDL_GL_E 1dc0: 78 74 65 6e 73 69 6f 6e 53 75 70 70 6f 72 74 65 xtensionSupporte 1dd0: 64 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d d").(define-sdl- 1de0: 66 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 67 6c func void sdl-gl 1df0: 2d 72 65 73 65 74 2d 61 74 74 72 69 62 75 74 65 -reset-attribute 1e00: 73 20 28 29 20 22 53 44 4c 5f 47 4c 5f 52 65 73 s () "SDL_GL_Res 1e10: 65 74 41 74 74 72 69 62 75 74 65 73 22 29 0a 28 etAttributes").( 1e20: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func 1e30: 69 6e 74 20 73 64 6c 2d 67 6c 2d 73 65 74 2d 61 int sdl-gl-set-a 1e40: 74 74 72 69 62 75 74 65 20 28 28 61 74 74 72 20 ttribute ((attr 1e50: 73 64 6c 2d 67 6c 2d 61 74 74 72 2d 74 29 20 28 sdl-gl-attr-t) ( 1e60: 76 61 6c 75 65 20 69 6e 74 29 29 20 22 53 44 4c value int)) "SDL 1e70: 5f 47 4c 5f 53 65 74 41 74 74 72 69 62 75 74 65 _GL_SetAttribute 1e80: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f 1e90: 75 6e 63 20 69 6e 74 20 73 64 6c 2d 67 6c 2d 67 unc int sdl-gl-g 1ea0: 65 74 2d 61 74 74 72 69 62 75 74 65 20 28 28 61 et-attribute ((a 1eb0: 74 74 72 20 73 64 6c 2d 67 6c 2d 61 74 74 72 2d ttr sdl-gl-attr- 1ec0: 74 29 20 28 76 61 6c 75 65 20 28 2a 20 69 6e 74 t) (value (* int 1ed0: 29 29 29 20 22 53 44 4c 5f 47 4c 5f 47 65 74 41 ))) "SDL_GL_GetA 1ee0: 74 74 72 69 62 75 74 65 22 29 0a 28 64 65 66 69 ttribute").(defi 1ef0: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 73 64 6c 2d ne-sdl-func sdl- 1f00: 67 6c 2d 63 6f 6e 74 65 78 74 2d 74 20 73 64 6c gl-context-t sdl 1f10: 2d 67 6c 2d 63 72 65 61 74 65 2d 63 6f 6e 74 65 -gl-create-conte 1f20: 78 74 20 28 28 77 69 6e 64 6f 77 20 28 2a 20 73 xt ((window (* s 1f30: 64 6c 2d 77 69 6e 64 6f 77 2d 74 29 29 29 20 22 dl-window-t))) " 1f40: 53 44 4c 5f 47 4c 5f 43 72 65 61 74 65 43 6f 6e SDL_GL_CreateCon 1f50: 74 65 78 74 22 29 0a 28 64 65 66 69 6e 65 2d 73 text").(define-s 1f60: 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d dl-func int sdl- 1f70: 67 6c 2d 6d 61 6b 65 2d 63 75 72 72 65 6e 74 20 gl-make-current 1f80: 28 28 77 69 6e 64 6f 77 20 28 2a 20 73 64 6c 2d ((window (* sdl- 1f90: 77 69 6e 64 6f 77 2d 74 29 29 20 28 63 6f 6e 74 window-t)) (cont 1fa0: 65 78 74 20 73 64 6c 2d 67 6c 2d 63 6f 6e 74 65 ext sdl-gl-conte 1fb0: 78 74 2d 74 29 29 20 22 53 44 4c 5f 47 4c 5f 4d xt-t)) "SDL_GL_M 1fc0: 61 6b 65 43 75 72 72 65 6e 74 22 29 0a 28 64 65 akeCurrent").(de 1fd0: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 28 2a fine-sdl-func (* 1fe0: 20 73 64 6c 2d 77 69 6e 64 6f 77 2d 74 29 20 73 sdl-window-t) s 1ff0: 64 6c 2d 67 6c 2d 67 65 74 2d 63 75 72 72 65 6e dl-gl-get-curren 2000: 74 2d 77 69 6e 64 6f 77 20 28 29 20 22 53 44 4c t-window () "SDL 2010: 5f 47 4c 5f 47 65 74 43 75 72 72 65 6e 74 57 69 _GL_GetCurrentWi 2020: 6e 64 6f 77 22 29 0a 28 64 65 66 69 6e 65 2d 73 ndow").(define-s 2030: 64 6c 2d 66 75 6e 63 20 73 64 6c 2d 67 6c 2d 63 dl-func sdl-gl-c 2040: 6f 6e 74 65 78 74 2d 74 20 73 64 6c 2d 67 6c 2d ontext-t sdl-gl- 2050: 67 65 74 2d 63 75 72 72 65 6e 74 2d 63 6f 6e 74 get-current-cont 2060: 65 78 74 20 28 29 20 22 53 44 4c 5f 47 4c 5f 47 ext () "SDL_GL_G 2070: 65 74 43 75 72 72 65 6e 74 43 6f 6e 74 65 78 74 etCurrentContext 2080: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f 2090: 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 67 6c 2d unc void sdl-gl- 20a0: 67 65 74 2d 64 72 61 77 61 62 6c 65 2d 73 69 7a get-drawable-siz 20b0: 65 20 28 28 77 69 6e 64 6f 77 20 28 2a 20 73 64 e ((window (* sd 20c0: 6c 2d 77 69 6e 64 6f 77 2d 74 29 29 20 28 77 20 l-window-t)) (w 20d0: 28 2a 20 69 6e 74 29 29 20 28 68 20 28 2a 20 69 (* int)) (h (* i 20e0: 6e 74 29 29 29 20 22 53 44 4c 5f 47 4c 5f 47 65 nt))) "SDL_GL_Ge 20f0: 74 44 72 61 77 61 62 6c 65 53 69 7a 65 22 29 0a tDrawableSize"). 2100: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 (define-sdl-func 2110: 20 69 6e 74 20 73 64 6c 2d 67 6c 2d 73 65 74 2d int sdl-gl-set- 2120: 73 77 61 70 2d 69 6e 74 65 72 76 61 6c 20 28 28 swap-interval (( 2130: 69 6e 74 65 72 76 61 6c 20 69 6e 74 29 29 20 22 interval int)) " 2140: 53 44 4c 5f 47 4c 5f 53 65 74 53 77 61 70 49 6e SDL_GL_SetSwapIn 2150: 74 65 72 76 61 6c 22 29 0a 28 64 65 66 69 6e 65 terval").(define 2160: 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 -sdl-func int sd 2170: 6c 2d 67 6c 2d 67 65 74 2d 73 77 61 70 2d 69 6e l-gl-get-swap-in 2180: 74 65 72 76 61 6c 20 28 29 20 22 53 44 4c 5f 47 terval () "SDL_G 2190: 4c 5f 47 65 74 53 77 61 70 49 6e 74 65 72 76 61 L_GetSwapInterva 21a0: 6c 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d l").(define-sdl- 21b0: 66 75 6e 63 20 76 6f 69 64 20 73 64 6c 2d 67 6c func void sdl-gl 21c0: 2d 73 77 61 70 2d 77 69 6e 64 6f 77 20 28 28 77 -swap-window ((w 21d0: 69 6e 64 6f 77 20 28 2a 20 73 64 6c 2d 77 69 6e indow (* sdl-win 21e0: 64 6f 77 2d 74 29 29 29 20 22 53 44 4c 5f 47 4c dow-t))) "SDL_GL 21f0: 5f 53 77 61 70 57 69 6e 64 6f 77 22 29 0a 28 64 _SwapWindow").(d 2200: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 efine-sdl-func v 2210: 6f 69 64 20 73 64 6c 2d 67 6c 2d 64 65 6c 65 74 oid sdl-gl-delet 2220: 65 2d 63 6f 6e 74 65 78 74 20 28 28 63 6f 6e 74 e-context ((cont 2230: 65 78 74 20 73 64 6c 2d 67 6c 2d 63 6f 6e 74 65 ext sdl-gl-conte 2240: 78 74 2d 74 29 29 20 22 53 44 4c 5f 47 4c 5f 44 xt-t)) "SDL_GL_D 2250: 65 6c 65 74 65 43 6f 6e 74 65 78 74 22 29 0a eleteContext").