X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-grob-interfaces.scm;h=b5ffda6574faa9f1fc4ed998284a1b62448b7e08;hb=0f488266fa66b59a23ad0042a2ae112e60850192;hp=a6dfb3a63d6725a8df66b1a18ba582e039481cfa;hpb=d4ba37c298813e0f7008ef8388e126c34d8f8dd3;p=lilypond.git diff --git a/scm/define-grob-interfaces.scm b/scm/define-grob-interfaces.scm index a6dfb3a63d..b5ffda6574 100644 --- a/scm/define-grob-interfaces.scm +++ b/scm/define-grob-interfaces.scm @@ -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." + '(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." '())