From: jsancho <devnull@localhost>
Date: Sun, 6 Dec 2009 07:14:41 +0000 (+0000)
Subject: (no commit message)
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=48a92156cd64faa98896bf82cdafad27987bc5cb;p=gacela.git

---

diff --git a/gacela.lisp b/gacela.lisp
index b5d611d..9f56389 100644
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -84,7 +84,9 @@
     (cond ((not (3d-mode?))
 	   (setq mode '3d)
 	   (init-video-mode)
+	   (glClearDepth 1)
 	   (glEnable GL_DEPTH_TEST)
+	   (glDepthFunc GL_LEQUAL)
 	   (apply-mode-change))))
 
   (defun 3d-mode? ()
@@ -93,8 +95,8 @@
 (defun init-GL ()
   (glShadeModel GL_SMOOTH)
   (glClearColor 0 0 0 0)
-  (glClearDepth 1)
-  (glDepthFunc GL_LEQUAL)
+;  (glClearDepth 1)
+;  (glDepthFunc GL_LEQUAL)
 ;  (glEnable GL_BLEND)
 ;  (glBlendFunc GL_SRC_ALPHA GL_ONE)
   (glHint GL_PERSPECTIVE_CORRECTION_HINT GL_NICEST)
@@ -209,12 +211,16 @@
     (maphash (lambda (key res) (free-resource key)) resources-table)))
 
 
-;;; Connection with Gacela Skin
-(let (socket)
-  (defun start-skin-client (port)
-    (when (null socket) (setq socket (si::socket port :host "localhost"))))
+;;; Connection with Gacela Skin Clients
+(let (server-socket clients)
+  (defun start-skin-server (port)
+    (cond ((null server-socket) (setq server-socket (si::socket port :server #'check-skin-connections)))))
+
+  (defun check-skin-connections ()
+    (cond ((listen server-socket) (setq clients (cons (si::accept server-socket) clients)))))
 
   (defun eval-from-skin ()
+    
     (when (si::listen socket)
       (secure-block socket (eval (read socket)))))