From 1c79c7c8cf6835aeff33280d93cec344182c2cba Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 15 Nov 2004 23:55:05 +0000
Subject: [PATCH] (beam): add function. (draw-line): new routine.
 (dashed-line): stub; call draw-line (polygon): new routine.

---
 input/regression/backend-excercise.ly | 16 +++++++++-------
 scm/output-gnome.scm                  |  5 +++--
 2 files changed, 12 insertions(+), 9 deletions(-)

diff --git a/input/regression/backend-excercise.ly b/input/regression/backend-excercise.ly
index bc0d1dbe8f..ad8a65720a 100644
--- a/input/regression/backend-excercise.ly
+++ b/input/regression/backend-excercise.ly
@@ -1,17 +1,19 @@
 \header {
-texidoc = "Excercise all output functions"
-  }
+  texidoc = "Excercise all output functions"
+}
+
+\version "2.5.0"
 
 \relative {
   \new StaffGroup <<
     \new Staff <<
       {
-      #(set-octavation 1)
-      \times 2/3 {  c'8[\< c]( f''\!)  }
-    }
+	#(set-octavation 1)
+	\times 2/3 {  c'8[\< f]( f''\!)  }
+      }
       \skip 1 >>
-    \new Staff {
+    \new Staff \relative c'' {
       \makeClusters { <g a>8 <e a> }
-      }
+    }
   >>
 }
diff --git a/scm/output-gnome.scm b/scm/output-gnome.scm
index 94e258ed3b..df32812065 100644
--- a/scm/output-gnome.scm
+++ b/scm/output-gnome.scm
@@ -244,6 +244,7 @@ lilypond -fgnome input/simple-song.ly
 (define (beam width slope thick blot)
   (let*
       ((def (make <gnome-canvas-path-def>))
+       (y (* (- width) slope))
        (props (make <gnome-canvas-bpath>
 		   #:parent (canvas-root)
 		   #:fill-color "black"
@@ -252,8 +253,8 @@ lilypond -fgnome input/simple-song.ly
     
     (reset def)
     (moveto def 0 0)
-    (lineto def width (* width slope))
-    (lineto def width (- thick))
+    (lineto def width y)
+    (lineto def width (- y thick))
     (lineto def 0 (- thick))
     (lineto def 0 0)
     (closepath def)
-- 
2.39.5