+++ /dev/null
-/*
- spaceable-element.cc -- implement Spaceable_grob
-
- source file of the GNU LilyPond music typesetter
-
- (c) 2000--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
-
- */
-
-#include "spaceable-element.hh"
-#include "grob.hh"
-#include "warn.hh"
-
-SCM
-Spaceable_grob::get_minimum_distances (Grob*me)
-{
- return me->get_grob_property ("minimum-distances");
-}
-
-/*todo: merge code of spring & rod?
- */
-void
-Spaceable_grob::add_rod (Grob *me , Grob * p, Real d)
-{
- SCM mins = get_minimum_distances (me);
- SCM newdist = gh_double2scm (d);
- for (SCM s = mins; gh_pair_p (s); s = gh_cdr (s))
- {
- SCM dist = gh_car (s);
- if (gh_car (dist) == p->self_scm ())
- {
- gh_set_cdr_x (dist, scm_max (gh_cdr (dist),
- newdist));
- return ;
- }
- }
-
- mins = gh_cons (gh_cons (p->self_scm (), newdist), mins);
- me->set_grob_property ("minimum-distances", mins);
-}
-
-void
-Spaceable_grob::add_spring (Grob*me, Grob * p, Real d, Real strength)
-{
- SCM mins = get_ideal_distances (me);
- SCM newdist= gh_double2scm (d);
- for (SCM s = mins; gh_pair_p (s); s = gh_cdr (s))
- {
- SCM dist = gh_car (s);
- if (gh_car (dist) == p->self_scm ())
- {
- programming_error ("already have that spring");
- return ;
- }
- }
- SCM newstrength= gh_double2scm (strength);
-
- mins = gh_cons (gh_cons (p->self_scm (), gh_cons (newdist, newstrength)), mins);
- me->set_grob_property ("ideal-distances", mins);
-}
-
-SCM
-Spaceable_grob::get_ideal_distances (Grob*me)
-{
- return me->get_grob_property ("ideal-distances");
-}
-
-
-void
-Spaceable_grob::remove_interface (Grob*me)
-{
- me->remove_grob_property ("minimum-distances");
- me->remove_grob_property ("ideal-distances");
- me->remove_grob_property ("dir-list");
-}
-
-
-void
-Spaceable_grob::set_interface (Grob*me)
-{
- me->set_interface (ly_symbol2scm ("spaceable-element-interface"));
-}
+++ /dev/null
-\version "1.3.146"
-% a4.ly
-
-hsize = 210.0 \mm
-vsize = 296.9 \mm
+++ /dev/null
-\version "1.3.146"
-% Symbols needed to print accordion music
-%
-% 2' = T
-% 4' = F
-% 8' = E
-% 16' = S
-%
-
-accDiscant = \script "accDiscant"
-accDiscantF = \script "accDiscantF"
-accDiscantE = \script "accDiscantE"
-accDiscantEh = \script "accDiscantEh"
-accDiscantFE = \script "accDiscantFE"
-accDiscantFEh = \script "accDiscantFEh"
-accDiscantEE = \script "accDiscantEE"
-accDiscantFEE = \script "accDiscantFEE"
-accDiscantEEE = \script "accDiscantEEE"
-accDiscantFEEE = \script "accDiscantFEEE"
-accDiscantS = \script "accDiscantS"
-accDiscantFS = \script "accDiscantFS"
-accDiscantES = \script "accDiscantES"
-accDiscantEhS = \script "accDiscantEhS"
-accDiscantFES = \script "accDiscantFES"
-accDiscantFEhS = \script "accDiscantFEhS"
-accDiscantEES = \script "accDiscantEES"
-accDiscantFEES = \script "accDiscantFEES"
-accDiscantEEES = \script "accDiscantEEES"
-accDiscantFEEES = \script "accDiscantFEEES"
-accDiscantSS = \script "accDiscantSS"
-accDiscantESS = \script "accDiscantESS"
-accDiscantEESS = \script "accDiscantEESS"
-accDiscantEEESS = \script "accDiscantEEESS"
-
-accFreebase = \script "accFreebase"
-accFreebaseF = \script "accFreebaseF"
-accFreebaseE = \script "accFreebaseE"
-accFreebaseFE = \script "accFreebaseFE"
-
-accBayanbase = \script "accBayanbase"
-accBayanbaseT = \script "accBayanbaseT"
-accBayanbaseE = \script "accBayanbaseE"
-accBayanbaseTE = \script "accBayanbaseTE"
-accBayanbaseEE = \script "accBayanbaseEE"
-accBayanbaseTEE = \script "accBayanbaseTEE"
-
-accStdbase = \script "accStdbase"
-accStdbaseFE = \script "accStdbaseFE"
-accStdbaseTFE = \script "accStdbaseTFE"
-accStdbaseMES = \script "accStdbaseMES"
-accStdbaseTFMES = \script "accStdbaseTFMES"
-
-accSB = \script "accSB"
-accBB = \script "accBB"
-accOldEE = \script "accOldEE"
-accOldEES = \script "accOldEES"
+++ /dev/null
-% Toplevel initialisation file.
-
-\version "1.3.146"
-
-
-\include "declarations.ly"
-\include "paper16.ly"
-
- \paper{
- \paperSixteen
-}
-
-
-\maininput
+++ /dev/null
-% Toplevel initialisation file.
-
-\version "1.3.146"
-
-
-\include "declarations.ly"
-\include "paper16.ly"
-
- \paper {
- \paperSixteen
-% linewidth = 7.\cm
- linewidth = 11.\cm
-}
-
-\maininput
+++ /dev/null
-\version "1.3.146"
-
-% urg!
-%
-\chordmodifiers #`(
- (m . ,(make-pitch 0 2 -1 ))
- (min . ,(make-pitch 0 2 -1 ))
- (aug . ,(make-pitch 0 4 1 ))
- ;; (dim . ,(make-pitch -100 4 -1 ))
- (dim . ,(make-pitch -100 2 -1 ))
- ;; urg, not actually a chord-modifier, but it works
- ;; c7 -> <c bes>, c 7+ -> c b
- (maj . ,(make-pitch 0 6 1 ))
- ;; sus4 should delete 2 too...
- (sus . ,(make-pitch 0 3 0 ))
-)
-
+++ /dev/null
-
-\version "1.3.146"
-breve = \duration #(make-duration -1 0)
-longa = \duration #(make-duration -2 0 )
-maxima = \duration #(make-duration -3 0)
-
-\include "nederlands.ly" % dutch
-\include "chord-modifiers.ly"
-\include "script.ly"
-
-% declarations for standard directions
-left = -1
-right = 1
-up = 1
-down = -1
-start = -1
-stop = 1
-smaller = -1
-bigger = 1
-center=0
-
-break = \penalty #-10000
-noBreak = \penalty #10000
-\include "scale-definitions.ly"
-
-melisma = \property Staff.melismaBusy = ##t
-melismaEnd = \property Staff.melismaBusy = ##f
-
-
-\include "engraver.ly"
-
-singleLine = \paper { linewidth = 1. }
-
-% ugh
-\include "midi.ly"
-
-papersize = "a4"
-paperfile = \papersize + ".ly"
-
-\include "generic-paper.ly"
-\include "paper20.ly"
-
-
-\include "dynamic-scripts.ly"
-\include "spanners.ly"
-
-\include "property.ly"
-
-
-
-% reset default duration
-unusedEntry = \notes { c4 }
-
-% music = "\melodic\relative c"
-
+++ /dev/null
-% GM drum pitches.
-% I use different accidentals to distinguish drums at the same GM pitch.
-% Always accidental 0 (white keys) or 1 (black keys) to get the "correct" gm name.
-% i.e. fis, for closed highat ges, for highat.
-
-% 2001/03/25 Rune Zedeler <rune@zedeler.dk>
-
-
-%% TODO: don't pollute global namespace in this way .
-
-
-#(define drum-pitch-names `(
- (acousticbassdrum bda ,(make-pitch -3 6 0 ))
- (bassdrum bd ,(make-pitch -2 0 0 ))
- (hisidestick ssh ,(make-pitch -3 6 2))
- (sidestick ss ,(make-pitch -2 0 1))
- (losidestick ssl ,(make-pitch -2 1 -1))
- (acousticsnare sna ,(make-pitch -2 1 0))
- (snare sn ,(make-pitch -2 2 -2))
- (handclap hc ,(make-pitch -2 1 1))
- (electricsnare sne ,(make-pitch -2 2 0))
- (lowfloortom tomfl ,(make-pitch -2 3 0))
- (closedhihat hhc ,(make-pitch -2 3 1))
- (hihat hh ,(make-pitch -2 4 -1))
- (highfloortom tomfh ,(make-pitch -2 4 0))
- (pedalhihat hhp ,(make-pitch -2 4 1))
- (lowtom toml ,(make-pitch -2 5 0))
- (openhihat hho ,(make-pitch -2 5 1))
- (halfopenhihat hhho ,(make-pitch -2 5 1))
- (lowmidtom tomml ,(make-pitch -2 6 0))
- (himidtom tommh ,(make-pitch -1 0 0))
- (crashcymbala cymca ,(make-pitch -1 0 1))
- (crashcymbal cymc ,(make-pitch -1 1 -1))
- (hightom tomh ,(make-pitch -1 1 0))
- (ridecymbala cymra ,(make-pitch -1 1 1))
- (ridecymbal cymr ,(make-pitch -1 2 -1))
- (chinesecymbal cymch ,(make-pitch -1 2 0))
- (ridebell rb ,(make-pitch -1 3 0))
- (tambourine tamb ,(make-pitch -1 3 1))
- (splashcymbal cyms ,(make-pitch -1 4 0))
- (cowbell cb ,(make-pitch -1 4 1))
- (crashcymbalb cymcb ,(make-pitch -1 5 0))
- (vibraslap vibs ,(make-pitch -1 5 1))
- (ridecymbalb cymrb ,(make-pitch -1 6 0))
- (hibongo boh ,(make-pitch 0 0 0))
- (lobongo bol ,(make-pitch 0 0 1))
- (mutehiconga cghm ,(make-pitch 0 1 0))
- (openhiconga cgho ,(make-pitch 0 1 1))
- (hiconga cgh ,(make-pitch 0 2 -1))
- (openloconga cglo ,(make-pitch 0 1 2))
- (loconga cgl ,(make-pitch 0 2 0))
- (hitimbale timh ,(make-pitch 0 3 0))
- (lotimbale timl ,(make-pitch 0 3 1))
- (hiagogo agh ,(make-pitch 0 4 0))
- (loagogo agl ,(make-pitch 0 4 1))
- (cabasa cab ,(make-pitch 0 5 0))
- (maracas mar ,(make-pitch 0 5 1))
- (shortwhistle whs ,(make-pitch 0 6 0))
- (longwhistle whl ,(make-pitch 1 0 0))
- (shortguiro guis ,(make-pitch 1 0 1))
- (longguiro guil ,(make-pitch 1 1 0))
- (guiro gui ,(make-pitch 1 0 2))
- (claves cl ,(make-pitch 1 1 1))
- (hiwoodblock wbh ,(make-pitch 1 2 0))
- (lowoodblock wbl ,(make-pitch 1 3 0))
- (mutecuica cuim ,(make-pitch 1 3 1))
- (opencuica cuio ,(make-pitch 1 4 0))
- (mutetriangle trim ,(make-pitch 1 4 1))
- (triangle tri ,(make-pitch 1 4 2))
- (opentriangle trio ,(make-pitch 1 5 0))
- ;; "transposing" pitches:
- (oneup ua ,(make-pitch 0 1 0))
- (twoup ub ,(make-pitch 0 2 0))
- (threeup uc ,(make-pitch 0 3 0))
- (fourup ud ,(make-pitch 0 4 0))
- (fiveup ue ,(make-pitch 0 5 0))
- (onedown da ,(make-pitch -1 6 0))
- (twodown db ,(make-pitch -1 5 0))
- (threedown dc ,(make-pitch -1 4 0))
- (fourdown dd ,(make-pitch -1 3 0))
- (fivedown de ,(make-pitch -1 2 0))
-))
-
-#(define drums `(
- (acousticbassdrum default ,#f ,(make-pitch -1 4 0))
- (bassdrum default ,#f ,(make-pitch -1 4 0))
- (sidestick cross ,#f ,(make-pitch 0 1 0))
- (acousticsnare default ,#f ,(make-pitch 0 1 0))
- (snare default ,#f ,(make-pitch 0 1 0))
- (handclap triangle ,#f ,(make-pitch 0 1 0))
- (electricsnare default ,#f ,(make-pitch 0 1 0))
- (lowfloortom default ,#f ,(make-pitch -1 3 0))
- (closedhihat cross "stopped" ,(make-pitch 0 3 0))
- (hihat cross ,#f ,(make-pitch 0 3 0))
- (highfloortom default ,#f ,(make-pitch -1 5 0))
- (pedalhihat cross ,#f ,(make-pitch -1 2 0))
- (lowtom default ,#f ,(make-pitch 0 0 0))
- (openhihat cross "open" ,(make-pitch 0 3 0))
- (halfopenhihat xcircle ,#f ,(make-pitch 0 3 0))
- (lowmidtom default ,#f ,(make-pitch 0 1 0))
- (himidtom default ,#f ,(make-pitch 0 2 0))
- (crashcymbala xcircle ,#f ,(make-pitch 0 5 0))
- (crashcymbal xcircle ,#f ,(make-pitch 0 5 0))
- (hightom default ,#f ,(make-pitch 0 4 0))
- (ridecymbala cross ,#f ,(make-pitch 0 5 0))
- (ridecymbal cross ,#f ,(make-pitch 0 5 0))
- (chinesecymbal mensural ,#f ,(make-pitch 0 5 0))
- (ridebell default ,#f ,(make-pitch 0 5 0))
- (splashcymbal diamond ,#f ,(make-pitch 0 5 0))
- (cowbell triangle ,#f ,(make-pitch 0 5 0))
- (crashcymbalb cross ,#f ,(make-pitch 0 5 0))
- (vibraslap diamond ,#f ,(make-pitch 0 4 0))
- (ridecymbalb cross ,#f ,(make-pitch 0 5 0))
- ))
-
-#(define timbales `(
- (losidestick cross ,#f ,(make-pitch -1 6 0))
- (lotimbale default ,#f ,(make-pitch -1 6 0))
- (cowbell triangle ,#f ,(make-pitch 0 0 0))
- (hisidestick cross ,#f ,(make-pitch 0 1 0))
- (hitimbale default ,#f ,(make-pitch 0 1 0))
- ))
-
-#(define congas `(
- (losidestick cross ,#f ,(make-pitch -1 6 0))
- (loconga default ,#f ,(make-pitch -1 6 0))
- (openloconga default ,"open" ,(make-pitch -1 6 0))
- (hisidestick cross ,#f ,(make-pitch 0 1 0))
- (hiconga default ,#f ,(make-pitch 0 1 0))
- (openhiconga default "open" ,(make-pitch 0 1 0))
- (mutehiconga default "stopped" ,(make-pitch 0 1 0))
-
- ))
-
-#(define bongos `(
- (lobongo default ,#f ,(make-pitch -1 6 0))
- (hibongo default ,#f ,(make-pitch 0 1 0))
- ))
-
-#(define guiro `(
- (shortguiro default "staccato",(make-pitch 0 0 0))
- (longguiro default "tenuto" ,(make-pitch 0 0 0))
- (guiro default ,#f ,(make-pitch 0 0 0))
- ))
-
-#(define triangle `(
- (opentriangle cross "open" ,(make-pitch 0 0 0))
- (mutetriangle cross "stopped" ,(make-pitch 0 0 0))
- (triangle cross ,#f ,(make-pitch 0 0 0))
- ))
-
-
-
-\pitchnames
-#(append (map (lambda (x) (cons (car x) (caddr x))) drum-pitch-names)
- (map (lambda (x) (cons (cadr x) (caddr x))) drum-pitch-names)
- )
-
-
-\version "1.3.146"
+++ /dev/null
-\version "1.3.146"
-
-%
-% declare the standard dynamic identifiers.
-%
-ppppp = \dynamicscript #"ppppp"
-pppp = \dynamicscript #"pppp"
-ppp = \dynamicscript #"ppp"
-pp = \dynamicscript #"pp"
-p = \dynamicscript #"p"
-mp = \dynamicscript #"mp"
-mf = \dynamicscript #"mf"
-f = \dynamicscript #"e" % see feta-din layout
-ff = \dynamicscript #"ff"
-fff = \dynamicscript #"fff"
-ffff = \dynamicscript #"ffff"
-fp = \dynamicscript #"fp"
-
-sf = \dynamicscript #"sf"
-sfp = \dynamicscript #"sfp"
-sff = \dynamicscript #"sff"
-sfz = \dynamicscript #"sfz"
-fz = \dynamicscript #"fz"
-sp = \dynamicscript #"sp"
-spp = \dynamicscript #"spp"
-rfz = \dynamicscript #"rfz"
-
+++ /dev/null
-\version "1.3.146"
-
-%
-% setup for Request->Element conversion. Guru-only
-%
-
-StaffContext=\translator {
- \type "Engraver_group_engraver"
- \name Staff
- \consists "Output_property_engraver"
- Generic_property_list = #generic-staff-properties
- \consists "Property_engraver"
-
- \consists "Bar_engraver"
- % Bar_engraver must be first so default bars aren't overwritten
-% with empty ones.
-
-
-% \consists "Repeat_engraver"
- \consists "Volta_engraver"
- \consists "Separating_line_group_engraver"
-
-
-
- \consists "Clef_engraver"
- \consists "Key_engraver"
- \consists "Time_signature_engraver"
- \consists "Staff_symbol_engraver"
- \consists "Collision_engraver"
- \consists "Rest_collision_engraver"
- \consists "Local_key_engraver"
- \consists "Piano_pedal_engraver"
- \consists "Instrument_name_engraver"
-
- \consistsend "Axis_group_engraver"
-
- MinimumVerticalExtent = #'(-4 . 4)
- ExtraVerticalExtent = ##f
- VerticalExtent = ##f
-
- % explicitly set instrument, so we don't get
- % weird effects when doing instrument names for
- % piano staffs
-
- instrument = ##f
- instr = ##f
-
- \accepts "Voice"
-}
-
-
-StaffContainerContext = \translator {
- \type Engraver_group_engraver
- \consists "Axis_group_engraver"
- MinimumVerticalExtent = ##f
- ExtraVerticalExtent = ##f
- VerticalExtent = ##f
-
- \accepts Staff
- \name StaffContainer
-}
-
-InnerChoirStaffContext = \translator {
- \type "Engraver_group_engraver"
- \name InnerChoirStaff
- alignmentReference = #0
- \consists "System_start_delimiter_engraver"
- SystemStartDelimiter \override #'glyph = #'bracket
-
- \accepts "Staff"
- \accepts "RhythmicStaff"
- \accepts "GrandStaff"
- \accepts "PianoStaff"
- \accepts "Lyrics"
- \accepts "ChordNames"
-}
-ChoirStaffContext = \translator {
- \InnerChoirStaffContext
- \name ChoirStaff
- \accepts "InnerChoirStaff"
- \accepts "InnerStaffGroup"
-}
-
-
-RhythmicStaffContext=\translator{
- \type "Engraver_group_engraver"
-
- \consists "Property_engraver"
- \consists "Output_property_engraver"
-
- Generic_property_list = #generic-staff-properties
- MinimumVerticalExtent = ##f
- ExtraVerticalExtent = ##f
- VerticalExtent = ##f
-
- \consists "Pitch_squash_engraver"
- \consists "Separating_line_group_engraver"
- \name RhythmicStaff
- \alias "Staff"
-
- Bar \override #'bar-size = #4
- VoltaBracket \override #'minimum-space = #15 % urg, in \pt
- VoltaBracket \override #'padding = #5 % urg, in \pt
- StaffSymbol \override #'line-count = #1
-
-% \consists "Repeat_engraver"
- \consists "Volta_engraver"
- \consists "Bar_engraver"
- \consists "Time_signature_engraver"
- \consists "Staff_symbol_engraver"
- \consistsend "Axis_group_engraver"
- \accepts "Voice"
-}
-
-
-VoiceContext = \translator {
- \type "Engraver_group_engraver"
- \name Voice
-
- Generic_property_list = #generic-voice-properties
-
- % must come before all
- \consists "Voice_devnull_engraver"
- \consists "Output_property_engraver"
- \consists "Arpeggio_engraver"
- \consists "Multi_measure_rest_engraver"
- \consists "Text_spanner_engraver"
- \consists "Property_engraver"
-
- \consists "Breathing_sign_engraver"
- % \consists "Rest_engraver"
- \consists "Dot_column_engraver"
- \consists "Stem_engraver"
- \consists "Beam_engraver"
- \consists "Auto_beam_engraver"
-
- \consists "Chord_tremolo_engraver"
- \consists "Percent_repeat_engraver"
- \consists "Melisma_engraver"
-
-%{
- Must come before text_engraver, but after note_column engraver.
-
-%}
- \consists "Dynamic_engraver"
- \consists "Text_engraver"
-
- \consists "Script_engraver"
- \consists "Script_column_engraver"
- \consists "Rhythmic_column_engraver"
- \consists "Phrasing_slur_engraver"
- \consists "Slur_engraver"
- \consists "Tie_engraver"
- \consists "Tuplet_engraver"
- \consists "Grace_position_engraver"
- \consists "A2_engraver"
-
- \consists "Skip_req_swallow_translator"
- \accepts Thread % bug if you leave out this!
- \accepts Grace
-}
-
-GraceContext=\translator {
- \type "Grace_engraver_group"
- \name "Grace"
- \consists "Output_property_engraver"
-
- Generic_property_list = #generic-grace-properties
-
- \consists "Note_heads_engraver"
- \consists "Local_key_engraver"
- \consists "Stem_engraver"
- \consists "Beam_engraver"
- \consists "Slur_engraver"
-
- \consists "Auto_beam_engraver"
- \consists "Align_note_column_engraver"
-
- \consists "Rhythmic_column_engraver"
-
- \consists "Dynamic_engraver"% in Grace ???
- \consists "Text_engraver" % in Grace ???
-
- \consists "Property_engraver"
-
- Stem \override #'flag-style = #"grace"
- Stem \override #'stem-length = #6.0
- Stem \override #'direction = #1
-
- NoteHead \override #'font-relative-size = #-1
- Stem \override #'font-relative-size = #-1
- Stem \override #'stem-shorten = #'(0)
- Beam \override #'font-relative-size = #-1
- TextScript \override #'font-relative-size = #-1
- Slur \override #'font-relative-size = #-1
- Accidentals \override #'font-relative-size = #-1
- Beam \override #'thickness = #0.3
- Beam \override #'space-function = #(lambda (x) 0.5)
-
- Stem \override #'lengths = #(map (lambda (x) (* 0.8 x)) '(3.5 3.5 3.5 4.5 5.0))
- Stem \override #'beamed-lengths =
- #'(0.0 2.5 2.0 1.5)
- Stem \override #'beamed-minimum-lengths
- = #(map (lambda (x) (* 0.8 x)) '(0.0 2.5 2.0 1.5))
-
- weAreGraceContext = ##t
- graceAccidentalSpace= #1.5 % in staff space
-}
-
-ThreadContext = \translator{
- \type Engraver_group_engraver
- \name Thread
-
- \consists "Thread_devnull_engraver"
- \consists "Note_heads_engraver"
- \consists "Rest_engraver"
- \consists "Note_head_line_engraver"
- \consists "Output_property_engraver"
- Generic_property_list = #generic-thread-properties
- \consists "Property_engraver"
-}
-
-GrandStaffContext=\translator{
- \type "Engraver_group_engraver"
- \name GrandStaff
- \consists "Span_bar_engraver"
- \consists "Span_arpeggio_engraver"
- \consists "System_start_delimiter_engraver"
- SystemStartDelimiter \override #'glyph = #'brace
-
- \consists "Property_engraver"
- Generic_property_list = #generic-grand-staff-properties
- \accepts "Staff"
-}
-
-PianoStaffContext = \translator{
- \GrandStaffContext
- \name "PianoStaff"
-
- \consists "Vertical_align_engraver"
- \consists "Instrument_name_engraver"
-
- instrument = ##f
- instr = ##f
-
- verticalAlignmentChildCallback = #Align_interface::fixed_distance_alignment_callback
- VerticalAlignment \override #'forced-distance = #12
- VerticalAlignment \override #'self-alignment-Y = #0
-% \consistsend "Axis_group_engraver"
-}
-
-InnerStaffGroupContext= \translator {
- \type "Engraver_group_engraver"
- \name InnerStaffGroup
-
- \consists "Span_bar_engraver"
- \consists "Span_arpeggio_engraver"
- \consists "Output_property_engraver"
- SystemStartDelimiter \override #'glyph = #'bracket
-
- \consists "System_start_delimiter_engraver"
- \accepts "Staff"
- \accepts "RhythmicStaff"
- \accepts "GrandStaff"
- \accepts "PianoStaff"
-
- \accepts "Lyrics"
- \accepts "ChordNames"
-}
-StaffGroupContext = \translator {
- \InnerStaffGroupContext
- \name StaffGroup
- \accepts "InnerChoirStaff"
- \accepts "ChoirStaff"
- \accepts "InnerStaffGroup"
-}
-
-
-% UGH! JUNKME
-LyricsVoiceContext= \translator{
- \type "Engraver_group_engraver"
- \consistsend "Axis_group_engraver"
- MinimumVerticalExtent = #(cons -1.2 1.2)
- ExtraVerticalExtent = ##f
- VerticalExtent = ##f
- \name LyricsVoice
- \consists "Separating_line_group_engraver"
- \consists "Lyric_engraver"
- \consists "Extender_engraver"
- \consists "Hyphen_engraver"
- \consists "Stanza_number_engraver"
- phrasingPunctuation = #".,:!?\""
-
-}
-NoteNamesContext = \translator {
- \type "Engraver_group_engraver"
- \name NoteNames
- \consistsend "Axis_group_engraver"
-
- MinimumVerticalExtent = ##f
- ExtraVerticalExtent = ##f
- VerticalExtent = ##f
-
-
- \consists "Note_name_engraver"
- \consists "Separating_line_group_engraver"
-}
-
-LyricsContext = \translator {
- \type "Engraver_group_engraver"
- \name Lyrics
- \consists Vertical_align_engraver %need this for getting folded repeats right.
- Generic_property_list = #generic-lyrics-properties
- \consists "Property_engraver"
- \consistsend "Axis_group_engraver"
- MinimumVerticalExtent = ##f
- ExtraVerticalExtent = ##f
- VerticalExtent = ##f
-
- \accepts "LyricsVoice"
-}
-
-
-ChordNamesContext = \translator {
- \type "Engraver_group_engraver"
- \name ChordNames
-
- Generic_property_list = #generic-chord-staff-properties
-
- \consists "Property_engraver"
- \consists "Output_property_engraver"
- \consists "Separating_line_group_engraver"
- \consists "Chord_name_engraver"
- \consists "Skip_req_swallow_translator"
- \consistsend "Axis_group_engraver"
- MinimumVerticalExtent = ##f
- ExtraVerticalExtent = ##f
- VerticalExtent = ##f
-
- VerticalAxisGroup \override #'invisible-staff = ##t
- }
-
-
-
-StupidScore = \translator {
- \type "Score_engraver"
- \name Score
- \consists "Note_heads_engraver"
-}
-
-
-
-
-HaraKiriStaffContext = \translator {
- \StaffContext
- \remove "Axis_group_engraver"
- \consistsend "Hara_kiri_engraver"
- \consists "Instrument_name_engraver"
- \accepts "Voice"
-}
-%{
- The HaraKiriStaffContexts doesn't override \name,
- so it is still named `Staff'.
-
- %\translator { \HaraKiriStaffContext }
-%}
-
-
-
-
-ScoreContext = \translator {
- \type Score_engraver
- \name Score
-
-
- \consists "Repeat_acknowledge_engraver"
- \consists "Timing_engraver"
- \consists "Output_property_engraver"
- \consists "System_start_delimiter_engraver"
- \consists "Mark_engraver"
- \consists "Break_align_engraver"
- \consists "Spacing_engraver"
- \consists "Vertical_align_engraver"
-
- \consists "Lyric_phrasing_engraver"
- \consists "Bar_number_engraver"
- \consists "Span_arpeggio_engraver"
-
- \accepts "Staff"
- \accepts "StaffContainer"
- \accepts "StaffGroup"
- \accepts "RhythmicStaff"
- \accepts "Lyrics"
- \accepts "ChordNames"
- \accepts "GrandStaff"
- \accepts "ChoirStaff"
- \accepts "PianoStaff"
- \accepts "NoteNames"
-
- soloText = #"Solo"
- soloIIText = #"Solo II"
- aDueText = #"a2"
- soloADue = ##t
- splitInterval = #'(0 . 1)
- changeMoment = #`(,(make-moment 0 0) . ,(make-moment 1 512))
-
- barAuto = ##t
- voltaVisibility = ##t
- % name, glyph id, clef position
- % where is c0 in this clef?
-
- clefGlyph = #"clefs-G"
- clefPosition = #-2
- centralCPosition = #-6
-
- automaticPhrasing = ##t
- alignmentReference = #-1 % \down
- defaultBarType = #"|"
-
- explicitClefVisibility = #all-visible
- explicitKeySignatureVisibility = #all-visible
-
- scriptDefinitions = #default-script-alist
-
- verticalAlignmentChildCallback = #Align_interface::alignment_callback
-
- pedalSustainStrings = #'("Ped." "*Ped." "*")
- pedalUnaCordaStrings = #'("una corda" "" "tre corde")
- pedalSostenutoStrings = #'() % FIXME
-
- tupletNumberFormatFunction = #denominator-tuplet-formatter
-
- keyAccidentalOrder = #'(
- (6 . -1) (2 . -1) (5 . -1 ) (1 . -1) (4 . -1) (0 . -1) (3 . -1)
- (3 . 1) (0 . 1) (4 . 1) (1 . 1) (5 . 1) (2 . 1) (6 . 1)
- )
- breakAlignOrder = #'(
- Instrument_name
- Left_edge_item
- Span_bar
- Breathing_sign
- Clef_item
- Key_item
- Staff_bar
- Time_signature
- Custos
- )
-
-
- \elementdescriptions #all-grob-descriptions
-}
-
-OrchestralScoreContext= \translator {
- \ScoreContext
-}
-EasyNotation = \translator {
- \ScoreContext
- NoteHead \override #'molecule-callback = #Note_head::brew_ez_molecule
- easyPlay = ##t
-}
-
+++ /dev/null
-
-%
-% Running LilyPond on this file generates the short interface doc
-%
-#(eval-string (ly-gulp-file "generate-interface-doc.scm"))
+++ /dev/null
-\version "1.3.146"
-
-\paper {
- texsetting = ""
- pssetting = ""
- scmsetting = "(lilyponddefs.ps) findlibfile {exch pop //systemdict /run get exec} { /undefinedfilename signalerror } ifelse\n"% UGH.
-
-}
+++ /dev/null
-\version "1.3.148"
-
-% german-chords.ly:
-% german/norwegian/danish?
-
-% To get Bb instead of B, use
-% \include "german-chords.ly"
-% #(set! german-Bb #t)
-
-#(define german-Bb #f)
-
-#(define (pitch->chord-name-text-banter pitch steps)
- (let ((dopitch (if (member (cdr pitch) '((6 -1) (6 -2)))
- (list 7 (+ (if german-Bb 0 1) (caddr pitch)))
- (cdr pitch)
- )))
- (cons
- (list-ref '("C" "D" "E" "F" "G" "A" "H" "B") (car dopitch))
- (accidental->text-super (cadr dopitch))
- )
- )
- )
-
-
-
-#(define (pitch->note-name-text-banter pitch)
- (let ((dopitch (if (member (cdr pitch) '((6 -1) (6 -2)))
- (list 7 (+ 1 (caddr pitch)))
- (cdr pitch)
- )))
- (list
- (string-append
- (list-ref '("c" "d" "e" "f" "g" "a" "h" "b") (car dopitch))
- (if (or (equal? (car dopitch) 2) (equal? (car dopitch) 5))
- (list-ref '( "ses" "s" "" "is" "isis") (+ 2 (cadr dopitch)))
- (list-ref '("eses" "es" "" "is" "isis") (+ 2 (cadr dopitch)))
- )
- )
- )
- )
- )
+++ /dev/null
-% Toplevel initialisation file.
-
-\version "1.3.146"
-
-
-\include "declarations.ly"
-
-\score {
- \context Voice \notes\relative c {
- \maininput
- }
- \paper { }
- \midi { }
-}
+++ /dev/null
-% Toplevel initialisation file.
-
-\version "1.3.146"
-
-
-\include "declarations.ly"
-
-\score {
- \context Voice \notes\relative c {
- \maininput
- }
- \paper {
-
- % indent = 0.0
- }
- \midi{ }
-}
+++ /dev/null
-\version "1.3.146"
-
-% ledger.ly
-
-hsize = 11.0 \in
-vsize = 17.0 \in
-
-
+++ /dev/null
-\version "1.3.146"
-% legal.ly
-
-hsize = 8.5 \in
-vsize = 14.0 \in
+++ /dev/null
-\version "1.3.146"
-% letter.ly
-
-hsize = 8.5 \in
-vsize = 11.0 \in
-
-
+++ /dev/null
-\version "1.3.146"
-\midi {
- \tempo 4=60
- \include "performer.ly"
-% unfold_all = "1"
-}
-
+++ /dev/null
-% paper-as5.ly
-
-\version "1.3.146"
-
-paperAsFive = \paper {
- staffheight = 5.\char
-
- \stylesheet #(as-make-style-sheet 'as5)
-
- \translator { \StaffContext barSize = #5 }
-
- % no beam-slope
- %\translator { \VoiceContext beamHeight = #0 }
- \include "params-as.ly"
-}
-
-\paper { \paperAsFive }
+++ /dev/null
-% paper-as9.ly
-
-\version "1.3.146"
-
-paperAsNine = \paper {
- staffheight = 9.\char
-
- %\translator { \StaffContext barSize = \staffheight }
-
- \stylesheet #(as-make-style-sheet 'as9)
-
- \include "params-as.ly"
-
-}
-
-\paper { \paperAsNine }
+++ /dev/null
-\version "1.3.146"
-% paper.ly
-
-%% Why som complicated? /MB
-%linewidth20 = \hsize - 2.5 * \staffheight
-%textheight20 = \vsize - 5.0 * \staffheight
-%linewidth = \staffheight/20.0 * \linewidth20
-%textheight = \staffheight/20.0 * \textheight20
-
-linewidth = \hsize - 2.\cm
-% Leave the textheight calculation to the geometry package. /MB
-%textheight = \vsize - 4.\cm
-
-indent = \linewidth / 14.0
-
+++ /dev/null
-% paper11.ly
-
-\version "1.3.146"
-
-paperEleven = \paper {
- staffheight = 11.0\pt
- \stylesheet #(make-style-sheet 'paper11)
-
- \include "params.ly"
-}
-
-\paper { \paperEleven }
+++ /dev/null
-% paper13.ly
-
-\version "1.3.146"
-
-paperThirteen = \paper {
- staffheight = 13.0\pt
-
- \stylesheet #(make-style-sheet 'paper13)
-
- \include "params.ly"
-}
-
-\paper { \paperThirteen }
+++ /dev/null
-% paper20.ly
-
-
-\version "1.3.146"
-
-paperTwenty = \paper {
- staffheight = 20.0\pt
- \stylesheet #(make-style-sheet 'paper20)
-
- \include "params.ly"
-}
-
-\paper { \paperTwenty }
+++ /dev/null
-% paper23.ly
-
-
-\version "1.3.146"
-
-paperTwentythree = \paper {
- staffheight = 23.0\pt
- \stylesheet #(make-style-sheet 'paper23)
- \include "params.ly"
-}
-
-\paper { \paperTwentythree }
+++ /dev/null
-\version "1.3.146"
-% params-as.ly
-% generic paper parameters
-
-outputscale = \staffheight / 4.0
-
-linewidth = 60.0 \char
-textheight = 60.0 \char
-indent = 8.0\char
-
-staffspace = (\staffheight - 1.0 ) / 4.0
-stafflinethickness = \staffspace / 2.0
-
-\translator { \NoteNamesContext }
-\translator { \ScoreContext }
-\translator { \ChoirStaffContext }
-\translator { \GraceContext }
-\translator { \RhythmicStaffContext}
-\translator { \StaffContext }
-\translator { \VoiceContext }
-\translator { \StaffGroupContext }
-\translator { \ChordNamesContext }
-\translator { \GrandStaffContext }
-\translator { \LyricsContext }
-\translator { \ThreadContext }
-\translator { \PianoStaffContext }
-\translator { \LyricsVoiceContext }
-\translator { \StaffContainerContext }
-
-
+++ /dev/null
-\version "1.3.146"
-% JUNKME.
-
-%% deprecated
-papersizename = \papersize
-
-% ly2dvi now uses `papersize' internally (and on cmd line)
-papersize = \papersize
-
-% FIXME
-% direct PostScript line height for single line staffs
-lineheight = 14
-
-paperfile = \papersize + ".ly"
-
-% paperfile = "a4.ly"
-
-\include \paperfile
-\include "paper.ly"
-
-staffspace = \staffheight / 4.0
-stafflinethickness = \staffspace / 10.0
-outputscale = \staffheight / 4.0
-
-\translator { \NoteNamesContext }
-\translator { \ScoreContext }
-\translator { \ChoirStaffContext}
-\translator { \InnerChoirStaffContext}
-\translator { \GraceContext}
-\translator { \RhythmicStaffContext}
-\translator { \StaffContext }
-\translator { \VoiceContext}
-\translator { \StaffGroupContext }
-\translator { \InnerStaffGroupContext }
-\translator { \ChordNamesContext }
-\translator { \GrandStaffContext}
-\translator { \LyricsContext }
-\translator { \ThreadContext}
-\translator { \PianoStaffContext}
-\translator { \LyricsVoiceContext }
-\translator { \StaffContainerContext }
-
-
-
-
-
+++ /dev/null
-\version "1.3.146"
-
-% JUNKME
-%part-paper.ly
-
-\paper {
- \translator { \OrchestralPartStaffContext }
- \translator { \ScoreContext skipBars = ##t }
-}
-
+++ /dev/null
-\version "1.3.146"
-%
-% setup for Request->Element conversion. Guru-only
-%
-StaffContext = \translator {
- \type "Staff_performer"
- \name Staff
- \accepts Voice
-
- \consists "Key_performer"
- \consists "Tempo_performer"
- \consists "Time_signature_performer"
- dynamicStyle = #"dynamic"
-}
-\translator { \StaffContext }
-\translator { \StaffContext
- \name RhythmicStaff
-}
-
-
-VoiceContext = \translator {
- \type "Performer_group_performer"
- \name Voice
-% All notes fall to Grace if you leave Thread out (huh?)
- \consists "Dynamic_performer"
- \consists "Span_dynamic_performer"
- \consists "Piano_pedal_performer"
- \consists "Grace_position_performer"
- \accepts Thread
- \accepts Grace
-}
-\translator { \VoiceContext }
-
-ThreadContext = \translator {
- \type "Performer_group_performer"
- \name Thread
- \consists "Note_performer"
- \consists "Tie_performer"
-}
-\translator { \ThreadContext }
-
-\translator {
- \type "Grace_performer_group"
- \name Grace
- \consists "Note_performer"
- \consists "Tie_performer"
- \consists "Swallow_performer"
-
- weAreGraceContext = #t
-}
-
-\translator
-{
- \type "Performer_group_performer"
- \name VoiceTwo\consists "Note_performer"
-
-}
-
-GrandStaffContext = \translator {
- \type "Performer_group_performer"
- \name GrandStaff
- \accepts RhythmicStaff
- \accepts Staff
-}
-\translator { \GrandStaffContext }
-
-PianoStaffContext = \translator {
- \type "Performer_group_performer"
- \name "PianoStaff"
- \accepts Staff
-}
-\translator { \PianoStaffContext }
-
-\translator {
- \type "Performer_group_performer"
- \consists "Lyric_performer"
- \name LyricsVoice
-}
-
-\translator{
- \type "Performer_group_performer"
- \name ChoirStaff
- \accepts Staff
-}
-\translator {
- \type "Staff_performer"
- \accepts LyricsVoice
- \name Lyrics
- \consists "Time_signature_performer"
- \consists "Tempo_performer"
-}
-
-\translator {
- \type "Staff_performer"
- \accepts ChordNameVoice
- \name ChordNames
-}
-
-\translator {
- \type Performer_group_performer
- \consists Note_performer
- \name ChordNameVoice
-}
-
-\translator {
- \type Performer_group_performer
-
- \name StaffGroup
- \accepts Staff
-}
-
-ScoreContext = \translator {
- \type "Score_performer"
-
- \name Score
- instrument = #"bright acoustic"
- \accepts Staff
- \accepts GrandStaff
- \accepts PianoStaff
- \accepts Lyrics
- \accepts StaffGroup
- \accepts ChoirStaff
- \accepts RhythmicStaff
- \accepts ChordNames
- \consists "Swallow_performer"
-
- dynamicAbsoluteVolumeFunction = #default-dynamic-absolute-volume
- instrumentEqualizer = #default-instrument-equalizer
-}
-\translator { \ScoreContext }
-
+++ /dev/null
-% property.ly
-
-\version "1.3.146"
-
-stemUp = \property Voice.Stem \set #'direction = #1
-stemDown = \property Voice.Stem \set #'direction = #-1
-stemBoth= \property Voice.Stem \revert #'direction
-
-slurUp = \property Voice.Slur \override #'direction = #1
-slurDown = \property Voice.Slur \override #'direction = #-1
-slurBoth = \property Voice.Slur \revert #'direction
-shiftOn = \property Voice.NoteColumn \override #'horizontal-shift = #1
-shiftOnn = \property Voice.NoteColumn \override #'horizontal-shift = #2
-shiftOnnn = \property Voice.NoteColumn \override #'horizontal-shift = #3
-shiftOff = \property Voice.NoteColumn \revert #'horizontal-shift
-
-tieUp = \property Voice.Tie \override #'direction = #1
-tieDown = \property Voice.Tie \override #'direction = #-1
-tieBoth = \property Voice.Tie \revert #'direction
-
-dynamicUp = {
- \property Voice.DynamicText \override #'direction = #1
- \property Voice.DynamicLineSpanner \override #'direction = #1
-}
-dynamicDown = {
- \property Voice.DynamicText \override #'direction = #-1
- \property Voice.DynamicLineSpanner \override #'direction = #-1
-}
-dynamicBoth = {
- \property Voice.DynamicText \revert #'direction
- \property Voice.DynamicLineSpanner \revert #'direction
-}
-
-scriptUp = {
- \property Voice.TextScript \override #'direction = #1
- \property Voice.Script \override #'direction = #1
-}
-scriptDown = {
- \property Voice.TextScript \override #'direction = #-1
- \property Voice.Script \override #'direction = #-1
-}
-scriptBoth = {
- \property Voice.TextScript \revert #'direction
- \property Voice.Script \revert #'direction
-}
-
-tupletUp = {
- \property Voice.TupletBracket \override #'direction = #1
- \property Voice.TupletBracket \override #'direction = #1
-}
-tupletDown = {
- \property Voice.TupletBracket \override #'direction = #-1
- \property Voice.TupletBracket \override #'direction = #-1
-}
-tupletBoth = {
- \property Voice.TupletBracket \revert #'direction
- \property Voice.TupletBracket \revert #'direction
-}
-
-
-
-cadenzaOn = \property Score.timing = ##f
-cadenzaOff = {
- \property Score.timing = ##t
- \property Score.measurePosition = #(make-moment 0 1)
-}
-
-newpage = {
- \break
- % urg, only works for TeX output
- \context Score \outputproperty #(make-type-checker 'paper-column-interface)
- #'between-system-string = #"\\newpage"
-}
-
-% dynamic dir? text script, articulation script dir?
-oneVoice = {
- \stemBoth
- \slurBoth
- \tieBoth
- \shiftOff
-}
-
-voiceOne = {
- \stemUp
- \slurUp
- \tieUp
-}
-
-voiceTwo = {
- \stemDown
- \slurDown
- \tieDown
-}
-
-voiceThree = {
- \stemUp
- \slurUp
- \tieUp
- \shiftOn
-}
-
-voiceFour = {
- \stemDown
- \slurDown
- \tieDown
- \shiftOn
-}
-
-% There's also dash, but setting dash period/length should be fixed.
-slurDotted = \property Voice.Slur \override #'dashed = #1
-slurSolid = \property Voice.Slur \revert #'dashed
-tieDotted = \property Voice.Tie \override #'dashed = #1
-tieSolid = \property Voice.Tie \revert #'dashed
-
-
-tiny =
- \property Voice.fontSize= -2
-
-
-small =
- \property Voice.fontSize= -1
-
-
-normalsize = {
- \property Voice.fontSize= 0
-}
-
-normalkey = {
- \property Staff.keyOctaviation = ##f
-}
-
-specialkey = {
- \property Staff.keyOctaviation = ##t
-}
-
-% End the incipit and print a ``normal line start''.
-endincipit = \notes{
- \partial 16 s16 % Hack to handle e.g. \bar ".|" \endincipit
- \context Staff \outputproperty #(make-type-checker 'clef-interface) #'full-size-change = ##t
- \context Staff \outputproperty #(make-type-checker 'clef-interface) #'non-default = ##t
- \bar ""
-}
-
-autoBeamOff = \property Voice.noAutoBeaming = ##t
-autoBeamOn = \property Voice.noAutoBeaming = ##f
-
-emptyText = \property Voice.textNonEmpty = ##f
-fatText = \property Voice.textNonEmpty = ##t
-
-showStaffSwitch = \property PianoStaff.followVoice = ##t
-hideStaffSwitch = \property PianoStaff.followVoice = ##f
-
-
-% To remove a Volta bracet or some other graphical object,
-% set it to turnOff. Example: \property Staff.VoltaBracket = \turnOff
-
-turnOff = #'((meta . ((interfaces . ()))))
+++ /dev/null
-\version "1.3.146"
-
-
-major = #'(
- (0 . 0)
- (1 . 0)
- (2 . 0)
- (3 . 0)
- (4 . 0)
- (5 . 0)
- (6 . 0)
- )
-
-minor = #'(
- (0 . 0)
- (1 . 0)
- (2 . -1)
- (3 . 0)
- (4 . 0)
- (5 . -1)
- (6 . -1)
- )
-
-
-ionian = #'(
- (0 . 0)
- (1 . 0)
- (2 . 0)
- (3 . 0)
- (4 . 0)
- (5 . 0)
- (6 . 0)
- )
-
-
-locrian = #'(
- (0 . 0)
- (1 . -1)
- (2 . -1)
- (3 . 0)
- (4 . -1)
- (5 . -1)
- (6 . -1)
- )
-
-
-aeolian = #'(
- (0 . 0)
- (1 . 0)
- (2 . -1)
- (3 . 0)
- (4 . 0)
- (5 . -1)
- (6 . -1)
- )
-
-
-mixolydian = #'(
- (0 . 0)
- (1 . 0)
- (2 . 0)
- (3 . 0)
- (4 . 0)
- (5 . 0)
- (6 . -1)
- )
-
-
-lydian = #'(
- (0 . 0)
- (1 . 0)
- (2 . 0)
- (3 . 1)
- (4 . 0)
- (5 . 0)
- (6 . 0)
- )
-
-
-phrygian = #'(
- (0 . 0)
- (1 . -1)
- (2 . -1)
- (3 . 0)
- (4 . 0)
- (5 . -1)
- (6 . -1)
-)
-
-
-dorian = #'(
- (0 . 0)
- (1 . 0)
- (2 . -1)
- (3 . 0)
- (4 . 0)
- (5 . 0)
- (6 . -1)
- )
-
+++ /dev/null
-\version "1.3.146"
-
-
-dashHat= "marcato"
-dashPlus= "stopped"
-dashDash= "tenuto"
-dashBar= "staccatissimo"
-dashLarger= "accent"
-dashDot= "staccato"
-
-
-thumb = \script "thumb"
-accent = \script "accent"
-marcato = \script "marcato"
-staccatissimo = \script "staccatissimo"
-
-% portato is indicated
-% either by
-% * slurred & dotted notes.
-%or by
-% * slur and dash notes.
-% Neither are really supported, but c4-.-- should work.
-% portato = \script "portato"
-
-fermata = \script "fermata"
-stopped = \script "stopped"
-staccato = \script "staccato"
-tenuto = \script "tenuto"
-upbow = \script "upbow"
-downbow = \script "downbow"
-lheel = \script "lheel"
-rheel = \script "rheel"
-ltoe = \script "ltoe"
-rtoe = \script "rtoe"
-turn = \script "turn"
-open = \script "open"
-flageolet = \script "flageolet"
-reverseturn = \script "reverseturn"
-trill = \script "trill"
-prall = \script "prall"
-mordent = \script "mordent"
-prallprall = \script "prallprall"
-prallmordent = \script "prallmordent"
-upprall = \script "upprall"
-downprall = \script "downprall"
-segno = \script "segno"
-coda = \script "coda"
+++ /dev/null
-\version "1.3.146"
-
-cr = \spanrequest \start "crescendo"
-decr = \spanrequest \start "decrescendo"
-rc = \spanrequest \stop "crescendo"
-rced = \spanrequest \stop "decrescendo"
-
-cresc = \notes {
- \commandspanrequest \start "crescendo"
- \property Voice.crescendoText = #"cresc."
- \property Voice.crescendoSpanner = #'dashed-line
-}
-
-% ah, this is handy: maybe drop resetting of properties in
-% dynamic-engraver ?
-endcresc = \notes {
- \commandspanrequest \stop "crescendo"
- \property Voice.crescendoText \unset
- \property Voice.crescendoSpanner \unset
-}
-
-dim = \notes {
- \commandspanrequest \start "decrescendo"
- \property Voice.decrescendoText = #"dim."
- \property Voice.decrescendoSpanner = #'dashed-line
-}
-
-enddim = \notes {
- \commandspanrequest \stop "decrescendo"
- \property Voice.decrescendoText \unset
- \property Voice.decrescendoSpanner \unset
-}
-
-%{
-
-cresc = \spanrequest \start "crescendo"
-endcresc = \spanrequest \stop "crescendo"
-
-%}
-
-% better name sustainstart/stop?
-sustainDown = \spanrequest \start "Sustain"
-sustainUp = \spanrequest \stop "Sustain"
-
-unaCorda = \spanrequest \start "UnaCorda"
-treCorde = \spanrequest \stop "UnaCorda"
-
-sostenutoDown = \spanrequest \start "Sostenuto"
-sostenutoUp = \spanrequest \stop "Sostenuto"
-
-%crescpoco = \property Voice.crescendoText = "cresc. poco a poco"
-%decresc = \property Voice.crescendoText = "decr."
-%dim = \property Voice.crescendoText = "dim."
projects / lilypond.git / commitdiff