From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 15 Nov 2004 23:55:05 +0000 (+0000)
Subject: (beam): add function.
X-Git-Tag: release/2.5.14~544
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1c79c7c8cf6835aeff33280d93cec344182c2cba;p=lilypond.git

(beam): add function.
(draw-line): new routine.
(dashed-line): stub; call draw-line
(polygon): new routine.
---

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)