diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-12-13 22:51:33 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-12-13 22:51:33 -0500 |
| commit | 8a3a26bb77c61784dc426d4cc3dd66a8071b5e49 (patch) | |
| tree | 1ab00c798c1f62bb1854449547950308aab8fb4d /sdl2/bindings.scm | |
| parent | d4824b20c811ae859541de72ac971b070cf9f9d2 (diff) | |
Add a few surface bindings.
* sdl2/bindings.scm (sdl-rw-from-file, sdl-free-surface,
sdl-load-bmp-rw): New procedures.
* sdl2/surface.scm: New file.
* Makefile.am (SOURCES): Add it.
Diffstat (limited to 'sdl2/bindings.scm')
| -rw-r--r-- | sdl2/bindings.scm | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm index 8925e6f..64e4313 100644 --- a/sdl2/bindings.scm +++ b/sdl2/bindings.scm @@ -228,3 +228,22 @@ RETURN-TYPE and accept arguments of ARG-TYPES." (define-foreign sdl-get-ticks uint32 "SDL_GetTicks" '()) + + +;;; +;;; File I/O +;;; + +(define-foreign sdl-rw-from-file + '* "SDL_RWFromFile" (list '* '*)) + + +;;; +;;; Surface +;;; + +(define-foreign sdl-free-surface + void "SDL_FreeSurface" '(*)) + +(define-foreign sdl-load-bmp-rw + '* "SDL_LoadBMP_RW" (list '* int)) |