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)
