4 copyright = """copyright 1992. Peter Wallin. Verbatim redistribution
11 This file produces the Score for CLA(O)P II -- a piece by
12 Peter Wallin (pwallin@post8.tele.dk).
14 The score produced by this file is
16 Wallin. Verbatim redistribution permitted
21 From: Rune Zedeler <rune@zedeler.dk>
22 Sender: lilypond-devel-admin@gnu.org
23 To: LilyPond Devel <lilypond-devel@gnu.org>
25 Date: Wed, 12 Jun 2002 02:14:05 +0200
27 The concert went well.
28 I talked to the composer and he agreed to include the score in lilypond
29 as long as his name was maintained and as long as he kept the copyrights
30 - that is people are not allowed to make changes to the score.
32 I think including CLA(O)P II is a Good Thing because it stress tests
33 lilypond very well. This is also why I think that including only an
34 excerpt from it is stupid.
35 I am not sure how the inclusion should be.
36 The raw lilypond file is 750k; gzip'ed 40k.
37 Alternatively one could include the generating c-file into lilypond.
38 Or perhaps we should just wait till I manage to redo it in scheme... :-)
46 #//set to 1, 385 to typeset the whole score
51 durs = ["16","8","8.","4"]
55 "xx xx x xx xx x xx xx x ",
59 "x xx x xx xx x xx xx x x",
63 "xx x xx xx x xx xx x xx ",
67 "x x xx xx x xx xx x xx x",
71 "x xx xx x xx xx x xx xx ",
75 "xx xx x xx xx x xx xx x ",
79 "x xx x xx xx x xx xx x x",
84 "xx x xx xx x xx xx x xx ",
88 "x x xx xx x xx xx x xx x",
92 "x xx xx x xx xx x xx xx ",
96 "xx xx x xx xx x xx xx x ",
100 "x xx x xx xx x xx xx x x",
104 "xx x xx xx x xx xx x xx ",
108 "x x xx xx x xx xx x xx x",
112 "x xx xx x xx xx x xx xx ",
116 "xx xx x xx xx x xx xx x "
127 for i in range(0,100):
128 adr[384*16-i*28] = ord ('X')
130 for k in range(0,48):
141 adr[pos] = 3-j+ord ('a')
144 for i in range(0,385*16):
145 ac = accents[48*4+i-((48+24-st)%48)*4]
154 if ch >= ord('A') and ch <=ord('D'):
155 ch += ord('a')-ord('A')
170 namestr="\\property Staff.NoteHead \\override #'style = #'cross c'"
171 accstr="-^ \\property Staff.NoteHead \\revert #'style"
173 print 'foo', cr, chr(ch), ch == 'd', "A%sA" % cr
176 return (namestr,accstr)
183 val = reduce (lambda x,y : x|y, ptr)
184 # sys.stderr.write ('%d ' % val)
186 sys.stdout.write ("r4 ")
193 sys.stdout.write ("~")
194 (namestr, accstr) = print1(val)
201 sys.stdout.write( "%s%s%s " % (namestr,durs[dur],accstr))
202 (namestr, accstr) = print1(c)
205 sys.stdout.write( "%s%s%s "% (namestr,durs[dur],accstr))
210 val = reduce (lambda x,y : x|y, ptr)
215 sys.stdout.write ("r2 ")
219 val = reduce (lambda x,y : x|y, ptr)
224 sys.stdout.write("R1 ")
226 accents = [0] *(500*16)
227 for i in range(0,32):
229 accents[pos]=ord('D')
232 accents[pos+4*12]=ord('A')
233 accents[pos+4*23]=ord('C')
234 accents[pos+4*35]=ord('B' )
237 sys.stdout.write ('%%{\n %s \n %%}' % copyright)
238 sys.stdout.write (r"""
239 \include "paper11.ly"
243 composer = "Peter Wallin (1992-93)"
244 copyright = "Copyright (1992-93) Peter Wallin, verbatim redistribution permitted"
254 for st in range(1,voices+1):
256 ststr=chr((st-1)/24+ord('A')) + chr ((st-1)%24+ord('A'))
257 sys.stdout.write( """
259 stemme%s = \\notes {\n\\clef percussion
260 \\property Staff.instrument = \"%d\"\n
261 \\property Staff.instr = \"%d\"\n
262 \\property Score.currentBarNumber = #%d\n""" % (ststr,st,st,start_measure))
264 for i in range(start_measure-1, start_measure-1+no_measures):
265 print16(str[i*16:i*16+16])
266 sys.stdout.write (" |\n")
268 sys.stdout.write ("\\bar\"|.\" }\n")
271 sys.stdout.write (r"""
274 \property Score.BarNumber \override #'padding = #2.5
275 \property Score.autoBeamSettings \override
276 #'(end * * * *) = #(make-moment 1 4)
277 \property Score.skipBars = ##t
278 \context StaffGroup <
279 \property StaffGroup.Stem \override #'direction = #1
283 for st in range(1,voices+1):
284 ststr=chr((st-1)/24+ord('A')) + chr ((st-1)%24+ord('A'))
285 ststr = 'stemme' + ststr
286 sys.stdout.write (r"""\context Staff="%s" \%s
289 sys.stdout.write (r""">
300 StaffSymbol \override #'line-count = #3
301 minimumVerticalExtent = #'(-3 . 3)