release: 1.5.45

[lilypond.git] / scm / molecule.scm

diff --git a/scm/molecule.scm b/scm/molecule.scm
index 85176065aed7c86b6223cd11aa9d62beb4f17e8b..1d3c58d027d7e6eb2d20d8ccb2ad7c1c32a8f4c3 100644 (file)
--- a/scm/molecule.scm
+++ b/scm/molecule.scm
@@ -36,3 +36,35 @@
     (set! mol (ly-combine-molecule-at-edge mol (other-axis  axis) -1 rb padding))
     mol
   ))
+
+
+
+(define (box-molecule xext yext)
+  "Make a filled box."
+  
+  (ly-make-molecule
+      (list 'filledbox (- (car xext)) (cdr xext)
+                       (- (car yext)) (cdr yext))
+      xext yext)                      
+)
+
+(define (widen-interval iv amount)
+   (cons (- (car iv) amount)
+         (+ (cdr iv) amount))
+)
+
+
+(define (box-grob-molecule grob)
+  "Make a box of exactly the extents of the grob."
+  (let* ((xext (ly-get-extent grob grob 0))
+        (yext (ly-get-extent grob grob 1))
+        (mol (ly-make-molecule '() '(10000 . -10000) '(10000 . -10000)))
+        (thick 0.1)
+        )
+    (display "hoi")
+    (set! mol (ly-add-molecule mol (box-molecule xext (cons (car yext) (+ (car yext) thick)))))
+    (set! mol (ly-add-molecule mol (box-molecule xext (cons (- (cdr yext) thick) (cdr yext)))))
+    (set! mol (ly-add-molecule mol (box-molecule (cons (car xext) (+ (car xext) thick)) yext)))
+    (set! mol (ly-add-molecule mol (box-molecule (cons (- (cdr xext) thick) (cdr xext)) yext)))
+    mol
+  ))