Changeset 20649 in project for demonstrations
- Timestamp:
- 10/04/10 22:36:16 (9 years ago)
- Location:
- demonstrations/foreign-functions
- Files:
-
- 1 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
demonstrations/foreign-functions/squares-bind.scm
r20640 r20649 2 2 3 3 4 (use foreigners bind )4 (use foreigners bind extras) 5 5 6 6 … … 20 20 21 21 (define-foreign-variable SDL_INIT_VIDEO int) 22 (define-foreign-variable SDL_ DOUBLEBUFint)22 (define-foreign-variable SDL_SWSURFACE int) 23 23 (define-foreign-variable SDL_QUIT int) 24 24 (define-foreign-variable SDL_KEYDOWN int) … … 50 50 (bind #<<EOF 51 51 52 int SDL_ init(unsigned int);53 SDL_Surface *SDL_SetVideoMode(int, int, int, u int32_t);54 void SDL_FillRect(SDL_Surface *, SDL_Rect *, u int32_t);52 int SDL_Init(unsigned int); 53 SDL_Surface *SDL_SetVideoMode(int, int, int, unsigned int); 54 void SDL_FillRect(SDL_Surface *, SDL_Rect *, unsigned int); 55 55 void SDL_Flip(SDL_Surface *); 56 56 ___bool SDL_PollEvent(SDL_Event *); 57 unsigned int SDL_MapRGB(SDL_PixelFormat *, int, int, int); 58 59 EOF 60 ) 57 61 58 62 … … 89 93 90 94 (define (main #!optional (count 100)) 91 (let ((screen (SDL_SetVideoMode 800 600 0 SDL_ DOUBLEBUF)))95 (let ((screen (SDL_SetVideoMode 800 600 0 SDL_SWSURFACE))) 92 96 (draw screen count))) 93 97 -
demonstrations/foreign-functions/squares-plain.scm
r20640 r20649 1 1 ;;;; squares-plain.scm - draw random squares 2 3 4 (use extras) 2 5 3 6 … … 17 20 18 21 (define-foreign-variable SDL_INIT_VIDEO int) 19 (define-foreign-variable SDL_ DOUBLEBUF int)22 (define-foreign-variable SDL_SWSURFACE unsigned-int32) 20 23 (define-foreign-variable SDL_QUIT int) 21 24 (define-foreign-variable SDL_KEYDOWN int) … … 87 90 (foreign-lambda bool "SDL_PollEvent" sdl-event)) 88 91 92 (define SDL_MapRGB 93 (foreign-lambda unsigned-int32 "SDL_MapRGB" sdl-pixel-format int int int)) 94 89 95 90 96 ;;; initialize SDL … … 120 126 121 127 (define (main #!optional (count 100)) 122 (let ((screen (SDL_SetVideoMode 800 600 0 SDL_ DOUBLEBUF)))128 (let ((screen (SDL_SetVideoMode 800 600 0 SDL_SWSURFACE))) 123 129 (draw screen count))) 124 130
Note: See TracChangeset
for help on using the changeset viewer.