import sys


copyright = """copyright 1992. Peter Wallin. Verbatim redistribution
permitted """



"""

This file produces the Score for CLA(O)P II  -- a piece by
Peter Wallin (pwallin@post8.tele.dk).

The score produced by this file is
copyright 1992. Peter
Wallin. Verbatim redistribution permitted




From: Rune Zedeler <rune@zedeler.dk>
Sender: lilypond-devel-admin@gnu.org
To: LilyPond Devel <lilypond-devel@gnu.org>
Subject: CLA(O)P II
Date: Wed, 12 Jun 2002 02:14:05 +0200

The concert went well.
I talked to the composer and he agreed to include the score in lilypond 
as long as his name was maintained and as long as he kept the copyrights 
- that is people are not allowed to make changes to the score.

I think including CLA(O)P II is a Good Thing because it stress tests 
lilypond very well. This is also why I think that including only an 
excerpt from it is stupid.
I am not sure how the inclusion should be.
The raw lilypond file is 750k; gzip'ed 40k.
Alternatively one could include the generating c-file into lilypond.
Or perhaps we should just wait till I manage to redo it in scheme... :-)

-Rune

"""



#//set to 1, 385 to typeset the whole score
start_measure =1
no_measures = 385
voices = 48

durs = ["16","8","8.","4"]
grund = [
  "x x x x xx x",
  "x x xx xx x xx x",
  "xx xx x xx xx x xx xx x ",
  
  "x x x xx xx ",
  "x xx xx x xx xx ",
  "x xx x xx xx x xx xx x x",
  
  "x x xx xx x ",
  "xx xx x xx xx x ",
  "xx x xx xx x xx xx x xx ",
  
  "x xx xx x x ",
  "x xx x xx xx x x",
  "x x xx xx x xx xx x xx x",
  
  "xx xx x x x ",
  "xx x xx xx x xx ",
  "x xx xx x xx xx x xx xx ",
  
  "x xx x x x x",
  "x x xx xx x xx x",
  "xx xx x xx xx x xx xx x ",
  
  "xx x x x xx ",
  "x xx xx x xx xx ",
  "x xx x xx xx x xx xx x x",
  
  
  "x x x x xx x",
  "xx xx x xx xx x ",
  "xx x xx xx x xx xx x xx ",
  
  "x x x xx xx ",
  "x xx x xx xx x x",
  "x x xx xx x xx xx x xx x",
  
  "x x xx xx x ",
  "xx x xx xx x xx ",
  "x xx xx x xx xx x xx xx ",
  
  "x xx xx x x ",
  "x x xx xx x xx x",
  "xx xx x xx xx x xx xx x ",
  
  "xx xx x x x ",
  "x xx xx x xx xx ",
  "x xx x xx xx x xx xx x x",
  
  "x xx x x x x",
  "xx xx x xx xx x ",
  "xx x xx xx x xx xx x xx ",
  
  "xx x x x xx ",
  "x xx x xx xx x x",
  "x x xx xx x xx xx x xx x",
  
  "x x x x xx x",
  "xx x xx xx x xx ",
  "x xx xx x xx xx x xx xx ",
  
  "x x x xx xx ",
  "x x xx xx x xx x",
  "xx xx x xx xx x xx xx x " 
]

accents = ''
accstr = '' 


def stemme(st) :
  adr = [0] * (385*16)
  pos = st*48+44

  for i in range(0,100):
    adr[384*16-i*28] = ord ('X')

  for k in range(0,48):
    if k: 
      for j in range(0,8):
        adr[pos] = 0
	pos += 1
	
    for j in range(0,4):
      for c in grund[k]:
	  if c ==' ' :
	      adr[pos] = 0
	  else:
	      adr[pos] = 3-j+ord ('a')
	  pos += 1
	  
  for i in range(0,385*16):
    ac = accents[48*4+i-((48+24-st)%48)*4]
    if ac:
      adr[i]=ac
  
  return adr


def print1(ch) :
  accstr=""
  if ch >= ord('A') and ch <=ord('D'):
    ch += ord('a')-ord('A')
    accstr="->"

  namestr = ''
  cr = chr (ch)
  
  if cr=='a':
      namestr="a"
  elif cr=='b':
      namestr="b"
  elif cr=='c':
      namestr="d'"
  elif cr=='d':
      namestr="e'"
  elif cr=='X':
      namestr="\\property Staff.NoteHead \\override #'style = #'cross c'"
      accstr="-^ \\property Staff.NoteHead \\revert #'style"
  else:
      print 'foo', cr, chr(ch), ch == 'd', "A%sA" % cr
      raise 'foo'

  return (namestr,accstr)


namestr = ''
accstr = ''

def print4(ptr):
    val = reduce (lambda x,y : x|y,  ptr)
#    sys.stderr.write ('%d ' % val)
    if not val:
	sys.stdout.write ("r4 ")
    else:
	dur=-1

	global namestr
	global accstr
	if ptr[0]==0:
	    sys.stdout.write ("~")
            (namestr, accstr) = print1(val)

        for c in ptr:
	    if c==0:
		dur += 1
	    else:
		if dur>=0:
		    sys.stdout.write( "%s%s%s " % (namestr,durs[dur],accstr))
		(namestr, accstr)  = print1(c)
		dur=0
      
        sys.stdout.write( "%s%s%s "% (namestr,durs[dur],accstr))
  


def print8(ptr) :
    val = reduce (lambda x,y : x|y,  ptr)
    if val:
	print4(ptr[0:4])
	print4(ptr[4:8])
    else:
	sys.stdout.write ("r2 ")


def print16(ptr):
    val = reduce (lambda x,y : x|y,  ptr)
    if val:
	print8(ptr[0:8])
	print8(ptr[8:16])
    else:
	sys.stdout.write("R1 ")  

accents = [0] *(500*16)
for i in range(0,32):
    pos=i*12*16+4*48
    accents[pos]=ord('D')
    if(i<31) :
	if(i>0):
	    accents[pos+4*12]=ord('A')
	accents[pos+4*23]=ord('C')
	accents[pos+4*35]=ord('B' )


sys.stdout.write ('%%{\n %s \n %%}' % copyright)
sys.stdout.write (r"""
\include "paper11.ly"

\header {
    title = "CLA(O)P II"
    composer = "Peter Wallin (1992-93)"
    copyright = "Copyright  (1992-93) Peter Wallin, verbatim redistribution permitted"
}


""")





for st in range(1,voices+1):
    str=stemme(st)
    ststr=chr((st-1)/24+ord('A')) + chr ((st-1)%24+ord('A'))
    sys.stdout.write( """

stemme%s = \\notes {\n\\clef percussion
\\property Staff.instrument = \"%d\"\n
\\property Staff.instr = \"%d\"\n
\\property Score.currentBarNumber = #%d\n""" % (ststr,st,st,start_measure))
    
    for i in range(start_measure-1, start_measure-1+no_measures):
      print16(str[i*16:i*16+16])
      sys.stdout.write (" |\n")
    
    sys.stdout.write ("\\bar\"|.\" }\n")
    

sys.stdout.write (r"""
\score {
    \notes <
	\property Score.BarNumber \override #'padding = #2.5
	\property Score.autoBeamSettings \override
	  #'(end * * * *) = #(ly:make-moment 1 4)
	\property Score.skipBars = ##t
	\context StaffGroup <
	    \property StaffGroup.Stem \override #'direction = #1
""")


for   st in range(1,voices+1):
  ststr=chr((st-1)/24+ord('A')) + chr ((st-1)%24+ord('A'))
  ststr = 'stemme' + ststr
  sys.stdout.write (r"""\context Staff="%s" \%s
""" % (ststr,ststr))

sys.stdout.write (r""">
    >
    \paper {
	linewidth = 26.0\cm
	indent = 0
	textheight = 38.0\cm
	%hsize = 30.0 \cm
	%vsize = 42.0 \cm

	\translator {
	    \StaffContext 
	    StaffSymbol \override #'line-count  = #3
            minimumVerticalExtent = #'(-3 . 3)
	}
    }
    
}
""")
