[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Re: positions of barnumbers
From: |
stef . thomas |
Subject: |
Re: Re: positions of barnumbers |
Date: |
Fri, 25 Jan 2008 09:37:27 +0100 |
User-agent: |
freenetMail |
Dear Risto,
sorry, again the example, I tried it out with my LP-before and it worked.
version "2.11.34"
global= { override TimeSig.TimeSignature #'style = #'( )
tempo 4 = 69 time 3/8 s4.
time 4/4 s1
time 2/4 s2
time 4/4 s1
time 2/4 s2
time 1/8 s8
time 4/4 s1*2 }
pianoArechts = relative {
clef bass r4 b32f> ( bes times 2/3 {a32 as g!)} | %klaviereinsrechts 01
fis1~pp startTrillSpan | %klaviereinsrechts 02
fis4. <eis fis a>16-.->pstopTrillSpanarpeggio r | %klaviereinsrechts 03
r2 r4 r16 eis32p< ( fis times 4/5 {as32 g besmp> a g!) } |
%klaviereinsrechts 04
fis4. startTrillSpan <f a bes>16-.->arpeggio stopTrillSpan r |
%klaviereinsrechts 05
times 4/7 { f32 ( fis a as b bes g) } | %klaviereinsrechts 06
times 4/5 {<fis c'>16 repeat "unfold" 3 {<fis c'>} <fis c'>~} times 2/3 {<fis
c'>8 <fis c'> <fis c'>~ }<fis c'>8 <fis c'>4.~p | %klaviereinsrechts 07
<fis c'>2~ <fis c'>4... clef treble a32 | %klaviereinsrechts 8
}
pianoAlinks = relative c { clef bass
R4. |
R1 |
r4 r8 <c d es>16-.-> arpeggiosustainDown r sustainUp |
R1 |
r4 r8 <b d es>16-.->arpeggio sustainDown r16 sustainUp |
R8
times 4/5 {<e, cis'>16sustainDown repeat "unfold" 3 {<e cis'>} <e cis'>~} times
2/3 {<e cis'>8 <e cis'> <e cis'>~ }<e cis'>8 <e cis'>4.~ |
<e cis'>2~ <e cis'>4... r32 sustainUp | }
pianoBrechts = relative {
r4 <b' c b'>16-.->f r |
R1 |
r4 r8 clef bass eis,,32pp< ( fis times 2/3 {ap> as g!) } |
fis2.. pp startTrillSpan <f a bes>16-.->stopTrillSpan arpeggio mp r |
r4 r8 e32 (< f times 2/3 {bes32mf> a g>) } |
times 4/7 {es^( d c b bes a g ) }
times 2/3 {<fis' c'>8 <fis c'> <fis c'>~} <fis c'>8 <fis c'>~ <fis c'>2p | }
pianoBlinks = relative c' {
r4 <b' c b'>16-.-> r | %klavierzwo links 1
R1 | %klavierzwo links 2
R2 | %klavierzwo links 3
clef bass r2.. <b, d es>16-.->mp arpeggio r | %klavierzwo links 4
R2 | %klavierzwo links 5
times 4/7 {s8.sustainDown s32sustainUp }| %klavierzwo links 6
times 2/3 {<e, cis'>8 <e cis'> <e cis'>~} <e cis'>8 <e cis'>~ <e cis'>2 |
%klavierzwo links 7
R1 %klavierzwo links 8
}
paper {
ragged-bottom = ##t
ragged-last-bottom = ##t
bottom-margin = 23mm %das sorgt dafuer, dass das letzte Notensystem nicht
einfach abgeschnitten wird!
horizontal-shift = 5 mm
page-limit-inter-system-space = ##t
systemSeparatorMarkup = slashSeparator
}
layout{
context { %hier wird ein neuer "Kontext"
mit Namen "timesig" geschaffen
type "Engraver_group"
consists "Time_signature_engraver"
consists "Axis_group_engraver"
consists "Text_spanner_engraver"
consists "Text_engraver"
consists "Dynamic_engraver"
name "TimeSig"
override TimeSignature #'font-size = #4
override TimeSignature #'break-visibility = ##(#f #t #t)
}
context {
Score accepts TimeSig}
context { TimeSig override VerticalAxisGroup #'minimum-Y-extent =
#'(-1 . 5) }
context { RemoveEmptyStaffContext }
context { Staff
override TimeSignature #'transparent = ##t
override TimeSignature #'break-visibility = ##(#f #t #t)
}
}
score {
<<
new TimeSig global
new PianoStaff = "Klavier 1"
<< set PianoStaff.instrumentName = "Klavier 1"
set PianoStaff.shortInstrumentName = "Klv.1"
new Staff= "rechts" {pianoArechts}
new Staff = "links" with {
override VerticalAxisGroup #'keep-fixed-while-stretching = ##t
} {pianoAlinks} >>
new PianoStaff = "Klavier 2"
<< set PianoStaff.instrumentName = "Klavier 2"
set PianoStaff.shortInstrumentName = "Klv.2"
new Staff= "rechts" {pianoBrechts}
new Staff = "links" with {
override VerticalAxisGroup #'keep-fixed-while-stretching = ##t
} {pianoBlinks} >>
>> }
----- original Nachricht --------
Betreff: Re: positions of barnumbers
Gesendet: Fr 25 Jan 2008 08:44:00 CET
Von: "Risto Vääräniemi"<address@hidden>
> Dear Stef,
>
> On Jan 24, 2008 10:50 PM, wrote:
> > This is the example:
>
> The example you provided seems to be broken. All the backslashes are
> missing and LP cannot process the file. How did you attach it to the
> message?
>
> -Risto
>
--- original Nachricht Ende ----
Unbegrenzter Speicher, Top-Spamschutz, 120 SMS und eigene E-MailDomain inkl.
http://office.freenet.de/dienste/emailoffice/produktuebersicht/power/mail/index.html