(oop): use srfi-1 too.

[lilypond.git] / input / ascii-art / standchen-as9.ly

diff --git a/input/ascii-art/standchen-as9.ly b/input/ascii-art/standchen-as9.ly
index 00a7b257bb56e233046176aec77e88933523a596..5c809c9b72966fa85ce081f31bbdecdb836b6bb3 100644 (file)
--- a/input/ascii-art/standchen-as9.ly
+++ b/input/ascii-art/standchen-as9.ly
@@ -1,38 +1,42 @@
+\version "1.7.18"
+% ASCII Art output
 
-% asci-art output, TODO: include how-to-use-this 
+% Process as:
+%
+%     lilypond -fas foo.ly
+%     as2text foo.as
+
+% FIXME: broken system-start-delimiter.cc:staff_brace lookup
 
 \include "paper-as9.ly"
 
 \score {
-       \context GrandStaff <
-               \context Staff=upper \notes\relative c{
-                       \key f \major;
-                       \time 3/4;
-                       r8^"Moderato" %\pp 
-                       <g'-. c-.> <c-. es-.> <g-. c-.> <c-. es-.> <g-. c-.> |
-                       r8 <as-. c-.> <c-. es-.>
-               }
-               \context Staff=lower \notes\relative c{
-                       \key f \major;
-                       \time 3/4;
-                       \clef "bass";
-                       <c,2 c'> r4 
-                       <as2 as'> r4
-               }
-       >
-       \paper {
-%              \paperAs_nine
-               indent=4.0\char;
-               linewidth=78.0\char;
-               %\translator { \StaffContext barSize = #9 }
-               %\translator { \VoiceContext beamHeight = #0 }
-               \translator { 
-                       \VoiceContext 
-                       beamHeight = ##f 
-                       autoBeamSettings \override #(begin * * * *) = #(make-moment 0 1)
-                       textNonEmpty = ##f
-               }
-       }
-
+  \context GrandStaff <
+    \context Staff=upper \notes\relative c{
+      \key f \major
+      \time 3/4
+      r8^"Moderato" %-\pp 
+      <g'-. c-.> <c-. es-.> <g-. c-.> <c-. es-.> <g-. c-.> |
+      r8 <as-. c-.> <c-. es-.>
+    }
+    \context Staff=lower \notes\relative c{
+      \key f \major
+      \time 3/4
+      \clef "bass"
+      <c,2 c'> r4 
+      <as2 as'> r4
+    }
+  >
+  \paper {
+    indent=4.0\char
+    linewidth=78.0\char
+    \translator { 
+      \VoiceContext 
+      % horizontal beams
+      Beam \override #'height = #0
+      autoBeamSettings \override #'(begin * * * *) = #(ly:make-moment 0 1)
+      TextScript \set #'no-spacing-rods = ##t
+    }
+  }
 }