From: fred Date: Wed, 27 Mar 2002 01:18:01 +0000 (+0000) Subject: lilypond-1.3.145 X-Git-Tag: release/1.5.59~661 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=bfdab5817e6787e0224d370370bc02ce47540436;p=lilypond.git lilypond-1.3.145 --- diff --git a/Documentation/misc/index.texi b/Documentation/misc/index.texi deleted file mode 100644 index 15ea23440b..0000000000 --- a/Documentation/misc/index.texi +++ /dev/null @@ -1,24 +0,0 @@ -\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 - diff --git a/Documentation/ntweb/GNUmakefile b/Documentation/ntweb/GNUmakefile deleted file mode 100644 index fbcdfc7011..0000000000 --- a/Documentation/ntweb/GNUmakefile +++ /dev/null @@ -1,21 +0,0 @@ -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: - diff --git a/Documentation/ntweb/angels.ly b/Documentation/ntweb/angels.ly deleted file mode 100644 index 40a9893168..0000000000 --- a/Documentation/ntweb/angels.ly +++ /dev/null @@ -1,109 +0,0 @@ -\header{ -filename = "angles.ly"; -title = "Angels We Have Heard on High"; -description = "Christmas Carol."; - -composer = "French Carol, 1854"; -enteredby = "Jeffrey B. Reed"; -copyright = "public domain"; -} - -global = \notes { - \time 2/2; - \key f \major; - \tempo 2=60; - \clef treble; -} - -\version "1.3.110"; -% \include "paper16.ly" - -flute1 = \notes \relative c'' \context Voice = flute { - \property Staff.instrument = "flute" - - a'4 a a c | - c4. bes8 a2 | - a4 g a c | - - a4. g8 f2 | - a4 a a c | - c4. bes8 a2 | - - a4 g a c | - a4. g8 f2 | - c'2( [ d8 c8 bes8 a8 ] | - - bes2 [ c8 bes8 a8 g8 ] | - a2 [ bes8 a8 g8 f8 ] | - )g4. c,8 c2 | - - f4 g a bes | - a2 g2 | - c2( [ d8 c8 bes8 a8 ] | - - bes2 [ c8 bes8 a8 g8 ] | - a2 [ bes8 a8 g8 f8 ] | - )g4. c,8 c2 | - - f4 g a bes | - a2( )g2 | - f1 \bar "|."; -} - -flute2 = \notes \relative c'' \context Voice = flute { - \property Staff.instrument = "flute" - - f4 f e e | - g4 e f2 | - f4 e f f | - - f4 e f2 | - f4 f e e | - f4 g f2 | - - f4 e f f | - f4 e f2 | - f4 ( [a8 g8 ] f2( | - - )f4 [g8 f8] e2( | - )e4 [f8 e8] d2 | - )c4.c8 c2 | - - c4 e f f | - f2 e2 | - f4 ( [a8 g8 ] f2( | - - )f4 [g8 f8] e2( | - )e4 [f8 e8] d2 | - )c4.c8 c2 | - - c4 e f f | - f2( )e2 | - c1 | -} - -flute1_staff = \context Staff = flute1_group < - \global - \flute1 -> - -flute2_staff = \context Staff = flute2_group < - \global - \flute2 -> - -flutes = \context StaffGroup < - \flute1_staff - \flute2_staff -> - - -\score{ - < - \flutes - > - \paper{} - \midi{ - \tempo 2 = 60 ; - } -} diff --git a/Documentation/ntweb/guile-1.4-gnu-windows.patch b/Documentation/ntweb/guile-1.4-gnu-windows.patch deleted file mode 100644 index 4dd55d3205..0000000000 --- a/Documentation/ntweb/guile-1.4-gnu-windows.patch +++ /dev/null @@ -1,85 +0,0 @@ -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 -+ -+ * 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 - - * 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 diff --git a/Documentation/ntweb/index.texi b/Documentation/ntweb/index.texi deleted file mode 100644 index 6266ce868e..0000000000 --- a/Documentation/ntweb/index.texi +++ /dev/null @@ -1,245 +0,0 @@ -\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 - -@end html - -@bye diff --git a/Documentation/ntweb/lilypond-manpages.patch b/Documentation/ntweb/lilypond-manpages.patch deleted file mode 100644 index 9e204a7507..0000000000 --- a/Documentation/ntweb/lilypond-manpages.patch +++ /dev/null @@ -1,453 +0,0 @@ -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 -+Jan Nieuwenhuizen -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 -+Jan Nieuwenhuizen -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 and -+Han-Wen Nienhuys -+.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. diff --git a/flower/dstream.cc b/flower/dstream.cc deleted file mode 100644 index c157fe5049..0000000000 --- a/flower/dstream.cc +++ /dev/null @@ -1,209 +0,0 @@ -/* - dstream.cc -- implement Dstream - - source file of the Flower Library - - (c) 1996, 1997--2000 Han-Wen Nienhuys -*/ -#include -#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; - 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; -} - diff --git a/flower/flower-debug.cc b/flower/flower-debug.cc deleted file mode 100644 index b2fa19919d..0000000000 --- a/flower/flower-debug.cc +++ /dev/null @@ -1,6 +0,0 @@ -#include -#include "flower-debug.hh" -#include "dstream.hh" - -Dstream *flower_dstream = 0; - diff --git a/flower/include/dstream.hh b/flower/include/dstream.hh deleted file mode 100644 index 92111fbfb1..0000000000 --- a/flower/include/dstream.hh +++ /dev/null @@ -1,69 +0,0 @@ -/* - dstream.hh -- declare Dstream - - source file of the Flower Library - - (c) 1997--2000 Han-Wen Nienhuys -*/ - -#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 *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 - diff --git a/flower/include/flower-debug.hh b/flower/include/flower-debug.hh deleted file mode 100644 index 26bff024b2..0000000000 --- a/flower/include/flower-debug.hh +++ /dev/null @@ -1,26 +0,0 @@ -/* - flower-debug.hh -- declare global constants relating to debug dumps - - source file of the Flower Library - - (c) 1997--2000 Han-Wen Nienhuys -*/ - - -#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 diff --git a/input/ascii-art/asciscript5.ly b/input/ascii-art/asciscript5.ly deleted file mode 100644 index 726b0cacde..0000000000 --- a/input/ascii-art/asciscript5.ly +++ /dev/null @@ -1,19 +0,0 @@ - -% 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 } - } - -} - diff --git a/input/bugs/crescendo-squash.ly b/input/bugs/crescendo-squash.ly deleted file mode 100644 index b143968366..0000000000 --- a/input/bugs/crescendo-squash.ly +++ /dev/null @@ -1,9 +0,0 @@ - - - % < becomes | -\score {\notes { \context Staff < f''1 - { s4 \< \! s4 } > } - - \paper { linewidth = -1.; } - } - diff --git a/input/bugs/mb.ly b/input/bugs/mb.ly deleted file mode 100644 index e1fd2d76e4..0000000000 --- a/input/bugs/mb.ly +++ /dev/null @@ -1,38 +0,0 @@ - -% mb.ly: midi-bug -% midi notes get stuck - -%{ -From: Mats Bengtsson -Subject: Re: request simple .ly showing MIDI tie bug -To: Jan Nieuwenhuizen -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;} -} - diff --git a/input/bugs/pc-core.ly b/input/bugs/pc-core.ly deleted file mode 100644 index 9160fe4bcf..0000000000 --- a/input/bugs/pc-core.ly +++ /dev/null @@ -1,95 +0,0 @@ - -% 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 - } - } -} - diff --git a/input/bugs/st.ly b/input/bugs/st.ly deleted file mode 100644 index 3f5f29252e..0000000000 --- a/input/bugs/st.ly +++ /dev/null @@ -1,2 +0,0 @@ - -\score { \notes { c'''-. c-. }} diff --git a/input/bugs/stem-through-beam.ly b/input/bugs/stem-through-beam.ly deleted file mode 100644 index 5f24905a74..0000000000 --- a/input/bugs/stem-through-beam.ly +++ /dev/null @@ -1,80 +0,0 @@ - -% 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 - } - } -} - diff --git a/input/bugs/triplet.ly b/input/bugs/triplet.ly deleted file mode 100644 index 7e1855d2d3..0000000000 --- a/input/bugs/triplet.ly +++ /dev/null @@ -1,30 +0,0 @@ - -% -% 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 - } - } -} diff --git a/input/tricks/GNUmakefile b/input/tricks/GNUmakefile deleted file mode 100644 index 558771769c..0000000000 --- a/input/tricks/GNUmakefile +++ /dev/null @@ -1,6 +0,0 @@ -depth = ../.. - -LOCALSTEPMAKE_TEMPLATES=mutopia -include $(depth)/make/stepmake.make - - diff --git a/input/tricks/add-text-script.ly b/input/tricks/add-text-script.ly deleted file mode 100644 index 43ef4c6845..0000000000 --- a/input/tricks/add-text-script.ly +++ /dev/null @@ -1,35 +0,0 @@ -\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 } } - diff --git a/input/tricks/beam-count.ly b/input/tricks/beam-count.ly deleted file mode 100644 index 8258679872..0000000000 --- a/input/tricks/beam-count.ly +++ /dev/null @@ -1,21 +0,0 @@ - - -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 { } -} diff --git a/input/tricks/beam-dir-function.ly b/input/tricks/beam-dir-function.ly deleted file mode 100644 index ef044f8e2f..0000000000 --- a/input/tricks/beam-dir-function.ly +++ /dev/null @@ -1,41 +0,0 @@ - -\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] - } -} diff --git a/input/tricks/beam-neutral-direction.ly b/input/tricks/beam-neutral-direction.ly deleted file mode 100644 index 41187d8aa2..0000000000 --- a/input/tricks/beam-neutral-direction.ly +++ /dev/null @@ -1,14 +0,0 @@ - - -fragment = \notes { - [b''8 b] - \property Voice.Beam \set #'default-neutral-direction = #-1 - [b b] -} - -\paper { linewidth = -1.; } - -\score { - \notes\relative c \fragment - \paper { } -} diff --git a/input/tricks/beam-position.ly b/input/tricks/beam-position.ly deleted file mode 100644 index 19c4922353..0000000000 --- a/input/tricks/beam-position.ly +++ /dev/null @@ -1,14 +0,0 @@ - - -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 { } -} diff --git a/input/tricks/beam-rest.ly b/input/tricks/beam-rest.ly deleted file mode 100644 index bcdfe5b952..0000000000 --- a/input/tricks/beam-rest.ly +++ /dev/null @@ -1,18 +0,0 @@ - -\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; - } -} diff --git a/input/tricks/beam-slope.ly b/input/tricks/beam-slope.ly deleted file mode 100644 index a31582b76a..0000000000 --- a/input/tricks/beam-slope.ly +++ /dev/null @@ -1,14 +0,0 @@ - - -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 { } -} diff --git a/input/tricks/boxed-molecule.ly b/input/tricks/boxed-molecule.ly deleted file mode 100644 index 1dc8cb0fd3..0000000000 --- a/input/tricks/boxed-molecule.ly +++ /dev/null @@ -1,58 +0,0 @@ -\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 - }} diff --git a/input/tricks/crescendo-text.ly b/input/tricks/crescendo-text.ly deleted file mode 100644 index fea7996def..0000000000 --- a/input/tricks/crescendo-text.ly +++ /dev/null @@ -1,16 +0,0 @@ - - -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 { } -} diff --git a/input/tricks/drarn-slurs.ly b/input/tricks/drarn-slurs.ly deleted file mode 100644 index 663856a909..0000000000 --- a/input/tricks/drarn-slurs.ly +++ /dev/null @@ -1,19 +0,0 @@ - -\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 { } -} diff --git a/input/tricks/drums.ly b/input/tricks/drums.ly deleted file mode 100644 index ae4ac81487..0000000000 --- a/input/tricks/drums.ly +++ /dev/null @@ -1,59 +0,0 @@ -% 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 } 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; } -} - diff --git a/input/tricks/embedded-postscript.ly b/input/tricks/embedded-postscript.ly deleted file mode 100644 index 557c9ba403..0000000000 --- a/input/tricks/embedded-postscript.ly +++ /dev/null @@ -1,18 +0,0 @@ -\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; } -} diff --git a/input/tricks/embedded-tex.ly b/input/tricks/embedded-tex.ly deleted file mode 100644 index 8a6e0465b6..0000000000 --- a/input/tricks/embedded-tex.ly +++ /dev/null @@ -1,12 +0,0 @@ - - -fragment = \notes { - a''^"3 $\\times$ \\`a deux" -} - -\paper { linewidth = -1.; } - -\score { - \notes\relative c \fragment - \paper { } -} diff --git a/input/tricks/follow-thread.ly b/input/tricks/follow-thread.ly deleted file mode 100644 index 2771cb871b..0000000000 --- a/input/tricks/follow-thread.ly +++ /dev/null @@ -1,30 +0,0 @@ - -\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 { } -} diff --git a/input/tricks/improv.ly b/input/tricks/improv.ly deleted file mode 100644 index ff350187ec..0000000000 --- a/input/tricks/improv.ly +++ /dev/null @@ -1,46 +0,0 @@ - -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; - } -} diff --git a/input/tricks/metronome.ly b/input/tricks/metronome.ly deleted file mode 100644 index d712999f77..0000000000 --- a/input/tricks/metronome.ly +++ /dev/null @@ -1,30 +0,0 @@ - - - -% 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 - } - } -} diff --git a/input/tricks/mmrest-collision.ly b/input/tricks/mmrest-collision.ly deleted file mode 100644 index 0fd96e72e8..0000000000 --- a/input/tricks/mmrest-collision.ly +++ /dev/null @@ -1,25 +0,0 @@ - -\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; - } - } -} diff --git a/input/tricks/move-notehead.ly b/input/tricks/move-notehead.ly deleted file mode 100644 index 87deb18689..0000000000 --- a/input/tricks/move-notehead.ly +++ /dev/null @@ -1,14 +0,0 @@ - - -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 { } -} diff --git a/input/tricks/move-specific-text.ly b/input/tricks/move-specific-text.ly deleted file mode 100644 index 2fe4a71523..0000000000 --- a/input/tricks/move-specific-text.ly +++ /dev/null @@ -1,13 +0,0 @@ - -#(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.; } -} diff --git a/input/tricks/no-bar-lines.ly b/input/tricks/no-bar-lines.ly deleted file mode 100644 index 1cd7f3cba5..0000000000 --- a/input/tricks/no-bar-lines.ly +++ /dev/null @@ -1,16 +0,0 @@ - -\score { - \notes \relative c'' { - a b c d - d c b a - } - \paper { - linewidth = -1.; - \translator { - \StaffContext - whichBar = #"" - \remove "Time_signature_engraver"; - } - } -} - diff --git a/input/tricks/no-staff.ly b/input/tricks/no-staff.ly deleted file mode 100644 index 5385aa24d1..0000000000 --- a/input/tricks/no-staff.ly +++ /dev/null @@ -1,14 +0,0 @@ - -\score { - \notes { c4 c4 c8 c8 } - \paper { - linewidth = -1.; - \translator { - \StaffContext - \remove Staff_symbol_engraver; - \consists Pitch_squash_engraver; - \remove Clef_engraver; - } - } -} - diff --git a/input/tricks/ottava.ly b/input/tricks/ottava.ly deleted file mode 100644 index 590bd730a8..0000000000 --- a/input/tricks/ottava.ly +++ /dev/null @@ -1,17 +0,0 @@ - - -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 { } -} diff --git a/input/tricks/part-combine.ly b/input/tricks/part-combine.ly deleted file mode 100644 index 3e04e524b3..0000000000 --- a/input/tricks/part-combine.ly +++ /dev/null @@ -1,38 +0,0 @@ - -\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; - } - } -} - diff --git a/input/tricks/partial-blank.ly b/input/tricks/partial-blank.ly deleted file mode 100644 index 9b15bde29d..0000000000 --- a/input/tricks/partial-blank.ly +++ /dev/null @@ -1,28 +0,0 @@ - -%{ 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 {} -} diff --git a/input/tricks/reverse-music.ly b/input/tricks/reverse-music.ly deleted file mode 100644 index d93a8ec542..0000000000 --- a/input/tricks/reverse-music.ly +++ /dev/null @@ -1,31 +0,0 @@ - -\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.; } -} - diff --git a/input/tricks/slur-attachment-override.ly b/input/tricks/slur-attachment-override.ly deleted file mode 100644 index 90f91188d1..0000000000 --- a/input/tricks/slur-attachment-override.ly +++ /dev/null @@ -1,22 +0,0 @@ - -\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 { } -} diff --git a/input/tricks/slur-attachment.ly b/input/tricks/slur-attachment.ly deleted file mode 100644 index 3b1ea943e2..0000000000 --- a/input/tricks/slur-attachment.ly +++ /dev/null @@ -1,18 +0,0 @@ - - -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 { } -} diff --git a/input/tricks/slur-ugly.ly b/input/tricks/slur-ugly.ly deleted file mode 100644 index 5e021dd199..0000000000 --- a/input/tricks/slur-ugly.ly +++ /dev/null @@ -1,36 +0,0 @@ - -\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) - } - } -} - diff --git a/input/tricks/smart-transpose.ly b/input/tricks/smart-transpose.ly deleted file mode 100644 index 05170116f2..0000000000 --- a/input/tricks/smart-transpose.ly +++ /dev/null @@ -1,83 +0,0 @@ - -\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.; } -} - diff --git a/input/tricks/staff-container.ly b/input/tricks/staff-container.ly deleted file mode 100644 index baa7cd2518..0000000000 --- a/input/tricks/staff-container.ly +++ /dev/null @@ -1,39 +0,0 @@ - - -\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; - } -} -} - diff --git a/input/tutorial/ly2dvi.ly b/input/tutorial/ly2dvi.ly deleted file mode 100644 index 1dd8aa064d..0000000000 --- a/input/tutorial/ly2dvi.ly +++ /dev/null @@ -1,24 +0,0 @@ - \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"; - } - } diff --git a/lily/debug.cc b/lily/debug.cc deleted file mode 100644 index 57380d6e7f..0000000000 --- a/lily/debug.cc +++ /dev/null @@ -1,53 +0,0 @@ -/* - debug.cc -- implement debugging routines - - source file of the GNU LilyPond music typesetter - - (c) 1996--2001 Han-Wen Nienhuys - - */ - -#include -#include -#include - -#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 -} - diff --git a/ly/declarations-as.ly b/ly/declarations-as.ly deleted file mode 100644 index 8c20b69d2a..0000000000 --- a/ly/declarations-as.ly +++ /dev/null @@ -1,44 +0,0 @@ -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" - diff --git a/ly/init-as.ly b/ly/init-as.ly deleted file mode 100644 index f8fd77706c..0000000000 --- a/ly/init-as.ly +++ /dev/null @@ -1,38 +0,0 @@ -% 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 -