+++ /dev/null
-\input texinfo @c -*-texinfo-*-
-@setfilename index.info
-@settitle index
-
-@node Top, , , (dir)
-@top
-
-Miscellaneous texts
-@itemize @bullet
-@item @uref{CHANGES-0.0.txt, Change logs from 0.0 till 0.1 }
-@item @uref{CHANGES-0.1.txt, Change logs from 0.1 till 1.0 }
-@item @uref{CHANGES-1.0.txt, Change logs from 1.0 till 1.1 }
-@item @uref{CHANGES-1.1.txt, Change logs from 1.1 till 1.2 }
-@item @uref{NEWS-1.2.txt, summary of changes from 1.1 till 1.2 }
-@item @uref{ANNOUNCE-0.1.txt, Announcement of 0.1 (includes summary of
-changes)}
-@item @uref{ANNOUNCE-1.0.txt, Announcement of 1.0 (includes summary of
-changes)}
-@item @uref{ANNOUNCE-1.2.txt, Announcement of 1.2 (includes summary of changes)}
-
-@item @uref{AIMS.txt} Why LilyPond?
-@item @uref{interview.txt} Answers to the Brave GNU world standard questions
-@end itemize
-
+++ /dev/null
-depth = ../..
-
-STEPMAKE_TEMPLATES=documentation texinfo
-TO_TOP_FILES=$(addprefix $(outdir)/, $(README_TOP_FILES))
-PLAIN_FILES=angels.ly $(wildcard *.patch)
-
-EXTRA_DIST_FILES = $(PLAIN_FILES)
-
-
-include $(depth)/make/stepmake.make
-
-default: local-doc dist-plain
-
-$(outdir)/%.texi: %.texi
- m4 -DTOPLEVEL_VERSION=$(TOPLEVEL_VERSION) < $< > $@
-
-dist-plain:
- cp $(PLAIN_FILES) $(outdir)
-
-local-WWW:
-
+++ /dev/null
-\header{\r
-filename = "angles.ly";\r
-title = "Angels We Have Heard on High";\r
-description = "Christmas Carol.";\r
-\r
-composer = "French Carol, 1854";\r
-enteredby = "Jeffrey B. Reed";\r
-copyright = "public domain";\r
-}\r
-\r
-global = \notes {\r
- \time 2/2;\r
- \key f \major;\r
- \tempo 2=60;\r
- \clef treble;\r
-}\r
-\r
-\version "1.3.110";\r
-% \include "paper16.ly"\r
-\r
-flute1 = \notes \relative c'' \context Voice = flute {\r
- \property Staff.instrument = "flute"\r
-\r
- a'4 a a c | \r
- c4. bes8 a2 |\r
- a4 g a c |\r
-\r
- a4. g8 f2 |\r
- a4 a a c |\r
- c4. bes8 a2 |\r
-\r
- a4 g a c |\r
- a4. g8 f2 |\r
- c'2( [ d8 c8 bes8 a8 ] |\r
-\r
- bes2 [ c8 bes8 a8 g8 ] |\r
- a2 [ bes8 a8 g8 f8 ] | \r
- )g4. c,8 c2 |\r
-\r
- f4 g a bes |\r
- a2 g2 |\r
- c2( [ d8 c8 bes8 a8 ] |\r
-\r
- bes2 [ c8 bes8 a8 g8 ] |\r
- a2 [ bes8 a8 g8 f8 ] | \r
- )g4. c,8 c2 |\r
-\r
- f4 g a bes |\r
- a2( )g2 |\r
- f1 \bar "|."; \r
-}\r
-\r
-flute2 = \notes \relative c'' \context Voice = flute {\r
- \property Staff.instrument = "flute"\r
- \r
- f4 f e e | \r
- g4 e f2 |\r
- f4 e f f |\r
-\r
- f4 e f2 |\r
- f4 f e e |\r
- f4 g f2 |\r
-\r
- f4 e f f |\r
- f4 e f2 |\r
- f4 ( [a8 g8 ] f2( |\r
-\r
- )f4 [g8 f8] e2( |\r
- )e4 [f8 e8] d2 |\r
- )c4.c8 c2 |\r
-\r
- c4 e f f |\r
- f2 e2 |\r
- f4 ( [a8 g8 ] f2( |\r
-\r
- )f4 [g8 f8] e2( |\r
- )e4 [f8 e8] d2 |\r
- )c4.c8 c2 |\r
-\r
- c4 e f f |\r
- f2( )e2 | \r
- c1 |\r
-}\r
-\r
-flute1_staff = \context Staff = flute1_group <\r
- \global\r
- \flute1\r
->\r
-\r
-flute2_staff = \context Staff = flute2_group <\r
- \global\r
- \flute2\r
->\r
-\r
-flutes = \context StaffGroup <\r
- \flute1_staff\r
- \flute2_staff\r
->\r
- \r
-\r
-\score{\r
- <\r
- \flutes\r
- >\r
- \paper{}\r
- \midi{ \r
- \tempo 2 = 60 ;\r
- }\r
-}\r
+++ /dev/null
-diff -urN ../guile-1.4/ChangeLog ./ChangeLog
---- ../guile-1.4/ChangeLog Fri Jun 2 15:17:01 2000
-+++ ./ChangeLog Mon Jun 5 15:18:32 2000
-@@ -1,3 +1,12 @@
-+2000-06-05 <janneke@gnu.org>
-+
-+ * guile-config/cross-guile-config.in: Simple shell script to
-+ take over guile-config's functionality for cross-compilation.
-+ It will be installed as ${target}-guile-config.
-+
-+ * guile-config/Makefile.am: Provide for cross-guile-config.in
-+ and its targets.
-+
- 2000-06-21 Mikael Djurfeldt <mdj@thalamus.nada.kth.se>
-
- * Guile 1.4 released.
-diff -urN ../guile-1.4/configure.in ./configure.in
---- ../guile-1.4/configure.in Fri Jun 2 08:44:27 2000
-+++ ./configure.in Mon Jun 5 15:13:58 2000
-@@ -21,6 +21,7 @@
- dnl Boston, MA 02111-1307, USA.
-
- AC_INIT(Makefile.in)
-+AC_CANONICAL_SYSTEM
- . $srcdir/GUILE-VERSION
- AM_INIT_AUTOMAKE($PACKAGE, $VERSION, no-define)
- AM_MAINTAINER_MODE
-diff -urN ../guile-1.4/guile-config/Makefile.am ./guile-config/Makefile.am
---- ../guile-1.4/guile-config/Makefile.am Wed Jan 12 22:42:41 2000
-+++ ./guile-config/Makefile.am Mon Jun 5 15:17:37 2000
-@@ -20,9 +20,9 @@
- ## to the Free Software Foundation, Inc., 59 Temple Place, Suite
- ## 330, Boston, MA 02111-1307 USA
-
--bin_SCRIPTS=guile-config
--CLEANFILES=guile-config
--EXTRA_DIST=guile-config.in guile.m4
-+bin_SCRIPTS=guile-config @target@-guile-config
-+CLEANFILES=guile-config @target@-guile-config
-+EXTRA_DIST=guile-config.in guile.m4 cross-guile-config.in
-
- ## FIXME: in the future there will be direct automake support for
- ## doing this. When that happens, switch over.
-@@ -39,6 +39,21 @@
- -e s:@-GUILE_VERSION-@:${GUILE_VERSION}:
- chmod +x guile-config.tmp
- mv guile-config.tmp guile-config
-+
-+LDFLAGS=@LDFLAGS@
-+CFLAGS=@CFLAGS@
-+CPPFLAGS=@CPPFLAGS@
-+
-+@target@-guile-config: cross-guile-config.in
-+ rm -f $<.tmp
-+ sed < ${srcdir}/$< > $<.tmp \
-+ -e s:@-SHELL-@:${SHELL}: \
-+ -e s:@-GUILE_VERSION-@:${GUILE_VERSION}:\
-+ -e s:@-PREFIX-@:${prefix}: \
-+ -e "s:@-CPPFLAGS-@:${CPPFLAGS}:" \
-+ -e "s:@-LDFLAGS-@:${LDFLAGS}:"
-+ chmod +x $<.tmp
-+ mv $<.tmp $@
-
- ## Get rid of any copies of the configuration script under the old
- ## name, so people don't end up running ancient copies of it.
-diff -urN ../guile-1.4/guile-config/cross-guile-config.in ./guile-config/cross-guile-config.in
---- ../guile-1.4/guile-config/cross-guile-config.in Thu Jan 1 01:00:00 1970
-+++ ./guile-config/cross-guile-config.in Mon Jun 5 15:13:58 2000
-@@ -0,0 +1,16 @@
-+#!@-SHELL-@
-+# target-guile-config.in
-+case $1 in
-+ --version)
-+ echo "@-GUILE_VERSION-@"
-+ exit 0
-+ ;;
-+ compile)
-+ echo "@-CPPFLAGS-@ -I @-PREFIX-@/include/guile"
-+ exit 0
-+ ;;
-+ link)
-+ echo "-L @-PREFIX-@/lib -lguile @-LDFLAGS-@"
-+ exit 0
-+ ;;
-+esac
+++ /dev/null
-\input texinfo @c -*-texinfo-*-
-@setfilename index.info
-@settitle LilyPond Windows NT 4-0/95 Distribution
-
-@node Top, Introduction, (dir), (dir)
-@comment node-name, next, previous, up
-@top LilyPond Windows NT 4.0/95 Distribution
-
-@menu
-* Introduction::
-* News::
-* Bugs::
-* Required Packages::
-* Download::
-* Installation::
-* Running LilyPond::
-* LilyPond Resources::
-@end menu
-
-This page documents the NT port of LilyPond. It reflects the latest
-version of lilypond that was ported.
-
-@node Introduction, News, Top, Top
-@comment node-name, next, previous, up
-@section Introduction
-
-This page is dedicated to the distribution of precompiled and
-preformatted LilyPond binaries for Windows NT 4.0 . This package is
-covered under the GNU General Public License and all of the source is
-available on the official
-@uref{http://www.cs.ruu.nl/people/hanwen/lilypond/index.html,LilyPond
-Homepage}. A full set of
-@uref{http://www.cs.ruu.nl/people/hanwen/lilypond/Documentation/out-www/index.html,documentation}
-in various formats is also available.
-
-
-LilyPond is a music typesetter. It produces beautiful sheet music
-using a high level description file as input. LilyPond is part of
-the GNU Project.
-
-@node News, Bugs, Introduction, Top
-@comment node-name, next, previous, up
-@section News
-
-@table @samp
- @item BUG FIXES
- @itemize @bullet
- @item
- The Windows NT 4.0/95 precompiled preformatted release 1.3.42 is
- available.
- @end itemize
-@end table
-
-@table @samp
- @item NOTES
- @itemize @bullet
- @item We have had preliminary reports that the Windows 95
- installation works on Windows 98. Many thanks to Christian
- Mondrup.
-
- @item Please use the Add/Remove program control panel entry to
- unistall your current version of Lilypond before you attempt to
- install this one.
-
- @item If you are upgrading from a previous version of lilypond you will most
- likely need to flush your font cache. I generally just toss
- @file{D:\localtexmf\fonts\tfm\public\ehrhardt} and
- @file{D:\localtexmf\fonts\pk\ljfour\public\ehrhardt} in the Recyle
- Bin. Your local font directory may be different, please refer to your
- local installation of @code{TeX}.
-
- @item The FAT16, FAT32, and NTFS file system problems have been
- corrected. I have tested various installations that are known
- to be operational.
- @end itemize
-@end table
-
-The installer was created with
-@uref{http://www.gentee.com/,CreateInstall}. This is a shareware
-application that has capabilities close to the high dollar installers
-@strong{InstallShield}, @strong{Install Vise}, and @strong{WiseInstaller}.
-@strong{CreateInstall} does cost $38 to register which is probably going to
-be frowned upon, but I was unable to find a freeware install builder
-that was suitable. The self extracting distribution currently:
-
-@itemize @bullet
- @item Installs the lilypond distribution on any valid file system.
- @item Optionally creates a @emph{Lilypond} shortcut group on your start
- menu with the following shortcuts.
- @itemize @bullet
- @item @strong{lilyshell}
- @item @strong{uninstall}
- @end itemize
- @item Allows unistall through the Add/Remove Program interface on the
- control panel.
- @item The @strong{lilyshell} uses the /E and /K switches to extend the
- environment size and initialize the shell environment.
- @item It has the look and feel of a real Windows installer
-@end itemize
-
-The @strong{lilyshell} shortcut initializes the environment so you can
-generate music from a MSDOS prompt with commands like:
-
-@itemize @bullet
- @item ly2dvi
- @item convert-mudela
- @item mudela-book
- @item lilypond
- @item midi2ly
-@end itemize
-
-This release has been tested on Windows NT 4.0sp3 and Windows 95 and
-found to be operational. If you have any troubles and or comments
-please do not hesitate to drop me a line
-@uref{mailto:daboys@@austin.rr.com,Jeffrey B. Reed}.
-
-@node Bugs, Required Packages, News, Top
-@comment node-name, next, previous, up
-@section Bugs
-
-@itemize @bullet
-
- @item Using any text that contains '@{@}' for the value of the any
- valid mudela @strong{header} construct will cause @strong{ly2dvi} to
- fail. A work around for the @strong{latexheaders} construct is to
- create a @strong{TeX} file and set @strong{latexheaders} to "\input
- foo.tex".
-@end itemize
-
-@node Required Packages, Download, Bugs, Top
-@comment node-name, next, previous, up
-@section Required Packages
-
-LilyPond uses the @code{TeX} package as its rendering engine. @code{TeX}
-represents the state-of-the-art in computer typesetting. It is used to
-generate documentation, article, and book quality output. It is an
-assume tool to have in your toolbox.
-
-LilyPond uses a @code{Python} script named @code{ly2dvi} to render a
-professional quality music score. @code{Python} is an interpreted,
-interactive, object-oriented programming language. It is often
-compared to @code{Tcl}, @code{Perl}, @code{Scheme} or @code{Java}.
-
-Gsview is used to display and print the music scores created by
-LilyPond.
-
-@itemize @bullet
- @item
- @uref{http://www.miktex.de/,MiKTeX}. Versions
- 1.10b, 1.11, and 1.20b are known to work.
- @item
- @uref{http://www.python.org,Python}. Version 1.5.1 and
- possibly 1.5 work.
- @item
- @uref{http://www.cs.wisc.edu/~ghost/gsview/index.html,gsview}.
- Version 5.10 is known to work.
-@end itemize
-
-@node Download, Installation, Required Packages, Top
-@comment node-name, next, previous, up
-@section Download
-
-@itemize @bullet
- @item Windows 95
- @uref{lilypond-TOPLEVEL_VERSION-95.exe,lilypond-TOPLEVEL_VERSION-95}
- @item Windows NT 4.0
- @uref{lilypond-TOPLEVEL_VERSION-nt.exe,lilypond-TOPLEVEL_VERSION-nt}
- @item Windows 95 (Latest Stable Release)
- @uref{lilypond-1.2.0.jbr1-95.exe,lilypond-1.2.0-95}
- @item Windows NT 4.0 (Latest Stable Release)
- @uref{lilypond-1.2.0-nt.jbr1.exe,lilypond-1.2.0-nt}
-@end itemize
-
-@node Installation, Running LilyPond, Download, Top
-@comment node-name, next, previous, up
-@section Installation
-
-@itemize @bullet
- @item Download the distribution. See @ref{Download}.
- @item run downloaded executable.
- @item The first installation of LilyPond also requires these
- additional steps:
- @table @samp
- @item LaTeX geometry package
- @itemize @bullet
- @item
- @uref{ftp://ctan.tug.org/tex-archive/macros/latex/contrib/supported/geometry.zip,download} the zip file to @code{\Temp}.
- @item Extract the zip file into the LaTeX package area of
- @code{MiKTeX}. This will be @strong{@emph{MiKTeX-dir}\tex\latex}
- @item From a Command Prompt change directory into geometry
- directory that was just extracted.
- @item In the geometry directory type @strong{latex geometry.ins}
- @end itemize
- @item Miscellaneous fonts
- @itemize @bullet
- @item In your favorite editor create a file named
- @code{cmbx14.mf}. Add the following lines:
- @strong{design_size=14.4; }
- @strong{input b-cmbx;}
- @item From a Command Prompt copy cmbx14.mf to the public font
- area of MiKTeX:
- @strong{copy cmbx14.mf @emph{MiKTeX-dir}\fonts\source\public\cm\base}
- @end itemize
- @item NOTE
- MiKTeX-1.11 localtexmf configurations should use
- @strong{@emph{localtexmf-dir}} in place of @strong{@emph{MiKTeX-dir}}.
- @end table
- instructions below
-@end itemize
-
-@node Running LilyPond, LilyPond Resources, Installation, Top
-@comment node-name, next, previous, up
-@section Running LilyPond
-
-@itemize @bullet
- @item Take a look at @uref{angels.ly,angels.ly}
- @item Save angels.ly to your local disk
- @item Select the @strong{lilyshell} shortcut from the @emph{Lilypond} group
- @item From a LilyPond Command Prompt run: @*
- @example
- % @strong{ly2dvi angels.ly}
- % @strong{dvips angels.dvi}
- % @strong{start angels.ps}
- @end example
-@end itemize
-
-@node LilyPond Resources, , Running LilyPond, Top
-@comment node-name, next, previous, up
-@section LilyPond Resources
-
-@itemize @bullet
- @item
- @uref{http://www.cs.ruu.nl/people/hanwen/lilypond/index.html,LilyPond Homepage}
- @item
- @uref{ftp://ftp.cs.uu.nl/pub/GNU/LilyPond/,LilyPond Ftp Site}
- @item
- @uref{http://www.mail-archive.com/help-gnu-music@@gnu.org,gnu-music-discuss mail archive}
- @item Please feel free to mail us at @uref{mailto:gnu-music-discuss@@gnu.org,gnu-music-discuss}
-@end itemize
-
-@html
-<!- banner_id ->
-@end html
-
-@bye
+++ /dev/null
-diff --exclude-from=niet -urN ../lilypond-1.3.38/lily/out/lilypond.1 ./lily/out/lilypond.1
---- ../lilypond-1.3.38/lily/out/lilypond.1 Thu Jan 1 01:00:00 1970
-+++ ./lily/out/lilypond.1 Wed Mar 22 15:51:39 2000
-@@ -0,0 +1,88 @@
-+.\" DO NOT MODIFY THIS FILE! It was generated by help2man 1.012.
-+.TH LILYPOND "1" "March 2000" "GNU LilyPond 1.3.38.jcn1" FSF
-+.SH NAME
-+LilyPond \- manual page for LilyPond 1.3.38.jcn1
-+.SH SYNOPSIS
-+.B LilyPond
-+[\fIOPTION\fR]... [\fIFILE\fR]...
-+.SH DESCRIPTION
-+GNU LilyPond 1.3.38.jcn1
-+.PP
-+Typeset music and or play MIDI from FILE
-+.PP
-+LilyPond is a music typesetter. It produces beautiful sheet music
-+using a high level description file as input. LilyPond is part of
-+the GNU Project.
-+.SH OPTIONS
-+.TP
-+\fB\-d\fR,--debug
-+enable debugging output
-+.TP
-+\fB\-f\fR,--output-format=EXT
-+use output format EXT
-+.TP
-+\fB\-h\fR,--help
-+this help
-+.TP
-+\fB\-I\fR,--include=DIR
-+add DIR to search path
-+.TP
-+\fB\-i\fR,--init=FILE
-+use FILE as init file
-+.TP
-+\fB\-M\fR,--dependencies
-+write Makefile dependencies for every input file
-+.TP
-+\fB\-m\fR,--no-paper
-+produce MIDI output only
-+.TP
-+\fB\-o\fR,--output=BASENAME
-+write output to BASENAME[-x].extension
-+.TP
-+\fB\-Q\fR,--find-old-relative
-+show all changes in relative syntax
-+.TP
-+\fB\-s\fR,--safe
-+inhibit file output naming and exporting
-+.TP
-+\fB\-T\fR,--no-timestamps
-+don't timestamp the output
-+.TP
-+\fB\-t\fR,--test
-+switch on experimental features
-+.TP
-+\fB\-V\fR,--ignore-version
-+ignore mudela version
-+.TP
-+\fB\-v\fR,--version
-+print version number
-+.TP
-+\fB\-w\fR,--warranty
-+show warranty and copyright
-+.PP
-+This binary was compiled with the following options:
-+datadir: `/home/fred/usr/share/lilypond'
-+localedir: `/home/fred/usr/share/locale'
-+.PP
-+Oldest supported input version: 1.3.4
-+.SH "REPORTING BUGS"
-+Report bugs to bug-gnu-music@gnu.org
-+.SH "SEE ALSO"
-+The full documentation for
-+.B LilyPond
-+is maintained as a Texinfo manual. If the
-+.B info
-+and
-+.B LilyPond
-+programs are properly installed at your site, the command
-+.IP
-+.B info LilyPond
-+.PP
-+should give you access to the complete manual.
-+.PP
-+This is free software. It is covered by the GNU General Public License,
-+and you are welcome to change it and/or distribute copies of it under
-+certain conditions. Invoke as `lilypond --warranty' for more information.
-+.SH COPYRIGHT
-+Copyright \(co 1996--2000 byHan-Wen Nienhuys <hanwen@cs.uu.nl>
-+Jan Nieuwenhuizen <janneke@gnu.org>
-diff --exclude-from=niet -urN ../lilypond-1.3.38/midi2ly/out/midi2ly.1 ./midi2ly/out/midi2ly.1
---- ../lilypond-1.3.38/midi2ly/out/midi2ly.1 Thu Jan 1 01:00:00 1970
-+++ ./midi2ly/out/midi2ly.1 Wed Mar 22 15:51:45 2000
-@@ -0,0 +1,74 @@
-+.\" DO NOT MODIFY THIS FILE! It was generated by help2man 1.012.
-+.TH MIDI2LY "1" "March 2000" "midi2ly 1.3.38.jcn1" FSF
-+.SH NAME
-+midi2ly \- manual page for midi2ly 1.3.38.jcn1
-+.SH SYNOPSIS
-+.B midi2ly
-+[\fIOPTION\fR]... [\fIFILE\fR]
-+.SH DESCRIPTION
-+.PP
-+Translate MIDI-file to mudela
-+.SH OPTIONS
-+.TP
-+\fB\-b\fR,--no-quantify
-+write exact durations, e.g.: a4*385/384
-+.TP
-+\fB\-d\fR,--debug
-+enable debugging output
-+.TP
-+\fB\-h\fR,--help
-+this help
-+.TP
-+\fB\-k\fR,--key=ACC[:MINOR]
-+set key: ACC +sharps/-flats; :1 minor
-+.TP
-+\fB\-n\fR,--no-silly
-+don't output tuplets or double dots, smallest is 32
-+.TP
-+\fB\-o\fR,--output=FILE
-+set FILE as default output
-+.TP
-+\fB\-p\fR,--no-tuplets
-+don't output tuplets
-+.TP
-+\fB\-q\fR,--quiet
-+be quiet
-+.TP
-+\fB\-s\fR,--smallest=DUR
-+set smallest duration
-+.TP
-+\fB\-T\fR,--no-timestamps
-+don't timestamp the output
-+.TP
-+\fB\-V\fR,--version
-+print version number
-+.TP
-+\fB\-v\fR,--verbose
-+be verbose
-+.TP
-+\fB\-w\fR,--warranty
-+show warranty and copyright
-+.TP
-+\fB\-x\fR,--no-double-dots
-+assume no double dotted notes
-+.SH "REPORTING BUGS"
-+Report bugs to bug-gnu-music@gnu.org
-+.SH "SEE ALSO"
-+The full documentation for
-+.B midi2ly
-+is maintained as a Texinfo manual. If the
-+.B info
-+and
-+.B midi2ly
-+programs are properly installed at your site, the command
-+.IP
-+.B info midi2ly
-+.PP
-+should give you access to the complete manual.
-+.PP
-+This is free software. It is covered by the GNU General Public License,
-+and you are welcome to change it and/or distribute copies of it under
-+certain conditions. Invoke as `midi2ly --warranty' for more information.
-+.SH COPYRIGHT
-+Copyright \(co 1996--2000 byHan-Wen Nienhuys <hanwen@cs.uu.nl>
-+Jan Nieuwenhuizen <janneke@gnu.org>
-diff --exclude-from=niet -urN ../lilypond-1.3.38/midi2ly/out/version.hh ./midi2ly/out/version.hh
---- ../lilypond-1.3.38/midi2ly/out/version.hh Thu Jan 1 01:00:00 1970
-+++ ./midi2ly/out/version.hh Wed Mar 22 15:51:41 2000
-@@ -0,0 +1,5 @@
-+/* automatically generated */#define PACKAGE_NAME "LilyPond"
-+#define MAJOR_VERSION "1"
-+#define MINOR_VERSION "3"
-+#define PATCH_LEVEL "38"
-+#define MY_PATCH_LEVEL "jcn1"
-diff --exclude-from=niet -urN ../lilypond-1.3.38/scripts/out/abc2ly.1 ./scripts/out/abc2ly.1
---- ../lilypond-1.3.38/scripts/out/abc2ly.1 Thu Jan 1 01:00:00 1970
-+++ ./scripts/out/abc2ly.1 Wed Mar 22 15:50:27 2000
-@@ -0,0 +1,32 @@
-+.\" DO NOT MODIFY THIS FILE! It was generated by help2man 1.012.
-+.TH ABC2LY "1" "March 2000" "GNU lilypond 1.3.38" FSF
-+.SH NAME
-+abc2ly \- manual page for abc2ly 1.3.38
-+.SH SYNOPSIS
-+.B abc2ly
-+[\fIOPTION\fR]...\fI ABC-FILE\fR
-+.SH DESCRIPTION
-+
-+Convert ABC to Mudela.
-+.SH OPTIONS
-+.TP
-+\fB\-h\fR, \fB\-\-help\fR
-+this help
-+.TP
-+\fB\-o\fR, \fB\-\-output\fR=\fIFILE\fR
-+set output filename to FILE
-+.TP
-+\fB\-v\fR, \fB\-\-version\fR
-+version information
-+.SH "SEE ALSO"
-+The full documentation for
-+.B abc2ly
-+is maintained as a Texinfo manual. If the
-+.B info
-+and
-+.B abc2ly
-+programs are properly installed at your site, the command
-+.IP
-+.B info abc2ly
-+.PP
-+should give you access to the complete manual.
-diff --exclude-from=niet -urN ../lilypond-1.3.38/scripts/out/as2text.1 ./scripts/out/as2text.1
---- ../lilypond-1.3.38/scripts/out/as2text.1 Thu Jan 1 01:00:00 1970
-+++ ./scripts/out/as2text.1 Wed Mar 22 15:50:31 2000
-@@ -0,0 +1,32 @@
-+.\" DO NOT MODIFY THIS FILE! It was generated by help2man 1.012.
-+.TH AS2TEXT "1" "March 2000" "as2text - LilyPond version 1.3.38" FSF
-+.SH NAME
-+as2text \- manual page for as2text - LilyPond version 1.3.38
-+.SH SYNOPSIS
-+.B as2text
-+[\fIOPTION\fR]...\fI AS-FILE\fR
-+.SH DESCRIPTION
-+as2text - LilyPond version 1.3.38
-+Convert AsciiScript to text.
-+.SH OPTIONS
-+.TP
-+\fB\-h\fR,--help
-+this help
-+.TP
-+\fB\-o\fR,--output=FILE
-+set output file
-+.TP
-+\fB\-v\fR,--version
-+show version
-+.SH "SEE ALSO"
-+The full documentation for
-+.B as2text
-+is maintained as a Texinfo manual. If the
-+.B info
-+and
-+.B as2text
-+programs are properly installed at your site, the command
-+.IP
-+.B info as2text
-+.PP
-+should give you access to the complete manual.
-diff --exclude-from=niet -urN ../lilypond-1.3.38/scripts/out/convert-mudela.1 ./scripts/out/convert-mudela.1
---- ../lilypond-1.3.38/scripts/out/convert-mudela.1 Thu Jan 1 01:00:00 1970
-+++ ./scripts/out/convert-mudela.1 Wed Mar 22 15:50:23 2000
-@@ -0,0 +1,49 @@
-+.\" DO NOT MODIFY THIS FILE! It was generated by help2man 1.012.
-+.TH CONVERT-MUDELA "1" "March 2000" "GNU LilyPond 1.3.38" FSF
-+.SH NAME
-+convert-mudela \- manual page for convert-mudela 1.3.38
-+.SH SYNOPSIS
-+.B convert-mudela
-+[\fIOPTION\fR]... [\fIFILE\fR]...
-+.SH DESCRIPTION
-+.PP
-+Try to convert to newer mudela-versions. The version number of the
-+input is guessed by default from \version directive
-+.SH OPTIONS
-+.TP
-+\fB\-h\fR, \fB\-\-help\fR
-+print this help
-+.TP
-+\fB\-e\fR, \fB\-\-edit\fR
-+in place edit
-+.TP
-+\fB\-f\fR, \fB\-\-from\fR=\fIVERSION\fR
-+start from version
-+.TP
-+\fB\-s\fR, \fB\-\-show\-rules\fR
-+print all rules.
-+.TP
-+\fB\-t\fR, \fB\-\-to\fR=\fIVERSION\fR
-+target version
-+.TP
-+\fB\-\-version\fR
-+print program version
-+.SH "REPORTING BUGS"
-+Report bugs to bugs-gnu-music@gnu.org
-+.SH "SEE ALSO"
-+The full documentation for
-+.B convert-mudela
-+is maintained as a Texinfo manual. If the
-+.B info
-+and
-+.B convert-mudela
-+programs are properly installed at your site, the command
-+.IP
-+.B info convert-mudela
-+.PP
-+should give you access to the complete manual.
-+.PP
-+This is free software. It is covered by the GNU General Public
-+License, and you are welcome to change it and/or distribute copies of
-+it under certain conditions. invoke as `convert-mudela --warranty' for more
-+information.
-diff --exclude-from=niet -urN ../lilypond-1.3.38/scripts/out/ly2dvi.1 ./scripts/out/ly2dvi.1
---- ../lilypond-1.3.38/scripts/out/ly2dvi.1 Thu Jan 1 01:00:00 1970
-+++ ./scripts/out/ly2dvi.1 Wed Mar 22 15:50:25 2000
-@@ -0,0 +1,76 @@
-+.\" DO NOT MODIFY THIS FILE! It was generated by help2man 1.012.
-+.TH LY2DVI "1" "March 2000" "GNU lilypond 1.3.38" FSF
-+.SH NAME
-+ly2dvi \- manual page for ly2dvi 1.3.38
-+.SH SYNOPSIS
-+.B ly2dvi
-+[\fIOPTION\fR]... [\fIFILE\fR]...
-+.SH DESCRIPTION
-+.PP
-+Generate dvi file from mudela or lilypond output
-+.SH OPTIONS
-+.TP
-+\fB\-D\fR,--debug
-+increase verbosity
-+.TP
-+\fB\-F\fR,--headers=
-+name of additional LaTeX headers file
-+.TP
-+\fB\-H\fR,--Height=
-+set paper height (points) (see manual page)
-+.TP
-+\fB\-I\fR,--include=DIR
-+add DIR to LilyPond's search path
-+.TP
-+\fB\-K\fR,--keeplilypond
-+keep lilypond output files
-+.TP
-+\fB\-L\fR,--landscape
-+set landscape orientation
-+.TP
-+\fB\-N\fR,--nonumber
-+switch off page numbering
-+.TP
-+\fB\-O\fR,--orientation=
-+set orientation (obsolete - use \fB\-L\fR instead)
-+.TP
-+\fB\-P\fR,--postscript
-+generate postscript file
-+.TP
-+\fB\-W\fR,--Width=
-+set paper width (points) (see manual page)
-+.TP
-+\fB\-M\fR,--dependencies
-+tell lilypond make a dependencies file
-+.TP
-+\fB\-h\fR,--help
-+this help text
-+.TP
-+\fB\-k\fR,--keeply2dvi
-+keep ly2dvi output files
-+.TP
-+\fB\-l\fR,--language=
-+give LaTeX language (babel)
-+.TP
-+\fB\-o\fR,--output=
-+set output directory
-+.TP
-+\fB\-p\fR,--papersize=
-+give LaTeX papersize (eg. a4)
-+.TP
-+\fB\-s\fR,--separate
-+run all files separately through LaTeX
-+.PP
-+files may be (a mix of) input to or output from lilypond(1)
-+.SH "SEE ALSO"
-+The full documentation for
-+.B ly2dvi
-+is maintained as a Texinfo manual. If the
-+.B info
-+and
-+.B ly2dvi
-+programs are properly installed at your site, the command
-+.IP
-+.B info ly2dvi
-+.PP
-+should give you access to the complete manual.
-diff --exclude-from=niet -urN ../lilypond-1.3.38/scripts/out/mudela-book.1 ./scripts/out/mudela-book.1
---- ../lilypond-1.3.38/scripts/out/mudela-book.1 Thu Jan 1 01:00:00 1970
-+++ ./scripts/out/mudela-book.1 Wed Mar 22 15:50:24 2000
-@@ -0,0 +1,65 @@
-+.\" DO NOT MODIFY THIS FILE! It was generated by help2man 1.012.
-+.TH MUDELA-BOOK "1" "March 2000" "GNU LilyPond 1.3.38" FSF
-+.SH NAME
-+mudela-book \- manual page for mudela-book 1.3.38
-+.SH SYNOPSIS
-+.B mudela-book
-+[\fIoptions\fR]\fI FILE\fR
-+.SH DESCRIPTION
-+.PP
-+Generate hybrid LaTeX input from Latex + mudela
-+Options:
-+.TP
-+\fB\-\-default\-mudela\-fontsize\fR=\fIDIM\fR
-+default fontsize for music. DIM is assumed to in points
-+.TP
-+\fB\-f\fR,--format=EXT
-+set format. EXT is one of texi and latex.
-+.TP
-+\fB\-h\fR,--help
-+print help
-+.TP
-+\fB\-I\fR,--include=DIR
-+include path
-+.TP
-+\fB\-\-init\fR
-+mudela-book initfile
-+.TP
-+\fB\-\-force\-verbatim\fR
-+make all mudela verbatim
-+.TP
-+\fB\-M\fR,--dependencies
-+write dependencies
-+.TP
-+\fB\-n\fR,--no-lily
-+don't run lilypond
-+.TP
-+\fB\-\-no\-pictures\fR
-+don't generate pictures
-+.TP
-+\fB\-o\fR,--outname=FILE
-+prefix for filenames
-+.TP
-+\fB\-v\fR,--version
-+print version information
-+.TP
-+\fB\-\-dep\-prefix\fR=\fIPREF\fR
-+prepend PREF before each \fB\-M\fR dependency
-+.PP
-+Warning all output is written in the CURRENT directory
-+.SH "REPORTING BUGS"
-+Report bugs to bug-gnu-music@gnu.org.
-+Written by Tom Cato Amundsen <tomcato@xoommail.com> and
-+Han-Wen Nienhuys <hanwen@cs.uu.nl>
-+.SH "SEE ALSO"
-+The full documentation for
-+.B mudela-book
-+is maintained as a Texinfo manual. If the
-+.B info
-+and
-+.B mudela-book
-+programs are properly installed at your site, the command
-+.IP
-+.B info mudela-book
-+.PP
-+should give you access to the complete manual.
+++ /dev/null
-/*
- dstream.cc -- implement Dstream
-
- source file of the Flower Library
-
- (c) 1996, 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
-*/
-#include <fstream.h>
-#include "dstream.hh"
-#include "dictionary-iter.hh"
-#include "dictionary.hh"
-#include "text-db.hh"
-#include "string-convert.hh"
-#include "rational.hh"
-
-/// amount of indentation for each level.
-const int INDTAB = 2;
-
-/*
- should use Regexp library.
- */
-static String
-strip_pretty (String pretty_str)
-{
- int i = pretty_str.index_i ('(');
- if (i>=0)
- pretty_str = pretty_str.left_str (i);
-
- int l = pretty_str.index_last_i (' '); // strip until last ' '
- if (l>=0)
- pretty_str = pretty_str.nomid_str (0,l+1);
- return pretty_str;
-}
-
-static String
-strip_member (String pret)
-{
- int l=pret.index_last_i (':')-1;
- if (l>=0)
- pret = pret.left_str (l);
- return pret;
-}
-
-Dstream&
-Dstream::identify_as (String name)
-{
- if (!os_l_)
- return *this;
-
- String mem (strip_pretty (name));
- String cl (strip_member (mem));
- String idx = cl;
-
- if (silent_dict_p_->elem_b (mem))
- idx = mem;
- else if (silent_dict_p_->elem_b (cl))
- idx = cl;
- else
- {
- (*silent_dict_p_)[idx] = default_silence_b_;
- }
- local_silence_b_ = (*silent_dict_p_)[idx];
- if (current_classname_str_ != idx && !local_silence_b_)
- {
- current_classname_str_=idx;
- if (! (*silent_dict_p_)["Dstream"])
- *os_l_ << "[" << current_classname_str_ << ":]"; // messy.
- }
- return *this;
-}
-
-bool
-Dstream::silent_b (String s) const
-{
- if (!silent_dict_p_)
- return 0;
-
- if (!silent_dict_p_->elem_b (s))
- return false;
- return (*silent_dict_p_)[s];
-}
-
-Dstream &
-Dstream::operator<< (void const *v_l)
-{
- output (String_convert::pointer_str (v_l));
- return *this;
-}
-
-Dstream &
-Dstream::operator << (String s)
-{
- output (s);
- return *this;
-}
-
-Dstream &
-Dstream::operator << (const char * s)
-{
- output (String (s));
- return *this;
-}
-
-Dstream &
-Dstream::operator << (char c)
-{
- output (to_str (c));
- return *this;
-}
-
-Dstream&
-Dstream::operator << (Real r)
-{
- output (to_str (r));
- return *this;
-}
-Dstream &
-Dstream::operator << (Rational c)
-{
- output (c.str ());
- return *this;
-}
-Dstream &
-Dstream::operator << (int i)
-{
- output (to_str (i));
- return *this;
-}
-
-void
-Dstream::output (String s)
-{
- if (local_silence_b_|| !os_l_)
- return ;
-
- for (char const *cp = s.ch_C (); *cp; cp++)
- switch (*cp)
- {
- case '{':
- case '[':
- case '(': indent_level_i_ += INDTAB;
- *os_l_ << *cp;
- break;
-
- case ')':
- case ']':
- case '}':
- indent_level_i_ -= INDTAB;
- *os_l_ << *cp ;
-
- assert (indent_level_i_>=0) ;
- break;
-
- case '\n':
- *os_l_ << '\n' << to_str (' ', indent_level_i_) << flush;
- break;
- default:
- *os_l_ << *cp;
- break;
- }
- return ;
-}
-
-
-Dstream::Dstream (ostream *r, char const * cfg_nm)
-{
- os_l_ = r;
- silent_dict_p_ = new Dictionary<bool>;
- default_silence_b_ = false;
- indent_level_i_ = 0;
- if (!os_l_)
- return;
-
- char const * fn =cfg_nm ? cfg_nm : ".dstreamrc";
- {
- ifstream ifs (fn); // can 't open
- if (!ifs)
- return;
- }
-
- Text_db cfg (fn);
- while (!cfg.eof_b ()){
- Text_record r (cfg++);
- if (r.size () != 2)
- {
- r.message (_ ("not enough fields in Dstream init"));
- continue;
- }
- (*silent_dict_p_)[r[0]] = r[1] == "1";
- }
-
- if ((*silent_dict_p_).elem_b ("Dstream_default_silence"))
- default_silence_b_ = (*silent_dict_p_)["Dstream_default_silence"];
-}
-
-
-Dstream::~Dstream ()
-{
- delete silent_dict_p_;
- assert (!indent_level_i_) ;
-}
-
-void
-Dstream::clear_silence ()
-{
- delete silent_dict_p_;
- silent_dict_p_ = 0;
-}
-
+++ /dev/null
-#include <fstream.h>
-#include "flower-debug.hh"
-#include "dstream.hh"
-
-Dstream *flower_dstream = 0;
-
+++ /dev/null
-/*
- dstream.hh -- declare Dstream
-
- source file of the Flower Library
-
- (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
-*/
-
-#ifndef DSTREAM_HH
-#define DSTREAM_HH
-
-#include "string.hh"
-
-
-const char eol= '\n';
-
-/** Debug stream.
- a class for providing debug output of nested structures,
- with indents according to \{\} ()[].
-
- One can turn on and off specific messages using the Assoc silent.
- This can be done automatically:
-
- #define DEBUG dstream_.identify_as (__PRETTY_FUNCTION__)
-
- DEBUG << "a message\n";
-
- Init for the class names which should be silent can be given in a rc file.
-
- TODO:
- make a baseclass for indentable streams.
-
- JUNKME
- */
-class Dstream
-{
- ostream *os_l_;
- int indent_level_i_;
- bool local_silence_b_;
- bool default_silence_b_;
- String current_classname_str_;
- void output (String s);
- Dictionary<bool> *silent_dict_p_;
-
-public:
- void clear_silence ();
- bool silent_b (String) const;
-
- /**
- if rcfile == 0, then do not read any rc file.
- */
- Dstream (ostream *r, char const * rcfile);
- virtual ~Dstream ();
- Dstream &identify_as (String s);
-
-
- Dstream &operator << (String);
- Dstream &operator << (Real);
- Dstream &operator << (int);
- Dstream &operator << (Rational);
- Dstream &operator << (char);
- /**
- Output memory locations.
- */
- Dstream &operator << (void const *);
- Dstream &operator << (char const *);
-};
-#endif
-
+++ /dev/null
-/*
- flower-debug.hh -- declare global constants relating to debug dumps
-
- source file of the Flower Library
-
- (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
-*/
-
-
-#ifndef FLOWER_DEBUG_HH
-#define FLOWER_DEBUG_HH
-
-#include "dstream.hh"
-
-extern Dstream *flower_dstream;
-
-#ifdef NPRINT
-#define DEBUG_OUT if (0) *flower_dstream
-#else
-#define DEBUG_OUT if (flower_dstream) \
- flower_dstream->identify_as (__PRETTY_FUNCTION__)
-#endif
-
-void set_debug (Dstream *ds);
-
-#endif // FLOWER_DEBUG_HH
+++ /dev/null
-
-% ascii art
-
-\include "paper-as5.ly"
-
-\score {
- \notes\relative c''{
- \time 4/4;
- g1 a b c
- g2 a b c
- g4 a b c
- }
- \paper {
- \paperAs_five
- \translator { \StaffContext barSize = #5 }
- }
-
-}
-
+++ /dev/null
-
-
- % < becomes |
-\score {\notes { \context Staff < f''1
- { s4 \< \! s4 } > }
-
- \paper { linewidth = -1.; }
- }
-
+++ /dev/null
-
-% mb.ly: midi-bug
-% midi notes get stuck
-
-%{
-From: Mats Bengtsson <mats.bengtsson@s3.kth.se>
-Subject: Re: request simple .ly showing MIDI tie bug
-To: Jan Nieuwenhuizen <janneke@gnu.org>
-Date: Mon, 26 Feb 2001 23:18:06 +0100
-
-I was lucky enough to find a short snippet which triggered
-the bug (a few bars from David Lattermanns typesetting of
-the Dvorak Bagatelles. I spent the Sunday upgrading them
-to 1.3.131). I hope it simplifies the bug search.
-%}
-
-\score{
- \notes \relative c{
- \time 2/4;
- \clef bass;
- \property Staff.midiInstrument = "harmonica"
- <
- \context Voice=ua {
- \stemDown
- e4 a, | b2 |
- }
- \context Voice=ub {
- \stemUp
- e2 ~ | e4 dis |
- }
- >
- R2*5 |
- c'2
- }
-\paper{}
-\midi{\tempo 4 = 140;}
-}
-
+++ /dev/null
-
-% on their own staff, voices should be stemboth (not up/down)
-
-End = { \skip 1*8; }
-
-violoncello = \notes\relative c' {
- c8 c c c c8 c c c\break
-}
-
-contrabasso = \notes\relative c {
- c4 c8 c c8 c c c\break
-}
-
-staffCombinePianoStaffProperties = {
- \property PianoStaff.devNullThread = #'()
- \property PianoStaff.soloADue = ##t
- \property PianoStaff.soloText = #""
- \property PianoStaff.soloIIText = #""
- % This is non-conventional, but currently it is
- % the only way to tell the difference.
- \property PianoStaff.aDueText = #"\\`a2"
- \property PianoStaff.splitInterval = #'(1 . 0)
- \property PianoStaff.changeMoment = #`(,(make-moment 1 1) . ,(make-moment 1 1))
-}
-
-
-\score {
- <
- \context PianoStaff = bassi_group \notes <
- \staffCombinePianoStaffProperties
- \context Staff=oneBassi < \clef bass;
- \property Staff.instrument = #'(lines
- "Violoncello" " e" "Contrabasso")
-
- \property Staff.instr = #"Vc."
- \End >
- \context Staff=twoBassi < \clef bass;
- \property Staff.instrument = #"Contrabasso"
- \property Staff.instr = #"Cb."
-
- \End >
-
- \context Staff=oneBassi \partcombine Staff
- \context Voice=oneBassi { \violoncello }
- \context Voice=twoBassi { \contrabasso }
- >
->
- \paper {
- % \paperSixteen
- linewidth = 80 * \staffspace;
- textheight = 200 * \staffspace;
- \translator{
- \ThreadContext
- \consists "Rest_engraver";
-
- % Set value for engraver at thread level,
- % to override the default that is set in ScoreContext
- % for added engraver at Voice level
- devNullThread = #'()
- }
- \translator{
- \VoiceContext
- \remove "Rest_engraver";
-
- % The staff combine (bassi part) needs a
- % thread_devnull_engraver here.
- % Instead of maintaining two separate hierarchies,
- % we switch add it, but switch it off immideately.
- % The staff combine parts switch it on.
- % devNullThread = #'never
- \consists "Thread_devnull_engraver";
- }
- \translator{
- \HaraKiriStaffContext
- \consists "Mark_engraver";
- }
- \translator {
- \OrchestralScoreContext
- skipBars = ##t
- soloText = #"I."
- soloIIText = #"II."
- % By default, turn off the Thread_devnull_engraver
- % at Voice level
- devNullThread = #'never
-
- % Hmm
- currentBarNumber = #218
- BarNumber \override #'padding = #3
- RestCollision \override #'maximum-rest-count = #1
- marginScriptHorizontalAlignment = #1
- TimeSignature \override #'style = #'C
- }
- }
-}
-
+++ /dev/null
-
-\score { \notes { c'''-. c-. }}
+++ /dev/null
-
-% strange bug with stems through beams in second beam
-
-End = { \skip 1*8; }
-
-violaii = \notes\relative c' {
- [\!f8\sf(\>as f as][f g d)\!g]|
-}
-
-violai=\notes\relative c' {
- [\!f8\sf(\>as f as][f g d)\!g]|
-}
-
-violeStaff = \notes \context Staff = viole <
- \context Voice=oneViola <
- \property Staff.instrument = #"Viola"
- \property Staff.instr = #"Vla."
-
- \End
- >
- \context Voice=twoViola <
- \property Staff.instrument = #"Viola II"
- \property Staff.instr = #"Vla. II"
- \End
- >
- \context Voice=oneViola \partcombine Voice
- \context Thread=oneViola \violai
- \context Thread=twoViola \violaii
->
-
-\score {
- \violeStaff
- \paper {
- % \paperSixteen
- linewidth = 80 * \staffspace;
- textheight = 200 * \staffspace;
- \translator{
- \ThreadContext
- \consists "Rest_engraver";
- % Set value for engraver at thread level,
- % to override the default that is set in ScoreContext
- % for added engraver at Voice level
- devNullThread = #'()
- }
- \translator{
- \VoiceContext
- \remove "Rest_engraver";
-
- % The staff combine (bassi part) needs a
- % thread_devnull_engraver here.
- % Instead of maintaining two separate hierarchies,
- % we switch add it, but switch it off immideately.
- % The staff combine parts switch it on.
- % devNullThread = #'never
- \consists "Thread_devnull_engraver";
- }
- \translator{
- \HaraKiriStaffContext
- \consists "Mark_engraver";
- }
- \translator {
- \OrchestralScoreContext
- skipBars = ##t
-
- % By default, turn off the Thread_devnull_engraver
- % at Voice level
- devNullThread = #'never
- soloText = #"I."
- soloIIText = #"II."
-
- % Hmm
- currentBarNumber = #218
- BarNumber \override #'padding = #3
- RestCollision \override #'maximum-rest-count = #1
- marginScriptHorizontalAlignment = #1
- TimeSignature \override #'style = #'C
- }
- }
-}
-
+++ /dev/null
-
-%
-% huh? wat gaat er nu fout in os-score.ly, hier issie okede?
-%
-global = {
- \time 2/4;
- \skip 2*4; \bar "|.";
-}
-Key = \notes \key as \major;
-
-\score {
- <
- \global
- \context StaffGroup = timpani <
- \context Staff = timpani <
- \Key
- \notes\relative c {
- \times 2/3 { f4 f f }
- \times 4/5 { as8 as as as as }
- R1
- }
- > >
- >
- \paper {
- linewidth = -1.;
- \translator {
- \HaraKiriStaffContext
- }
- }
-}
+++ /dev/null
-depth = ../..
-
-LOCALSTEPMAKE_TEMPLATES=mutopia
-include $(depth)/make/stepmake.make
-
-
+++ /dev/null
-\header {
-texidoc= "Using make-music, you can add
-various stuff to notes. Here is an example
-how to add an extra fingering.
-
-In general, first do a display of the music you want ot
-create, then write a function that will build the structure for you.";
-}
-
-#(define (make-script x)
- (let* ( (m (ly-make-music "Text_script_req"))
- )
-
- (ly-set-mus-property m 'text-type 'finger)
- (ly-set-mus-property m 'text x)
- m
- ))
-
-#(define (add-script m x)
- (if (equal? (ly-music-name m) "Request_chord")
- (ly-set-mus-property m 'elements
- (cons (make-script x) (ly-get-mus-property m 'elements)))
-
- (let* ( (es (ly-get-mus-property m 'elements))
- (e (ly-get-mus-property m 'element)) )
- (map (lambda (y) (add-script y x)) es)
- (if (music? e)
- (add-script e x))
- )
- )
- m
-)
-
-\score { \apply #(lambda (x) (add-script x "6") (display x) x ) \notes { c4-3 } }
-
+++ /dev/null
-
-
-fragment = \notes {
- f'32 g a b b a g f
-
- \property Voice.autoBeamSettings
- \set #'(end * * * *) = #(make-moment 1 4)
- f32 g a b b a g f
-
- f32 g a
- \property Voice.stemRightBeamCount = #1 b
- \property Voice.stemLeftBeamCount = #1 b
- a g f
-}
-
-\paper { linewidth = -1.; }
-
-\score {
- \notes\relative c \fragment
- \paper { }
-}
+++ /dev/null
-
-\header{
-texidoc="
-There are several ways to calculate the direction of a beam
-
-@table @samp
-@item majority
-number count of up or down notes
-@item mean
-mean centre distance of all notes
-@item median
-mean centre distance weighted per note
-@end table
-
-We should see:
-
- up down down
-
- up up down
-";
-}
-
-\score {
- \notes \relative c'' {
- % the default
- %\property Voice.Beam \set #'dir-function = #beam-dir-majority
- [d8 a]
- \property Voice.Beam \set #'dir-function = #beam-dir-mean
- [d a]
- \property Voice.Beam \set #'dir-function = #beam-dir-median
- [d a]
-
- \property Voice.Beam \set #'dir-function = #beam-dir-majority
- \time 3/8;
- [d8 a a]
- \property Voice.Beam \set #'dir-function = #beam-dir-mean
- [d a a]
- \property Voice.Beam \set #'dir-function = #beam-dir-median
- [d a a]
- }
-}
+++ /dev/null
-
-
-fragment = \notes {
- [b''8 b]
- \property Voice.Beam \set #'default-neutral-direction = #-1
- [b b]
-}
-
-\paper { linewidth = -1.; }
-
-\score {
- \notes\relative c \fragment
- \paper { }
-}
+++ /dev/null
-
-
-fragment = \notes {
- \property Voice.Beam \set #'staff-position = #2
- \property Voice.Beam \set #'height = #-2
- [c'8 c]
-}
-
-\paper { linewidth = -1.; }
-
-\score {
- \notes\relative c \fragment
- \paper { }
-}
+++ /dev/null
-
-\header{
-texidoc="
-Beams over rests.
-";
-}
-
-\score{
- \context Staff=one \notes\relative c''{
- r4 [r8 g a]
- [bes8 r16 f g a]
- [bes8 r16 \property Voice.stemLeftBeamCount = #1 f g a]
- }
-
- \paper{
- linewidth =-1;
- }
-}
+++ /dev/null
-
-
-fragment = \notes {
- \property Voice.Beam \set #'direction = #1
- \property Voice.Beam \set #'height-hs = #0
- [a''8 e' d c]
-}
-
-\paper { linewidth = -1.; }
-
-\score {
- \notes\relative c \fragment
- \paper { }
-}
+++ /dev/null
-\header {
-
-texidoc = "overriding the molecule callback can also be used to draw a
- box around arbitrary grobs.
-
- TODO: check whether the corners are really correct.
-
- ";
-}
-#(define (box-molecule xext yext)
- (ly-make-molecule
- (list 'filledbox (- (car xext)) (cdr xext)
- (- (car yext)) (cdr yext))
- xext yext)
-)
-
-#(define (widen-interval iv amount)
- (cons (- (car iv) amount)
- (+ (cdr iv) amount))
-)
-
-#(define (make-molecule-boxer callback)
- (define (molecule-boxer grob)
- (let*
- (
- (mol (callback grob))
- (box-padding 0.1)
- (x-ext (widen-interval (ly-get-molecule-extent mol 0) box-padding))
- (y-ext (widen-interval (ly-get-molecule-extent mol 1) box-padding))
- (rule-thick 0.1)
- (x-rule (box-molecule (widen-interval x-ext rule-thick)
- (cons 0 rule-thick)))
- (y-rule (box-molecule (cons 0 rule-thick) y-ext))
- )
-
- (set! mol (ly-combine-molecule-at-edge mol 0 1 y-rule (* 0.5 box-padding)))
- (set! mol (ly-combine-molecule-at-edge mol 0 -1 y-rule (* 0.5 box-padding)))
- (set! mol (ly-combine-molecule-at-edge mol 1 1 x-rule 0.0))
- (set! mol (ly-combine-molecule-at-edge mol 1 -1 x-rule 0.0))
-
- mol
- ))
- molecule-boxer
- )
-
-
- \score { \notes {
-
- \property Voice.TextScript \override #'molecule-callback =
- #(make-molecule-boxer Text_item::brew_molecule)
-
- c'4^"foo"
-
-\property Voice.Stem \override #'molecule-callback =
- #(make-molecule-boxer Stem::brew_molecule)
-
- c''8
- }}
+++ /dev/null
-
-
-fragment = \notes {
- \context Voice {
- \property Voice.crescendoText = "cresc."
- \property Voice.crescendoSpanner = #'dashed-line
- a''2\mf\< a a \!a
- }
-}
-
-\paper { linewidth = -1.; }
-
-\score {
- \notes\relative c \fragment
- \paper { }
-}
+++ /dev/null
-
-\header{
-texidoc="
-Slurs can be forced to always attach to note heads.
-";
-}
-
-fragment = \notes {
- \property Voice.Slur \set #'direction = #1
- \property Voice.Slur \set #'attachment = #'(head . head)
- g''16()g()g()g()d'()d()d()d
-}
-
-\paper { linewidth = -1.; }
-
-\score {
- \notes\relative c \fragment
- \paper { }
-}
+++ /dev/null
-% tests drum notation and midi-drums.
-% see ly/drumpitch.ly for list of instruments and paper-kits.
-% scm/midi.scm for list of midi-drumkits.
-
-\include "drumpitch.ly";
-
-\version "1.3.142"
-
-drh = \notes { cymc4.^"crash" hhc16^"h.h." hh \repeat "unfold" 5 {hhc8 hho hhc8 hh16 hh} hhc4 r4 r2 }
-drl = \notes {\repeat "unfold" 3 {bd4 sn8 bd bd4 <bd ss>} bd8 tommh tommh bd toml toml bd tomfh16 tomfh }
-timb = \notes \repeat "unfold" 2 {timh4 ssh timl8 ssh r timh r4 ssh8 timl r4 cb8 cb}
-
-\score { \repeat "volta" 2
- <
- \context TwoLineStaff=timbst \notes <
- \property Staff.instrument="timbales"
- \clef "percussion";
- \apply #(drums->paper 'timbales) \timb
- >
- \context Staff=drumst \notes <
- \property Staff.instrument="drums"
- \clef "percussion";
- \apply #(drums->paper 'drums) <
- \context Voice=voa {\stemUp \drh }
- \context Voice=vob {\stemDown \drl }
- >
- >
- >
- \paper {
- \translator {
- \StaffContext
- \consists Instrument_name_engraver;
- Script \override #'padding = #0.5
- }
- \translator {
- \StaffContext
- \name TwoLineStaff;
- \alias Staff;
- \consists Instrument_name_engraver;
- StaffSymbol \override #'line-count = #2;
- BarLine \override #'bar-size = #2;
- }
- \translator {
- \ScoreContext
- \accepts TwoLineStaff;
- }
- }
-}
-
-\score { \repeat "unfold" 2
- \context Staff \notes <
- \property Staff.instrument="drums"
- \timb
- \drh
- \drl
- >
- \midi{ \tempo 4=120; }
-}
-
+++ /dev/null
-\header {
- texidoc = "By inserting the @TeX{} command \embeddedps, you can
-insert postscript directly into the output.
-
-TODO: make molecule-callback to do this.
- ";
-}
-
-\score {
- \notes \relative c'' {
- a-#"\\embeddedps{3 4 moveto 5 3 rlineto stroke}"
- -#"\\embeddedps{ [ 0 1 ] 0 setdash 3 5 moveto 5 -3 rlineto stroke}"
- b-#"\\embeddedps{3 4 moveto 0 0 1 2 8 4 20 3.5 rcurveto stroke}"
- s2
- a'1
- }
- \paper { linewidth = 70 * \staffspace; }
-}
+++ /dev/null
-
-
-fragment = \notes {
- a''^"3 $\\times$ \\`a deux"
-}
-
-\paper { linewidth = -1.; }
-
-\score {
- \notes\relative c \fragment
- \paper { }
-}
+++ /dev/null
-
-\header{
-texidoc="
-Theads can be traced automagically when they switch staffs by setting
-property @code{followVoice}.
-";
-}
-
-\version "1.3.139"
-% followVoice: connect note heads with line when thread switches staff
-
-fragment = \notes {
- \context PianoStaff <
- \property PianoStaff.followVoice = ##t
- \property Voice.VoiceFollower \set #'type = #'dashed-line
- \context Staff \context Voice {
- c'1
- \translator Staff=two
- b2 a
- }
- \context Staff=two {\clef bass; \skip 1*2;}
- >
-}
-
-\paper { linewidth = -1.; }
-
-\score {
- \notes\relative c \fragment
- \paper { }
-}
+++ /dev/null
-
-improOn = \notes {\translator Voice = impro }
-improOff = \notes {\translator SquashVoice = melo }
-
-global = \notes { s1*3 \bar "|."; }
-
-\score {
- <
- \context ChordNames \chords {e8:m7*7 a2.:m7 bes4:m7 b1:m7 e8:m }
- \context Staff \notes <
- \context SquashVoice = impro { \global }
- \context Voice = melo \transpose c'' {
- e8 e g a a16()bes()a8 g \improOn e8
- ~e2~e8 f4 fis8
- ~fis2 \improOff a16()bes a8 g e
- }
- >
- >
- \paper {
- \translator {
- \VoiceContext
- \name SquashVoice;
- \alias Voice;
- \consists Pitch_squash_engraver;
- \consists Local_key_engraver;
- squashedPosition = 6;
- NoteHead \override #'style = #'slash
- Accidentals \override #'transparent = ##t
- }
- \translator {
- \VoiceContext
- \alias SquashVoice;
- \consists Local_key_engraver;
- }
- \translator {
- \ScoreContext
- \accepts SquashVoice;
- }
- \translator {
- \StaffContext
- \remove Local_key_engraver;
- \accepts SquashVoice;
- }
- linewidth = -1;
- }
-}
+++ /dev/null
-
-
-
-% Test scm markup text and kerning
-
-% Warning
-%
-% This is not a feature, it is a hack. If you change anything,
-% it will probably break (that's because scm markup text is a
-% bit broken and needs fixing). Chances are, it's already
-% broken by the time you read this. Don't complain.
-%
-% FIXME: put in an item, and typeset by an engraver.
-
-#(define note '(rows (music "noteheads-2" ((kern . -0.1) "flags-stem"))))
-#(define eight-note `(rows ,note ((kern . -0.1) (music ((raise . 3.5) "flags-u3")))))
-#(define dotted-eight-note `(rows ,eight-note (music "dots-dot")))
-
-\score {
- \notes\relative c'' {
- a1^#`((rows (font-relative-size . -1)) ,dotted-eight-note " = 64")
- }
- \paper {
- linewidth = -1.;
- \translator{
- \ScoreContext
- TextScript \override #'font-shape = #'upright
- }
- }
-}
+++ /dev/null
-
-\score {
- \context Staff \notes <
- \context Voice=i {
- \property Voice.MultiMeasureRest \override #'staff-position = #3
- R1
- }
- \context Voice=ii {
- \property Voice.MultiMeasureRest \override #'staff-position = #-3
- R1
- }
- >
- \paper {
- \translator {
- \StaffContext
- \remove Multi_measure_rest_engraver;
- \remove Bar_engraver;
- }
- \translator {
- \VoiceContext
- \consists Multi_measure_rest_engraver;
- \consists Bar_engraver;
- }
- }
-}
+++ /dev/null
-
-
-fragment = \notes {
- \outputproperty #(make-type-checker 'note-head-interface)
- #'extra-offset = #'(2 . 3)
- c''2 c
-}
-
-\paper { linewidth = -1.; }
-
-\score {
- \notes\relative c \fragment
- \paper { }
-}
+++ /dev/null
-
-#(define (make-text-checker text)
- (lambda (grob) (equal? text (ly-get-grob-property grob 'text))))
-
-\score {
- \notes\relative c''' {
- \property Voice.Stem \set #'direction = #1
- \outputproperty #(make-text-checker "m.d.")
- #'extra-offset = #'(-3.5 . -4.5)
- a^2^"m.d."
- }
- \paper { linewidth = -1.; }
-}
+++ /dev/null
-
-\score {
- \notes \relative c'' {
- a b c d
- d c b a
- }
- \paper {
- linewidth = -1.;
- \translator {
- \StaffContext
- whichBar = #""
- \remove "Time_signature_engraver";
- }
- }
-}
-
+++ /dev/null
-
-\score {
- \notes { c4 c4 c8 c8 }
- \paper {
- linewidth = -1.;
- \translator {
- \StaffContext
- \remove Staff_symbol_engraver;
- \consists Pitch_squash_engraver;
- \remove Clef_engraver;
- }
- }
-}
-
+++ /dev/null
-
-
-fragment = \notes {
- a'''' b c a
- \property Voice.TextSpanner \set #'type = #'dotted-line
- \property Voice.TextSpanner \set #'edge-height = #'(0 . 1.5)
- \property Voice.TextSpanner \set #'edge-text = #'("8va " . "")
- \property Staff.centralCPosition = #-13
- a\spanrequest \start "text" b c a \spanrequest \stop "text"
-}
-
-\paper { linewidth = -1.; }
-
-\score {
- \notes\relative c \fragment
- \paper { }
-}
+++ /dev/null
-
-\header{
-texidoc="
-In orchestral scores and hymns, voices are traditionally combined onto
-one staff. LilyPond has a part combiner, that combines or separates two
-voices according to actual rhythm and pitch. User-defined texts such as
-``solo'' and ``@`a2'' are typeset automagically, as appropriate.
-";
-}
-
-\score{
- \context Staff = flauti <
- \time 4/4;
- \context Voice=one \partcombine Voice
- \context Thread=one \notes\relative c'' {
- c4 d e f | b,4 d c d | r2 e4 f | c4 d e f |
- c4 r e f | c4 r e f | c4 r a r | a a r a |
- a2 \property Voice.soloADue = ##f a |
- }
- \context Thread=two \notes\relative c'' {
- g4 b d f | r2 c4 d | a c c d | a4. b8 c4 d
- c r e r | r2 s2 | a,4 r a r | a r r a |
- a2 \property Voice.soloADue = ##f a |
- }
- >
- \paper{
- linewidth = 80 * \staffspace;
- \translator{
- \ThreadContext
- \consists Rest_engraver;
- }
- \translator{
- \VoiceContext
- \remove Rest_engraver;
- }
- }
-}
-
+++ /dev/null
-
-%{ When entering half music (I.e. for students to complete by hand)
- you need the spacing to correspond to the timing - all measures same length, etc.
- This thing implements it by adding invisible staff with lots of fast notes.
-%}
-
-\include "paper16.ly"
-
-
-quickmeasure = \notes {[\repeat unfold 16 c''16]}
-mel = \notes \relative c' {c16 d16 e8 a4 g2 e8 d c2. g'1 e4 d c2}
-
-\score {
-\context PianoStaff \notes <
- \context Staff = v <
- \clef G;
- \context Voice=melo {\mel}
- \context Voice=invisible {
- \property Voice.NoteHead \override #'transparent = ##t
- \property Voice.Stem \override #'transparent = ##t
- \property Voice.Beam \override #'transparent = ##t
- \repeat unfold 4 \quickmeasure
- }
- >
- \context Staff = empty \notes {\clef F; s1*4}
->
-\paper {}
-}
+++ /dev/null
-
-\header {
-texidoc="
-Simple customised music apply.
-";
-}
-
-music = \notes { c'4 d'4( e'4 f'4 }
-
-#(define (reverse-music music)
- (let* ((elements (ly-get-mus-property music 'elements))
- (reversed (reverse elements))
- (span-dir (ly-get-mus-property music 'span-direction)))
-
- (ly-set-mus-property music 'elements reversed)
-
- (if (dir? span-dir)
- (ly-set-mus-property music 'span-direction (- span-dir)))
-
- (map reverse-music reversed)
-
- music))
-
-\score {
- \context Voice {
- \music
- \apply #reverse-music \music
- }
- \paper { linewidth = -1.; }
-}
-
+++ /dev/null
-
-\header{
-texidoc="
-In some cases, you may want to set slur attachments by hand.
-";
-}
-
-
-fragment = \notes {
- \property Voice.Stem \set #'direction = #1
- \property Voice.Slur \set #'direction = #1
- d'32( d'4 )d8..
- \property Voice.Slur \set #'attachment = #'(stem . stem)
- d,32( d'4 )d8..
-}
-
-\paper { linewidth = -1.; }
-
-\score {
- \notes\relative c \fragment
- \paper { }
-}
+++ /dev/null
-
-
-fragment = \notes {
- \property Voice.Slur \set #'direction = #1
- \property Voice.Stem \set #'length = #5.5
- g''8(g)g4
- g4(g8)g
- \property Voice.Slur \set #'attachment = #'(stem . stem)
- g8(g)g4
- g4(g8)g
-}
-
-\paper { linewidth = -1.; }
-
-\score {
- \notes\relative c \fragment
- \paper { }
-}
+++ /dev/null
-
-\header {
-texidoc="You can get ugly slurs, if you want.
-";
-}
-
-baseWalk = \notes \relative c {
- d,8( a' d f a d f d a f d )a
-}
-
-\score {
- \notes \context PianoStaff <
- \time 6/4;
- \context Staff=up { s1 * 6/4 }
- \context Staff=down <
- \clef bass;
- \autochange Staff \context Voice \baseWalk
- >
- >
- \paper {
- linewidth = -1.;
- \translator {
- \VoiceContext
- Slur \override #'beautiful = #5.0
- Slur \override #'direction = #1
- Stem \override #'direction = #-1
- autoBeamSettings \override #'(end * * * *)
- = #(make-moment 1 2)
- }
- \translator {
- \PianoStaffContext
- VerticalAlignment \override #'threshold = #'(5 . 5)
- }
- }
-}
-
+++ /dev/null
-
-\header {
-texidoc="
-@example
- Here's a copy of my feature request :
-@quotation
- Your task, if you accept it is to implement a \smarttranspose
- command> that would translate such oddities into more natural
- notations. Double accidentals should be removed, as well as E-sharp
- (-> F), bC (-> B), bF (-> E), B-sharp (-> C).
-@end quotation
-
-You mean like this. (Sorry 'bout the nuked indentation.)
-@end example
-";
-}
-
-#(define (unhair-pitch p)
- (let* ((o (pitch-octave p))
- (a (pitch-alteration p))
- (n (pitch-notename p)))
-
- (cond
- ((and (> a 0) (or (eq? n 6) (eq? n 2)))
- (set! a (- a 1)) (set! n (+ n 1)))
- ((and (< a 0) (or (eq? n 0) (eq? n 3)))
- (set! a (+ a 1)) (set! n (- n 1))))
-
- (cond
- ((eq? a 2) (set! a 0) (set! n (+ n 1)))
- ((eq? a -2) (set! a 0) (set! n (- n 1))))
-
- (if (< n 0) (begin (set! o (- o 1)) (set! n (+ n 7))))
- (if (> n 7) (begin (set! o (+ o 1)) (set! n (- n 7))))
-
- (make-pitch o n a)))
-
-#(define (smart-transpose music pitch)
- (let* ((es (ly-get-mus-property music 'elements))
- (e (ly-get-mus-property music 'element))
- (p (ly-get-mus-property music 'pitch))
- (body (ly-get-mus-property music 'body))
- (alts (ly-get-mus-property music 'alternatives)))
-
- (if (pair? es)
- (ly-set-mus-property
- music 'elements
- (map (lambda (x) (smart-transpose x pitch)) es)))
-
- (if (music? alts)
- (ly-set-mus-property
- music 'alternatives
- (smart-transpose alts pitch)))
-
- (if (music? body)
- (ly-set-mus-property
- music 'body
- (smart-transpose body pitch)))
-
- (if (music? e)
- (ly-set-mus-property
- music 'element
- (smart-transpose e pitch)))
-
- (if (pitch? p)
- (begin
- (set! p (unhair-pitch (Pitch::transpose p pitch)))
- (ly-set-mus-property music 'pitch p)))
-
- music))
-
-
-music = \notes \relative c' { c4 d e f g a b c }
-
-\score {
- \notes \context Staff {
- \transpose ais' \music
- \apply #(lambda (x) (smart-transpose x (make-pitch 0 5 1)))
- \music
- }
- \paper { linewidth = -1.; }
-}
-
+++ /dev/null
-
-
-\header {
-
- texidoc = "By splitting the grouping (Axis_group_engraver) and
-creation functionality into separate contexts, you can override
-interesting things. You can also drop the \consistsend feature.";
-
-}
-
-
-\score {
- \notes <
- \context StaffContainer = SA { \property StaffContainer.StaffSymbol \set
- #'staff-space = #0.8
- \context Staff { c4 c4 } }
- \context StaffContainer =SB { \context Staff { d f } }
- >
-
-\paper {
- \translator {
- \ScoreContext
- \accepts StaffContainer;
- \denies Staff;
- }
- \translator {
- \type Engraver_group_engraver;
- \consists "Axis_group_engraver";
- \accepts "Staff";
- \name StaffContainer;
-
- }
- \translator {
- \StaffContext
- \remove Axis_group_engraver;
- }
-}
-}
-
+++ /dev/null
- \version "1.3.138";
- \header {
- title = "Two miniatures";
- }
-
- #(set! point-and-click line-column-location)
-
- \paper { linewidth = -1.0; }
-
- \score {
- \notes { c'4 d'4 }
- \header {
- opus = "Opus 1.";
- piece = "Up";
- }
- }
-
- \score {
- \notes { d'4 c'4 }
- \header {
- opus = "Opus 2.";
- piece = "Down";
- }
- }
+++ /dev/null
-/*
- debug.cc -- implement debugging routines
-
- source file of the GNU LilyPond music typesetter
-
- (c) 1996--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
-
- */
-
-#include <fstream.h>
-#include <signal.h>
-#include <stdlib.h>
-
-#include "debug.hh"
-#include "dstream.hh"
-#include "flower-debug.hh"
-#include "moment.hh"
-#include "misc.hh"
-#include "main.hh"
-
-Dstream *my_monitor=0;
-
-void
-float_handler (int)
-{
- cerr << _ ("floating point exception") << endl;
- assert (false);
-}
-
-void
-debug_init ()
-{
- my_monitor = new Dstream (&cout, ".dstreamrc");
- signal (SIGFPE, float_handler);
-}
-
-bool check_malloc_b = false;
-
-void
-set_debug (bool b)
-{
- if (b)
- flower_dstream = my_monitor;
- else
- flower_dstream = 0;
-
-#ifdef MEMORY_PARANOID
- if (check_malloc_b)
- if (mcheck (0))
- warning (_ ("can't set mem-checking!"));
-#endif
-}
-
+++ /dev/null
-breve = \duration #(make-duration -1 0)
-longa = \duration #(make-duration -2 0 )
-maxima = \duration #(make-duration -3 0)
-
-\include "nederlands.ly" % dutch
-\include "chord-modifiers.ly"
-\include "script.ly"
-
-% declarations for standard directions
-left = -1
-right = 1
-up = 1
-down = -1
-start = -1
-stop = 1
-smaller = -1
-bigger = 1
-center=0
-
-break = \penalty -1000000;
-noBreak = \penalty 1000000;
-\include "scale-definitions.ly"
-
-melisma = \property Staff.melismaBusy = ##t
-melismaEnd = \property Staff.melismaBusy = ##f
-papersize = "a4"
-
-\include "engraver.ly"
-\include "generic-paper.ly"
-\include "paper-as9.ly"
-
-% ugh
-\include "midi.ly"
-
-\include "dynamic-scripts.ly"
-\include "spanners.ly"
-
-\include "property.ly"
-
-
-unusedEntry = \notes { c4 } % reset default duration
-
-% music = "\melodic\relative c"
-
+++ /dev/null
-% Toplevel AsciiScript initialisation file.
-
-\version "1.3.120";
-
-\include "declarations-as.ly"
-
-% burp. need to override lily.scm
-#(define cmr-alist
- '(("bold" . "as-dummy")
- ("brace" . "as-braces")
- ("dynamic" . "as-dummy")
- ("default" . "as-dummy")
- ("feta" . "feta")
- ("feta-1" . "feta")
- ("feta-2" . "feta")
- ("finger" . "as-number")
- ("typewriter" . "as-dummy")
- ("italic" . "as-dummy")
- ("roman" . "as-dummy")
- ("script" . "as-dummy")
- ("large" . "as-dummy")
- ("Large" . "as-dummy")
- ("mark" . "as-number")
- ("number" . "as-number")
- ("timesig" . "as-number")
- ("volta" . "as-number"))
-)
-
-\paper {
- \paperAsNine
- \translator { \StaffContext barSize = \staffheight; }
-
- % no beam-slope
- %\translator { \VoiceContext beamHeight = #0; }
-}
-
-\maininput
-
projects / lilypond.git / commitdiff