Hoppa till innehållet

Mall:Koralsida1697

Från Wikisource, det fria biblioteket.
[redigera] [rensa sidcachen] Dokumentation


Användning

[redigera]

{{Koralsida1697|koralnr}} tar och inkluderar sidan Koral1697/koralnr i huvudnamnrymden.

Parametrar

[redigera]

Mallen har en obligatorisk parameter, numret på koralen. Valfria parametrar

  • meny=ja gör att en meny visas (sker automatiskt i Sid-namnrymden)
  • b=bas anger en annan sökväg bas istället för Koral1697. Detta är användbart om man vill använda mallen på testsidor.
  • output, melodi, bas, vers, info, nr, titel, hänvisning, psalmsida, källsida skickas vidare till sidan som inkluderas.

Exempel

[redigera]

{{Koralsida1697|29|meny=ja}} inkluderar Koral1697/29 som nedan:

Koral nr 29 [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 g \dorian
}

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

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

voicename = MyVoice

%%% melodi %%%

melody = \relative c' {
  d4. d8 g4 a bes4. c8 a4 fis \divMax
  g4. a8 fis4 d \divMax
  bes'4. a8 g4 c bes4. a8 a2 \divMax
  fis4. fis8 g4 a4 bes4. c8 d4 bes \divMax
  bes4. a8 bes4 bes \divMax
  d g, fis g g4. fis8 g2\divFin
}

%%% bas %%%

bass = \relative c {
  g' ees4 d g c, d2^"#"
  ees4 c d2^"#"
  g ees4 c g'2 d^"#"
  d^"#" g4 f bes2 bes,
  ees4 f bes, bes
  g2 d'4^"#" ees4 d d, g2
}

verse = \lyricmode {
 HEr -- re me -- dan tu tigh döl -- jer/
    så full -- föl -- jer
    Min o -- wän alt sitt be -- gär!
    Ach/ hwij wil tu tigh bort -- wän -- da/
    och eij sän -- da
    Hielp til migh/ som nödh -- stält är?
}

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

%%% 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"
    }
  }
}


{{Koralsida1697|2|rubrik=ja|bas=}} inkluderar Koral1697/2 som nedan:


\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 g \major
}

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

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

voicename = MyVoice

%%% melodi %%%

melody = \relative c' {
  \repeat volta 2 {
    g'2 fis e d g a b g \divMax
    r2 d g a b( c4) b4 a1 g
  }
  g2 e1 fis2 g1 e2 d d cis d d \divMax
  d2 g g a b b c b1 a2 b b \divMax
  a2 b c d b a1 g \divFin
}

%%% bas %%%

bass = \relative c {
  
}

verse = \lyricmode {
 <<
{ 
    Then som wil en Chris -- ten he -- ta/
    Och rätt thet nam -- net bä -- ra/
     }
\context  Lyrics = "versRad2" { \set associatedVoice = "melody" 
    Han skal ti-jo bud -- or -- den we -- ta/
    Som rät -- ta reg -- lan ä -- ro/
   }


>>

  Medh Gudz fin -- ger i sten -- taf -- lor skrif -- ne/
  Och se -- dan på Si -- na -- i berg vt -- gif -- ne
  Gen -- om then trog -- na Mo -- sen.
}

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

%%% png / svg %%%

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

%%% midi / ogg %%%

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


{{Koralsida1697|34|output=hänvisning|meny=ja}} inkluderar Koral1697/34 som nedan:

Koral nr 34 [visa] [redigera] [historik] [rensa sidcachen]
Samma melodi som 2 Then som wil en Christen heta.


Se även

[redigera]

{{Koral1697}}