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.