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

(beam): add function.
---

diff --git a/scm/output-gnome.scm b/scm/output-gnome.scm
index 91cfdfff80..5bfc43d5fe 100644
--- a/scm/output-gnome.scm
+++ b/scm/output-gnome.scm
@@ -241,6 +241,26 @@ lilypond -fgnome input/simple-song.ly
 	  item)
 	#f)))
 
+(define (beam width slope thick blot)
+  (let*
+      ((def (make <gnome-canvas-path-def>))
+       (props (make <gnome-canvas-bpath>
+		   #:parent (canvas-root)
+		   #:fill-color "black"
+		   #:outline-color "black"
+		   #:width-units 0.0)))
+    
+    (reset def)
+    (moveto def 0 0)
+    (lineto def width (* width slope))
+    (lineto def width (- thick))
+    (lineto def 0 (- thick))
+    (lineto def 0 0)
+    (closepath def)
+    (set-path-def props def)
+    props))
+    
+
 (define (round-filled-box breapth width depth height blot-diameter)
   ;; FIXME: no rounded corners on rectangle...
   ;; FIXME: blot?
diff --git a/scripts/lilypond-book.py b/scripts/lilypond-book.py
index cd97022f59..0a696f7ff6 100644
--- a/scripts/lilypond-book.py
+++ b/scripts/lilypond-book.py
@@ -711,7 +711,7 @@ def compose_ly (code, options, type):
     if RELATIVE in override.keys () and override[RELATIVE]:
 	relative = string.atoi (override[RELATIVE])
 
-    relative_quotes = ''
+!    relative_quotes = ''
 
     # 1 = central C
     if relative < 0: