release: 1.5.48

[lilypond.git] / scm / ps.scm

diff --git a/scm/ps.scm b/scm/ps.scm
index dbc58a79c29611015a3c1bdb4fcb15f0a2448a35..75cf347d89fa1cd3e89c7098e761c72f619b1b39 100644 (file)
--- a/scm/ps.scm
+++ b/scm/ps.scm
@@ -160,6 +160,20 @@
   (string-append (numbers->string (list breapth width depth height))
                 " draw_box" ))
 
+(define (dot x y radius)
+    (string-append " "
+     (numbers->string
+      (list x y radius)) " draw_dot"))
+
+(define (roundfilledbox x width y height blotdiam)
+   (string-append " "
+      (dot (- 0 x) (- 0 y) (/ blotdiam 2))
+      (dot width (- 0 y) (/ blotdiam 2))
+      (dot width height (/ blotdiam 2))
+      (dot (- 0 x) height (/ blotdiam 2))
+      (filledbox (+ x (/ blotdiam 2)) (+ width (/ blotdiam 2)) y height)
+      (filledbox x width (+ y (/ blotdiam 2)) (+ height (/ blotdiam 2)))))
+
 ;; obsolete?
 (define (font-def i s)
   (string-append
@@ -227,8 +241,7 @@
 
                                        ; TODO: use HEIGHT argument
 
-  
-(define (start-line height)
+  (define (start-line height)
   (string-append
    "\n"
    (ly-number->string height)