Sida:Psalm1695-3.djvu/164

Från Wikisource, det fria biblioteket.
Den här sidan har korrekturlästs av flera personer
830 Om thet ewiga Lifwet. Om thet ewiga Lifwet. 831

412.

Koral nr 412 [visa] [redigera] [historik] [rensa sidcachen]


\version "2.14.2"

% Lilypond i MediaWikis Score extension är tämligen begränsad då Lilypond körs i safe mode (lilypond -dsafe=#t)
% vilket slår av de flesta avancerade funktionerna av säkerhetsskäl. Dessutom kör svenska
% wikisource med en ganska gammal version av Lilypond (2.14) som saknar en del funktionalitet
% eller som är omöjlig att använda i safe mode.


%%% taktstreck %%%

% "divisioMaxima" = heldraget taktstreck
divMax = {
  % Egentligen vore det kanske önskvärt med divisioMaxima genom
  %    \once \override BreathingSign #'stencil = #ly:breathing-sign::divisio-maxima
  %    \once \override BreathingSign #'Y-offset = #0
  %    \breathe
  % men det fungerar inte av okänd anledning. Går inte heller att inkludera "gregorian.ly" (safe mode).
  %
  % i stället använder vi ett vanligt taktstreck. 
  \bar "|"
}

% slutstreck
divFin = {
  \bar "||"
}

%%% paper & layout %%%
\paper {
  indent=0\mm
  short-indent=0\mm
  oddFooterMarkup=##f
  oddHeaderMarkup=##f
  print-page-number=##f
}

% Vi kan inte ändra accidentalStyle manuellt. Som lösning använder vi MensuralVoice som har rätt bra inställningar.
%        \accidentalStyle "neo-modern"              % Kräver 2.15
%        #(ly:set-accidental-style 'neo-modern)  % Fungerar inte i safe mode

\layout {
  \context {
    \Score
    timing = ##f 
    \remove "Bar_number_engraver"
  }

%  \context {
%    \Staff
%    \override TimeSignature #'style = #'mensural
%    \override NoteHead #'style = #'petrucci
%  }

  % MyVoice = MensuralVoice med Petrucci NoteHeads
  \context {
    \MensuralVoice
    \name "MyVoice"
    \alias "Voice"
    \consists "Slur_engraver"
    \override NoteHead #'style = #'petrucci
    \override Rest #'style = #'mensural
%   \override Flag #'style = #'mensural   % 2.16+
    \override Stem #'flag-style = #'mensural   % 2.14
    \override Stem #'thickness = #1.7
%    \override Stem #'length = #5.5
  }

  % MyStaff = MensuralStaff, fast med taktstreck
  \context {
    \MensuralStaff
    \name "MyStaff"
    \alias "Staff"
    \denies "Voice"
    \defaultchild "MyVoice"
    \accepts "MyVoice"
    \override BarLine #'transparent = ##f
    \override StaffSymbol #'thickness = #1.0 % default
%    \override StaffSymbol #'thickness = #1.3
  }

  \context {
    \Score
    \accepts "MyStaff"
  }
}

%%% takt, tonart etc %%%

pre = {
  \time 2/2
  \key a \dorian
}

premelody = {
  \autoBeamOff
  \clef "petrucci-c1"
  \pre
}

prebass = {
  \autoBeamOff
  \clef "mensural-f"
  \pre
}

voicename = MyVoice

%%% melodi %%%

melody = \relative c' {
  \repeat volta 2 {
  b'4 b a g fis g2 g4\fermata\divMax
  b4 d d c4. b8 b2.\fermata\divMax } 
  d4 e d c b a2 a4\fermata\divMax
  b4 c c b4. a8 a2.\fermata\divMax
  a4 b a g fis e2 e4\fermata\divMax
  d4 e g g4. fis8 g2.\fermata\divFin
}

%%% bas %%%

bass = \relative c {
  \repeat volta 2 {
  g'4 g d e d g2 g,4\fermata
  g4 b2^"6" a2^"76†" g2.\fermata }
  g'4 c, b a g d'2 d4\fermata
  b4 a2 b4 c d2.\fermata
  d4 g d e b c2 c4\fermata
  b4 a g d' d, g2.\fermata
}

verse = \lyricmode {
 <<
{  Migh giör stoor lust och glä -- die
Then skiö -- na som -- mar -- tijd/  }
\context  Lyrics = "versRad2" { \set associatedVoice = "melody"  Tå Gudh wil alt be -- re -- da
Til e -- wig tijd medh flijt; }


>>
 
Him -- mel och jord för -- ny -- a
Wil han och giö -- ra reen;
Samt Cre -- a -- tu -- ren fri -- ja
Från träl -- doms twång och meen.
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%% png / svg %%%

\score {
  <<
    \new \voicename = "melody" { \premelody \melody }
      \new Lyrics \lyricsto "melody" { \verse }
    \new \voicename {\prebass \bass }
  >>
  \layout {}
}

%%% midi / ogg %%%

\score {
  <<
  \new Staff { \unfoldRepeats { \melody } }
  \new Staff { \unfoldRepeats { \bass } }
  >>
  \midi {
    % \tempo 60 2  % 2.16+
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 60 2)
    }
    \context {
      \Staff
      midiInstrument = #"church organ"
    }
  }
}


1. MIgh giör stoor lust och glädie
Then skiöna sommartijd/
Tå Gudh wil alt bereda
Til ewig tijd medh flijt;
Himmel och jord förnya
Wil han och giöra reen;
Samt Creaturen frija
Från träldoms twång och meen.

2. Een ny Sool skal tå blifwa/
Och Månen/ stiernor all/
The ther klart skeen tå gifwa/
At vnder wara skal:
Så firmament/ som mera/
Skal Gudh i Himmels högd/
Så rena och vthstoffera
Sin barn til lust och frögd.

3. Altså skal Gudh bereda
All ting så ståtelig:
All ting skal lee i glädie/
För fägring frögda sigh:
Medh guld och ädla stenar
Skal werlden wara prydd/
Medh pärlor stora och skiöna/
Kring om sin hela widd.

4. Man kan här eij vthtryckia
Then stora macht och prål/
Eij heller thet förlikna/
Här felas ord och mål:
Ty måste wij thet spara
Alt in til domedagh:
Tå skolom wij förfara
Hwad Gudh är och förmår.

5. Ty Gudh skal snart oss alla
Af jordene förwist
Vpwäckia/ och til sigh kalla/
I sin Son JEsu Christ/
Medh sin basun then klara/
Til een stoor härlighet;
Och oss tå vppenbara
Een ewig salighet.

6. Han skal oss åter gifwa
Wår kropp medh hudh och håår;
At wij tå lefwand blifwa/
Slijkt han alt wäl förmår:
Wårt lijf/ wår siäl stoffera/
Och giöra som Solen skiär:

3. Alt Nnn nn För-