X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-grob-interfaces.scm;h=f223f5552e3574009a11abdc1aa8306e1eb62cc5;hb=5b4b0d6e9a197e8f9eb085b7c2ad78b8be3e5cfc;hp=a6dfb3a63d6725a8df66b1a18ba582e039481cfa;hpb=e5b90f928082155e148a547280a74ac458bdcd4a;p=lilypond.git

diff --git a/scm/define-grob-interfaces.scm b/scm/define-grob-interfaces.scm
index a6dfb3a63d..f223f5552e 100644
--- a/scm/define-grob-interfaces.scm
+++ b/scm/define-grob-interfaces.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;;
-;;;; (c) 1998--2007  Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 1998--2008  Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 
 
@@ -52,17 +52,20 @@ note)."
 
 (ly:add-interface
  'fret-diagram-interface
- "A fret diagram."
- '(align-dir barre-type dot-color dot-radius finger-code fret-count
-label-dir number-type size string-count xo-font-magnification
-mute-string open-string orientation string-fret-finger-combinations
-thickness))
+ "A fret diagram"
+ '(align-dir fret-diagram-details size dot-placement-list
+   thickness))
 
 (ly:add-interface
  'grace-spacing-interface
  "Keep track of durations in a run of grace notes."
  '(columns common-shortest-duration))
 
+(ly:add-interface
+ 'instrument-specific-markup-interface
+ "Instrument-specific markup (like fret boards or harp pedal diagrams)."
+ '(fret-diagram-details harp-pedal-details size thickness))
+
 (ly:add-interface
  'key-cancellation-interface
  "A key cancellation."
@@ -118,6 +121,11 @@ thickness))
  "Parentheses for other objects."
  '(padding stencils))
 
+(ly:add-interface
+ 'percent-repeat-interface
+ "Beat, Double and single measure repeats."
+ '(dot-negative-kern slash-negative-kern slope thickness))
+
 (ly:add-interface
  'piano-pedal-interface
  "A piano pedal sign."
@@ -159,11 +167,6 @@ interesting enough to maintain a hara-kiri staff."
  "A right hand finger instruction."
  '(digit-names))
 
-(ly:add-interface
- 'system-start-text-interface
- "A text at the beginning of a system."
- '(text long-text collapse-height style))
-
 ;;; todo: this is not typesetting info. Move to interpretation.
 (ly:add-interface
  'tablature-interface
@@ -189,5 +192,5 @@ with @code{breakable=##t}."
 (ly:add-interface
  'vertically-spaceable-interface
  "Objects that should be kept at constant vertical distances.  Typically:
-@internalsref{VerticalAxisGroup} objects of @internalsref{Staff} contexts."
+@rinternals{VerticalAxisGroup} objects of @rinternals{Staff} contexts."
  '())