release: 1.3.153

[lilypond.git] / scm / interface-description.scm

diff --git a/scm/interface-description.scm b/scm/interface-description.scm
index a16c61a49b77f4f3a338aae7ab2f3d3717671411..10f9462a33349ef00764666dc01f5a9263246b59 100644 (file)
--- a/scm/interface-description.scm
+++ b/scm/interface-description.scm
@@ -6,7 +6,7 @@
 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 
 
-; should include default value?
+                                       ; should include default value?
 
 
 ;;; FIXME: naming.
@@ -27,18 +27,18 @@
 (define (grob-description name . interfaces)
   (let* ((ifs (cons general-grob-interface interfaces))
         (props (map caddr ifs))
-;       (prop-typep-pairs (map (lambda (x) (cons (car x) (cadr x)))
-;                                      (apply append props)))
+                                       ;        (prop-typep-pairs (map (lambda (x) (cons (car x) (cadr x)))
+                                       ;                                       (apply append props)))
         (syms (map car ifs))
-       )
+        )
     (list (cons 'separator "\n\n\n")   ;easy printing.
          (cons 'name name)
          (cons 'interfaces syms)
          (cons 'interface-descriptions ifs)
-         ; (cons 'interface-descriptions (cadr merged))
+                                       ; (cons 'interface-descriptions (cadr merged))
          ;; description of the grob itself?
-;        (cons 'properties prop-typep-pairs)
-  )))
+                                       ;         (cons 'properties prop-typep-pairs)
+         )))
 
 
 (lily-interface
@@ -124,7 +124,6 @@
    thickness 
    beamed-lengths 
    beamed-minimum-lengths 
-   stem-centered 
    lengths 
    beam 
    stem-shorten 
@@ -190,7 +189,7 @@
  '(
    left-padding 
    right-padding 
- ))
+   ))
 
 
 
@@ -216,17 +215,13 @@ object."
 (lily-interface
  'note-head-interface
  "Note head"
- '(
-   style attachment-angle note-character
-        ))
+ '( style stem-attachment-function note-character ))
 
 
 (lily-interface
  'note-name-interface
  "Note name"
- '(
-   style 
-      ))
+ '( style ))
 
 
 
@@ -250,13 +245,11 @@ object."
  'tuplet-bracket-interface
  "A bracket with a number in the middle, used for tuplets." 
  '(
-   beams 
    columns 
    number-gap 
    delta-y 
    tuplet-bracket-visibility 
    tuplet-number-visibility 
-   parallel-beam 
    thick 
    ))
 
@@ -364,7 +357,7 @@ If @var{bartype} is set to @code{\"empty\"} then nothing is printed,
 but a line break is allowed at that spot.
 
 "
- '( barsize-procedure kern thin-kern hair-thickness thick-thickness glyph bar-size break-glyph-function ))
+ '(bar-size-procedure kern thin-kern hair-thickness thick-thickness glyph bar-size break-glyph-function ))
 
 
 (lily-interface
@@ -429,7 +422,7 @@ are a party in collision resolution.
    'font-interface
    "Any symbol that is typeset through fixed sets of glyphs (ie. fonts)"
    '(font-style font-series font-shape font-family font-name
-font-point-size font-relative-size)
+font-design-size font-relative-size)
    )
 
 
@@ -758,29 +751,34 @@ direction = Forced direction for all ties"
    '(direction
    ))
 
+(lily-interface
+ 'percent-repeat-interface
+ "Repeats that look like percent signs"
+ '(slope thickness))
 
-  (lily-interface
-   'volta-bracket-interface
-   "Volta bracket with number"
-   '(
-    bars  
-    thickness  
-    height  
-    ))
+(lily-interface
+ 'volta-bracket-interface
+ "Volta bracket with number"
+ '(
+   bars  
+   thickness  
+   height  
+   ))
 
 
-  (lily-interface
-   'span-bar-interface
-   "A bar line that spans other barlines (typically used to get cross-staff barlines."
-   '(
-    ))
+(lily-interface
+ 'span-bar-interface
+ "A bar line that spans other barlines (typically used to get cross-staff barlines."
+ '(
+   ))
 
 
-(eval (cons
-       'begin
-       (map (lambda (x) (list 'define (car x) (list 'quote (cdr x))))
-           all-interfaces)))
+(ly-eval (cons
+         'begin
+         (map (lambda (x) (list 'define (car x) (list 'quote (cdr x))))
+              all-interfaces)))
 
 
 (define (interface-names) (map (lambda (x) (symbol->string (car x))) all-interfaces))
 
+