Artifact dc06ba10744a4a0af4615389ac9765851fa5a150:
- File sdl2/surface-functions.ss — part of check-in [0e3c53a30e] at 2018-01-08 17:10:49 on branch trunk — SDL_Image added (user: ovenpasta@users.noreply.github.com size: 4376)
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 73 75 72 66 61 63 65 2d (* sdl-surface- 0020: 74 29 20 73 64 6c 2d 63 72 65 61 74 65 2d 72 67 t) sdl-create-rg 0030: 62 2d 73 75 72 66 61 63 65 20 28 28 66 6c 61 67 b-surface ((flag 0040: 73 20 75 69 6e 74 33 32 29 20 28 77 69 64 74 68 s uint32) (width 0050: 20 69 6e 74 29 20 28 68 65 69 67 68 74 20 69 6e int) (height in 0060: 74 29 20 28 64 65 70 74 68 20 69 6e 74 29 20 28 t) (depth int) ( 0070: 52 6d 61 73 6b 20 75 69 6e 74 33 32 29 20 28 47 Rmask uint32) (G 0080: 6d 61 73 6b 20 75 69 6e 74 33 32 29 20 28 42 6d mask uint32) (Bm 0090: 61 73 6b 20 75 69 6e 74 33 32 29 20 28 41 6d 61 ask uint32) (Ama 00a0: 73 6b 20 75 69 6e 74 33 32 29 29 20 22 53 44 4c sk uint32)) "SDL 00b0: 5f 43 72 65 61 74 65 52 47 42 53 75 72 66 61 63 _CreateRGBSurfac 00c0: 65 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d e").(define-sdl- 00d0: 66 75 6e 63 20 28 2a 20 73 64 6c 2d 73 75 72 66 func (* sdl-surf 00e0: 61 63 65 2d 74 29 20 73 64 6c 2d 63 72 65 61 74 ace-t) sdl-creat 00f0: 65 2d 72 67 62 2d 73 75 72 66 61 63 65 2d 77 69 e-rgb-surface-wi 0100: 74 68 2d 66 6f 72 6d 61 74 20 28 28 66 6c 61 67 th-format ((flag 0110: 73 20 75 69 6e 74 33 32 29 20 28 77 69 64 74 68 s uint32) (width 0120: 20 69 6e 74 29 20 28 68 65 69 67 68 74 20 69 6e int) (height in 0130: 74 29 20 28 64 65 70 74 68 20 69 6e 74 29 20 28 t) (depth int) ( 0140: 66 6f 72 6d 61 74 20 75 69 6e 74 33 32 29 29 20 format uint32)) 0150: 22 53 44 4c 5f 43 72 65 61 74 65 52 47 42 53 75 "SDL_CreateRGBSu 0160: 72 66 61 63 65 57 69 74 68 46 6f 72 6d 61 74 22 rfaceWithFormat" 0170: 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 ).(define-sdl-fu 0180: 6e 63 20 28 2a 20 73 64 6c 2d 73 75 72 66 61 63 nc (* sdl-surfac 0190: 65 2d 74 29 20 73 64 6c 2d 63 72 65 61 74 65 2d e-t) sdl-create- 01a0: 72 67 62 2d 73 75 72 66 61 63 65 2d 66 72 6f 6d rgb-surface-from 01b0: 20 28 28 70 69 78 65 6c 73 20 76 6f 69 64 2a 29 ((pixels void*) 01c0: 20 28 77 69 64 74 68 20 69 6e 74 29 20 28 68 65 (width int) (he 01d0: 69 67 68 74 20 69 6e 74 29 20 28 64 65 70 74 68 ight int) (depth 01e0: 20 69 6e 74 29 20 28 70 69 74 63 68 20 69 6e 74 int) (pitch int 01f0: 29 20 28 52 6d 61 73 6b 20 75 69 6e 74 33 32 29 ) (Rmask uint32) 0200: 20 28 47 6d 61 73 6b 20 75 69 6e 74 33 32 29 20 (Gmask uint32) 0210: 28 42 6d 61 73 6b 20 75 69 6e 74 33 32 29 20 28 (Bmask uint32) ( 0220: 41 6d 61 73 6b 20 75 69 6e 74 33 32 29 29 20 22 Amask uint32)) " 0230: 53 44 4c 5f 43 72 65 61 74 65 52 47 42 53 75 72 SDL_CreateRGBSur 0240: 66 61 63 65 46 72 6f 6d 22 29 0a 28 64 65 66 69 faceFrom").(defi 0250: 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 28 2a 20 73 ne-sdl-func (* s 0260: 64 6c 2d 73 75 72 66 61 63 65 2d 74 29 20 73 64 dl-surface-t) sd 0270: 6c 2d 63 72 65 61 74 65 2d 72 67 62 2d 73 75 72 l-create-rgb-sur 0280: 66 61 63 65 2d 77 69 74 68 2d 66 6f 72 6d 61 74 face-with-format 0290: 2d 66 72 6f 6d 20 28 28 70 69 78 65 6c 73 20 76 -from ((pixels v 02a0: 6f 69 64 2a 29 20 28 77 69 64 74 68 20 69 6e 74 oid*) (width int 02b0: 29 20 28 68 65 69 67 68 74 20 69 6e 74 29 20 28 ) (height int) ( 02c0: 64 65 70 74 68 20 69 6e 74 29 20 28 70 69 74 63 depth int) (pitc 02d0: 68 20 69 6e 74 29 20 28 66 6f 72 6d 61 74 20 75 h int) (format u 02e0: 69 6e 74 33 32 29 29 20 22 53 44 4c 5f 43 72 65 int32)) "SDL_Cre 02f0: 61 74 65 52 47 42 53 75 72 66 61 63 65 57 69 74 ateRGBSurfaceWit 0300: 68 46 6f 72 6d 61 74 46 72 6f 6d 22 29 0a 28 64 hFormatFrom").(d 0310: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 efine-sdl-func v 0320: 6f 69 64 20 73 64 6c 2d 66 72 65 65 2d 73 75 72 oid sdl-free-sur 0330: 66 61 63 65 20 28 28 73 75 72 66 61 63 65 20 28 face ((surface ( 0340: 2a 20 73 64 6c 2d 73 75 72 66 61 63 65 2d 74 29 * sdl-surface-t) 0350: 29 29 20 22 53 44 4c 5f 46 72 65 65 53 75 72 66 )) "SDL_FreeSurf 0360: 61 63 65 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 ace").(define-sd 0370: 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 73 l-func int sdl-s 0380: 65 74 2d 73 75 72 66 61 63 65 2d 70 61 6c 65 74 et-surface-palet 0390: 74 65 20 28 28 73 75 72 66 61 63 65 20 28 2a 20 te ((surface (* 03a0: 73 64 6c 2d 73 75 72 66 61 63 65 2d 74 29 29 20 sdl-surface-t)) 03b0: 28 70 61 6c 65 74 74 65 20 28 2a 20 73 64 6c 2d (palette (* sdl- 03c0: 70 61 6c 65 74 74 65 2d 74 29 29 29 20 22 53 44 palette-t))) "SD 03d0: 4c 5f 53 65 74 53 75 72 66 61 63 65 50 61 6c 65 L_SetSurfacePale 03e0: 74 74 65 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 tte").(define-sd 03f0: 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 6c l-func int sdl-l 0400: 6f 63 6b 2d 73 75 72 66 61 63 65 20 28 28 73 75 ock-surface ((su 0410: 72 66 61 63 65 20 28 2a 20 73 64 6c 2d 73 75 72 rface (* sdl-sur 0420: 66 61 63 65 2d 74 29 29 29 20 22 53 44 4c 5f 4c face-t))) "SDL_L 0430: 6f 63 6b 53 75 72 66 61 63 65 22 29 0a 28 64 65 ockSurface").(de 0440: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 76 6f fine-sdl-func vo 0450: 69 64 20 73 64 6c 2d 75 6e 6c 6f 63 6b 2d 73 75 id sdl-unlock-su 0460: 72 66 61 63 65 20 28 28 73 75 72 66 61 63 65 20 rface ((surface 0470: 28 2a 20 73 64 6c 2d 73 75 72 66 61 63 65 2d 74 (* sdl-surface-t 0480: 29 29 29 20 22 53 44 4c 5f 55 6e 6c 6f 63 6b 53 ))) "SDL_UnlockS 0490: 75 72 66 61 63 65 22 29 0a 28 64 65 66 69 6e 65 urface").(define 04a0: 2d 73 64 6c 2d 66 75 6e 63 20 28 2a 20 73 64 6c -sdl-func (* sdl 04b0: 2d 73 75 72 66 61 63 65 2d 74 29 20 73 64 6c 2d -surface-t) sdl- 04c0: 6c 6f 61 64 2d 62 6d 70 2d 72 77 20 28 28 73 72 load-bmp-rw ((sr 04d0: 63 20 28 2a 20 73 64 6c 2d 72 77 2d 6f 70 73 2d c (* sdl-rw-ops- 04e0: 74 29 29 20 28 66 72 65 65 73 72 63 20 69 6e 74 t)) (freesrc int 04f0: 29 29 20 22 53 44 4c 5f 4c 6f 61 64 42 4d 50 5f )) "SDL_LoadBMP_ 0500: 52 57 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c RW").(define-sdl 0510: 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 73 61 -func int sdl-sa 0520: 76 65 2d 62 6d 70 2d 72 77 20 28 28 73 75 72 66 ve-bmp-rw ((surf 0530: 61 63 65 20 28 2a 20 73 64 6c 2d 73 75 72 66 61 ace (* sdl-surfa 0540: 63 65 2d 74 29 29 20 28 64 73 74 20 28 2a 20 73 ce-t)) (dst (* s 0550: 64 6c 2d 72 77 2d 6f 70 73 2d 74 29 29 20 28 66 dl-rw-ops-t)) (f 0560: 72 65 65 64 73 74 20 69 6e 74 29 29 20 22 53 44 reedst int)) "SD 0570: 4c 5f 53 61 76 65 42 4d 50 5f 52 57 22 29 0a 28 L_SaveBMP_RW").( 0580: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func 0590: 69 6e 74 20 73 64 6c 2d 73 65 74 2d 73 75 72 66 int sdl-set-surf 05a0: 61 63 65 2d 72 6c 65 20 28 28 73 75 72 66 61 63 ace-rle ((surfac 05b0: 65 20 28 2a 20 73 64 6c 2d 73 75 72 66 61 63 65 e (* sdl-surface 05c0: 2d 74 29 29 20 28 66 6c 61 67 20 69 6e 74 29 29 -t)) (flag int)) 05d0: 20 22 53 44 4c 5f 53 65 74 53 75 72 66 61 63 65 "SDL_SetSurface 05e0: 52 4c 45 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 RLE").(define-sd 05f0: 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 73 l-func int sdl-s 0600: 65 74 2d 63 6f 6c 6f 72 2d 6b 65 79 20 28 28 73 et-color-key ((s 0610: 75 72 66 61 63 65 20 28 2a 20 73 64 6c 2d 73 75 urface (* sdl-su 0620: 72 66 61 63 65 2d 74 29 29 20 28 66 6c 61 67 20 rface-t)) (flag 0630: 69 6e 74 29 20 28 6b 65 79 20 75 69 6e 74 33 32 int) (key uint32 0640: 29 29 20 22 53 44 4c 5f 53 65 74 43 6f 6c 6f 72 )) "SDL_SetColor 0650: 4b 65 79 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 Key").(define-sd 0660: 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 67 l-func int sdl-g 0670: 65 74 2d 63 6f 6c 6f 72 2d 6b 65 79 20 28 28 73 et-color-key ((s 0680: 75 72 66 61 63 65 20 28 2a 20 73 64 6c 2d 73 75 urface (* sdl-su 0690: 72 66 61 63 65 2d 74 29 29 20 28 6b 65 79 20 28 rface-t)) (key ( 06a0: 2a 20 75 69 6e 74 33 32 29 29 29 20 22 53 44 4c * uint32))) "SDL 06b0: 5f 47 65 74 43 6f 6c 6f 72 4b 65 79 22 29 0a 28 _GetColorKey").( 06c0: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func 06d0: 69 6e 74 20 73 64 6c 2d 73 65 74 2d 73 75 72 66 int sdl-set-surf 06e0: 61 63 65 2d 63 6f 6c 6f 72 2d 6d 6f 64 20 28 28 ace-color-mod (( 06f0: 73 75 72 66 61 63 65 20 28 2a 20 73 64 6c 2d 73 surface (* sdl-s 0700: 75 72 66 61 63 65 2d 74 29 29 20 28 72 20 75 69 urface-t)) (r ui 0710: 6e 74 38 29 20 28 67 20 75 69 6e 74 38 29 20 28 nt8) (g uint8) ( 0720: 62 20 75 69 6e 74 38 29 29 20 22 53 44 4c 5f 53 b uint8)) "SDL_S 0730: 65 74 53 75 72 66 61 63 65 43 6f 6c 6f 72 4d 6f etSurfaceColorMo 0740: 64 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d d").(define-sdl- 0750: 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 67 65 74 func int sdl-get 0760: 2d 73 75 72 66 61 63 65 2d 63 6f 6c 6f 72 2d 6d -surface-color-m 0770: 6f 64 20 28 28 73 75 72 66 61 63 65 20 28 2a 20 od ((surface (* 0780: 73 64 6c 2d 73 75 72 66 61 63 65 2d 74 29 29 20 sdl-surface-t)) 0790: 28 72 20 28 2a 20 75 69 6e 74 38 29 29 20 28 67 (r (* uint8)) (g 07a0: 20 28 2a 20 75 69 6e 74 38 29 29 20 28 62 20 28 (* uint8)) (b ( 07b0: 2a 20 75 69 6e 74 38 29 29 29 20 22 53 44 4c 5f * uint8))) "SDL_ 07c0: 47 65 74 53 75 72 66 61 63 65 43 6f 6c 6f 72 4d GetSurfaceColorM 07d0: 6f 64 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c od").(define-sdl 07e0: 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 73 65 -func int sdl-se 07f0: 74 2d 73 75 72 66 61 63 65 2d 61 6c 70 68 61 2d t-surface-alpha- 0800: 6d 6f 64 20 28 28 73 75 72 66 61 63 65 20 28 2a mod ((surface (* 0810: 20 73 64 6c 2d 73 75 72 66 61 63 65 2d 74 29 29 sdl-surface-t)) 0820: 20 28 61 6c 70 68 61 20 75 69 6e 74 38 29 29 20 (alpha uint8)) 0830: 22 53 44 4c 5f 53 65 74 53 75 72 66 61 63 65 41 "SDL_SetSurfaceA 0840: 6c 70 68 61 4d 6f 64 22 29 0a 28 64 65 66 69 6e lphaMod").(defin 0850: 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 e-sdl-func int s 0860: 64 6c 2d 67 65 74 2d 73 75 72 66 61 63 65 2d 61 dl-get-surface-a 0870: 6c 70 68 61 2d 6d 6f 64 20 28 28 73 75 72 66 61 lpha-mod ((surfa 0880: 63 65 20 28 2a 20 73 64 6c 2d 73 75 72 66 61 63 ce (* sdl-surfac 0890: 65 2d 74 29 29 20 28 61 6c 70 68 61 20 28 2a 20 e-t)) (alpha (* 08a0: 75 69 6e 74 38 29 29 29 20 22 53 44 4c 5f 47 65 uint8))) "SDL_Ge 08b0: 74 53 75 72 66 61 63 65 41 6c 70 68 61 4d 6f 64 tSurfaceAlphaMod 08c0: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f 08d0: 75 6e 63 20 69 6e 74 20 73 64 6c 2d 73 65 74 2d unc int sdl-set- 08e0: 73 75 72 66 61 63 65 2d 62 6c 65 6e 64 2d 6d 6f surface-blend-mo 08f0: 64 65 20 28 28 73 75 72 66 61 63 65 20 28 2a 20 de ((surface (* 0900: 73 64 6c 2d 73 75 72 66 61 63 65 2d 74 29 29 20 sdl-surface-t)) 0910: 28 62 6c 65 6e 64 4d 6f 64 65 20 73 64 6c 2d 62 (blendMode sdl-b 0920: 6c 65 6e 64 2d 6d 6f 64 65 2d 74 29 29 20 22 53 lend-mode-t)) "S 0930: 44 4c 5f 53 65 74 53 75 72 66 61 63 65 42 6c 65 DL_SetSurfaceBle 0940: 6e 64 4d 6f 64 65 22 29 0a 28 64 65 66 69 6e 65 ndMode").(define 0950: 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 -sdl-func int sd 0960: 6c 2d 67 65 74 2d 73 75 72 66 61 63 65 2d 62 6c l-get-surface-bl 0970: 65 6e 64 2d 6d 6f 64 65 20 28 28 73 75 72 66 61 end-mode ((surfa 0980: 63 65 20 28 2a 20 73 64 6c 2d 73 75 72 66 61 63 ce (* sdl-surfac 0990: 65 2d 74 29 29 20 28 62 6c 65 6e 64 4d 6f 64 65 e-t)) (blendMode 09a0: 20 28 2a 20 73 64 6c 2d 62 6c 65 6e 64 2d 6d 6f (* sdl-blend-mo 09b0: 64 65 2d 74 29 29 29 20 22 53 44 4c 5f 47 65 74 de-t))) "SDL_Get 09c0: 53 75 72 66 61 63 65 42 6c 65 6e 64 4d 6f 64 65 SurfaceBlendMode 09d0: 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 ").(define-sdl-f 09e0: 75 6e 63 20 73 64 6c 2d 62 6f 6f 6c 2d 74 20 73 unc sdl-bool-t s 09f0: 64 6c 2d 73 65 74 2d 63 6c 69 70 2d 72 65 63 74 dl-set-clip-rect 0a00: 20 28 28 73 75 72 66 61 63 65 20 28 2a 20 73 64 ((surface (* sd 0a10: 6c 2d 73 75 72 66 61 63 65 2d 74 29 29 20 28 72 l-surface-t)) (r 0a20: 65 63 74 20 28 2a 20 73 64 6c 2d 72 65 63 74 2d ect (* sdl-rect- 0a30: 74 29 29 29 20 22 53 44 4c 5f 53 65 74 43 6c 69 t))) "SDL_SetCli 0a40: 70 52 65 63 74 22 29 0a 28 64 65 66 69 6e 65 2d pRect").(define- 0a50: 73 64 6c 2d 66 75 6e 63 20 76 6f 69 64 20 73 64 sdl-func void sd 0a60: 6c 2d 67 65 74 2d 63 6c 69 70 2d 72 65 63 74 20 l-get-clip-rect 0a70: 28 28 73 75 72 66 61 63 65 20 28 2a 20 73 64 6c ((surface (* sdl 0a80: 2d 73 75 72 66 61 63 65 2d 74 29 29 20 28 72 65 -surface-t)) (re 0a90: 63 74 20 28 2a 20 73 64 6c 2d 72 65 63 74 2d 74 ct (* sdl-rect-t 0aa0: 29 29 29 20 22 53 44 4c 5f 47 65 74 43 6c 69 70 ))) "SDL_GetClip 0ab0: 52 65 63 74 22 29 0a 28 64 65 66 69 6e 65 2d 73 Rect").(define-s 0ac0: 64 6c 2d 66 75 6e 63 20 28 2a 20 73 64 6c 2d 73 dl-func (* sdl-s 0ad0: 75 72 66 61 63 65 2d 74 29 20 73 64 6c 2d 64 75 urface-t) sdl-du 0ae0: 70 6c 69 63 61 74 65 2d 73 75 72 66 61 63 65 20 plicate-surface 0af0: 28 28 73 75 72 66 61 63 65 20 28 2a 20 73 64 6c ((surface (* sdl 0b00: 2d 73 75 72 66 61 63 65 2d 74 29 29 29 20 22 53 -surface-t))) "S 0b10: 44 4c 5f 44 75 70 6c 69 63 61 74 65 53 75 72 66 DL_DuplicateSurf 0b20: 61 63 65 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 ace").(define-sd 0b30: 6c 2d 66 75 6e 63 20 28 2a 20 73 64 6c 2d 73 75 l-func (* sdl-su 0b40: 72 66 61 63 65 2d 74 29 20 73 64 6c 2d 63 6f 6e rface-t) sdl-con 0b50: 76 65 72 74 2d 73 75 72 66 61 63 65 20 28 28 73 vert-surface ((s 0b60: 72 63 20 28 2a 20 73 64 6c 2d 73 75 72 66 61 63 rc (* sdl-surfac 0b70: 65 2d 74 29 29 20 28 66 6d 74 20 28 2a 20 73 64 e-t)) (fmt (* sd 0b80: 6c 2d 70 69 78 65 6c 2d 66 6f 72 6d 61 74 2d 74 l-pixel-format-t 0b90: 29 29 20 28 66 6c 61 67 73 20 75 69 6e 74 33 32 )) (flags uint32 0ba0: 29 29 20 22 53 44 4c 5f 43 6f 6e 76 65 72 74 53 )) "SDL_ConvertS 0bb0: 75 72 66 61 63 65 22 29 0a 28 64 65 66 69 6e 65 urface").(define 0bc0: 2d 73 64 6c 2d 66 75 6e 63 20 28 2a 20 73 64 6c -sdl-func (* sdl 0bd0: 2d 73 75 72 66 61 63 65 2d 74 29 20 73 64 6c 2d -surface-t) sdl- 0be0: 63 6f 6e 76 65 72 74 2d 73 75 72 66 61 63 65 2d convert-surface- 0bf0: 66 6f 72 6d 61 74 20 28 28 73 72 63 20 28 2a 20 format ((src (* 0c00: 73 64 6c 2d 73 75 72 66 61 63 65 2d 74 29 29 20 sdl-surface-t)) 0c10: 28 70 69 78 65 6c 5f 66 6f 72 6d 61 74 20 75 69 (pixel_format ui 0c20: 6e 74 33 32 29 20 28 66 6c 61 67 73 20 75 69 6e nt32) (flags uin 0c30: 74 33 32 29 29 20 22 53 44 4c 5f 43 6f 6e 76 65 t32)) "SDL_Conve 0c40: 72 74 53 75 72 66 61 63 65 46 6f 72 6d 61 74 22 rtSurfaceFormat" 0c50: 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 ).(define-sdl-fu 0c60: 6e 63 20 69 6e 74 20 73 64 6c 2d 63 6f 6e 76 65 nc int sdl-conve 0c70: 72 74 2d 70 69 78 65 6c 73 20 28 28 77 69 64 74 rt-pixels ((widt 0c80: 68 20 69 6e 74 29 20 28 68 65 69 67 68 74 20 69 h int) (height i 0c90: 6e 74 29 20 28 73 72 63 5f 66 6f 72 6d 61 74 20 nt) (src_format 0ca0: 75 69 6e 74 33 32 29 20 28 73 72 63 20 76 6f 69 uint32) (src voi 0cb0: 64 2a 29 20 28 73 72 63 5f 70 69 74 63 68 20 69 d*) (src_pitch i 0cc0: 6e 74 29 20 28 64 73 74 5f 66 6f 72 6d 61 74 20 nt) (dst_format 0cd0: 75 69 6e 74 33 32 29 20 28 64 73 74 20 76 6f 69 uint32) (dst voi 0ce0: 64 2a 29 20 28 64 73 74 5f 70 69 74 63 68 20 69 d*) (dst_pitch i 0cf0: 6e 74 29 29 20 22 53 44 4c 5f 43 6f 6e 76 65 72 nt)) "SDL_Conver 0d00: 74 50 69 78 65 6c 73 22 29 0a 28 64 65 66 69 6e tPixels").(defin 0d10: 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 20 73 e-sdl-func int s 0d20: 64 6c 2d 66 69 6c 6c 2d 72 65 63 74 20 28 28 64 dl-fill-rect ((d 0d30: 73 74 20 28 2a 20 73 64 6c 2d 73 75 72 66 61 63 st (* sdl-surfac 0d40: 65 2d 74 29 29 20 28 72 65 63 74 20 28 2a 20 73 e-t)) (rect (* s 0d50: 64 6c 2d 72 65 63 74 2d 74 29 29 20 28 63 6f 6c dl-rect-t)) (col 0d60: 6f 72 20 75 69 6e 74 33 32 29 29 20 22 53 44 4c or uint32)) "SDL 0d70: 5f 46 69 6c 6c 52 65 63 74 22 29 0a 28 64 65 66 _FillRect").(def 0d80: 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 ine-sdl-func int 0d90: 20 73 64 6c 2d 66 69 6c 6c 2d 72 65 63 74 73 20 sdl-fill-rects 0da0: 28 28 64 73 74 20 28 2a 20 73 64 6c 2d 73 75 72 ((dst (* sdl-sur 0db0: 66 61 63 65 2d 74 29 29 20 28 72 65 63 74 73 20 face-t)) (rects 0dc0: 28 2a 20 73 64 6c 2d 72 65 63 74 2d 74 29 29 20 (* sdl-rect-t)) 0dd0: 28 63 6f 75 6e 74 20 69 6e 74 29 20 28 63 6f 6c (count int) (col 0de0: 6f 72 20 75 69 6e 74 33 32 29 29 20 22 53 44 4c or uint32)) "SDL 0df0: 5f 46 69 6c 6c 52 65 63 74 73 22 29 0a 28 64 65 _FillRects").(de 0e00: 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e fine-sdl-func in 0e10: 74 20 73 64 6c 2d 75 70 70 65 72 2d 62 6c 69 74 t sdl-upper-blit 0e20: 20 28 28 73 72 63 20 28 2a 20 73 64 6c 2d 73 75 ((src (* sdl-su 0e30: 72 66 61 63 65 2d 74 29 29 20 28 73 72 63 72 65 rface-t)) (srcre 0e40: 63 74 20 28 2a 20 73 64 6c 2d 72 65 63 74 2d 74 ct (* sdl-rect-t 0e50: 29 29 20 28 64 73 74 20 28 2a 20 73 64 6c 2d 73 )) (dst (* sdl-s 0e60: 75 72 66 61 63 65 2d 74 29 29 20 28 64 73 74 72 urface-t)) (dstr 0e70: 65 63 74 20 28 2a 20 73 64 6c 2d 72 65 63 74 2d ect (* sdl-rect- 0e80: 74 29 29 29 20 22 53 44 4c 5f 55 70 70 65 72 42 t))) "SDL_UpperB 0e90: 6c 69 74 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 lit").(define-sd 0ea0: 6c 2d 66 75 6e 63 20 69 6e 74 20 73 64 6c 2d 6c l-func int sdl-l 0eb0: 6f 77 65 72 2d 62 6c 69 74 20 28 28 73 72 63 20 ower-blit ((src 0ec0: 28 2a 20 73 64 6c 2d 73 75 72 66 61 63 65 2d 74 (* sdl-surface-t 0ed0: 29 29 20 28 73 72 63 72 65 63 74 20 28 2a 20 73 )) (srcrect (* s 0ee0: 64 6c 2d 72 65 63 74 2d 74 29 29 20 28 64 73 74 dl-rect-t)) (dst 0ef0: 20 28 2a 20 73 64 6c 2d 73 75 72 66 61 63 65 2d (* sdl-surface- 0f00: 74 29 29 20 28 64 73 74 72 65 63 74 20 28 2a 20 t)) (dstrect (* 0f10: 73 64 6c 2d 72 65 63 74 2d 74 29 29 29 20 22 53 sdl-rect-t))) "S 0f20: 44 4c 5f 4c 6f 77 65 72 42 6c 69 74 22 29 0a 28 DL_LowerBlit").( 0f30: 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 define-sdl-func 0f40: 69 6e 74 20 73 64 6c 2d 73 6f 66 74 2d 73 74 72 int sdl-soft-str 0f50: 65 74 63 68 20 28 28 73 72 63 20 28 2a 20 73 64 etch ((src (* sd 0f60: 6c 2d 73 75 72 66 61 63 65 2d 74 29 29 20 28 73 l-surface-t)) (s 0f70: 72 63 72 65 63 74 20 28 2a 20 73 64 6c 2d 72 65 rcrect (* sdl-re 0f80: 63 74 2d 74 29 29 20 28 64 73 74 20 28 2a 20 73 ct-t)) (dst (* s 0f90: 64 6c 2d 73 75 72 66 61 63 65 2d 74 29 29 20 28 dl-surface-t)) ( 0fa0: 64 73 74 72 65 63 74 20 28 2a 20 73 64 6c 2d 72 dstrect (* sdl-r 0fb0: 65 63 74 2d 74 29 29 29 20 22 53 44 4c 5f 53 6f ect-t))) "SDL_So 0fc0: 66 74 53 74 72 65 74 63 68 22 29 0a 28 64 65 66 ftStretch").(def 0fd0: 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 69 6e 74 ine-sdl-func int 0fe0: 20 73 64 6c 2d 75 70 70 65 72 2d 62 6c 69 74 2d sdl-upper-blit- 0ff0: 73 63 61 6c 65 64 20 28 28 73 72 63 20 28 2a 20 scaled ((src (* 1000: 73 64 6c 2d 73 75 72 66 61 63 65 2d 74 29 29 20 sdl-surface-t)) 1010: 28 73 72 63 72 65 63 74 20 28 2a 20 73 64 6c 2d (srcrect (* sdl- 1020: 72 65 63 74 2d 74 29 29 20 28 64 73 74 20 28 2a rect-t)) (dst (* 1030: 20 73 64 6c 2d 73 75 72 66 61 63 65 2d 74 29 29 sdl-surface-t)) 1040: 20 28 64 73 74 72 65 63 74 20 28 2a 20 73 64 6c (dstrect (* sdl 1050: 2d 72 65 63 74 2d 74 29 29 29 20 22 53 44 4c 5f -rect-t))) "SDL_ 1060: 55 70 70 65 72 42 6c 69 74 53 63 61 6c 65 64 22 UpperBlitScaled" 1070: 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 ).(define-sdl-fu 1080: 6e 63 20 69 6e 74 20 73 64 6c 2d 6c 6f 77 65 72 nc int sdl-lower 1090: 2d 62 6c 69 74 2d 73 63 61 6c 65 64 20 28 28 73 -blit-scaled ((s 10a0: 72 63 20 28 2a 20 73 64 6c 2d 73 75 72 66 61 63 rc (* sdl-surfac 10b0: 65 2d 74 29 29 20 28 73 72 63 72 65 63 74 20 28 e-t)) (srcrect ( 10c0: 2a 20 73 64 6c 2d 72 65 63 74 2d 74 29 29 20 28 * sdl-rect-t)) ( 10d0: 64 73 74 20 28 2a 20 73 64 6c 2d 73 75 72 66 61 dst (* sdl-surfa 10e0: 63 65 2d 74 29 29 20 28 64 73 74 72 65 63 74 20 ce-t)) (dstrect 10f0: 28 2a 20 73 64 6c 2d 72 65 63 74 2d 74 29 29 29 (* sdl-rect-t))) 1100: 20 22 53 44 4c 5f 4c 6f 77 65 72 42 6c 69 74 53 "SDL_LowerBlitS 1110: 63 61 6c 65 64 22 29 0a caled").