*** empty log message ***

[lilypond.git] / scm / ascii-script.scm

diff --git a/scm/ascii-script.scm b/scm/ascii-script.scm
index c964fcf52f86e3943ba6fa20d366dda8e0ef268a..d53cfb366f4fe0f723858cd8fe4fafa0be8fb3b2 100644 (file)
--- a/scm/ascii-script.scm
+++ b/scm/ascii-script.scm
@@ -85,6 +85,8 @@
     sheet))
 
 
+(define (dot x y radius) "") ;; TODO
+
 (define (beam width slope thick)
   (string-append
    (func "set-line-char" "#")
@@ -128,6 +130,8 @@
      (func "put" "/")
      )))
 
+(define (polygon points blotdiameter) "") ;; TODO
+
 (define (char i)
   (func "char" i))