Wrong type argument

MING TSANG Mon, 01 Sep 2014 07:00:02 -0700

I uninstall v2.19.12 and install v19.13 and run a lily file and I got the 
following error.  I then run convert-ly; re-run and got the same error.
The .ly file run without error in v2.19.12.
Emmanuel,
Ming.


Starting lilypond-windows.exe 2.19.13 [joyful-joyful-we-adore-thee.ly]...
Processing 
`C:/Users/Tsang/Dropbox/Lyndon/HYMN/CP_002/joyful-joyful-we-adore-thee.ly'
Parsing...
Interpreting music...
Interpreting music...
Interpreting music...
Interpreting music...
Interpreting 
music...C:/Users/Tsang/Dropbox/Lyndon/HYMN/CP_002/joyful-joyful-we-adore-thee.ly:37:28:
 In procedure ly:pitch-notename in expression (ly:pitch-notename tonic-pitch):
C:/Users/Tsang/Dropbox/Lyndon/HYMN/CP_002/joyful-joyful-we-adore-thee.ly:37:28: 
Wrong type argument in position 1 (expecting Pitch): ()
Exited with return code 1.

\version "2.19.11"
\language "english"


\header {
  title = "å¿«æ¨é "
  subtitle = "Joyful, Joyful, We Adore Three"
  % Remove default LilyPond tagline
  tagline = ##f
}

\paper {
  #(set-paper-size "letter")
}
#(set-global-staff-size 22)
global = {
  \key g \major
  \time 4/4
  \tempo 4=120
}

%\include "include_lyndon-specific.ly"
\include "include_solfege-engraver.ly"
#(define syllables '("do" "re" "mi" "fa" "so" "la" "ti"))
#(define sylsâ '("â" "â¡" "â" "â" "â¢" "â" "â£"))
#(define numRâ '("â" "â" "â" "â" "â" "â" "â"))
#(define number '("1" "2" "3" "4" "5" "6" "7"))
#(define numRâ '("â" "â" "â" "â" "â" "â" "â"))

#(define (solfege-engraver lst dir)
   (make-engraver 
     (acknowledgers
      ((note-head-interface engraver grob source)
       (let* (
              (context (ly:translator-context engraver))
              (tonic-pitch (ly:context-property context 'tonic))
              (tonic-index (ly:pitch-notename tonic-pitch))
              (event (ly:grob-property grob 'cause))
              (event-copy (ly:event-deep-copy event))
              (grob-pitch (ly:event-property event 'pitch))
              (grob-index (ly:pitch-notename grob-pitch))
              (delta (modulo (- grob-index tonic-index) 7))
              (name (list-ref lst delta))
              (newgrob (ly:engraver-make-grob engraver 'TextScript event-copy)))

         ;; clear 'tweaks for newgrob
       ;;  (ly:event-set-property! event-copy 'tweaks '())         
         (if (string= name "Hb")  (set! name "B"))
         ;; Give newgrob 'outside-staff-priority depending on 
         ;; grob 'staff-position
         (set! (ly:grob-property newgrob 'outside-staff-priority)
               (+ (ly:grob-property newgrob 'outside-staff-priority)
                  (* dir (ly:grob-property grob 'staff-position))))
         (set! (ly:grob-property newgrob 'text) name)
         (set! (ly:grob-property newgrob 'direction) dir) )))))


xup = \with { \consists #(solfege-engraver syllables UP) }
xdown = \with { \consists #(solfege-engraver syllables DOWN) }

zup= \with { \consists #(solfege-engraver sylsâ UP) }
zdown= \with { \consists #(solfege-engraver sylsâ DOWN) }

nup= \with { \consists #(solfege-engraver number  UP) }
ndown= \with { \consists #(solfege-engraver number  DOWN) }

rup= \with { \consists #(solfege-engraver numRâ UP) }
rdown= \with { \consists #(solfege-engraver numRâ DOWN) }

sup= \with { \consists #(solfege-engraver numRâ UP) }
sdown= \with { \consists #(solfege-engraver numRâ DOWN) }

chordNames = \chordmode {
  \global
  % Chords follow here.
  
}

melody =  {
  \global
  r2 r4 d''4~ |%m01
  d''4 4 2 |%m02 
  d''2 r4 d''4~ |%m03
  d''8 8 4 8 r8 8. 16 |%m04
  d''2 g'4 f''4~ |%m05
  f''4 e''4 d''4 c''4 |%m06
  r8 b'8 g'4 d''4 4 |%m07
  c''4. b'8 2 |%m08
  r2 r4 d'4~ |%m09
  d'4 4 4.( e'8) |%m10
  fs'2 r8 g'8 a'4 |%m11
  b'4( a'4) 8 r8 d''4~ |%m12
  d''4 4 e''4 f''4 |%m13
  f''4 e''4 d''4 c''4 |%m14
  b'4 4 c''4 d''8 e''8 |%m15
  fs''4. g''8 2 |%m16
}

verse = \lyricmode {
  å å© è·¯ äº! å
  å© è·¯ äº! å å© è·¯ äº! å æ¨ æº é ,
  è³ äºº å® æ¯ æ ä½³ ç¾. å
  å å© è·¯ äº! å å© è·¯ äº! æ±
  æ æ å, ç¸ æ ç¸ è¦ª, å äº« å±¬ ç¥ å¤§ æ¡ æ¬£.
}

\include "include_extract-music.ly"

SA = {
  \global 
  <d'b'>4 4 <d'c''>4 <d'd''>4 |%m01
  <d'd''>4 <<{c''4}\\{e'8 fs'8}>> <g'b'>4 <d'a'>4 |%m02
  <d'g'>4 4 <fs'a'>4 <g'b'>4 |\break %m03
  <g'b'>4. <fs'a'>8 2 |%m04
  <g'b'>4 <d'b'>4 <e'c''>4 <f'd''>4 |%m05
  <f'd''>4 <e'c''>4 <d'b'>4 <e'a'>4 |\break %06
  <d'g'>4 4 <fs'a'>4 <g'b'>4 |%m07
  <fs'a'>4. g'8 2 |%m08
  <fs'a'>4 <d'a'>4 <d'b'>4 g'4 |\break %m09
  <fs'a'>4 <g'b'>8( <fs'c''>8) <g'b'>4 g'4 |%m10
  <fs'a'>4 <<{b'8( c''8)}\\{fs'4}>> <fs'b'>4 <ds'a'>4 |%m11
  <<{g'4}\\{e'8 d'8}>> <cs'a'>4 d'2 |\break %m12
  <d'b'>4 4 <e'c''>4 <f'd''>4 |%m13
  <f'd''>4 <e'c''>4 <d'b'>4 <e'a'>4 |%m14
  <d'g'>4 4 <fs'a'>4 <g'b'>4 |%m15
  <fs'a'>4. g'8 2 |%m16
  \bar"|."
  \label #'lastPage
}

soprano =  { \ePU \SA }
alto =  { \ePL \SA }

TB = {
  \global
  g4 4 <g a>4 <g b>4 |%m01
  <d b>4 <d a>4 <d g>4 <c fs>4 |%m02
  <b,g>4 <b,b>4 <a,c'>4 <g,d'>4 |%m03
  <d d'>4. 8 2 |%m04
  <g d'>4 4 <g c'>4 <g b>4 |%m05
  <c g>4 <c a>4 <c b>4 <c c'>4 |%m06
  <d b>4 4 <d c'>4 <d d'>4 |%m07
  <d c'>4. <g b>8 2 |%m08
  <d d'>4 <d fs>4 <d g>4 <d b>4 |%m09
  <d c'>4 <<{b8 a8}\\{d4}>> <d g>4 <d b>4 |%m10
  <d c'>4 <<{b8 a8}\\{d4}>> <ds b>4 <b,b>4 |%m11
  <e b>4 <<{a8 g8}\\{a,4}>> <d fs>2 |%m12
  g4 <g d'>4 <g c'>4 <g b>4 |%m13
  <c g>4 <c a>4 <c b>4 <c c'>4 |%m14
  <d b>4 4 <d c'>4 <d d'>4 |%m15
  <d c'>4. <g b>8 2 |%m16
}
tenor =  { \ePU \TB }
bass =  { \ePL \TB }

verseOne = \lyricmode { \set fontSize = #3.0
  \set stanza = "1."
  å¿« æ¨, å¿« æ¨, æ å å´ æ, æ¦® è æ æ
  å¤§ ä¸» å®°; å¥ ç» å¿ é å¨ ä¸» é¢ å,
  å¦ å è± æµ å æ¥ é. æ é§, ç é², 
  ç½ª æª, æ é©, æ æ± æ ä¸» æ¶ é¤ ç¡,
  è¬ ç¦ ä¹ æº, æ°¸ æ¨ ä¹ ä¸» è³ ä¸ å æ æ»¿ æ å¿.
}

verseTwo = \lyricmode { \set fontSize = #3.0
  \set stanza = "2."
  ç° ç¹ ä¸» åº§ è¬ ç© å æ¡, å¤© å° å æ 
  ä¸» æ¦® å; å¤© ä½¿, æ å®¿, ç¹ ä¸» æ å±,
  ä¸ ä½ å´ æ æ°¸ é  æ; ç° é, æ£® æ,
  é« å±±, ä½ è°·, é ç¿  è å å æµ· æ´,
  æ¸ æ å° é³¥, è¼ æ³¨ æµ æ³, å äºº æ ä¸» å æ¡ æ¢. 
}

verseThree = \lyricmode { \set fontSize = #3.0
  \set stanza = "3."
  ä¸» å¥½ çµ¦ è, ä¸» å èµ¦ ç½ª, æ°¸ é  ç¥ ç¦
  æ½ æ© æ ; ä¸» æ¯ ç å½, å æ¨ æº é ,
  è³ äºº å® æ¯ æ ä½³ ç¾; ç¥ æ¯ ç¶ è¦ª,
  åº ç£ æ¯ å, æ ä¸ ç æ´» ç ä¸» æ°;
  æ± æ æ å, ç¸ æ ç¸ è¦ª, å äº« å±¬ ç¥ å¤§ æ¡ æ¬£.
}

rehearsalMidi = #
(define-music-function
 (parser location name midiInstrument lyrics) (string? string? ly:music?)
 #{
   \unfoldRepeats <<
     \new Staff = "soprano" \new Voice = "soprano" { \soprano }
     \new Staff = "alto" \new Voice = "alto" { \alto }
     \new Staff = "tenor" \new Voice = "tenor" { \tenor }
     \new Staff = "bass" \new Voice = "bass" { \bass }
     \context Staff = $name {
       \set Score.midiMinimumVolume = #0.5
       \set Score.midiMaximumVolume = #0.5
       \set Score.tempoWholesPerMinute = #(ly:make-moment 120 4)
       \set Staff.midiMinimumVolume = #0.8
       \set Staff.midiMaximumVolume = #1.0
       \set Staff.midiInstrument = $midiInstrument
     }
     \new Lyrics \with {
       alignBelowContext = $name
     } \lyricsto $name $lyrics
   >>
 #})

leadSheetPart = <<
  \new ChordNames \chordNames
  \new Staff \with {
    %midiInstrument = "viola"
    instrumentName = \markup \center-column { "descant" }
    shortInstrumentName = \markup \center-column { "D."  }
  }{ \melody }
  \addlyrics { \verse }
>>

choirPart = \new ChoirStaff <<
  \new Staff \with {
    %midiInstrument = "choir aahs"
    instrumentName = \markup \center-column { "S." "A." }
    shortInstrumentName = \markup \center-column { "S." "A." }
  } <<
    %\SA
    \set Staff.printPartCombineTexts = ##f
        \partcombine << \soprano>> <<\alto>>
    \new NullVoice = "soprano" \rup { \voiceOne \soprano }
    \new NullVoice = "alto" { \voiceTwo \alto }
    %\new Voice = "soprano" { \voiceOne \soprano }
    %\new Voice = "alto" { \voiceTwo \alto }
  >>
  \new Lyrics \with {
    \override VerticalAxisGroup #'staff-affinity = #CENTER
  } \lyricsto "soprano" \verseOne
  \new Lyrics \with {
    \override VerticalAxisGroup #'staff-affinity = #CENTER
  } \lyricsto "soprano" \verseTwo
  \new Lyrics \with {
    \override VerticalAxisGroup #'staff-affinity = #CENTER
  } \lyricsto "soprano" \verseThree
  \new Staff \with {
    %midiInstrument = "choir aahs"
    instrumentName = \markup \center-column { "T." "B." }
    shortInstrumentName = \markup \center-column { "T." "B." }
  } <<
    \clef bass
    \set Staff.printPartCombineTexts = ##f
        \partcombine <<\tenor>> <<\bass>>
    \new NullVoice = "tenor" { \voiceOne \tenor }
    \new NullVoice = "bass" { \voiceTwo \bass }
    %\new Voice = "tenor" { \voiceOne \tenor }
    %\new Voice = "bass" { \voiceTwo \bass }
  >>
>>

\score {
  <<
    \leadSheetPart
    \choirPart
  >>
  \layout { }
  \midi { }
}

%{
sopPart = \new ChoirStaff <<
  \new Staff \with { \rup
    %midiInstrument = "choir aahs"
    instrumentName = \markup \center-column { "S." "A." }
    shortInstrumentName = \markup \center-column { "S." "A." }
  } <<
    
   
    \new Voice = "soprano" { \voiceOne \soprano }
    %\new Voice = "alto" { \voiceTwo \alto }
  >>
  \new Lyrics \with {
    \override VerticalAxisGroup #'staff-affinity = #CENTER
  } \lyricsto "soprano" \verseOne
  \new Lyrics \with {
    \override VerticalAxisGroup #'staff-affinity = #CENTER
  } \lyricsto "soprano" \verseTwo
  \new Lyrics \with {
    \override VerticalAxisGroup #'staff-affinity = #CENTER
  } \lyricsto "soprano" \verseThree
>>

\book {
  \bookOutputSuffix "soprano"
  \score {
    <<
    \sopPart
    >>
    \layout {}
  }
}

%{ Rehearsal MIDI files:
\book {
  \bookOutputSuffix "soprano"
  \score {
    \rehearsalMidi "soprano" "soprano sax" \verseOne
    \midi { }
  }
}

\book {
  \bookOutputSuffix "alto"
  \score {
    \rehearsalMidi "alto" "soprano sax" \verseOne
    \midi { }
  }
}

\book {
  \bookOutputSuffix "tenor"
  \score {
    \rehearsalMidi "tenor" "tenor sax" \verseOne
    \midi { }
  }
}

\book {
  \bookOutputSuffix "bass"
  \score {
    \rehearsalMidi "bass" "tenor sax" \verseOne
    \midi { }
  }
}





%{
convert-ly.py (GNU LilyPond) 2.19.13  convert-ly.py: Processing `'...
Applying conversion:     The document has not been changed.
%}

_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user

Wrong type argument

Reply via email to