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))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;