release: 1.1.59

[lilypond.git] / lily / lookup.cc

diff --git a/lily/lookup.cc b/lily/lookup.cc
index e82dd2f808ba2e620eee290fcce3226c799e1c83..9dee0018d242b69fe1bada20135633585e1bfa8c 100644 (file)
--- a/lily/lookup.cc
+++ b/lily/lookup.cc
@@ -490,6 +490,19 @@ Molecule
 Lookup::staff_brace (Real y, int staff_size) const
 {
   Molecule m;
+  /*
+  (define (pianobrace y staffht)
+    (let* ((step 1.0)
+          (minht (* 2 staffht))
+          (maxht (* 7 minht))
+          )
+      (string-append
+       (select-font (string-append "feta-braces" (number->string (inexact->exact staffht))) 0)
+       (char (max 0 (/  (- (min y (- maxht step)) minht) step))))
+      )
+    )
+  */
+
   
   Atom at  (gh_list (pianobrace_scm_sym,
                     gh_double2scm (y),