X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela.lisp;h=9663a82d1028b8a9feaa8594a187cf05c46a5e09;hb=02026932e3ecf2ff041a8a0389cf6c077df3e49d;hp=5cb515a136798f745a03e9ba27dcabab65cf0556;hpb=e1ff0e053ac905d71ed73cc7b0cefae3120cb0d1;p=gacela.git

diff --git a/gacela.lisp b/gacela.lisp
index 5cb515a..9663a82 100644
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -126,6 +126,14 @@
     (glLoadIdentity)
     t))
 
+(let ((current-color '(1 1 1 1)))
+  (defun get-current-color ()
+    current-color)
+
+  (defun set-current-color (red green blue &optional (alpha 1))
+    (setq current-color (list red green blue alpha))
+    (glColor4f red green blue alpha)))
+
 (defun copy-surface (source)
   (cond ((surface-p source)
 	 (let ((new-surface
@@ -304,18 +312,6 @@
 
 
 ;;; GaCeLa Functions
-;(defun game-loop (code)
-;  (process-events)
-;  (cond ((quit?) nil)
-;	(t
-;	 (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
-;	 (glLoadIdentity)
-;	 (translate 0 0 *zoom*)
-;	 (funcall code)
-;	 (SDL_GL_SwapBuffers)
-;	 (SDL_Delay (- *gacela-freq* (rem (SDL_GetTicks) *gacela-freq*)))
-;	 (game-loop code))))
-
 (let (commands)
   (defun prog-command (command)
     (setq commands (cons command commands)))
@@ -359,19 +355,6 @@
 	 (process-events)
 	 (setq running nil))))
 
-;(defun run-game ()
-;  (init-video-mode)
-;  (SDL_WM_SetCaption *title-screen* "")
-;  (refresh-active-procs)
-;  (enjoy!)
-;  (do () ((quit?))
-;      (process-events)
-;      (logic-procs)
-;      (motion-procs)
-;      (refresh-active-procs)
-;      (refresh-screen)
-;      (SDL_Delay (- *gacela-freq* (rem (SDL_GetTicks) *gacela-freq*)))))
-
 (defun quit-game ()
 ;  (free-all-resources)
 ;  (quit-audio)