130. synthesizeSinging()
「synthesizeSinging()」
―――
Sub synthesizeSinging()
Dim lyrics(1 To 4) As String
lyrics(1) = "
lyrics(2) = "
lyrics(3) = "
lyrics(4) = "そうして
Dim i As Integer, j As Integer
For i = 1 To ActiveScore.Phrases.Count
For j = 1 To 4
If ((i = 5) Or (i = 9) Or (i = 11)) And (j = 4) Then
Exit For
End If
ActiveScore.Phrases.singText Text:=lyrics(j)
Next j
Next i
End Sub