(beam): add function.

[lilypond.git] / scm / output-gnome.scm

diff --git a/scm/output-gnome.scm b/scm/output-gnome.scm
index 5bfc43d5fe40164b07ab16dae0e5360fe3e1ad54..2d137c27755ff4bb3028c6c8eb32c14bfad0eb1a 100644 (file)
--- a/scm/output-gnome.scm
+++ b/scm/output-gnome.scm
@@ -261,6 +261,25 @@ lilypond -fgnome input/simple-song.ly
     props))
     
 
+(define (dashed-line thick on off dx dy)
+  (draw-line thick 0 0 dx dy)) 
+
+(define (draw-line thick fx fy tx ty)
+  (let*
+      ((def (make <gnome-canvas-path-def>))
+       (props (make <gnome-canvas-bpath>
+                  #:parent (canvas-root)
+                  #:fill-color "black"
+                  #:outline-color "black"
+                  #:width-units thick)))
+    
+    (reset def)
+    (moveto def fx (- fy))
+    (lineto def tx (- ty))
+    (set-path-def props def)
+    props))
+    
+
 (define (round-filled-box breapth width depth height blot-diameter)
   ;; FIXME: no rounded corners on rectangle...
   ;; FIXME: blot?