[pal-cvs] CVS pal

[tneste]

Update of /project/pal/cvsroot/pal
In directory clnet:/tmp/cvs-serv16401

Modified Files:
	pal.lisp todo.txt 
Log Message:
Improved FPS limiter

--- /project/pal/cvsroot/pal/pal.lisp	2007/08/15 14:36:21	1.26
+++ /project/pal/cvsroot/pal/pal.lisp	2007/08/30 09:02:24	1.27
@@ -1,7 +1,6 @@
 ;; Notes:
-;; smoothed polygons, guess circle segment count, add start/end args to draw-circle, use triangle-fan
+;; calculate circle segment count, add start/end args to draw-circle, use triangle-fan for circles
 ;; calculate max-texture-size
-;; fix the fps
 ;; check for redundant close-quads, make sure rotations etc. are optimised.
 ;; newline support for draw-text
 ;; optimise gl state handling
@@ -225,10 +224,10 @@
 (defun update-screen ()
   (setf *new-fps* (max 1 (the fixnum (- (pal-ffi:get-tick) *ticks*))))
   (setf *fps* (truncate (+ *fps* *new-fps*) 2))
-  (if (> *delay* 1)
+  (if (> *delay* 0)
       (decf *delay*))
   (when (< *fps* *max-fps*)
-    (incf *delay* 2))
+    (incf *delay* (- *max-fps* *fps*)))
   (setf *ticks* (pal-ffi:get-tick))
   (pal-ffi:delay *delay*)
   (if (or (eq t *cursor*) (eq nil *cursor*))
--- /project/pal/cvsroot/pal/todo.txt	2007/08/15 14:36:21	1.16
+++ /project/pal/cvsroot/pal/todo.txt	2007/08/30 09:02:24	1.17
@@ -9,8 +9,6 @@
 
 - Box/box/line/circle etc. overlap functions, faster v-dist.
 
-- Fix the FPS limiter, the results could be a lot smoother.
-
 - Correct aspect ratio when fullscreen on widescreen displays.
 
 - I would really like to see it run on OS X.