Merge pull request #2 from sparkecho/master

Replace incompatible images.
TatriX · Apr 27, 2017 · 983ac86 · 983ac86
2 parents a03a77f + a08f05e
commit 983ac86
Show file tree

Hide file tree

Showing 10 changed files with 5 additions and 3 deletions.
diff --git a/2/hello.bmp → 2/hello_world.bmp b/2/hello.bmp → 2/hello_world.bmp
diff --git a/2/main.lisp b/2/main.lisp
@@ -19,7 +19,7 @@
 
 (defun main(&key (delay 2000))
   (with-window-surface (window screen-surface)
-    (sdl2:blit-surface (sdl2:load-bmp "2/hello.bmp")
+    (sdl2:blit-surface (sdl2:load-bmp "2/hello_world.bmp")
                        nil
                        screen-surface
                        nil)

diff --git a/3/exit.bmp b/3/exit.bmp
diff --git a/3/main.lisp b/3/main.lisp
@@ -24,4 +24,5 @@
         (:quit () t)
         (:idle ()
                (sdl2:blit-surface image nil screen-surface nil)
-               (sdl2:update-window window))))))
+               (sdl2:update-window window)
+               (sdl2:delay 100))))))    ;reduce cpu usage
diff --git a/4/down.bmp b/4/down.bmp
diff --git a/4/left.bmp b/4/left.bmp
diff --git a/4/main.lisp b/4/main.lisp
@@ -39,4 +39,5 @@
                     (t (setf image (getf images :default)))))
         (:idle ()
                (sdl2:blit-surface image nil screen-surface nil)
-               (sdl2:update-window window))))))
+               (sdl2:update-window window)
+               (sdl2:delay 100))))))    ;reduce cpu usage
diff --git a/4/press.bmp b/4/press.bmp
diff --git a/4/right.bmp b/4/right.bmp
diff --git a/4/up.bmp b/4/up.bmp