Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv10906
Modified Files: textmode.lisp Log Message: Tweaked textmode-scroll-down.
Date: Thu Jul 29 05:48:35 2004 Author: ffjeld
Index: movitz/losp/x86-pc/textmode.lisp diff -u movitz/losp/x86-pc/textmode.lisp:1.8 movitz/losp/x86-pc/textmode.lisp:1.9 --- movitz/losp/x86-pc/textmode.lisp:1.8 Mon Jul 12 02:12:40 2004 +++ movitz/losp/x86-pc/textmode.lisp Thu Jul 29 05:48:35 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Thu Nov 9 15:38:56 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: textmode.lisp,v 1.8 2004/07/12 09:12:40 ffjeld Exp $ +;;;; $Id: textmode.lisp,v 1.9 2004/07/29 12:48:35 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -127,10 +127,11 @@ (declare (special muerte.lib::*scroll-offset*)) (incf muerte.lib::*scroll-offset*) (loop with stride = (* 2 *screen-stride*) - for y below *screen-height* + for y below (1- *screen-height*) as src from (+ *screen* stride) by stride as dst from *screen* by stride - do (textmode-copy-line dst src *screen-width*)) + do (textmode-copy-line dst src *screen-width*) + finally (textmode-clear-line 0 (1- *screen-height*))) (signal 'newline))
(defun textmode-clear-line (from-column line)