Doc: move simply.ly into included, since it's required by markup-commands.tely

[lilypond.git] / input / mutopia / claop.py

diff --git a/input/mutopia/claop.py b/input/mutopia/claop.py
index efef518631a601431a14d27f5cd8c99d027fa7ff..92a8f7351d83e1fa5ec5f80d969550cf1d83cff4 100644 (file)
--- a/input/mutopia/claop.py
+++ b/input/mutopia/claop.py
@@ -167,8 +167,8 @@ def print1(ch) :
   elif cr=='d':
       namestr="e'"
   elif cr=='X':
-      namestr="\\property Staff.NoteHead \\override #'style = #'cross c'"
-      accstr="-^ \\property Staff.NoteHead \\revert #'style"
+      namestr="\\override Staff.NoteHead #'style = #'cross c'"
+      accstr="-^ \\revert Staff.NoteHead #'style"
   else:
       print 'foo', cr, chr(ch), ch == 'd', "A%sA" % cr
       raise 'foo'
@@ -236,7 +236,8 @@ for i in range(0,32):
 
 sys.stdout.write ('%%{\n %s \n %%}' % copyright)
 sys.stdout.write (r"""
-\include "paper11.ly"
+\version "2.7.29"
+#(set-global-staff-size 11)
 
 \header {
     title = "CLA(O)P II"
@@ -254,29 +255,30 @@ sys.stdout.write (r"""
 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))
+    sys.stdout.write(r'''
+
+stemme%s =  {
+\clef percussion
+\set Staff.instrument = "%d"
+\set Staff.instr = "%d"
+\set Score.currentBarNumber = #%d
+'''
+    % (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 (" \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
+<<
+  \override Score.BarNumber  #'padding = #2.5
+  %#(override-auto-beam-setting '(end * * * *) 1 4)
+  \set Score.skipBars = ##t
+  \context StaffGroup <<
+    \override StaffGroup.Stem #'direction = #UP
 """)
 
 
@@ -286,21 +288,21 @@ for   st in range(1,voices+1):
   sys.stdout.write (r"""\context Staff="%s" \%s
 """ % (ststr,ststr))
 
-sys.stdout.write (r""">
-    >
-    \paper {
+sys.stdout.write (r""">>
+>>
+#(set-default-paper-size "a3")
+\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)
-       }
-    }
-    
+}
+\layout {
+  \context {
+    \Staff 
+    \override StaffSymbol #'line-count  = #3
+    minimumVerticalExtent = #'(-3 . 3)
+  }
 }
 """)