[gsharp-cvs] CVS update: gsharp/gui.lisp

[Robert Strandh]

Update of /project/gsharp/cvsroot/gsharp
In directory common-lisp.net:/tmp/cvs-serv6095

Modified Files:
	gui.lisp 
Log Message:
The input state is again visible.

Date: Thu Dec  1 01:19:40 2005
Author: rstrandh

Index: gsharp/gui.lisp
diff -u gsharp/gui.lisp:1.45 gsharp/gui.lisp:1.46
--- gsharp/gui.lisp:1.45	Sat Nov 26 22:30:13 2005
+++ gsharp/gui.lisp	Thu Dec  1 01:19:39 2005
@@ -67,7 +67,7 @@
   (let ((state (input-state *application-frame*)))
     (score-pane:with-score-pane pane
       (score-pane:with-staff-size 10
-	(score-pane:with-vertical-score-position (pane 800)
+	(score-pane:with-vertical-score-position (pane 100)
 	  (let ((xpos 30))
 	    (score-pane:draw-notehead pane (notehead state) xpos 4)
 	    (when (not (eq (notehead state) :whole))
@@ -83,7 +83,7 @@
 		      (loop repeat (lbeams state)
 			    for staff-step from -4 by 2 do
 			    (score-pane:draw-beam pane (- x 10) staff-step 0 x staff-step 0)))))
-		(score-pane:draw-left-stem pane xpos (score-pane:staff-step 4) (score-pane:staff-step -4)))
+		(score-pane:draw-left-stem pane xpos (- (score-pane:staff-step 4)) (- (score-pane:staff-step -4))))
 	      (when (or (eq (stem-direction state) :auto)
 			(eq (stem-direction state) :up))
 		(when (eq (notehead state) :filled)
@@ -96,7 +96,7 @@
 		      (loop repeat (lbeams state)
 			    for staff-step downfrom 12 by 2 do
 			    (score-pane:draw-beam pane (- x 10) staff-step 0 x staff-step 0)))))
-		(score-pane:draw-right-stem pane xpos (score-pane:staff-step 4) (score-pane:staff-step 12))))
+		(score-pane:draw-right-stem pane xpos (- (score-pane:staff-step 4)) (- (score-pane:staff-step 12)))))
 	    (score-pane:with-notehead-right-offsets (right up)
 	      (declare (ignore up))
 	      (loop repeat (dots state)