From 0fae5f467f91ce11c82f6f29facbd0756ad84678 Mon Sep 17 00:00:00 2001 From: fred Date: Wed, 27 Mar 2002 01:51:54 +0000 Subject: [PATCH] lilypond-1.5.0 --- lily/spaceable-element.cc | 82 ------- ly/a4.ly | 5 - ly/accordion-defs.ly | 56 ----- ly/book-init.ly | 14 -- ly/center.ly | 15 -- ly/chord-modifiers.ly | 17 -- ly/declarations.ly | 55 ----- ly/drumpitch.ly | 160 ------------ ly/dynamic-scripts.ly | 27 -- ly/engraver.ly | 461 ----------------------------------- ly/generate-interface-doc.ly | 5 - ly/generic-paper.ly | 8 - ly/german-chords.ly | 41 ---- ly/init.fly | 14 -- ly/init.sly | 17 -- ly/ledger.ly | 8 - ly/legal.ly | 5 - ly/letter.ly | 7 - ly/midi.ly | 7 - ly/paper-as5.ly | 17 -- ly/paper-as9.ly | 16 -- ly/paper.ly | 15 -- ly/paper11.ly | 12 - ly/paper13.ly | 13 - ly/paper20.ly | 13 - ly/paper23.ly | 12 - ly/params-as.ly | 30 --- ly/params.ly | 46 ---- ly/part-paper.ly | 10 - ly/performer.ly | 131 ---------- ly/property.ly | 157 ------------ ly/scale-definitions.ly | 100 -------- ly/script.ly | 47 ---- ly/spanners.ly | 53 ---- 34 files changed, 1676 deletions(-) delete mode 100644 lily/spaceable-element.cc delete mode 100644 ly/a4.ly delete mode 100644 ly/accordion-defs.ly delete mode 100644 ly/book-init.ly delete mode 100644 ly/center.ly delete mode 100644 ly/chord-modifiers.ly delete mode 100644 ly/declarations.ly delete mode 100644 ly/drumpitch.ly delete mode 100644 ly/dynamic-scripts.ly delete mode 100644 ly/engraver.ly delete mode 100644 ly/generate-interface-doc.ly delete mode 100644 ly/generic-paper.ly delete mode 100644 ly/german-chords.ly delete mode 100644 ly/init.fly delete mode 100644 ly/init.sly delete mode 100644 ly/ledger.ly delete mode 100644 ly/legal.ly delete mode 100644 ly/letter.ly delete mode 100644 ly/midi.ly delete mode 100644 ly/paper-as5.ly delete mode 100644 ly/paper-as9.ly delete mode 100644 ly/paper.ly delete mode 100644 ly/paper11.ly delete mode 100644 ly/paper13.ly delete mode 100644 ly/paper20.ly delete mode 100644 ly/paper23.ly delete mode 100644 ly/params-as.ly delete mode 100644 ly/params.ly delete mode 100644 ly/part-paper.ly delete mode 100644 ly/performer.ly delete mode 100644 ly/property.ly delete mode 100644 ly/scale-definitions.ly delete mode 100644 ly/script.ly delete mode 100644 ly/spanners.ly diff --git a/lily/spaceable-element.cc b/lily/spaceable-element.cc deleted file mode 100644 index b0d6779c7d..0000000000 --- a/lily/spaceable-element.cc +++ /dev/null @@ -1,82 +0,0 @@ -/* - spaceable-element.cc -- implement Spaceable_grob - - source file of the GNU LilyPond music typesetter - - (c) 2000--2001 Han-Wen Nienhuys - - */ - -#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")); -} diff --git a/ly/a4.ly b/ly/a4.ly deleted file mode 100644 index 8c729c5f5b..0000000000 --- a/ly/a4.ly +++ /dev/null @@ -1,5 +0,0 @@ -\version "1.3.146" -% a4.ly - -hsize = 210.0 \mm -vsize = 296.9 \mm diff --git a/ly/accordion-defs.ly b/ly/accordion-defs.ly deleted file mode 100644 index f363efc71d..0000000000 --- a/ly/accordion-defs.ly +++ /dev/null @@ -1,56 +0,0 @@ -\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" diff --git a/ly/book-init.ly b/ly/book-init.ly deleted file mode 100644 index f6c865109d..0000000000 --- a/ly/book-init.ly +++ /dev/null @@ -1,14 +0,0 @@ -% Toplevel initialisation file. - -\version "1.3.146" - - -\include "declarations.ly" -\include "paper16.ly" - - \paper{ - \paperSixteen -} - - -\maininput diff --git a/ly/center.ly b/ly/center.ly deleted file mode 100644 index c3730fbbe8..0000000000 --- a/ly/center.ly +++ /dev/null @@ -1,15 +0,0 @@ -% Toplevel initialisation file. - -\version "1.3.146" - - -\include "declarations.ly" -\include "paper16.ly" - - \paper { - \paperSixteen -% linewidth = 7.\cm - linewidth = 11.\cm -} - -\maininput diff --git a/ly/chord-modifiers.ly b/ly/chord-modifiers.ly deleted file mode 100644 index dd82fdb331..0000000000 --- a/ly/chord-modifiers.ly +++ /dev/null @@ -1,17 +0,0 @@ -\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 7+ -> c b - (maj . ,(make-pitch 0 6 1 )) - ;; sus4 should delete 2 too... - (sus . ,(make-pitch 0 3 0 )) -) - diff --git a/ly/declarations.ly b/ly/declarations.ly deleted file mode 100644 index 0bb5e95a6a..0000000000 --- a/ly/declarations.ly +++ /dev/null @@ -1,55 +0,0 @@ - -\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" - diff --git a/ly/drumpitch.ly b/ly/drumpitch.ly deleted file mode 100644 index b55e8bb1f4..0000000000 --- a/ly/drumpitch.ly +++ /dev/null @@ -1,160 +0,0 @@ -% 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 - - -%% 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" diff --git a/ly/dynamic-scripts.ly b/ly/dynamic-scripts.ly deleted file mode 100644 index 0f2f3e6b24..0000000000 --- a/ly/dynamic-scripts.ly +++ /dev/null @@ -1,27 +0,0 @@ -\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" - diff --git a/ly/engraver.ly b/ly/engraver.ly deleted file mode 100644 index b8fa85214a..0000000000 --- a/ly/engraver.ly +++ /dev/null @@ -1,461 +0,0 @@ -\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 -} - diff --git a/ly/generate-interface-doc.ly b/ly/generate-interface-doc.ly deleted file mode 100644 index a50eeaf3d0..0000000000 --- a/ly/generate-interface-doc.ly +++ /dev/null @@ -1,5 +0,0 @@ - -% -% Running LilyPond on this file generates the short interface doc -% -#(eval-string (ly-gulp-file "generate-interface-doc.scm")) diff --git a/ly/generic-paper.ly b/ly/generic-paper.ly deleted file mode 100644 index df96f2abcd..0000000000 --- a/ly/generic-paper.ly +++ /dev/null @@ -1,8 +0,0 @@ -\version "1.3.146" - -\paper { - texsetting = "" - pssetting = "" - scmsetting = "(lilyponddefs.ps) findlibfile {exch pop //systemdict /run get exec} { /undefinedfilename signalerror } ifelse\n"% UGH. - -} diff --git a/ly/german-chords.ly b/ly/german-chords.ly deleted file mode 100644 index cb741eba14..0000000000 --- a/ly/german-chords.ly +++ /dev/null @@ -1,41 +0,0 @@ -\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))) - ) - ) - ) - ) - ) diff --git a/ly/init.fly b/ly/init.fly deleted file mode 100644 index 640f13692f..0000000000 --- a/ly/init.fly +++ /dev/null @@ -1,14 +0,0 @@ -% Toplevel initialisation file. - -\version "1.3.146" - - -\include "declarations.ly" - -\score { - \context Voice \notes\relative c { - \maininput - } - \paper { } - \midi { } -} diff --git a/ly/init.sly b/ly/init.sly deleted file mode 100644 index 497dfd8daa..0000000000 --- a/ly/init.sly +++ /dev/null @@ -1,17 +0,0 @@ -% Toplevel initialisation file. - -\version "1.3.146" - - -\include "declarations.ly" - -\score { - \context Voice \notes\relative c { - \maininput - } - \paper { - - % indent = 0.0 - } - \midi{ } -} diff --git a/ly/ledger.ly b/ly/ledger.ly deleted file mode 100644 index e1b774d343..0000000000 --- a/ly/ledger.ly +++ /dev/null @@ -1,8 +0,0 @@ -\version "1.3.146" - -% ledger.ly - -hsize = 11.0 \in -vsize = 17.0 \in - - diff --git a/ly/legal.ly b/ly/legal.ly deleted file mode 100644 index 4291b819f5..0000000000 --- a/ly/legal.ly +++ /dev/null @@ -1,5 +0,0 @@ -\version "1.3.146" -% legal.ly - -hsize = 8.5 \in -vsize = 14.0 \in diff --git a/ly/letter.ly b/ly/letter.ly deleted file mode 100644 index c9be6592b5..0000000000 --- a/ly/letter.ly +++ /dev/null @@ -1,7 +0,0 @@ -\version "1.3.146" -% letter.ly - -hsize = 8.5 \in -vsize = 11.0 \in - - diff --git a/ly/midi.ly b/ly/midi.ly deleted file mode 100644 index a4283f4ccf..0000000000 --- a/ly/midi.ly +++ /dev/null @@ -1,7 +0,0 @@ -\version "1.3.146" -\midi { - \tempo 4=60 - \include "performer.ly" -% unfold_all = "1" -} - diff --git a/ly/paper-as5.ly b/ly/paper-as5.ly deleted file mode 100644 index d325b9be52..0000000000 --- a/ly/paper-as5.ly +++ /dev/null @@ -1,17 +0,0 @@ -% 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 } diff --git a/ly/paper-as9.ly b/ly/paper-as9.ly deleted file mode 100644 index d35590f5af..0000000000 --- a/ly/paper-as9.ly +++ /dev/null @@ -1,16 +0,0 @@ -% 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 } diff --git a/ly/paper.ly b/ly/paper.ly deleted file mode 100644 index fb9aea728c..0000000000 --- a/ly/paper.ly +++ /dev/null @@ -1,15 +0,0 @@ -\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 - diff --git a/ly/paper11.ly b/ly/paper11.ly deleted file mode 100644 index 61dbaf5e08..0000000000 --- a/ly/paper11.ly +++ /dev/null @@ -1,12 +0,0 @@ -% paper11.ly - -\version "1.3.146" - -paperEleven = \paper { - staffheight = 11.0\pt - \stylesheet #(make-style-sheet 'paper11) - - \include "params.ly" -} - -\paper { \paperEleven } diff --git a/ly/paper13.ly b/ly/paper13.ly deleted file mode 100644 index 445c37e929..0000000000 --- a/ly/paper13.ly +++ /dev/null @@ -1,13 +0,0 @@ -% paper13.ly - -\version "1.3.146" - -paperThirteen = \paper { - staffheight = 13.0\pt - - \stylesheet #(make-style-sheet 'paper13) - - \include "params.ly" -} - -\paper { \paperThirteen } diff --git a/ly/paper20.ly b/ly/paper20.ly deleted file mode 100644 index b213bbc0ec..0000000000 --- a/ly/paper20.ly +++ /dev/null @@ -1,13 +0,0 @@ -% paper20.ly - - -\version "1.3.146" - -paperTwenty = \paper { - staffheight = 20.0\pt - \stylesheet #(make-style-sheet 'paper20) - - \include "params.ly" -} - -\paper { \paperTwenty } diff --git a/ly/paper23.ly b/ly/paper23.ly deleted file mode 100644 index aa08a5e756..0000000000 --- a/ly/paper23.ly +++ /dev/null @@ -1,12 +0,0 @@ -% paper23.ly - - -\version "1.3.146" - -paperTwentythree = \paper { - staffheight = 23.0\pt - \stylesheet #(make-style-sheet 'paper23) - \include "params.ly" -} - -\paper { \paperTwentythree } diff --git a/ly/params-as.ly b/ly/params-as.ly deleted file mode 100644 index fafb495c0a..0000000000 --- a/ly/params-as.ly +++ /dev/null @@ -1,30 +0,0 @@ -\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 } - - diff --git a/ly/params.ly b/ly/params.ly deleted file mode 100644 index 13bab53ff6..0000000000 --- a/ly/params.ly +++ /dev/null @@ -1,46 +0,0 @@ -\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 } - - - - - diff --git a/ly/part-paper.ly b/ly/part-paper.ly deleted file mode 100644 index 5c2c17f170..0000000000 --- a/ly/part-paper.ly +++ /dev/null @@ -1,10 +0,0 @@ -\version "1.3.146" - -% JUNKME -%part-paper.ly - -\paper { - \translator { \OrchestralPartStaffContext } - \translator { \ScoreContext skipBars = ##t } -} - diff --git a/ly/performer.ly b/ly/performer.ly deleted file mode 100644 index 8cfa8204bd..0000000000 --- a/ly/performer.ly +++ /dev/null @@ -1,131 +0,0 @@ -\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 } - diff --git a/ly/property.ly b/ly/property.ly deleted file mode 100644 index 1ebe98c918..0000000000 --- a/ly/property.ly +++ /dev/null @@ -1,157 +0,0 @@ -% 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 . ())))) diff --git a/ly/scale-definitions.ly b/ly/scale-definitions.ly deleted file mode 100644 index b3268ffef9..0000000000 --- a/ly/scale-definitions.ly +++ /dev/null @@ -1,100 +0,0 @@ -\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) - ) - diff --git a/ly/script.ly b/ly/script.ly deleted file mode 100644 index b0fcedd3dc..0000000000 --- a/ly/script.ly +++ /dev/null @@ -1,47 +0,0 @@ -\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" diff --git a/ly/spanners.ly b/ly/spanners.ly deleted file mode 100644 index 3fdf1b7b31..0000000000 --- a/ly/spanners.ly +++ /dev/null @@ -1,53 +0,0 @@ -\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." -- 2.39.5