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="\\override Staff.NoteHead #'style = #'cross c'"
171 accstr="-^ \\revert Staff.NoteHead #'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"""
240 #(set-global-staff-size 11)
244 composer = "Peter Wallin (1992-93)"
245 copyright = "Copyright (1992-93) Peter Wallin, verbatim redistribution permitted"
255 for st in range(1,voices+1):
257 ststr=chr((st-1)/24+ord('A')) + chr ((st-1)%24+ord('A'))
258 sys.stdout.write(r'''
262 \set Staff.instrument = "%d"
263 \set Staff.instr = "%d"
264 \set Score.currentBarNumber = #%d
266 % (ststr,st,st,start_measure))
268 for i in range(start_measure-1, start_measure-1+no_measures):
269 print16(str[i*16:i*16+16])
270 sys.stdout.write (" \n")
272 sys.stdout.write ("\\bar\"|.\" }\n")
275 sys.stdout.write (r"""
277 \override Score.BarNumber #'padding = #2.5
278 #(override-auto-beam-setting '(end * * * *) 1 4)
279 \set Score.skipBars = ##t
280 \context StaffGroup <<
281 \override StaffGroup.Stem #'direction = #UP
285 for st in range(1,voices+1):
286 ststr=chr((st-1)/24+ord('A')) + chr ((st-1)%24+ord('A'))
287 ststr = 'stemme' + ststr
288 sys.stdout.write (r"""\context Staff="%s" \%s
291 sys.stdout.write (r""">>
293 #(set-default-paper-size "a3")
304 \override StaffSymbol #'line-count = #3
305 minimumVerticalExtent = #'(-3 . 3)