+++ /dev/null
-
-praeludium_commands = \notes {
- \time 4/4;
- \key e;
-}
-
-praeludium_right = \notes {
- \$praeludium_commands
- \clef violin;
-
- % 13 -- how to type -- where to split -- this more neatly?
- \context Staff <
- \context Voice = I \relative c'' { \stemup r4 dis4 e4. e8 ~ |
- \shifton e4 [d8 fis8] \shiftoff gis4 ~ [gis8 fis16 e ] |
- fis4 ~ [fis8 e16 dis] e4 r8 e8 }
- \context Voice = III \relative c'' { \stemup \shifton r4 bis cis \shiftoff cis |
- a' ~ [a16 gis a b] \shifton dis,4 cis ~ |
- [cis8 dis16 ais] bis4 cis r8 b }
- \context Voice = IV \relative c'' {
-
- %\stemup
- %{
- this is a diversion from the Griepenkerl/Keller
- edition; a hack to avoid collisions
- %}
- \stemdown
- \shifton s4 gis }
-
- \context Voice = II \relative c' { \stemdown
-% \shifton % idem
-
- r4 fis \shiftoff gis gis |
- a4. cis8 gis2 |
- fis4 gis gis r8 e8 }
- > |
- % 16
-}
-
-praeludium_left = \notes \relative c {
- \$praeludium_commands
- \clef bass;
-
- % 13
- \context Staff <
- \context VoiceTwo { r4 }
- \context VoiceOne { \stemup s4 dis' cis cis ~ |
- [cis8 a d cis] [bis gis] cis4 |
- dis2 cis4 r8 cis }
- \context VoiceOne { \stemup bis2 }
- \context VoiceThree { \stemup \shifton r4 gis ~ [gis8 gis] ~ \stemdown \shiftoff gis4 |
- a4. fis8 gis4. a8 ~ |
- a4 gis4 gis r8 gis }
-% { \stemup \shifton s4 fis4 e}
-% a quick hack to avoid some collisons
- \context VoiceFour { \stemdown \shifton s4 fis4 e}
- \context VoiceTwo { \stemdown s4 dis4 cis4 }
- > |
- %16
-}
-
-praeludium_pedal = \notes \relative c{
- \$praeludium_commands
- \clef bass;
-
- %13
- r4 fis,4-\ltoe e4.-\lheel e'8-\rheel |
- fis4.-\rtoe fis8-\rtoe fis4-\rtoe [e8-\ltoe a-\rtoe] |
- dis,4-\ltoe gis-\rtoe [cis,8-\ltoe b!-\lheel ais-\rtoe gis-\ltoe] |
- %16
-}
-
-
-fugaII_commands = \notes{
- \time3/4;
- \key e; % E-major
-}
-
-fugaII_right = \notes \relative c'' {
- \$fugaII_commands
- \clef violin;
-
- %15
- \context Staff <
- \context Voice = VA { \stemup [b8 fis8] b4 }
- \context Voice = VB { \stemdown fis2 }
- >
-
- % Wadieuw
- \context Staff \notes\relative c''<
- \context Voice=one {
- \property Voice.horizontalNoteShift=0
- \property Voice.verticalDirection=1
- e4
- }
- \context Voice=two {
- \property Voice.verticalDirection=1
- \property Voice.horizontalNoteShift=1
- cis
- }
- \context Voice=three {
- \property Voice.horizontalNoteShift=2
- \property Voice.verticalDirection=1
- ais
- }
- \context Voice=four {
- \property Voice.verticalDirection=-1
- \property Voice.horizontalNoteShift=-1
- fis
- }
- >
-
- %16
- \context Staff <
- \context VoiceOne { dis2 dis4 |
- cis2 cis4 |
- b4. [cis8 dis e] }
- \context VoiceThree { \stemup \shifton [b8 fis] b2 ~ |
- [b8 a!16 gis] a2 ~ |
- a4 gis2 }
- \context VoiceTwo { \stemdown fis2. ~ |
- fis ~ |
- fis4 e2 }
- > |
- %19
-}
-
-fugaII_left = \notes {
- \$fugaII_commands
- \clef bass;
-
- %15
- \context Staff <
- \context VoiceTwo { \stemdown b2 \stemup ais4 |
- b2 b4 }
- \context VoiceTwo { \stemdown s2 e4 |
- fis2 fis4 }
- >
- \stemdown cis2 e4 |
- b4. b8 b4 |
- %19
-}
-
-fugaII_pedal = \notes \relative c {
- \$fugaII_commands
- \clef bass;
-
- %15
- dis4.-\ltoe e8-\rtoe cis4 |
- b4.-\lheel [cis8-\ltoe dis8-\rtoe e8-\rheel] |
- fis4.-\rtoe [e8-\rheel dis8-\rtoe cis8-\ltoe] |
- dis4-\rtoe e4-\rheel e,4-\ltoe |
- %19
-}
-
-breakmusic = \notes {
- %\time4/4;
- r1
-}
-
-
-% these should be two separate scores...
-\score{
- \context Score <
- \context PianoStaff <
- \context Staff = treble {
- \praeludium_right \breakmusic \fugaII_right }
- \context Staff = bass {
- \praeludium_left \breakmusic \fugaII_left }
- >
- \context Staff = pedal {
- \praeludium_pedal \breakmusic \fugaII_pedal }
- >
-
- \paper {
- \translator {
- \VoiceContext
- \name "VoiceOne";
- verticalDirection = "1";
- }
- \translator {
- \VoiceContext
- \name "VoiceTwo";
- verticalDirection = "-1";
- }
- \translator {
- \VoiceContext
- \name "VoiceThree";
- verticalDirection = "1";
- horizontalNoteShift = "1";
- }
- \translator {
- \VoiceContext
- \name "VoiceFour";
- verticalDirection = "-1";
- horizontalNoteShift = "1";
- }
- \translator {
- \StaffContext
-
- \accepts VoiceFour;
- \accepts VoiceThree;
- \accepts VoiceTwo;
- \accepts VoiceOne;
- }
- \translator { \OrchestralScoreContext }
-castingalgorithm = \Wordwrap;
- }
-
- \midi {
- \tempo 4 =96; }
-}
+++ /dev/null
-/*
- boxes.cc -- implement Box
-
- source file of the GNU LilyPond music typesetter
-
- (c) 1996--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
-*/
-
-#include "box.hh"
-#include "array.hh"
-
-void
-Box::translate (Offset o)
-{
- for (Axis i=X_AXIS; i < NO_AXES; incr(i))
- interval_a_[i] += o[i];
-}
-
-void
-Box::unite (Box b)
-{
- for (Axis i=X_AXIS; i < NO_AXES; incr(i))
- interval_a_[i].unite (b[i]);
-}
-
-/**
- Initialize to empty.
- */
-Box::Box()
-{
-}
-
-void
-Box::set_empty ()
-{
- interval_a_[X_AXIS].set_empty ();
- interval_a_[Y_AXIS].set_empty ();
-}
-
-Box::Box (Interval ix, Interval iy)
-{
- x() = ix;
- y() = iy;
-}
-
-Interval &
-Box::operator[] (Axis a)
-{
- return interval_a_[a];
-}
-
-Interval
-Box::operator[] (Axis a)const
-{
- return interval_a_[a];
-}
+++ /dev/null
-/*
- hara-kiri-line-group-engraver.cc -- implement Hara_kiri_line_group_engraver
-
- source file of the GNU LilyPond music typesetter
-
- (c) 1998--2000 Jan Nieuwenhuizen <janneke@gnu.org>
-*/
-
-#include "rhythmic-head.hh"
-#include "hara-kiri-vertical-group-spanner.hh"
-#include "hara-kiri-line-group-engraver.hh"
-
-
-ADD_THIS_TRANSLATOR (Hara_kiri_line_group_engraver);
-
-void
-Hara_kiri_line_group_engraver::create_line_spanner ()
-{
- staffline_p_ = new Hara_kiri_group_spanner;
-
-}
-
-void
-Hara_kiri_line_group_engraver::typeset_element(Score_element * e)
-{
- if (Rhythmic_head *h = dynamic_cast<Rhythmic_head *> (e))
- {
- dynamic_cast<Hara_kiri_group_spanner*> (staffline_p_)
- ->add_interesting_item (h);
- }
- Line_group_engraver_group::typeset_element (e);
-}
-
projects / lilypond.git / commitdiff