From e109a346b3dfcefddb707119d543c13a51a109c5 Mon Sep 17 00:00:00 2001 From: fred Date: Sun, 24 Mar 2002 20:02:28 +0000 Subject: [PATCH] lilypond-0.1.13 --- input/fugue1.ly | 208 ------------------------------ input/prelude1.ly | 190 --------------------------- input/wohltemperirt.ly | 188 --------------------------- lily/audio-score.cc | 119 ----------------- lily/global-gravs.cc | 93 ------------- lily/global-performers.cc | 52 -------- lily/head-column.cc | 82 ------------ lily/include/audio-score.hh | 41 ------ lily/include/global-performers.hh | 33 ----- lily/include/head-column.hh | 44 ------- lily/include/note-column-grav.hh | 37 ------ lily/include/rest-column.hh | 24 ---- lily/include/text-grav.hh | 29 ----- lily/include/voice-group-gravs.hh | 33 ----- lily/input-translator.cc | 137 -------------------- lily/note-column-grav.cc | 147 --------------------- lily/rest-column.cc | 28 ---- lily/voice-group-gravs.cc | 59 --------- tex/dimen.tex | 57 -------- 19 files changed, 1601 deletions(-) delete mode 100644 input/fugue1.ly delete mode 100644 input/prelude1.ly delete mode 100644 input/wohltemperirt.ly delete mode 100644 lily/audio-score.cc delete mode 100644 lily/global-gravs.cc delete mode 100644 lily/global-performers.cc delete mode 100644 lily/head-column.cc delete mode 100644 lily/include/audio-score.hh delete mode 100644 lily/include/global-performers.hh delete mode 100644 lily/include/head-column.hh delete mode 100644 lily/include/note-column-grav.hh delete mode 100644 lily/include/rest-column.hh delete mode 100644 lily/include/text-grav.hh delete mode 100644 lily/include/voice-group-gravs.hh delete mode 100644 lily/input-translator.cc delete mode 100644 lily/note-column-grav.cc delete mode 100644 lily/rest-column.cc delete mode 100644 lily/voice-group-gravs.cc delete mode 100644 tex/dimen.tex diff --git a/input/fugue1.ly b/input/fugue1.ly deleted file mode 100644 index f3d8fb0c03..0000000000 --- a/input/fugue1.ly +++ /dev/null @@ -1,208 +0,0 @@ -\header{ -filename fugue1.ly -title Fuga a 4 -description Das Wohltemperierte Clavier I, Fuga I (c-major) -opus BWV 846 -composer Johann Sebastian Bach (1685-1750) -enteredby Shay Rojansky -copyright Public Domain -} - -%{ - -%} -\version "0.1.1"; - - -global = - \melodic { - \meter 4/4; % should be \meter C - } - -tenor = - \melodic { - \clef "violin"; - \octave c'; - - \stem \down; - r8 [c8 d e] [f. g32 f] [e8 a] | - [d g] ~ [g16 a g f] [e f e d] [c d c 'b] | - ['a8 fis] g4 ~ [g8 fis16 e] [f8 d] | - [g f! e d] c r r g ~ | -%% 5 - [g f16 e] f4 ~ [f16 f e8] d4 | - [c8 f] r16 [g f e] [f8 d] g4 ~ | - g4 r4 r2 | - r1 | - r8 [g8 a b] [c'. d'32 c'] [b8 e'] -%% 10 - [a d'] ~ [d'16 e' d' c'] b8 r8 r d | - [e fis] [g. a32 g] [fis8 b e a] ~ | - [a16 b a gis] [fis8 f!] [e d] ~ [d16 e fis gis] | - [a gis a b] [gis fis gis a] b8 r8 r4 | - r8 [c8 d e] \stem 1; [f. g32 f] [e8 a] | -%% 15 - [d g] ~ [g16 a g f] e8 \stem -1; [e fis g] ~ | - [g8 fis] [gis8 a] ~ [a g! a b] | - \stem 0; - [c'. d'32 c'] [b8 e'] [a d'] ~ [d'16 e' d' c'] | - [b8 g' cis' d'] [e' cis' d' e' ] | - \stem -1; a8 r8 r e [fis g] \stem 0; [a. b32 a] | -%% 20 - [g8 c' fis b] ~ [b16 c' b a] \stem -1; [g fis e d] \stem 0; | - e4 \stem -1; d ~ [d16 a g f!] [e g f! a] | - g4 ~ [g16 a bes8] c'4 [d'8 g] | - \stem 0; g4. f8 ~ [f e] d4 | - \stem -1; e8 a4 g8 ~ [g8 f g a] | -%% 25 - [bes8. c'32 b] [a8 d'] [g c'] ~ [c'16 d' c' bes] | - [a bes a g] [f g f e] d4 ~ [d8. g16] | - a4 r16 [f'16 d'8] e'2 | - } - - -soprane = - \melodic { - \octave c'; - \stem \up; - r1 | - r2 r8 [g8 a b] | - [c'. d'32 c'] [b8 e'] [a d'] ~ [d'16 e' d' c'] | - [b g a b] [c' b c' d'] [e' d' e' fis'] [g'8 b] | -%% 5 - [c' a] [d'16 c' b a] [g8. g16] [f e f g] | - [a g a b] c'2 b4 | - \octave c''; - r8 [c8 d e] [f. g32 f] [e8 a] | - [d g] ~ [g16 a g f] [e8 a] ~ [a16 b a g] | - f2 [e8. fis16] g4 ~ -%% 10 - g4 fis [g16 f! e d] [c d c 'b] | - ['a16 c 'b 'a] 'g8 r8 r16 [c16 'b 'a] ['gis8 e] | - [d c16 'b16] ['a 'gis 'a 'b] [c 'fis 'a 'gis] ['b8 'a16 'b] - [c8 f e d] ~ [d c16 'b] ['b8. 'a16] | - 'a4 r4 r2 | -%% 15 - r2 r8 ['g8 'a 'b] | - [c8. d32 c] ['b8 c] [d e] [f!. g32 f!] | - [e8 a d g] ~ [g16 a g f] [e8 a] | - [d8 bes] [a g16 f] [g f g e] [f g g f32 g] | - [a16 cis d g] [e8. d16] d8 r8 r4 | -%% 20 - r2 r4 r8 'g | - ['a 'b] [c. d32 c] ['b8 e 'a d] ~ | - [e16 e d c] ['b c d e] [f g a g] [f e d c] | - 'b4 [c8 d] 'g c4 'b8 | - c4 ['b8 'bes8] 'a d4 c8 | -%% 25 - [d8 e] f4 ~ [f16 a g f] [e f e d] | - c2 r16 ['g32 'a 'b!16 c] [d e f8] ~ | - [f32 c d e f16 g] [a8. b16] | - } - -alt = - \melodic { - \clef "bass"; - \octave c; - - \stem 1; - r1 | - r | - r | - r8 [g8 a b] [c'. d'32 c'] [b8 e'] | -%% 5 - [a d'] ~ [d'16 e' d' c'] [b8 c' ~ c' bes8] | - [a d' g c'] r16 [a16 b c'] d'4 | - g4 r8 g8 [a b] [c'. d'32 c'] | - [b8 e' a d'] ~ [d'16 e' d' c'!] [b!8 e'] ~ | - e'4 d'4 [c'16 b c' a] [e' d' c' b] | -%% 10 - [c'16 a b c'] [d' c' b a] g4 r4 | - r1 | - r8 [e8 fis gis] [a. b32 a] [gis8 c'] | - [fis b] ~ [b16 c' b a] gis8 a4 gis8 | - a4 r8 g8 [a b] c'. [d'32 c'] | -%% 15 - [b8 e' a d'] ~ [d' g] d'4 | - [c'8 a] e'4 d'8 r8 r4 | - r8 [a8 b cis'] [d'. e'32 d'] [c'!8 f'] | - [b8 e'] ~ [e'16 f' e' d'] cis'8 r8 r4 | - r8 [a8 b cis'] [d'. e'32 d'] [c'!8 fis'] | -%% 20 - [b e'] ~ [e'16 fis' e' d'] c'2 ~ | - [c'16 d' c' b] [a g a fis] [g8 b c' d'] | - [e'. f'32 e'] [d'8 g'] [c' f'] ~ [f'16 g' f' e'] | - d'4 [e'8 d'] ~ [d' g] g4 ~ - [g8 c d e] [f. g32 f] [e8 a] | -%% 25 - [d g] ~ [g16 a g f] [e d e f] [g a bes g] | - [a e f g] [a b c' a] b2 | - c'1 | - } - -bass = - \melodic { - \clef "bass"; - \octave c; - - \stem -1; - r1 | - r | - r | - r | -%% 5 - r2 r8 [c8 d e] | - [f. g32 f] [e8 a] [d g] ~ [g16 a g f] | - [e f e d] [c d c 'b] ['a8 d a fis] | - [g16 a bes g] [cis8 d] a4 e4 | - [a16 b c' d'] [c' b a g] c'8 r8 r4 | -%% 10 - r2 r8 ['g8 'a 'b] | - [c. d32 c] ['b8 e] ['a d] ~ [d16 e d c] | - 'b8 e4 d8 c f!4 e8 ~ | - e d4 e8 [f! e16 d] e4 | - 'a4 r4 r2 | -%% 15 - r8 ['g8 'a 'b] [c. d32 c] ['b8 e] | - ['a8 d] ~ [d16 e d c] ['b8 'bes 'a g'] | - ['a8 fis g e] d4 [e8 f!] | - [g8. a32 g] [f8 bes] [e a] ~ [a16 bes a g] | - [f e f d] [g8 a] d2 ~ | -%% 20 - [d16 e d c] ['b 'a 'g 'fis] ['e8 e fis g] ~ | - [g a16 g16] [fis8 d] g2 ~ | - g2 a4 [b8 c'] | - [f16 a g f] [e d c 'b] [c d e f] [g8 'g] | - c1 ~ | -%% 25 - c1 ~ | - c1 ~ | - c1 | - } - - -\score { - \melodic < \id "Piano" ""; - \multi 1; - < \multi 2; - \global - \soprane - \tenor - > - < \multi 2; - \global - \alt - \bass - > - > - - \paper{ - gourlay_maxmeasures =5.; -% castingalgorithme = \Wordwrap - } - \midi { - \tempo 4 = 84; - } -} - -% EOF diff --git a/input/prelude1.ly b/input/prelude1.ly deleted file mode 100644 index da66d87d81..0000000000 --- a/input/prelude1.ly +++ /dev/null @@ -1,190 +0,0 @@ -\header{ -filename prelude1.ly -title Preludium -description Das Wohltemperierte Clavier I, Prelude I (c-major) -opus BWV 846 -source -composer Johann Sebastian Bach (1685-1750) -enteredby Shay Rojansky -copyright Public Domain" -} - -\version "0.1.1"; - - % should add \need{dutch.ini} for - % correct parsing of note names - -global = - \melodic { - \meter 4/4; % should be \meter C - } - - -% should do programmable input. - -soprane = - \melodic { - \clef "violin"; - \octave c'; - - <\multi 2; - % Real soprane - {\stem 1; - r8 [g16 c'] [e' g c' e'] r8 [g16 c'] [e' g c' e'] | - r8 [a16 d'] [f' a d' f'] r8 [a16 d'] [f' a d' f'] | - r8 [g16 d'] [f' g d' f'] r8 [g16 d'] [f' g d' f'] | - r8 [g16 c'] [e' g c' e'] r8 [g16 c'] [e' g c' e'] | - r8 [a16 e'] [a' a e' a'] r8 [a16 e'] [a' a e' a'] | - r8 [fis16 a] [d' fis a d'] r8 [fis16 a] [d' fis a d'] | - r8 [g16 d'] [g' g d' g'] r8 [g16 d'] [g' g d' g'] | - r8 [e16 g] [c' e g c'] r8 [e16 g] [c' e g c'] | - r8 [e16 g] [c' e g c'] r8 [e16 g] [c' e g c'] |} - % Tenor - {\stem -1; - r16 e8. ~ e4 r16 e8. ~ e4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 e8. ~ e4 r16 e8. ~ e4 | - r16 e8. ~ e4 r16 e8. ~ e4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 c8. ~ c4 r16 c8. ~ c4 | - r16 c8. ~ c4 r16 c8. ~ c4 |}> -%% 10 - r8 [d16 fis] [c' d fis c'] r8 [d16 fis] [c' d fis c'] | - r8 [d16 g] [b d g b] r8 [d16 g] [b d g b] | - r8 [e16 g] [cis' e g cis'] r8 [e16 g] [cis' e g cis'] | - r8 [d16 a] [d' d a d'] r8 [d16 a] [d' d a d'] | - r8 [d16 f] [b d f b] r8 [d16 f] [b d f b] | - r8 [c16 g] [c' c g c'] r8 [c16 g] [c' c g c'] | - r8 ['a16 c] [f 'a c f] r8 ['a16 c] [f 'a c f] | - r8 ['a16 c] [f 'a c f] r8 ['a16 c] [f 'a c f] | - r8 ['g16 'b] [f 'g 'b f] r8 ['g16 'b] [f 'g 'b f] | - r8 ['g16 c] [e 'g c e] r8 ['g16 c] [e 'g c e] | -%% 20 - r8 ['bes16 c] [e 'bes c e] r8 ['bes16 c] [e 'bes c e] | - r8 ['a16 c] [e 'a c e] r8 ['a16 c] [e 'a c e] | - r8 ['a16 c] [ees 'a c ees] r8 ['a16 c] [ees 'a c ees] | - r8 ['b16 c] [d 'b c d] r8 ['b16 c] [d 'b c d] | - r8 ['g16 'b] [d 'g 'b d] r8 ['g16 'b] [d 'g 'b d] | - r8 ['g16 c] [e 'g c e] r8 ['g16 c] [e 'g c e] | - r8 ['g16 c] [f 'g c f] r8 ['g16 c] [f 'g c f] | - r8 ['g16 'b] [f 'g 'b f] r8 ['g16 'b] [f 'g 'b f] | - r8 ['a16 c] [fis 'a c fis] r8 ['a16 c] [fis 'a c fis] | - r8 ['g16 c] [g 'g c g] r8 ['g16 c] [g 'g c g] | -%% 30 - r8 ['g16 c] [f 'g c f] r8 ['g16 c] [f 'g c f] | - r8 ['g16 'b] [f 'g 'b f] r8 ['g16 'b] [f 'g 'b f] | - r8 ['g16 'bes] [e 'g 'bes e] r8 ['g16 'bes] [e 'g 'bes e] | - - r8 ['f16 'a] [c f c 'a] [c 'a 'f 'a] ['f 'd 'f 'd] | - r8 [g16 b] [d' f' d' b] [d' b g b] [d f e d] | - || - } - -bass = - \melodic { - \clef "bass"; - \octave c; - - \stem -1; - c'2 c' | - c' c' | - b b | - c' c' | - c' c' | - c' c' | - b b | - b b | - a a | -%% 10 - <\multi 2; - % Alt - {\stem 1; - r16 a8. ~ a4 r16 a8. ~ a4 | - r16 b8. ~ b4 r16 b8. ~ b4 | - r16 bes8. ~ bes4 r16 bes8. ~ bes4 | - r16 a8. ~ a4 r16 a8. ~ a4 | - r16 aes8. ~ aes4 r16 aes8. ~ aes4 | - r16 g8. ~ g4 r16 g8. ~ g4 | - r16 f8. ~ f4 r16 f8. ~ f4 | - r16 f8. ~ f4 r16 f8. ~ f4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 e8. ~ e4 r16 e8. ~ e4 | -%% 20 - r16 g8. ~ g4 r16 g8. ~ g4 | - r16 f8. ~ f4 r16 f8. ~ f4 | - r16 c8. ~ c4 r16 c8. ~ c4 | - r16 f8. ~ f4 r16 f8. ~ f4 | - r16 f8. ~ f4 r16 f8. ~ f4 | - r16 e8. ~ e4 r16 e8. ~ e4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 ees8. ~ ees4 r16 ees8. ~ ees4 | - r16 e!8. ~ e4 r16 e8. ~ e4 | -%% 30 - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 c8. ~ c4 r16 c8. ~ c4 | - - r16 c8. ~ c4 ~ c2 | - r16 'b8. ~ 'b4 ~ 'b2 | - c1 ||} - - % Bass - {\stem -1; - d2 d | - g g | - g g | - f f | - f f | - e e | - e e | - d d | - 'g 'g | - c c | -%% 20 - c c | - 'f 'f | - 'fis 'fis | - 'aes 'aes | - 'g 'g | - 'g 'g | - 'g 'g | - 'g 'g | - 'g 'g | - 'g 'g | -%% 30 - 'g 'g | - 'g 'g | - 'c 'c | - - 'c 'c | - 'c 'c | - 'c1 }> - } - - -\score { - \melodic < \id "Piano" ""; - \multi 1; - < \multi 2; - \global - \soprane - > - < \multi 2; - \global - \bass - > - > - - \paper{ - gourlay_maxmeasures =5.; - - } - \midi { - \tempo 4 = 84; - } -} - -% EOF diff --git a/input/wohltemperirt.ly b/input/wohltemperirt.ly deleted file mode 100644 index b3443e8a65..0000000000 --- a/input/wohltemperirt.ly +++ /dev/null @@ -1,188 +0,0 @@ -\header{ -filename wohltemperirt.ly -title Fuga a 3 -description Das Wohltemperierte Clavier I, Fuga II (c-minor) -opus BWV 847-Fuga -source Henle's Urtext -composer Johann Sebastian Bach (1685-1750) -enteredby HWN and Werner Lemberg -copyright Public Domain -} -%{ - Tested Features: stem direction, multivoice, forced accidentals. -%} - -\version "0.1.1"; - - % should add \need{dutch.ini} for - % correct parsing of note names - -global = - \melodic { - \meter 4/4; % should be \meter C - \keyCminor - } - -dux = - \melodic { - \clef "violin"; - \octave c'; - - \stem \down; - r8 [c'16 b] [c'8 g] [as c'16 b] [c'8 d'] | - [g c'16 b] [c'8 d'] [f16 g] as4 [g16 f] | - [es c' b a] [g f! es d] [c8 es' d' c'] | - [bes a bes c'] [fis g a fis] | -%% 5 - g4 r16 [c d es] [f g as8~] [as16 d es f] | - [g a bes8~] [bes16 es f g] [as g f es] [d8 c'16 b!] | - % forced accident! - c'4 r4 r8 [f' es' d'] | - r8 [as g f] [g f16 es] [f8 d] | - g4 r8 b [c' c'16 b] [c'8 g] | -%% 10 - as4 r8 a [bes bes16 a] [bes8 f] | - g4 r8 g [as as g f] | - \octave c; r8 [as bes c'] r8 [as16 g] [as8 f8] | - [bes8 c' bes as] [bes g f es] | - [f des' c' bes] [c' as g f] | -%% 15 - g8 \octave c'; [g16 fis] [g8 c] [es g16 fis!] [g8 a] | - [d g16 fis] [g8 a!] [c16 d] es4 [d16 c] | - % forced accident! - 'bes8 r8 r16 [d e fis] [g a bes8~] [bes16 e f g] | - [a bes c'8~] [c'16 fis16 g a] [bes8 es!16 d] [es8 'g] | - ['as f16 es] [f8 'a8] ['bes g16 f] [g8 'b] | -%% 20 - [c16 f es d] [c Bes! As G] [F8 as g f] | - [es d es f] [B c d B] | - c4 r8 e8 [f f16 e] [f8 c] | - d4 r8 d8 [es8 es16 d] [es8 Bes] | - c2 ~ [c8 d16 es][ f es f d] | -%% 25 - B8 r8 r B c r r es | - d r r f~ f r r f | - [es as g f] [es d es f] | - [B c d B] [B c] r c | - [f16 d es c]~ [c8 B] c4 r8 e | -%% 30 - f4 r8 f [f es16 d] [es8 | - r r | - } - - -comes = - \melodic { - \octave c''; - \stem \up; - r1 | - r1 | - r8 [g16 fis] [g8 c] [es g16 fis] [g8 a] | - [d8 g16 fis] [g8 a] [c16 d] es4 [d16 c] | -%% 5 - ['bes8 es16 d] [es8 'g8] ['as f16 es] [f8 'a] - ['bes8 g16 f] [g8 'b] [c8 d16 es] f4~ | - [f8 es16 d] [c16 'bes! 'as 'g] ['f8 as g f] - [es d es f] ['b c d 'b] | - [c g16 fis] [g8 d] es4 r8 e8 | -%% 10 - [f f16 e] [f8 c8] d4 r8 d | - [es8 es16 d] [es8 'bes] [c es16 d] [es8 f] | - ['bes es16 d] [es8 f] ['as16 'bes] c4 ['bes16 'as] | - [G16 Es F G] [As Bes c d] [es d c d] [es f g a] | - [bes F G As] [Bes c d e] [f es d es] [ f g a b] | -%% 15 - [c'8 b16 a] [g f! es d] [c8 es d c] | - [Bes A Bes c] [Fis! G A Fis] | - % forced accident - [G8 d16 c] d8 r8 r8 [e16 d] e8 r8 | - r [fis16 e] fis8 r r [G16 F] G8 r8 | - r8 [A16 G] A8 r r [B16 A] B8 r | -%% 20 - r8 [c16 'b] [c8 'g] [As c16 'b] [c8 d] | - [G c16 B] [c8 d] [F16 G] As4 [G16 F] | - [Es8 c16 B] [c8 G] As4 r8 A | - [Bes8 Bes16 A] [Bes8 F8] 'g4 r8 G~ | - [G As16 Bes] [c B c As] F2~ | -%% 25 - [F8 d16 c] [d8 F] [Es es16 d] [es8 G] | - [F f16 es] [f8 As] [G16 f es d] [c B A G] | - [c8 f es d] r [As G F] | - [G F16 Es] [F8 D] [As G] r A | - [B c] [F16 Es D C] C8 [c16 B] [c8 G] | -%% 30 - [As c16 B] [c8 [G8 c16 B] [c8 d] | - [F16 G] As4 [G16 F] E2 | - } - -bassdux = - \melodic { - \clef "bass"; - \octave c'; - r1 | - r | - r | - r | -%% 5 - r | - r1 | - r8 [c16 B] [c8 G] [As c16 B] [c8 d] | - [G c16 B] [c8 d] [F16 G] As4 [G16 F] | - \octave c; [es c' b a] [g f es d] [c d es d] [c Bes! As! G] | - % -> \classic_accidentals -%% 10 - [F bes as g] [f es d c] [Bes c d c] [Bes As G F] | - [Es as g f] [es des c Bes] [As8 c' bes as] | - [g8 f g as] [d es f d] | - [es as g f] [g es d c] | - [d bes as g] [as f es d!] | -%% 15 - es8 r8 r4 r8 [c Bes A] | - r [es d c] [d c16 Bes] [c8 d] | - [G8 bes16 a] [bes8 d] [es c'16 bes] [c'8 e] | - [f d'16 c'] [d'8 fis] g4 r16 [G A B] | - [c16 d es8~] [es16 A Bes c] [d es f8~] [f16 'b c d] | -%% 20 - es8 r r e [f F Es! D] | % -> \classic_accidentals - r [As G F] [G F16 Es] [F8 G] | - [c16 d es d] [c Bes As G] [F bes as g] [f es d c] | - [Bes c d c] [Bes As G F] [Es as g f] [es d c Bes] | - [As Bes c Bes] [As G F Es] [D g f es] [d c B A] | -%% 25 - G4 r4 r16 [G A B] [c d es f] | - [g f as g] [f es d c] [B8 c16 B] [c8 G] | - [As c16 B] [c8 d] [G c16 B] [c8 d] | - [F16 G] As4 [G16 F] Es4 r8 es | - [d c g G] -%% 30 - < \multi 2; - { \stem \up; c2~ | c1~ | c1 } - { \stem \down; C2~ | C1~ | C1 } - > - } - - -\score { - \melodic < \id "Piano" ""; - \multi 1; - < \multi 2; - \global - \dux - \comes - > - < \multi 2; - \global - \bassdux - > - > - - \paper{ - gourlay_maxmeasures =5.; - - } - \midi { - \tempo 4 = 84; - } -} - -% EOF diff --git a/lily/audio-score.cc b/lily/audio-score.cc deleted file mode 100644 index 37125f6fc3..0000000000 --- a/lily/audio-score.cc +++ /dev/null @@ -1,119 +0,0 @@ -/* - audio-score.cc -- implement Audio_score - - source file of the GNU LilyPond music typesetter - - (c) 1997 Jan Nieuwenhuizen -*/ - -#include -#include "debug.hh" -#include "string.hh" -#include "string-convert.hh" -#include "main.hh" -#include "midi-def.hh" -#include "midi-item.hh" -#include "midi-stream.hh" -#include "audio-column.hh" -#include "audio-staff.hh" -#include "audio-score.hh" -#include "score.hh" - -Audio_score::Audio_score () -{ - midi_l_ =0; -} - -void -Audio_score::add (Audio_column* p) -{ - p->audio_score_l_ = this; - audio_column_p_list_.bottom().add (p); -} - -void -Audio_score::output (Midi_stream& midi_stream_r) -{ - int tracks_i = audio_staff_l_list_.size() + 1; - // ugh - int clocks_per_4_i = 384; - midi_stream_r << Midi_header (1, tracks_i, clocks_per_4_i); - output_header_track (midi_stream_r); - int n = 1; - for (PCursor i (audio_staff_l_list_); i.ok(); i++) - i->output (midi_stream_r, n++); -} - -void -Audio_score::output_header_track (Midi_stream& midi_stream_r) -{ - Midi_track midi_track; - - time_t t = time (0); - - // perhaps multiple text events? - String str = String ("Creator: ") + get_version_str() + "\n"; - - Midi_text creator (Midi_text::TEXT, str); - midi_track.add (Moment (0), &creator); - - str = "Automatically generated at "; - str += ctime (&t); - str = str.left_str (str.length_i() - 1); - str += "\n"; - Midi_text generate (Midi_text::TEXT, str); - midi_track.add (Moment (0), &generate); - - str = "from musical definition: "; - - str += origin_str_; - Midi_text from (Midi_text::TEXT, str); - midi_track.add (Moment (0), &from); - - Midi_text track_name (Midi_text::TRACK_NAME, "Track " - + String_convert::i2dec_str (0, 0, '0')); - midi_track.add (Moment (0), &track_name); - - Midi_tempo tempo (midi_l_->get_tempo_i (Moment (1, 4))); - midi_track.add (Moment (0), &tempo); - - midi_stream_r << midi_track; -} - -void -Audio_score::add_staff (Audio_staff* l) -{ - audio_staff_l_list_.bottom().add (l); -} - -void -Audio_score::add (Audio_element *p) -{ - audio_elem_p_list_.bottom().add (p); -} - -void -Audio_score::print() const -{ -#ifndef NPRINT - DOUT << "Audio_score { "; - DOUT << "\ncolumns: "; - for (PCursor i (audio_column_p_list_); i.ok(); i++) - i->print(); - DOUT << "}\n"; -#endif -} - -void -Audio_score::process() -{ - String out=midi_l_->outfile_str_; - if (out == "") - out = default_out_str_ + ".midi"; - - Midi_stream midi_stream (out); - *mlog << "MIDI output to " << out<< " ..." << endl; - - output (midi_stream); - *mlog << endl; -} diff --git a/lily/global-gravs.cc b/lily/global-gravs.cc deleted file mode 100644 index 784c193939..0000000000 --- a/lily/global-gravs.cc +++ /dev/null @@ -1,93 +0,0 @@ -/* - global-gravs.cc -- implement Engraver,Performer ctors - - source file of the GNU LilyPond music typesetter - - (c) 1997 Han-Wen Nienhuys -*/ - -#include "proto.hh" -#include "plist.hh" -#include "input-translator.hh" -#include "debug.hh" -#include "engraver.hh" - -struct Engraver_table_entry { - String name_str_; - Grav_ctor ctor_l_; - Engraver_table_entry (String s, Grav_ctor f) - { - name_str_ =s; - ctor_l_ = f; - } - Engraver_table_entry() - { - ctor_l_ =0; - } -}; - -static Array *grav_table=0; - -void -add_engraver (String s, Grav_ctor f) -{ - if (!grav_table) - grav_table = new Array; - - grav_table->push (Engraver_table_entry (s, f)); -} - - -Engraver* -get_engraver_p (String s) -{ - for (int i=0; i < grav_table->size(); i++) - { - if ((*grav_table)[i].name_str_ == s) - return (*(*grav_table)[i].ctor_l_)(); - } - error ("Unknown engraver `" + s +"\'"); - return 0; -} - -#if 0 - -struct Performer_table_entry -{ - String name_str_; - Perf_ctor ctor_l_; - Performer_table_entry (String s, Perf_ctor f) - { - name_str_ =s; - ctor_l_ = f; - } - Performer_table_entry() - { - ctor_l_ =0; - } -} - -static Array *perf_table=0; - -void -add_performer (String s, Perf_ctor f) -{ - if (!perf_table) - perf_table = new Array; - - perf_table->push (Performer_table_entry (s, f)); -} - - -Performer* -get_performer_p (String s) -{ - for (int i=0; i < perf_table->size(); i++) - { - if ((*perf_table)[i].name_str_ == s) - return (*(*perf_table)[i].ctor_l_)(); - } - error ("Unknown performer `" + s +"\'"); - return 0; -} -#endif diff --git a/lily/global-performers.cc b/lily/global-performers.cc deleted file mode 100644 index 69102aaf23..0000000000 --- a/lily/global-performers.cc +++ /dev/null @@ -1,52 +0,0 @@ -/* - global-performers.cc -- implement - - source file of the GNU LilyPond music typesetter - - (c) 1997 Han-Wen Nienhuys - Jan Nieuwenhuizen -*/ - -#include "proto.hh" -#include "plist.hh" -#include "input-translator.hh" -#include "debug.hh" -#include "performer.hh" - -struct Performer_table_entry { - String name_str_; - Perf_ctor ctor_l_; - Performer_table_entry (String s, Perf_ctor f) - { - name_str_ =s; - ctor_l_ = f; - } - Performer_table_entry() - { - ctor_l_ =0; - } -}; - -static Array *perf_table=0; - -void -add_Performer (String s, Perf_ctor f) -{ - if (!perf_table) - perf_table = new Array; - - perf_table->push (Performer_table_entry (s, f)); -} - - -Performer* -get_performer_p (String s) -{ - for (int i=0; i < perf_table->size(); i++) - { - if ((*perf_table)[i].name_str_ == s) - return (*(*perf_table)[i].ctor_l_)(); - } - error ("Unknown performer `" + s +"\'"); - return 0; -} diff --git a/lily/head-column.cc b/lily/head-column.cc deleted file mode 100644 index b8707965a6..0000000000 --- a/lily/head-column.cc +++ /dev/null @@ -1,82 +0,0 @@ -/* - head-column.cc -- implement Head_column - - source file of the GNU LilyPond music typesetter - - (c) 1997 Han-Wen Nienhuys -*/ - -#include "debug.hh" -#include "head-column.hh" -#include "note-head.hh" -#include "stem.hh" -#include "script.hh" - -Head_column::Head_column() -{ - stem_l_ = 0; - dir_ =CENTER; -} - -void -Head_column::do_substitute_dependency (Score_elem*o, - Score_elem*n) -{ - Script_column::do_substitute_dependency (o,n); - if (o->name() == Note_head::static_name ()) - { - head_l_arr_.substitute ((Note_head*)o->item(), - (n)? (Note_head*)n->item() : 0); - } - if (stem_l_ == o) - { - stem_l_ = n ? (Stem*)n->item():0; - } -} - - -void -Head_column::set (Stem*stem_l) -{ - stem_l_ = stem_l; - Score_elem::add_dependency (stem_l); - for (int i=0; i < script_l_arr_.size(); i++) - script_l_arr_[i]->set_stem (stem_l); -} - -void -Head_column::add (Script *script_l) -{ - Script_column::add (script_l) ; - if (stem_l_) - script_l->set_stem (stem_l_); -} -void -Head_column::add (Note_head *n_l) -{ - add_support (n_l); - head_l_arr_.push (n_l); -} - - - -IMPLEMENT_IS_TYPE_B1(Head_column,Script_column); - -void -Head_column::do_print() const -{ -#ifndef NPRINT - DOUT << "heads: " << head_l_arr_.size(); -#endif -} - -void -Head_column::do_pre_processing() -{ - if (!dir_) - { - if (stem_l_) - dir_ = stem_l_->dir_; - } - Script_column::do_pre_processing(); -} diff --git a/lily/include/audio-score.hh b/lily/include/audio-score.hh deleted file mode 100644 index 0585a0b25d..0000000000 --- a/lily/include/audio-score.hh +++ /dev/null @@ -1,41 +0,0 @@ -/* - audio-score.hh -- declare Audio_score - - (c) 1997 Jan Nieuwenhuizen - */ - -#ifndef AUDIO_SCORE_HH -#define AUDIO_SCORE_HH - -#include "lily-proto.hh" -#include "plist.hh" -#include "music-output.hh" - -/** all stuff which goes onto midi. notes, signs, symbols in a score - #Audio_score# contains the items, the columns. - - */ - -class Audio_score : public Music_output { -public: - Audio_score (); - ~Audio_score () {} - - void add (Audio_column*); - void add_staff (Audio_staff* l); - void add (Audio_element*p); - - - void output (Midi_stream& midi_stream_r); - void output_header_track (Midi_stream& midi_stream_r); - - void print() const; - void process(); - - Pointer_list audio_column_p_list_; - Link_list audio_staff_l_list_; - Pointer_list audio_elem_p_list_; - Midi_def * midi_l_; -}; - -#endif // AUDIO_SCORE_HH diff --git a/lily/include/global-performers.hh b/lily/include/global-performers.hh deleted file mode 100644 index 0ed76e4c54..0000000000 --- a/lily/include/global-performers.hh +++ /dev/null @@ -1,33 +0,0 @@ - -/* - global-performers.hh -- declare global performer stuff - - source file of the GNU LilyPond music typesetter - - (c) 1996, 1997 Han-Wen Nienhuys - Jan Nieuwenhuizen -*/ - -#ifndef GLOBAL_PERFORMER_HH -#define GLOBAL_PERFORMER_HH - -/** - A macro to automate administration of performers - */ -#define ADD_THIS_PERFORMER( c) \ -struct c ## init { \ - static Performer* globalctor() \ - { \ - return new c;\ - } \ - c ## init() \ - { \ - add_Performer (c::static_name(), globalctor); \ - } \ -} _ ## c ## init; - -// typedef Performer*(*Perf_ctor)(void); c++ ? -typedef Performer*(*Perf_ctor)(); -void add_Performer (String s, Perf_ctor f); - -#endif // GLOBAL_PERFORMER_HH diff --git a/lily/include/head-column.hh b/lily/include/head-column.hh deleted file mode 100644 index ab38222b1a..0000000000 --- a/lily/include/head-column.hh +++ /dev/null @@ -1,44 +0,0 @@ -/* - head-column.hh -- declare Head_column - - source file of the GNU LilyPond music typesetter - - (c) 1997 Han-Wen Nienhuys -*/ - - -#ifndef HEAD_COLUMN_HH -#define HEAD_COLUMN_HH - -#include "script-column.hh" - -/** - Scripts and rests/noteheads - */ -class Head_column : public Script_column -{ -public: - Link_array head_l_arr_; - /** The relative position of the "voice" containing this - chord. Normally this would be the same as the stem direction, - but rests do not have stems. - - Hmm. outdated.. Rests *do* have stems. - */ - - Direction dir_; - Stem* stem_l_; - - void add (Note_head*); - virtual void add (Script*s); - void set (Stem*); - Head_column(); - DECLARE_MY_RUNTIME_TYPEINFO; -protected: - - - virtual void do_pre_processing(); - virtual void do_print() const; - virtual void do_substitute_dependency (Score_elem*,Score_elem*); -}; -#endif // HEAD_COLUMN_HH diff --git a/lily/include/note-column-grav.hh b/lily/include/note-column-grav.hh deleted file mode 100644 index 9c68248eb1..0000000000 --- a/lily/include/note-column-grav.hh +++ /dev/null @@ -1,37 +0,0 @@ -/* - note-column-grav.hh -- declare Note_column_engraver - - source file of the GNU LilyPond music typesetter - - (c) 1997 Han-Wen Nienhuys -*/ - - -#ifndef NOTE_COLUMN_GRAV_HH -#define NOTE_COLUMN_GRAV_HH - -#include "engraver.hh" - -class Note_column_engraver :public Engraver { - Rest_column * rest_col_l(); - Note_column * note_col_l(); - - Array< Script * > script_l_arr_; - Stem * stem_l_; - Note_column *ncol_p_; - Rest_column *restcol_p_; - bool h_shift_b_; - Direction dir_; - - - bool acceptable_elem_b (Score_elem const*) const; -protected: - virtual void set_feature (Feature); - virtual void acknowledge_element (Score_elem_info); - virtual void do_pre_move_processing(); - virtual void do_post_move_processing(); -public: - Note_column_engraver(); - DECLARE_MY_RUNTIME_TYPEINFO; -}; -#endif // NOTE_COLUMN_GRAV_HH diff --git a/lily/include/rest-column.hh b/lily/include/rest-column.hh deleted file mode 100644 index 61fafc5bda..0000000000 --- a/lily/include/rest-column.hh +++ /dev/null @@ -1,24 +0,0 @@ -/* - rest-column.hh -- declare Rest_column - - source file of the GNU LilyPond music typesetter - - (c) 1997 Han-Wen Nienhuys -*/ - - -#ifndef REST_COLUMN_HH -#define REST_COLUMN_HH - -#include "script-column.hh" -#include "head-column.hh" - -/** struct to treat a set of rests as union (one voice should only - produce one rest. */ -class Rest_column : public Head_column { -public: - DECLARE_MY_RUNTIME_TYPEINFO; - void translate_heads (int dy); -}; - -#endif // REST_COLUMN_HH diff --git a/lily/include/text-grav.hh b/lily/include/text-grav.hh deleted file mode 100644 index 8bc0bb44a9..0000000000 --- a/lily/include/text-grav.hh +++ /dev/null @@ -1,29 +0,0 @@ -/* - text-grav.hh -- part of GNU LilyPond - - (c) 1997 Han-Wen Nienhuys -*/ - - -#ifndef TEXTGRAV_HH -#define TEXTGRAV_HH -#include "engraver.hh" - -class Text_engraver : public Engraver{ - Text_item * text_p_; - Text_req * text_req_l_; - Direction dir_; - /* *************** */ -protected: - virtual void set_feature (Feature); - virtual bool do_try_request (Request*); - virtual void do_process_requests(); - virtual void do_pre_move_processing(); - virtual void do_post_move_processing(); - virtual void acknowledge_element (Score_elem_info); -public: - Text_engraver(); - DECLARE_MY_RUNTIME_TYPEINFO; -}; - -#endif // TEXTGRAV_HH diff --git a/lily/include/voice-group-gravs.hh b/lily/include/voice-group-gravs.hh deleted file mode 100644 index e6b9a3de84..0000000000 --- a/lily/include/voice-group-gravs.hh +++ /dev/null @@ -1,33 +0,0 @@ -/* - voice-group-gravs.hh -- declare Voice_group_engravers - - source file of the GNU LilyPond music typesetter - - (c) 1997 Han-Wen Nienhuys -*/ - - -#ifndef VOICEGROUPGRAVS_HH -#define VOICEGROUPGRAVS_HH - -#include "engraver-group.hh" - -/** - A group of voices which share certain characteristics (such as beams.). - */ -class Voice_group_engravers : public Engraver_group_engraver { - Moment termination_mom_; - Direction dir_; - -protected: - virtual void do_print() const; - virtual Scalar get_feature (String); - virtual bool do_try_request (Request*); -public: - - - DECLARE_MY_RUNTIME_TYPEINFO; - static bool static_acceptable_request_b (Request*); - Voice_group_engravers(); -}; -#endif // VOICEGROUPGRAVS_HH diff --git a/lily/input-translator.cc b/lily/input-translator.cc deleted file mode 100644 index ff277cc672..0000000000 --- a/lily/input-translator.cc +++ /dev/null @@ -1,137 +0,0 @@ -/* - input-translator.cc -- implement Input_translator - - source file of the GNU LilyPond music typesetter - - (c) 1997 Han-Wen Nienhuys -*/ - -#include "debug.hh" -#include "engraver.hh" -#include "input-translator.hh" -#include "parray.hh" -#include "input-translator.hh" -#include "engraver-group.hh" -#include "performer-group-performer.hh" - -bool -Input_translator::is_name_b (String n) -{ - for (int i=0; i < alias_str_arr_.size(); i++) - if (alias_str_arr_[i] == n) - return true; - return false; -} - -void -Input_translator::print() const -{ -#ifndef NPRINT - if (! check_debug) - return ; - DOUT << base_str_ <<" " << type_str_<<" {\n"; - DOUT << "Consists of "; - for (int i=0; i< consists_str_arr_.size(); i++) - DOUT << consists_str_arr_[i] << ','; - if (contains_itrans_p_list_.size()) - DOUT << "\nContains " ; - for (PCursor i (contains_itrans_p_list_.top()); i.ok (); i++) - i->print(); - DOUT << "}\n"; -#endif -} - - - -Input_translator * -Input_translator::recursive_find (String nm) -{ - if (is_name_b (nm)) - return this; - - Input_translator * r =0; - // what bout for() ? - PCursor i (contains_itrans_p_list_.top()); - for (; !r &&i.ok(); i++) - { - if (i->recursive_find (nm)) - r = i.ptr(); - } - - return r; -} - -Input_translator * -Input_translator::find_itrans_l (String nm) -{ - for (PCursor i (contains_itrans_p_list_.top()); i.ok (); i++) - if (i->is_name_b (nm)) - return i; - - return 0; -} - - -Engraver_group_engraver * -Input_translator::get_group_engraver_p() -{ - assert (base_str_ == "Engraver"); - Engraver_group_engraver * grav_p = (Engraver_group_engraver*) - get_engraver_p (type_str_); - - for (int i=0; i < consists_str_arr_.size(); i++) - { - grav_p->add (get_engraver_p (consists_str_arr_[i])); - } - grav_p->itrans_l_ = this; - grav_p->id_str_ = default_id_str_; - return grav_p; -} - -Performer_group_performer* -Input_translator::get_group_performer_p() -{ - assert (base_str_ == "Performer"); - Performer_group_performer * perf_p = (Performer_group_performer*) - get_performer_p (type_str_); - - for (int i=0; i < consists_str_arr_.size(); i++) - { - perf_p->add (get_performer_p (consists_str_arr_[i])); - } - perf_p->itrans_l_ = this; - perf_p->id_str_ = default_id_str_; - return perf_p; -} - -bool -Input_translator::accept_req_b() -{ - return ! contains_itrans_p_list_.size(); -} - -void -Input_translator::add (Input_translator *ip) -{ - contains_itrans_p_list_.bottom().add (ip); -} - -Input_translator* -Input_translator::get_default_itrans_l() -{ - if (contains_itrans_p_list_.size()) - return contains_itrans_p_list_.top(); - else - return 0; -} - - -Input_translator_list::Input_translator_list (Input_translator_list const &s) -{ - for (PCursor pc (s); pc.ok(); pc++) - { - Input_translator *q = pc; - Input_translator *p=new Input_translator (*q) ; - bottom().add (p); - } -} diff --git a/lily/note-column-grav.cc b/lily/note-column-grav.cc deleted file mode 100644 index a77557793e..0000000000 --- a/lily/note-column-grav.cc +++ /dev/null @@ -1,147 +0,0 @@ -/* - note-column-reg.cc -- implement Note_column_engraver - - source file of the GNU LilyPond music typesetter - - (c) 1997 Han-Wen Nienhuys -*/ - -#include "note-column-grav.hh" -#include "note-head.hh" -#include "stem.hh" -#include "note-column.hh" -#include "script.hh" -#include "rest-column.hh" - -bool -Note_column_engraver::acceptable_elem_b (Score_elem const*elem_C) const -{ - char const*nC = elem_C->name(); - return (nC == Script::static_name() || nC == Note_head::static_name () - || nC == Stem::static_name()); -} -Note_column* -Note_column_engraver::note_col_l() -{ - if (!ncol_p_) - { - ncol_p_ = new Note_column; - announce_element (Score_elem_info (ncol_p_, 0)); - } - return ncol_p_; -} - -Rest_column * -Note_column_engraver::rest_col_l() -{ - if (!restcol_p_) - { - restcol_p_ = new Rest_column; - announce_element (Score_elem_info (restcol_p_,0)); - } - return restcol_p_; -} - -void -Note_column_engraver::acknowledge_element (Score_elem_info i) -{ - if (!acceptable_elem_b (i.elem_l_)) - return; - - - char const*nC = i.elem_l_->name(); - - if (nC == Script::static_name() && i.req_l_ && i.req_l_->musical ()) - { - script_l_arr_.push ((Script*)i.elem_l_->item()); - } - else if (nC == Note_head::static_name()) - { - Note_head * h_l = (Note_head*)i.elem_l_->item(); - if (h_l->rest_b_) - rest_col_l()->add (h_l); - else - note_col_l()->add (h_l); - - } - else if (nC == Stem::static_name()) - { - stem_l_ = (Stem*)i.elem_l_->item(); - } - - if (ncol_p_ || restcol_p_) - { - if (stem_l_) - { - if (restcol_p_&& !restcol_p_->stem_l_) - restcol_p_->set (stem_l_); - if (ncol_p_ && !ncol_p_->stem_l_) - ncol_p_->set (stem_l_); - } - - - for (int i=0; i < script_l_arr_.size(); i++) - { - if (restcol_p_) - restcol_p_->add (script_l_arr_[i]); - if (ncol_p_) - ncol_p_->add (script_l_arr_[i]); - } - - script_l_arr_.clear(); - } - -} - -void -Note_column_engraver::do_pre_move_processing() -{ - if (ncol_p_) - { - if (! ncol_p_->h_shift_b_) - ncol_p_->h_shift_b_ = h_shift_b_; - if (! ncol_p_->dir_) - ncol_p_->dir_ = dir_; - - typeset_element (ncol_p_); - ncol_p_ =0; - } - if (restcol_p_) - { - if (! restcol_p_->dir_) - restcol_p_->dir_ = dir_; - - typeset_element (restcol_p_); - restcol_p_ =0; - } -} - -void -Note_column_engraver::do_post_move_processing() -{ - script_l_arr_.clear(); - stem_l_ =0; -} - -void -Note_column_engraver::set_feature (Feature i) -{ - if (i.type_ == "vdir") - dir_ = (Direction) int(i.value_); - if (i.type_ == "hshift") - h_shift_b_ = (bool)(int)i.value_; -} - -Note_column_engraver::Note_column_engraver() -{ - dir_ =CENTER; - h_shift_b_ = false; - - ncol_p_=0; - restcol_p_ =0; - do_post_move_processing(); -} - - -IMPLEMENT_IS_TYPE_B1(Note_column_engraver,Engraver); -ADD_THIS_ENGRAVER(Note_column_engraver); diff --git a/lily/rest-column.cc b/lily/rest-column.cc deleted file mode 100644 index 0c7260ee62..0000000000 --- a/lily/rest-column.cc +++ /dev/null @@ -1,28 +0,0 @@ -/* - rest-column.cc -- implement Rest_column - - source file of the GNU LilyPond music typesetter - - (c) 1997 Han-Wen Nienhuys -*/ - -#include "debug.hh" -#include "rest-column.hh" -#include "note-head.hh" -#include "rest-column.hh" -#include "stem.hh" - - -IMPLEMENT_IS_TYPE_B1(Rest_column,Head_column); - - -/** - translate the rest symbols - */ -void -Rest_column::translate_heads (int dy_i) -{ - for (int i=0; i < head_l_arr_.size(); i++) - head_l_arr_[i]->position_i_ += dy_i; -} - diff --git a/lily/voice-group-gravs.cc b/lily/voice-group-gravs.cc deleted file mode 100644 index 927d9983e7..0000000000 --- a/lily/voice-group-gravs.cc +++ /dev/null @@ -1,59 +0,0 @@ -/* - voicegroup.cc -- implement Voice_group_engravers - - source file of the GNU LilyPond music typesetter - - (c) 1997 Han-Wen Nienhuys -*/ -#include "proto.hh" -#include "plist.hh" -#include "musical-request.hh" -#include "voice-group-gravs.hh" -#include "engraver.hh" -#include "command-request.hh" -#include "debug.hh" - - -Voice_group_engravers::Voice_group_engravers() -{ - dir_ =CENTER; -} - -bool -Voice_group_engravers::do_try_request (Request*r_l) -{ - Command_req* c_l = r_l->command(); - if (c_l&& c_l->groupfeature()) - { - Feature f; - f.type_ = c_l->groupfeature()->type_str_; - f.value_ = c_l->groupfeature()->value_str_; - set_feature (f); - return true; - } - return Engraver_group_engraver::do_try_request (r_l); -} - - - -IMPLEMENT_IS_TYPE_B1(Voice_group_engravers,Engraver_group_engraver); - -void -Voice_group_engravers::do_print() const -{ -#ifndef NPRINT - Engraver_group_engraver::do_print(); -#endif -} - - - -Scalar -Voice_group_engravers::get_feature (String f) -{ - if (f == "vdir") - return dir_; - Engraver_group_engraver::get_feature (f); -} - -ADD_THIS_ENGRAVER(Voice_group_engravers); diff --git a/tex/dimen.tex b/tex/dimen.tex deleted file mode 100644 index 1b38526a5c..0000000000 --- a/tex/dimen.tex +++ /dev/null @@ -1,57 +0,0 @@ -% -% A tex file to help determine dims. -% - -\font\musicfont=musix16 -\font\slurfont=xslu16 -\font\specfont=musixspx -\def\thefont{\musicfont} -%\def\thefont{\specfont} - -\def\mb#1{{\thefont\char#1}} - -\newdimen\wid -\newdimen\inc -\newdimen\here -\def\hruler#1{% - \wid=#1pt - \inc=\wid - \divide\inc by #1 - \divide\wid by 2 - \here=-\wid - \loop\ifdim\here<\wid\advance\here by\inc - \hbox to0pt{\kern\here\vrule width0.05pt height 1pt depth 1pt\hss}% - \repeat% -} - -\def\vruler#1{% - \wid=#1pt - \inc=\wid - \divide\inc by #1 - \divide\wid by 2 - \here=-\wid - \loop\ifdim\here<\wid\advance\here by\inc - \hbox to0pt{\vbox to0pt{\vss\hrule width2pt height 0.05pt\kern\here}\hss}% - \repeat% -} -\def\twhrul{\hbox to 0pt{\hbox{\hruler{20}% - \vrule width0.1pt height 2pt depth 2pt}}} -\def\twvrul{\vbox to0pt{\vss\hbox to0pt{\hss\vruler{12}}\vss}% - \kern-1pt\vrule width4pt height 0.1pt}% - - -\def\doitem#1{ - #1% - \vbox to12pt{\vfill\hbox to0pt{\qquad\kern-1pt\twvrul\hss}}% - \hbox to50pt{\qquad\twhrul\mb{#1}\hss}% - \setbox0=\hbox{\mb{#1}} width \the\wd0\ depth \the\dp0 \ height \the\ht0} - -\newcount\n -\def\charn{\n=-1 - \loop\ifnum\n<255\advance\n by1 - \doitem{\number\n}\endgraf\repeat} - - - \charn - -\bye -- 2.39.5