Changeset 20649 in project for demonstrations

Timestamp:

10/04/10 22:36:16 (9 years ago)

Author:

felix winkelmann

Message:

makefile, bugfixes

Location:

demonstrations/foreign-functions

Files:

• Makefile (added)
• squares-bind.scm (modified) (4 diffs)
• squares-plain.scm (modified) (4 diffs)

demonstrations/foreign-functions/squares-bind.scm

@@ -2 +2 @@
 
 
-(use foreigners bind)
+(use foreigners bind extras)
 
 
@@ -20 +20 @@
 
 (define-foreign-variable SDL_INIT_VIDEO int)
-(define-foreign-variable SDL_DOUBLEBUF int)
+(define-foreign-variable SDL_SWSURFACE int)
 (define-foreign-variable SDL_QUIT int)
 (define-foreign-variable SDL_KEYDOWN int)
@@ -50 +50 @@
 (bind #<<EOF
 
-int SDL_init(unsigned int);
-SDL_Surface *SDL_SetVideoMode(int, int, int, uint32_t);
-void SDL_FillRect(SDL_Surface *, SDL_Rect *, uint32_t);
+int SDL_Init(unsigned int);
+SDL_Surface *SDL_SetVideoMode(int, int, int, unsigned int);
+void SDL_FillRect(SDL_Surface *, SDL_Rect *, unsigned int);
 void SDL_Flip(SDL_Surface *);
 ___bool SDL_PollEvent(SDL_Event *);
+unsigned int SDL_MapRGB(SDL_PixelFormat *, int, int, int);
+
+EOF
+)
 
 
@@ -89 +93 @@
 
 (define (main #!optional (count 100))
-  (let ((screen (SDL_SetVideoMode 800 600 0 SDL_DOUBLEBUF)))
+  (let ((screen (SDL_SetVideoMode 800 600 0 SDL_SWSURFACE)))
     (draw screen count)))
 

demonstrations/foreign-functions/squares-plain.scm

@@ -1 +1 @@
 ;;;; squares-plain.scm - draw random squares
+
+
+(use extras)
 
 
@@ -17 +20 @@
 
 (define-foreign-variable SDL_INIT_VIDEO int)
-(define-foreign-variable SDL_DOUBLEBUF int)
+(define-foreign-variable SDL_SWSURFACE unsigned-int32)
 (define-foreign-variable SDL_QUIT int)
 (define-foreign-variable SDL_KEYDOWN int)
@@ -87 +90 @@
   (foreign-lambda bool "SDL_PollEvent" sdl-event))
 
+(define SDL_MapRGB
+  (foreign-lambda unsigned-int32 "SDL_MapRGB" sdl-pixel-format int int int))
+
 
 ;;; initialize SDL
@@ -120 +126 @@
 
 (define (main #!optional (count 100))
-  (let ((screen (SDL_SetVideoMode 800 600 0 SDL_DOUBLEBUF)))
+  (let ((screen (SDL_SetVideoMode 800 600 0 SDL_SWSURFACE)))
     (draw screen count)))