? beaming.fasl
? buffer.fasl
? charmap.fasl
? cursor.fasl
? drawing.fasl
? gf.fasl
? glyphs.fasl
? gui.fasl
? input-state.fasl
? measure.fasl
? midi.fasl
? numbering.fasl
? packages.fasl
? postscript.fasl
? score-pane.fasl
? sdl.fasl
? utilities.fasl
? Fonts/sdl.log
? Fonts/sdl10.gf
? Fonts/sdl10.pk
? Fonts/sdl12.gf
? Fonts/sdl12.pk
? Fonts/sdl6.gf
? Fonts/sdl6.pk
? Fonts/sdl8.gf
? Fonts/sdl8.pk
? Obseq/obseq.fasl
? Scores/twinkle.gsh
Index: score-pane.lisp
===================================================================
RCS file: /project/gsharp/cvsroot/gsharp/score-pane.lisp,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 score-pane.lisp
--- score-pane.lisp	16 Feb 2004 15:46:21 -0000	1.1.1.1
+++ score-pane.lisp	24 Feb 2004 10:45:26 -0000
@@ -1,7 +1,11 @@
 (in-package :score-pane)
 
 (defclass score-pane (application-pane)
-  ((pixmaps :initform (make-hash-table :test #'eq) :reader pane-pixmaps)))
+  ((pixmaps :initform (make-hash-table :test #'eq) :reader pane-pixmaps)
+   (darker-gray-progressions :initform (make-array 10 :initial-element nil :adjustable t)
+			     :reader darker-gray-progressions)
+   (lighter-gray-progressions :initform (make-array 10 :initial-element nil :adjustable t)
+			      :reader lighter-gray-progressions)))
 
 (defmethod dispatch-event :before ((pane score-pane) (event pointer-enter-event))
   (let ((port (port pane)))
@@ -474,10 +478,8 @@
     (when (stream-drawing-p *pane*)
       (medium-draw-rectangle* medium x1 y1 x2 y2 t))))
 
-(defparameter *darker-gray-progressions*
-  (make-array 10 :initial-element nil :adjustable t))
-(defparameter *lighter-gray-progressions*
-  (make-array 10 :initial-element nil :adjustable t))
+(defvar *darker-gray-progressions*)
+(defvar *lighter-gray-progressions*)
 
 ;;; don't delete this yet, since I don't know how the other one will work out. 
 ;; (defun ensure-gray-progressions (index)
@@ -658,6 +660,8 @@
   (let ((pixmap (gensym))
 	(mirror (gensym)))
     `(let* ((*pane* ,pane)
+	    (*lighter-gray-progressions* (lighter-gray-progressions pane))
+	    (*darker-gray-progressions* (darker-gray-progressions pane))
 	    (,pixmap (allocate-pixmap *pane* 800 900))
 	    (,mirror (sheet-direct-mirror *pane*)))
       (draw-rectangle* ,pixmap 0 0 800 900 :filled t :ink +white+)
