(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 bc0d1dbe8f9fb6e4cfdbb511ea4004208e0273b2..ad8a65720a7c356ef5f8461bdcc7bd9678c65822 100644 (file)
--- 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 94e258ed3becd17822b50a17742ffef335469894..df3281206585db085e0c3de8050a6e295f73e406 100644 (file)
--- 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)