+++ /dev/null
-\header{
-enteredby = "Donat Wullschleger";
-}
-
-\version "1.3.93";
-
-\include "paper16.ly";
-\include "deutsch.ly";
-
-righthandfirstvoice = \notes \relative c''
- \context Voice = upper {
- \key b \major;
- \time 6/8;
-
- r8. r8. r8. r8. |
- r4. r4. |
- r2. |
-
- \bar "|.";
-}
-
-lefthandfirstvoice = \notes \relative c
- \context Voice = upper {
- \voiceOne
- \key b \major;
- \clef bass;
-
- as4. [g8 a16 h c8] |
- as4. [g8 a16 h c8] |
- as4. [g8 a16 h c8] |
-}
-
-lefthandsecondvoice = \notes \relative c
- \context Voice = lower {
- \voiceTwo
- r2. |
- r4. r4. |
- r8. r8. r8. r8. |
-}
-
-\score{
- \context PianoStaff \notes <
- \context Staff = top <
- \righthandfirstvoice
- >
- \context Staff = bottom <
- \lefthandfirstvoice
- \lefthandsecondvoice
- >
- >
-
- \paper{
- \translator{
- \OrchestralScoreContext
- }
-
- }
-}
+++ /dev/null
-% dumps core: 1.3.93
-\score{
- \notes{
- \grace {
- s16 s s s s32 s s s
- s
- s
- }
-
- }
-}
+++ /dev/null
-\version "1.3.93";
-\score{
- \notes\relative c'{
- [c16 \stemDown c'' \stemBoth c,, d]
- \stemDown [d'' a \stemBoth c,, g,]
- \stemUp [g c' \stemBoth a'' d']
- }
-}
+++ /dev/null
-%
-% Try this file with 1.2.17: it works
-% 1.2 had a different default, and uses textEmptyDimension scalar property
-%
-\score{
- \notes\relative c''{
- %\property Staff.textEmptyDimension=1
- a-"This text has no"
- a
- a
- a-"width; the default"
- \break
- \property Staff.textNonEmpty=##t
- %\property Staff.textEmptyDimension=0
- a-"This text"
- a-"is fat: notes are spaced"
- a-"far apart and text"
- a-"does not collide"
- }
- \paper{
- linewidth=80.\mm;
- }
-}
+++ /dev/null
-
-\score { \notes { c4-1-2-3 }}
+++ /dev/null
-%
-% must push 0 to get 'stemboth', popping alone doesn't work
-%
-\score{
- \notes\relative c''{
- c4
- \property Voice.basicStemProperties \push #'direction = #1
- c
- %\property Voice.basicStemProperties \pop #'direction
- \property basicStemProperties \pop #'direction
- c
- % burp?
- \property Voice.basicStemProperties \push #'direction = #0
- c
- }
-}
+++ /dev/null
-\header{
-Composer="Sergej Rachmaninov (1873-1943)";
-Title="Elegie";
-Subtitle="À Monsieur A. Arensky";
-Opus="Opus 3 Nr 1";
-Note="Small fragment to show Pedal and Dynamics problems";
-Enteredby="JCN";
-}
-
-%
-% Arg.
-% How to remove dynamics from Voice/Staff, but still show fingering?
-% When Dynamic_engraver is removed, the Text_engraver happily engraves
-% the dynamic markings.
-% When the Text_engraver is removed, it can't engrave the fingerings.
-%
-
-global = \notes{
- \key es \minor;
- \time 4/4;
-}
-
-upperMusic = \context Voice\notes\relative c'' {
- %1
- R1
- R1
- r2 ges'2--~
-}
-
-upperDynamics = \context Voice\notes {
- %1
- s1\pp
- s1
- s2 s2\mf
-}
-
-upperFingering = \context Voice\notes {
- %1
- s1
- s1
- s2 s2-4
-}
-
-lowerMusic = \context Voice\notes\relative c {
- %1
- <es,8(es,> bes' ges' es' bes' es, ges,)bes,
- <es,8(es,> bes' ges' es' bes' es, ges,)bes,
- <es,8(es,> bes' ges' es' bes' es, ges,)bes,
-}
-
-lowerPedal = \context Voice\notes {
- %1
- %1
- s8\unachorda\sustaindown s8 s4 s2
- s8\sustaindown\sustainup s8 s4 s2
- s8\sustaindown\sustainup s8 s4 s2\trechorde
-}
-
-lowerDynamics = \context Voice\notes {
- %1
-}
-
-lowerFingering = \context Voice\notes {
- %1
- s8 s8-5 s-2 s-1 s-2 s-1 s-2 s
- s1
- s1
-}
-
-\score{
- \context PianoStaff <
- \context UpperStaff=upper <
- \global
- \upperMusic
- \upperDynamics
- \upperFingering
- \lowerPedal
- >
- \context LowerStaff=lower <
- \global
- \clef bass;
- \lowerMusic
- \lowerPedal
- \lowerDynamics
- \lowerFingering
- \upperDynamics
- >
- >
- \paper{
- % Hmm
- \translator {
- \VoiceContext
- \remove "Piano_pedal_engraver";
- \remove "Dynamic_engraver";
- % AAAARGH!
- \remove "Text_engraver";
- }
- \translator {
- \StaffContext
- \name "UpperStaff";
- \consists "Dynamic_engraver";
- dynamicPadding = #3 % urg, in \pt
- dynamicMinimumSpace = #6 % urg, in \pt
- }
- \translator {
- \StaffContext
- \name "LowerStaff";
- \consists "Piano_pedal_engraver";
- startSustain = #"Ped."
- stopSustain = #"*"
- stopStartSustain = #"-P"
- startUnaChorda = #"una chorda"
- stopUnaChorda = #"tre chorde"
- textScriptPadding = #3.0
- }
- \translator {
- \PianoStaffContext
- \accepts "UpperStaff";
- \accepts "LowerStaff";
- }
- \translator {
- \ScoreContext
- timeSignatureStyle = #"C"
- }
- }
- \midi{
- % Zucht
- \translator {
- \StaffContext
- \name "UpperStaff";
- }
- \translator {
- \StaffContext
- \name "LowerStaff";
- }
- \translator {
- \ScoreContext
- \accepts "UpperStaff";
- \accepts "LowerStaff";
- }
- \tempo 4 = 88;
- }
-}
-
+++ /dev/null
-% using \times amongst space notes dumps core
-\score{
- \context Staff \notes\relative c''<
- \times 2/3{ a8 b c }
- \times 2/3{ s8\p s s\f }
- >
- \paper{
- }
-}
+++ /dev/null
-
-voice4 = \notes {
-\clef bass;
- \property Staff.instrument = "Bass"
- \property Staff.instr = "B"
- \time 4/4; f,2 ( ) f,8 r8 f8 e8
-\repeat volta 2
-{
- d8. d16 e8. f16 f8 c8 c16 c8.
-}
-\alternative
-{
- { f,2 ( ) f,8 r8 f8 e8 \break }
- { f,2. r8 c16 c16 |
- }
-}
-}
-voicedefault = \notes {
- \property Staff.timeSignatureStyle="C"
- \time 4/4; \key f;
- \tempo 4 = 200;
-}
-\score{
- \notes <
-
-
- \context Staff="4"
- {
- \$voicedefault
- \$voice4
- }
-
- >
- \paper {
- font_normal = 12.;
- \translator {
- \StaffContext
- \consists Instrument_name_engraver;
- }
- }
-}
+++ /dev/null
-#if 0
-/*
- grob-callback.cc -- implement Callback smob.
-
- source file of the GNU LilyPond music typesetter
-
- (c) 2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
-
- */
-
-#include "grob-callback.hh"
-
-static SCM callback_tag;
-
-static
-SCM mark_smob (SCM)
-{
- return SCM_EOL;
-}
-
-static int
-print_smob (SCM, SCM port, scm_print_state *)
-{
- scm_puts ("#<Callback>", port);
- return 1;
-}
-
-static
-scm_sizet free_smob (SCM)
-{
- return 0;
-}
-
-static
-void start_callback_smobs()
-{
- callback_tag = scm_make_smob_type_mfpe ("callback", 0,
- mark_smob, free_smob,
- print_smob, 0);
-}
-
-
-SCM
-smobify_callback (Grob_callback cb )
-{
- SCM z;
-
- SCM_NEWCELL(z);
- SCM_SETCDR (z, (SCM)cb);
- SCM_SETCAR (z, (SCM)callback_tag);
-
- return z;
-}
-
-ADD_SCM_INIT_FUNC(callback, start_callback_smobs);
-#endif
+++ /dev/null
-/*
- grob-callback.cc -- implement Callback smob.
-
- source file of the GNU LilyPond music typesetter
-
- (c) 2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
-
- */
-
-#include "music-iterator-ctor.hh"
-#include "ly-smobs.icc"
-
-static long callback_tag;
-
-static
-SCM mark_smob (SCM)
-{
- return SCM_EOL;
-}
-
-static int
-print_smob (SCM, SCM port, scm_print_state *)
-{
- scm_puts ("#<encapsulated C++ function>", port);
- return 1;
-}
-
-static
-scm_sizet free_smob (SCM)
-{
- return 0;
-}
-
-
-void init_cxx_function_smobs()
-{
- callback_tag = scm_make_smob_type_mfpe ("callback", 0,
- mark_smob, free_smob,
- print_smob, 0);
-}
-
-SCM
-smobify_cxx_function (Cxx_function cb )
-{
- SCM z;
-
- SCM_NEWCELL(z);
- SCM_SETCDR (z, (SCM)cb);
- SCM_SETCAR (z, (SCM)callback_tag);
-
- return z;
-}
-
-
-Cxx_function
-unsmob_cxx_function (SCM x)
-{
- if (SCM_CELL_TYPE(x) == callback_tag)
- return (Cxx_function) SCM_CELL_WORD_1(x);
- else
- return 0;
-}
-
-
-
projects / lilypond.git / commitdiff