[gsharp-cvs] CVS update: gsharp/score-pane.lisp

[Robert Strandh]

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

Modified Files:
	score-pane.lisp 
Log Message:
fixed the problem with horizontal beams

Date: Mon Aug 15 23:45:01 2005
Author: rstrandh

Index: gsharp/score-pane.lisp
diff -u gsharp/score-pane.lisp:1.11 gsharp/score-pane.lisp:1.12
--- gsharp/score-pane.lisp:1.11	Sun Aug 14 20:00:45 2005
+++ gsharp/score-pane.lisp	Mon Aug 15 23:45:01 2005
@@ -588,7 +588,7 @@
 	       (medium (sheet-medium pane)))
 	  (assert (< slope 1))
 	  (if (= y1 y2)
-	      (draw-horizontal-beam medium xx1 y1 xx2 thickness)
+	      (draw-horizontal-beam pane xx1 y1 xx2 thickness)
 	      (draw-sloped-beam medium xx1 y1 xx2 y2 thickness (/ slope)))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;