iinitial import of V1.3.3 - abc2ps - A powerful sheet setting tool using the simple abc notation	Err	vernunftzentrum.de	70
hgit clone git://vernunftzentrum.de/abc2ps.git	URL:git://vernunftzentrum.de/abc2ps.git	vernunftzentrum.de	70
1Log	/ckeen/repos/abc2ps/log.gph	vernunftzentrum.de	70
1Files	/ckeen/repos/abc2ps/files.gph	vernunftzentrum.de	70
1Refs	/ckeen/repos/abc2ps/refs.gph	vernunftzentrum.de	70
i---	Err	vernunftzentrum.de	70
1commit 3a06ea49c1f1fb94fb58a82709906dbe620186f3	/ckeen/repos/abc2ps/commit/3a06ea49c1f1fb94fb58a82709906dbe620186f3.gph	vernunftzentrum.de	70
hAuthor: Christian Kellermann <ckeen@pestilenz.org>	URL:mailto:ckeen@pestilenz.org	vernunftzentrum.de	70
iDate:   Sat, 14 Apr 2018 22:52:22 +0200	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
iinitial import of V1.3.3	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
iDiffstat:	Err	vernunftzentrum.de	70
i  Changes                             |     526 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  License                             |     339 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  New.Features                        |     334 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  ReadMe.abc2ps                       |     778 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  abc2ps.c                            |     753 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  bach.abc                            |      28 ++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  blue_boy_bass.abc                   |      35 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  bran5.abc                           |      54 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  buffer.h                            |     202 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  celloprelude.abc                    |      34 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  desafinado.abc                      |      21 +++++++++++++++++++++	Err	vernunftzentrum.de	70
i  fbook.fmt                           |      26 ++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  fonts.fmt                           |       5 +++++	Err	vernunftzentrum.de	70
i  format.h                            |     489 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  journey.abc                         |      36 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  landscape.fmt                       |      11 +++++++++++	Err	vernunftzentrum.de	70
i  layout.txt                          |     150 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  mtunes1.abc                         |      55 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  music.h                             |    4496 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  newfeatures.abc                     |     121 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  parse.h                             |    2460 ++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  pssubs.h                            |     338 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  sample.abc                          |     122 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  scotland.abc                        |      22 ++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  style.h                             |      87 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  style.pure                          |     104 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  subs.h                              |    1372 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  syms.h                              |    1226 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  trio.abc                            |      44 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  util.h                              |     494 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i  voices.abc                          |     151 +++++++++++++++++++++++++++++++	Err	vernunftzentrum.de	70
i	Err	vernunftzentrum.de	70
i31 files changed, 14913 insertions(+), 0 deletions(-)	Err	vernunftzentrum.de	70
i---	Err	vernunftzentrum.de	70
1diff --git a/Changes b/Changes	/ckeen/repos/abc2ps/file/Changes.gph	vernunftzentrum.de	70
i@@ -0,0 +1,526 @@	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+17.03.99 Experimentally changed parsing so that the end of the header	Err	vernunftzentrum.de	70
i+         comes at the first music or V: line.  	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         Note: according to the abc specs, the header ends with the K: line.	Err	vernunftzentrum.de	70
i+         However, nobody seems aware of this. For multistave music it is	Err	vernunftzentrum.de	70
i+         important exactly where the header ends, because info fields	Err	vernunftzentrum.de	70
i+         in the body of the music (outside the header) only operate on 	Err	vernunftzentrum.de	70
i+         the current voice. Info fields in the header operate on all 	Err	vernunftzentrum.de	70
i+         the voices.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+16.03.99 Fixed various reported bugs.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+25.01.99 Support fermata over a rest.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Version 1.3.3 -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+10.12.98 New flag: -I writes the contents and page numbers to file Ind.ps.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+08.12.98 Fixed bug: transposing was wrong for clef changes.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Version 1.3.2 -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+10.08.98 Added new codes for accents (cf. sample.abc):	Err	vernunftzentrum.de	70
i+            k: Accent which looks like >	Err	vernunftzentrum.de	70
i+            K: Accent which looks like an upside-down V.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+05.08.98 Added bar numbering and bar labels.	Err	vernunftzentrum.de	70
i+         	Err	vernunftzentrum.de	70
i+         Bar numbers: 	Err	vernunftzentrum.de	70
i+         to switch on bar numbering, use flag -k	Err	vernunftzentrum.de	70
i+         where:   -k 1     numbers every bar	Err	vernunftzentrum.de	70
i+                  -k 5     numbers every fifth bar, etc.	Err	vernunftzentrum.de	70
i+                  -k 0     numbers the first bar in every staff.	Err	vernunftzentrum.de	70
i+         or, use the equivalent pseudocomment %%barnumbers <number>.	Err	vernunftzentrum.de	70
i+         (Note: -k was used because it sounds a bit like "count".)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         The program counts through the bars automatically, trying	Err	vernunftzentrum.de	70
i+         to do the right thing at first and second endings. Namely:	Err	vernunftzentrum.de	70
i+         it remembers the bar number at the start of the first ending,	Err	vernunftzentrum.de	70
i+         then resets to that value at the start of the second ending.	Err	vernunftzentrum.de	70
i+         So, if there is a tune with 2x8 measures with first and second	Err	vernunftzentrum.de	70
i+         endings after the first 8 bars, we still end up with 16 bars	Err	vernunftzentrum.de	70
i+         in total.	Err	vernunftzentrum.de	70
i+         Within one tune, bar numbers are counted through over parts	Err	vernunftzentrum.de	70
i+         boundaries. However, if a T: title appears inside a tune,	Err	vernunftzentrum.de	70
i+         the bar number is reset to 1. You can use an empty T:	Err	vernunftzentrum.de	70
i+         line to reset the bar number without actually writing a title.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+         Bar labels: 	Err	vernunftzentrum.de	70
i+         this is intended for large letters A, B, C...	Err	vernunftzentrum.de	70
i+         to mark specific points in the music. They are coded by	Err	vernunftzentrum.de	70
i+         using a syntax similar to guitarchords, but placed before	Err	vernunftzentrum.de	70
i+         a bar line instead of a note or rest, e.g.:	Err	vernunftzentrum.de	70
i+            | abcd "A"| ABCD |	Err	vernunftzentrum.de	70
i+         places the letter A over the second bar line.	Err	vernunftzentrum.de	70
i+         Just in case somebody wants a label on the first bar	Err	vernunftzentrum.de	70
i+         (which is often not preceded by a bar line), a new 	Err	vernunftzentrum.de	70
i+         symbol [|] was introduced for an "invisible" bar line.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         Fonts for bar numbers and bar labels:	Err	vernunftzentrum.de	70
i+         These can be set in the usual way with the two pseudocomments 	Err	vernunftzentrum.de	70
i+         %%barnumberfont and %%barlabelfont.	Err	vernunftzentrum.de	70
i+         	Err	vernunftzentrum.de	70
i+         In printed music, the bar numbers are often made more visible	Err	vernunftzentrum.de	70
i+         by putting a box around them. This is now also possible.	Err	vernunftzentrum.de	70
i+         In fact, a box can be put around most bits of text by	Err	vernunftzentrum.de	70
i+         adding the word "box" to the font specification, e.g.:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+            %%barnumberfont Times-Italic 11 box	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         This can be done for the title, guitarchords, vocals, etc.	Err	vernunftzentrum.de	70
i+         To switch on the box without changing the font style and/or size,	Err	vernunftzentrum.de	70
i+         the character * can be used, as in:	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+            %%titlefont * * box	Err	vernunftzentrum.de	70
i+         	Err	vernunftzentrum.de	70
i+         	Err	vernunftzentrum.de	70
i+         A reminder: to see all the style specifications use 'abc2ps -H'	Err	vernunftzentrum.de	70
i+         (for the standard format) or 'abc2ps -PH' (pretty2 format).	Err	vernunftzentrum.de	70
i+         This gives a list suitable for placing in a .fmt file.	Err	vernunftzentrum.de	70
i+         To modify settings for a single tune only, place the	Err	vernunftzentrum.de	70
i+         pseudocomments after the 'T:' lines and before the 'K:' line	Err	vernunftzentrum.de	70
i+         in the tune header.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         	Err	vernunftzentrum.de	70
i+         Examples: look at celloprelude.abc for examples of bar numbers	Err	vernunftzentrum.de	70
i+         and bar labels. Try 'abc2ps -maxv 8 -k0 bran5' or	Err	vernunftzentrum.de	70
i+         'abc2ps -k0 bach' to see bar numbers at the start of 	Err	vernunftzentrum.de	70
i+         the line, as is often used for scores.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+20.07.98 Fixed bug overwriting when lvoiceid too short.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Version 1.3.1 -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+12.07.98 A number of enhancements to format multi-stave music nicely.	Err	vernunftzentrum.de	70
i+         For examples, see files trio.abc bran5.abc voices.abc bach.abc.	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+         In detail: indentation of the first staff, labels for voices, 	Err	vernunftzentrum.de	70
i+         braces and brackets to group voices, and some additional	Err	vernunftzentrum.de	70
i+         parameters in the V: line to control the output.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         As before, the syntax of the V: line is	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+            V: <label> <par1>=<value1> <par2>=<value2>  ...	Err	vernunftzentrum.de	70
i+         	Err	vernunftzentrum.de	70
i+         where <label> is used to switch to the voice in later V: lines.	Err	vernunftzentrum.de	70
i+         Each <par>=<value> pair sets one parameter for the current voice.	Err	vernunftzentrum.de	70
i+         There are now alternate short version of the parameter names.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         List of the parameters allowed in a V: line:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         parm   short   example and description	Err	vernunftzentrum.de	70
i+         ----------------------------------------	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         name    nm     nm=Violin I" 	Err	vernunftzentrum.de	70
i+                        This sets the long version of the voice name, to be	Err	vernunftzentrum.de	70
i+                        written before the staves at the start of a piece.	Err	vernunftzentrum.de	70
i+                        If the string contains \\, this is interpreted	Err	vernunftzentrum.de	70
i+                        as a line break and the pieces are writen above	Err	vernunftzentrum.de	70
i+                        each other.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         sname   snm    snm="Vl. I"	Err	vernunftzentrum.de	70
i+                        Short version of the name, written before	Err	vernunftzentrum.de	70
i+                        subsequent staves.	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+         clef    cl     clef=bass	Err	vernunftzentrum.de	70
i+                        Chooses the clef (treble, alto, or bass).	Err	vernunftzentrum.de	70
i+                        It can also be bass+8 and so on.	Err	vernunftzentrum.de	70
i+         	Err	vernunftzentrum.de	70
i+         staves  stv    stv=2	Err	vernunftzentrum.de	70
i+                        This is the number of staves (starting from the	Err	vernunftzentrum.de	70
i+                        current one) to connect by tall vertical bar lines.	Err	vernunftzentrum.de	70
i+                        	Err	vernunftzentrum.de	70
i+         brace   brc    brace=2 	Err	vernunftzentrum.de	70
i+                        This is the number of staves (starting from the	Err	vernunftzentrum.de	70
i+                        current one) to be grouped together with a brace.	Err	vernunftzentrum.de	70
i+                        When this option is used, the name defined in the	Err	vernunftzentrum.de	70
i+                        same V: line is written at the center of the brace.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         bracket brk    brk=4	Err	vernunftzentrum.de	70
i+                        The number of staves to be grouped together by	Err	vernunftzentrum.de	70
i+                        a bracket. This option does not change the way	Err	vernunftzentrum.de	70
i+                        in which the names are written.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         space   spc    spc=40	Err	vernunftzentrum.de	70
i+                        This defines or modifies the vertical space between	Err	vernunftzentrum.de	70
i+                        this staff and the one below it. The space can be	Err	vernunftzentrum.de	70
i+                        given in pt (default) or with a unit in the form 	Err	vernunftzentrum.de	70
i+                        1cm or 0.4in. Furthermore: if a + or - sign	Err	vernunftzentrum.de	70
i+                        comes after the start of the number, the value	Err	vernunftzentrum.de	70
i+                        is an increment to be added to or subtracted	Err	vernunftzentrum.de	70
i+                        from the default setting.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         gchords gch    gch=0  	Err	vernunftzentrum.de	70
i+                        This controls whether any guitar chords 	Err	vernunftzentrum.de	70
i+                        embedded in the current voice are actually written.	Err	vernunftzentrum.de	70
i+                        True/false are specified as for the %% formats. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         stems   stm    stems=up	Err	vernunftzentrum.de	70
i+                        This is parsed but not yet used in the program.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         New format directives:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+            %%voicefont       font to write voice names with	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+            %%indent <dim>    amount to indent the first staff.	Err	vernunftzentrum.de	70
i+                              Indentation is done at the start of	Err	vernunftzentrum.de	70
i+                              the piece and after a T: field, but not	Err	vernunftzentrum.de	70
i+                              after a P: field. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+            Note: the margin still refers to the left edge of the staff.	Err	vernunftzentrum.de	70
i+            Therefore, parameters %%leftmargin %%staffwidth %%indent	Err	vernunftzentrum.de	70
i+            should be adjusted to leave room for the voice names.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         New command-line flag:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+            The -V flag was redefined to select voices for output.	Err	vernunftzentrum.de	70
i+            The old function ("show version") was integrated into -h.	Err	vernunftzentrum.de	70
i+            The format is as in this example:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+               abc2ps -o input.abc -V 1-2,4	Err	vernunftzentrum.de	70
i+            	Err	vernunftzentrum.de	70
i+            This will generate output only for the specified voices. 	Err	vernunftzentrum.de	70
i+            Specifically, a single voice can be extracted.	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         Other changes:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+            For a rest which fills out a complete measure, the symbol 	Err	vernunftzentrum.de	70
i+            for a full rest is drawn in the center of the bar, independent	Err	vernunftzentrum.de	70
i+            of the the time signature.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+            Added K for strong emphasis decoration (upside-down V).	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+31.05.98 L: after header but before first voice now sets default length	Err	vernunftzentrum.de	70
i+         for first voice, named "1".	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+12.05.98 Tab interpreted as space in music lines.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+01.04.98 Fixed Q:C=xxx for multi-stave version.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+19.03.98 Run-time allocation for symbols and voices.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Version 1.3.0 -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+03.03.98 Multi-stave music added.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         To switch to a different voice, use a line starting with 'V:'.	Err	vernunftzentrum.de	70
i+         An example for the most general form supported now is:	Err	vernunftzentrum.de	70
i+            V:2 name="Clarinet 2" short="Cl.2" clef=treble stems=down 	Err	vernunftzentrum.de	70
i+         Note that the "2" is a treated as a string, so any single-word	Err	vernunftzentrum.de	70
i+         identifier can be used instead. Later in the tune,	Err	vernunftzentrum.de	70
i+         switch to the voice using only	Err	vernunftzentrum.de	70
i+            V:2	Err	vernunftzentrum.de	70
i+         The various settings (key, default length, etc) are 	Err	vernunftzentrum.de	70
i+         maintained for each voice separately.	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+         Guitar chords, first and second endings, and line breaks are 	Err	vernunftzentrum.de	70
i+         taken from the top voice only. Vocals can be set under each	Err	vernunftzentrum.de	70
i+         voice separately.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         To format the output, two %% format directives were added	Err	vernunftzentrum.de	70
i+         which determine the staff spacing: %%systaffsep %%systemsep.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         It turned out that the note spacing should be slightly	Err	vernunftzentrum.de	70
i+         different for multi-stave music. Namely, it is often a good	Err	vernunftzentrum.de	70
i+         idea to space the notes somewhat more strictly according	Err	vernunftzentrum.de	70
i+         to their duration than in single-stave music. There is now	Err	vernunftzentrum.de	70
i+         a new parameter called "strictness" which the user can use	Err	vernunftzentrum.de	70
i+         to adjust this. For strictness=1, the spacings for notes	Err	vernunftzentrum.de	70
i+         with short durations is reasonably strictly proportional to	Err	vernunftzentrum.de	70
i+         their duration. For strictness=0, they are spaced about	Err	vernunftzentrum.de	70
i+         equally. Good defaults are strictness=0.5 for single-stave	Err	vernunftzentrum.de	70
i+         music and strictness=0.8 for multistave music.	Err	vernunftzentrum.de	70
i+         These parameters can be changed with the -X flag or 	Err	vernunftzentrum.de	70
i+         with %% statements in the abc file or in a .fmt file.	Err	vernunftzentrum.de	70
i+         When using -X, a flag such as -X 0.6 will change both	Err	vernunftzentrum.de	70
i+         values. To change them separately, use something like	Err	vernunftzentrum.de	70
i+         -X 0.3,0.7 on the command line.	Err	vernunftzentrum.de	70
i+         	Err	vernunftzentrum.de	70
i+         As usual, %% directives can be inspected with abc -H 	Err	vernunftzentrum.de	70
i+         and help about flags is obtained with abc -h.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         Files voices.abc and bach.abc have examples for multistave	Err	vernunftzentrum.de	70
i+         music.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+01.03.98 Changed -d flag to accept incremental changes such as -d-5	Err	vernunftzentrum.de	70
i+         or -d+5.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+28.12.97 Transposing added. Also double sharp and double flat symbols.	Err	vernunftzentrum.de	70
i+         To transpose: use flag -t in two possible ways.	Err	vernunftzentrum.de	70
i+         (1) Specify the new root explicitly using the form	Err	vernunftzentrum.de	70
i+             -t XX   where XX is the new root note. For example:	Err	vernunftzentrum.de	70
i+               -t C   or   -t Bb  or  -t C#	Err	vernunftzentrum.de	70
i+             This shifts either up or down, depending on which shift is	Err	vernunftzentrum.de	70
i+             smaller. To force up or down direction, use prefixes ^_ eg.	Err	vernunftzentrum.de	70
i+               -t ^C   or   -t _C	Err	vernunftzentrum.de	70
i+         (2) Specify the number of halftones to shift by in the form	Err	vernunftzentrum.de	70
i+             -t nn  where nn is the number of halftones.	Err	vernunftzentrum.de	70
i+             For negative shift, use either a sticky argument	Err	vernunftzentrum.de	70
i+             such as -t-2 or prefix with underscore, eg -t _2.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         In any case: the program first decides how many halftones	Err	vernunftzentrum.de	70
i+         to shift the pitches by. This number is kept fixed throughout	Err	vernunftzentrum.de	70
i+         the whole tune. In this way, key changes within the tune	Err	vernunftzentrum.de	70
i+         are treated properly. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         To obain information about the transposing process, set the	Err	vernunftzentrum.de	70
i+         verbosity to 3 or 4 (ie:  -v 3  or  -v 4).	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+24.12.97 Shift up guitar chords over n-plet brackets.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+15.12.97 Some modifications to extent of 1st and 2nd endings. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+29.11.97 Q: field now prints out tempo denotations.	Err	vernunftzentrum.de	70
i+         General form is Q: w1 w2 w3.. where each word is either	Err	vernunftzentrum.de	70
i+         a string in double quotes such as "Andante" or "Bossa Nova"	Err	vernunftzentrum.de	70
i+         or a tempo denotation such as C or C=120 or 120.	Err	vernunftzentrum.de	70
i+         Strings are printed directly, denotations are translated 	Err	vernunftzentrum.de	70
i+         to the form note=100. Font is in new format field "tempofont".	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+29.11.97 Guitar chords positioned a bit more nicely (centered,	Err	vernunftzentrum.de	70
i+         except if especially wide).	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+29.11.97 Added blank-delimited +8 and -8 as extensions to key specifier.	Err	vernunftzentrum.de	70
i+         Function: write all notes higher or lower by one octave.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+02.11.97 Words for vocals now centered under each note, looks nicer.	Err	vernunftzentrum.de	70
i+         Changed left/right spacings to get better positioning for 	Err	vernunftzentrum.de	70
i+         single note in a bar.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Version 1.2.5 -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+05.10.97 Added page numbers for flag -N. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+05.10.97 Support for all modes (Wil Macaulay)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+07.08.97 Added "x" for rests which are invisible.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+14.07.97 Slurs and ties within chords improved, for example:	Err	vernunftzentrum.de	70
i+         [(a(b] [c)d)]  slurs a to c, b to d 	Err	vernunftzentrum.de	70
i+         [a-b] [ac]     ties a to a	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+14.07.97 Grace notes can be before or after guitar chord:	Err	vernunftzentrum.de	70
i+         "A"{A}Bc  and  {A}"A"Bc  both work.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+06.05.97 Fixed bug which sometimes put stems onto whole notes.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+06.03.97 Begintext lines can start with %%, to permit usage	Err	vernunftzentrum.de	70
i+         in header fields and avoid conflict with other programs.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+17.02.97 Made txt array global.. avoid stack problems on Mac.	Err	vernunftzentrum.de	70
i+         Added extra buffer flush at file end.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+15.02.97 C (alto) clef added, invoke with "K: alto"	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+10.02.97 Now  \- in vocals for '-' without breaking the word.	Err	vernunftzentrum.de	70
i+         Changed to work even if no 'T:' field.	Err	vernunftzentrum.de	70
i+         Fixed bug: did not print 'O:' if no 'C:'.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+09.02.97 Added "%%titlecaps" format statement.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+07.02.97 Introduced decoration T for "tr" above a note. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Version 1.2.4b -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+06.02.97 New: text, page formats, pseudocomments, bass clef.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+02.02.97 In-line escape sequences now also [..]	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+23.01.97 removed "or:" from subtitles.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Version 1.2.3-x1 -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+26.11 Added aligned vocals under the staff. Example:	Err	vernunftzentrum.de	70
i+      BA |: "Gm"G2AB|"C7"cd2e|"F"f2fe|"Dm"dA2d|	Err	vernunftzentrum.de	70
i+      w: Close your eyes and I'll kiss you, to-mor-row I'll miss you; re-	Err	vernunftzentrum.de	70
i+      "Bb"d2dc|"Gm"B2GF|"Eb"G4-|G2 z2|	Err	vernunftzentrum.de	70
i+      w:mem-ber I'll al-ways be true._ 	Err	vernunftzentrum.de	70
i+      Syntax:	Err	vernunftzentrum.de	70
i+         Words are given in line starting as w: under music line.	Err	vernunftzentrum.de	70
i+         Words are aligned one-by-one with the notes. 	Err	vernunftzentrum.de	70
i+         * skips one note.	Err	vernunftzentrum.de	70
i+         | tabs forward to next bar line.	Err	vernunftzentrum.de	70
i+         Hyphenations make two syllables, with "-" between them.	Err	vernunftzentrum.de	70
i+         Underscore draws horizontal line from last word to note.	Err	vernunftzentrum.de	70
i+         Blanks can be dropped around special chars (* | - _ ).	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+19.11 Added bagpipe mode for K:HP.	Err	vernunftzentrum.de	70
i+      Added landscape orientation for flag -l.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+05.11 Put in some first pseudocomments to format output:	Err	vernunftzentrum.de	70
i+      %%sep                         - writes a standard separator	Err	vernunftzentrum.de	70
i+      %%sep topspace botspace len   - custom separator	Err	vernunftzentrum.de	70
i+      %%newpage                     - force page break	Err	vernunftzentrum.de	70
i+      %%text This is a line..       - write a line of text	Err	vernunftzentrum.de	70
i+      %%vskip xx                    - add vertical space in cm 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+06.10 Added 32nd and 64th rests, 64th notes.	Err	vernunftzentrum.de	70
i+      Accidentals and grace notes more spaced when room.	Err	vernunftzentrum.de	70
i+      Correct treatment of slurs at 1st, 2nd endings.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Version 1.2.2 -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+22.09 Words like "aza" now under one beam with rest under it.	Err	vernunftzentrum.de	70
i+      Output "Origin" field in parens together with composer.	Err	vernunftzentrum.de	70
i+      Added ties between chords.	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+20.09 Keysigs such as "3+4/8"  "78/8"  "7 8/8" allowed.	Err	vernunftzentrum.de	70
i+      Slopes of beams tuned a bit.	Err	vernunftzentrum.de	70
i+      Fixed bug in position of tilde over stem.	Err	vernunftzentrum.de	70
i+      Choose same stem directions on neighbors where reasonable.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+15.09 Small random horizontal shift of notes improve readability,	Err	vernunftzentrum.de	70
i+      see RANFAC. Adjust internote spacing according to jump in pitch.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+05.08 Consistent handling for word breaks at end of input line.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Version 1.2.1 -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+28.07 Added W: for words of song.	Err	vernunftzentrum.de	70
i+      Include notes, discography, transcription in output for -n.	Err	vernunftzentrum.de	70
i+      Removed bug: ninf=0 messed up usage "abc2ps -h".	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+26.07 Fixed: swallowed meter change sometimes.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+21.07 Correct handling of last line of file even if not terminated 	Err	vernunftzentrum.de	70
i+      by a newline character.	Err	vernunftzentrum.de	70
i+      Some fine-tuning for beam position when more than one beam.	Err	vernunftzentrum.de	70
i+      For staff middle, use stem direction from previous note.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+18.07 More tolerant of misuse of guitar chords to write general stuff	Err	vernunftzentrum.de	70
i+      above staff; now OK if "...." is alone on a line.	Err	vernunftzentrum.de	70
i+      Minibug in syms.h: 'staff' left junk on PS stack.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+17.07 For -c mode: don't complain about underfull; don't stretch	Err	vernunftzentrum.de	70
i+      last staff much when underfull (new parameter BETA_C).	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+16.07 Fixed obscure bug.. after overfull, sometimes took duration for 	Err	vernunftzentrum.de	70
i+      chord from wrong note, because heads were sorted by pitch.	Err	vernunftzentrum.de	70
i+      Also: use shrinkage from previous staff for undefull last staff.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+15.07 Move slide further away for notes with accidentals.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+09.07 Selectors before first file also valid; apply to first file.	Err	vernunftzentrum.de	70
i+      Took out atof & atoi calls; main now returns int; changed	Err	vernunftzentrum.de	70
i+      function names def_HD,def_Hd,def_hd.	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Version 1.2 -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+06.07 New flag -O to set output file.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+26.06 Added general n-plet syntax "(p:q:r".	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+10.06 Slurs fatter in middle.	Err	vernunftzentrum.de	70
i+      Hold (fermata) added code=H.	Err	vernunftzentrum.de	70
i+      Changed code for bar to M (em-phasis).	Err	vernunftzentrum.de	70
i+      Added up and down bow u,v.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+09.06 Thick-thin, thin thick bars now [| and |].	Err	vernunftzentrum.de	70
i+      Ties a-b-c now done correctly.	Err	vernunftzentrum.de	70
i+      Carryover slurs at start and end of line.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+08.06 Flat beams shifted to consistent positions relative to staff.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+07.06 Set beta0 to avoid infinite stretching.	Err	vernunftzentrum.de	70
i+      Redid key changes.. mcl.abc Cm-> C was wrong.	Err	vernunftzentrum.de	70
i+      Fiddled some with slurs.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+05.06 Fixed: accidental was too close on full note.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+03.06 fix up n-plet cases: (1) on beam with other notes,	Err	vernunftzentrum.de	70
i+      (2) draw bracket if not on same beam.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+03.06 New flag -E to make EPS files eps001.ps, eps002.ps ...	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+02.05 Guitar chord can be put anywhere before note.	Err	vernunftzentrum.de	70
i+      Changed note placement for single note in bar.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+30.04 Mutiple decorations permitted on one note.	Err	vernunftzentrum.de	70
i+      Bar for broad emphasis added, code is R.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+29.04 Unions: chord with two identical notes like [CC]	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+29.04 Slide added, code is J.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+26.04 Output buffer takes care of page breaks.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Version 1.2x -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+[v1.2-x7]	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+11.04 Output to <file>.ps possible; set OUTPUTFILE in abc2ps.c	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+[v1.2-x6]	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+28.03 Can do normal or pretty output, depending on flag -p.	Err	vernunftzentrum.de	70
i+      Layout parameters bundled as macros in main. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+[v1.2-x5]	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+21.03 Changed roll symbol some more.	Err	vernunftzentrum.de	70
i+      Put extra \n at end of Out.ps.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+[v1.2-x4]	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+17.03 Fixed nasty bug for selection by xref; now ok on NeXT.	Err	vernunftzentrum.de	70
i+      Changed roll symbol.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+[v1.2-x3]	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+14.03 Added roll sign as optional way to draw ~.	Err	vernunftzentrum.de	70
i+      Changed program to avoid all 'gcc -Wall' warnings.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+10.03 Fixed wrong dimension for line in do_index (macro BSIZE)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+08.03 Took out '#copies..' in PS file.	Err	vernunftzentrum.de	70
i+      Added -m flag to set margin.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+06.03 Added flag -i and interactive mode.	Err	vernunftzentrum.de	70
i+      Fixed bug in beams, which wrote funny numbers over some beams.	Err	vernunftzentrum.de	70
i+      Added "newpage" as option for E: field.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+04.03 Added -f flag to permit different selectors for different files.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      Changed meter change within tune: for change at start of line,	Err	vernunftzentrum.de	70
i+      generally writes the symbol (even if the meter did not change),	Err	vernunftzentrum.de	70
i+      but not if the meter change was used only to set the default	Err	vernunftzentrum.de	70
i+      length with 'l' or 's'.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      Removed math calls: cos(phi) and sin(phi) defined explicitly	Err	vernunftzentrum.de	70
i+      in syms.h, also removed sqrt for beam test in music.h.	Err	vernunftzentrum.de	70
i+      Advantage: now compiles without -lm flag.	Err	vernunftzentrum.de	70
i+      (Note: '#include <math.h>' still needed for atof ??)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Version 1.1 -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+24.02 Changed to multiple input files, added -e flag to identify	Err	vernunftzentrum.de	70
i+      selectors in argument list.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+14.02 Outputs "book" field also for -n flag.	Err	vernunftzentrum.de	70
i+      Chord font changed to Helvetica 12.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
1diff --git a/License b/License	/ckeen/repos/abc2ps/file/License.gph	vernunftzentrum.de	70
i@@ -0,0 +1,339 @@	Err	vernunftzentrum.de	70
i+                    GNU GENERAL PUBLIC LICENSE	Err	vernunftzentrum.de	70
i+                       Version 2, June 1991	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+ Copyright (C) 1989, 1991 Free Software Foundation, Inc.	Err	vernunftzentrum.de	70
i+                          675 Mass Ave, Cambridge, MA 02139, USA	Err	vernunftzentrum.de	70
i+ Everyone is permitted to copy and distribute verbatim copies	Err	vernunftzentrum.de	70
i+ of this license document, but changing it is not allowed.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+                            Preamble	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  The licenses for most software are designed to take away your	Err	vernunftzentrum.de	70
i+freedom to share and change it.  By contrast, the GNU General Public	Err	vernunftzentrum.de	70
i+License is intended to guarantee your freedom to share and change free	Err	vernunftzentrum.de	70
i+software--to make sure the software is free for all its users.  This	Err	vernunftzentrum.de	70
i+General Public License applies to most of the Free Software	Err	vernunftzentrum.de	70
i+Foundation's software and to any other program whose authors commit to	Err	vernunftzentrum.de	70
i+using it.  (Some other Free Software Foundation software is covered by	Err	vernunftzentrum.de	70
i+the GNU Library General Public License instead.)  You can apply it to	Err	vernunftzentrum.de	70
i+your programs, too.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  When we speak of free software, we are referring to freedom, not	Err	vernunftzentrum.de	70
i+price.  Our General Public Licenses are designed to make sure that you	Err	vernunftzentrum.de	70
i+have the freedom to distribute copies of free software (and charge for	Err	vernunftzentrum.de	70
i+this service if you wish), that you receive source code or can get it	Err	vernunftzentrum.de	70
i+if you want it, that you can change the software or use pieces of it	Err	vernunftzentrum.de	70
i+in new free programs; and that you know you can do these things.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  To protect your rights, we need to make restrictions that forbid	Err	vernunftzentrum.de	70
i+anyone to deny you these rights or to ask you to surrender the rights.	Err	vernunftzentrum.de	70
i+These restrictions translate to certain responsibilities for you if you	Err	vernunftzentrum.de	70
i+distribute copies of the software, or if you modify it.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  For example, if you distribute copies of such a program, whether	Err	vernunftzentrum.de	70
i+gratis or for a fee, you must give the recipients all the rights that	Err	vernunftzentrum.de	70
i+you have.  You must make sure that they, too, receive or can get the	Err	vernunftzentrum.de	70
i+source code.  And you must show them these terms so they know their	Err	vernunftzentrum.de	70
i+rights.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  We protect your rights with two steps: (1) copyright the software, and	Err	vernunftzentrum.de	70
i+(2) offer you this license which gives you legal permission to copy,	Err	vernunftzentrum.de	70
i+distribute and/or modify the software.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  Also, for each author's protection and ours, we want to make certain	Err	vernunftzentrum.de	70
i+that everyone understands that there is no warranty for this free	Err	vernunftzentrum.de	70
i+software.  If the software is modified by someone else and passed on, we	Err	vernunftzentrum.de	70
i+want its recipients to know that what they have is not the original, so	Err	vernunftzentrum.de	70
i+that any problems introduced by others will not reflect on the original	Err	vernunftzentrum.de	70
i+authors' reputations.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  Finally, any free program is threatened constantly by software	Err	vernunftzentrum.de	70
i+patents.  We wish to avoid the danger that redistributors of a free	Err	vernunftzentrum.de	70
i+program will individually obtain patent licenses, in effect making the	Err	vernunftzentrum.de	70
i+program proprietary.  To prevent this, we have made it clear that any	Err	vernunftzentrum.de	70
i+patent must be licensed for everyone's free use or not licensed at all.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  The precise terms and conditions for copying, distribution and	Err	vernunftzentrum.de	70
i+modification follow.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+                    GNU GENERAL PUBLIC LICENSE	Err	vernunftzentrum.de	70
i+   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  0. This License applies to any program or other work which contains	Err	vernunftzentrum.de	70
i+a notice placed by the copyright holder saying it may be distributed	Err	vernunftzentrum.de	70
i+under the terms of this General Public License.  The "Program", below,	Err	vernunftzentrum.de	70
i+refers to any such program or work, and a "work based on the Program"	Err	vernunftzentrum.de	70
i+means either the Program or any derivative work under copyright law:	Err	vernunftzentrum.de	70
i+that is to say, a work containing the Program or a portion of it,	Err	vernunftzentrum.de	70
i+either verbatim or with modifications and/or translated into another	Err	vernunftzentrum.de	70
i+language.  (Hereinafter, translation is included without limitation in	Err	vernunftzentrum.de	70
i+the term "modification".)  Each licensee is addressed as "you".	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Activities other than copying, distribution and modification are not	Err	vernunftzentrum.de	70
i+covered by this License; they are outside its scope.  The act of	Err	vernunftzentrum.de	70
i+running the Program is not restricted, and the output from the Program	Err	vernunftzentrum.de	70
i+is covered only if its contents constitute a work based on the	Err	vernunftzentrum.de	70
i+Program (independent of having been made by running the Program).	Err	vernunftzentrum.de	70
i+Whether that is true depends on what the Program does.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  1. You may copy and distribute verbatim copies of the Program's	Err	vernunftzentrum.de	70
i+source code as you receive it, in any medium, provided that you	Err	vernunftzentrum.de	70
i+conspicuously and appropriately publish on each copy an appropriate	Err	vernunftzentrum.de	70
i+copyright notice and disclaimer of warranty; keep intact all the	Err	vernunftzentrum.de	70
i+notices that refer to this License and to the absence of any warranty;	Err	vernunftzentrum.de	70
i+and give any other recipients of the Program a copy of this License	Err	vernunftzentrum.de	70
i+along with the Program.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+You may charge a fee for the physical act of transferring a copy, and	Err	vernunftzentrum.de	70
i+you may at your option offer warranty protection in exchange for a fee.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  2. You may modify your copy or copies of the Program or any portion	Err	vernunftzentrum.de	70
i+of it, thus forming a work based on the Program, and copy and	Err	vernunftzentrum.de	70
i+distribute such modifications or work under the terms of Section 1	Err	vernunftzentrum.de	70
i+above, provided that you also meet all of these conditions:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    a) You must cause the modified files to carry prominent notices	Err	vernunftzentrum.de	70
i+    stating that you changed the files and the date of any change.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    b) You must cause any work that you distribute or publish, that in	Err	vernunftzentrum.de	70
i+    whole or in part contains or is derived from the Program or any	Err	vernunftzentrum.de	70
i+    part thereof, to be licensed as a whole at no charge to all third	Err	vernunftzentrum.de	70
i+    parties under the terms of this License.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    c) If the modified program normally reads commands interactively	Err	vernunftzentrum.de	70
i+    when run, you must cause it, when started running for such	Err	vernunftzentrum.de	70
i+    interactive use in the most ordinary way, to print or display an	Err	vernunftzentrum.de	70
i+    announcement including an appropriate copyright notice and a	Err	vernunftzentrum.de	70
i+    notice that there is no warranty (or else, saying that you provide	Err	vernunftzentrum.de	70
i+    a warranty) and that users may redistribute the program under	Err	vernunftzentrum.de	70
i+    these conditions, and telling the user how to view a copy of this	Err	vernunftzentrum.de	70
i+    License.  (Exception: if the Program itself is interactive but	Err	vernunftzentrum.de	70
i+    does not normally print such an announcement, your work based on	Err	vernunftzentrum.de	70
i+    the Program is not required to print an announcement.)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+These requirements apply to the modified work as a whole.  If	Err	vernunftzentrum.de	70
i+identifiable sections of that work are not derived from the Program,	Err	vernunftzentrum.de	70
i+and can be reasonably considered independent and separate works in	Err	vernunftzentrum.de	70
i+themselves, then this License, and its terms, do not apply to those	Err	vernunftzentrum.de	70
i+sections when you distribute them as separate works.  But when you	Err	vernunftzentrum.de	70
i+distribute the same sections as part of a whole which is a work based	Err	vernunftzentrum.de	70
i+on the Program, the distribution of the whole must be on the terms of	Err	vernunftzentrum.de	70
i+this License, whose permissions for other licensees extend to the	Err	vernunftzentrum.de	70
i+entire whole, and thus to each and every part regardless of who wrote it.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Thus, it is not the intent of this section to claim rights or contest	Err	vernunftzentrum.de	70
i+your rights to work written entirely by you; rather, the intent is to	Err	vernunftzentrum.de	70
i+exercise the right to control the distribution of derivative or	Err	vernunftzentrum.de	70
i+collective works based on the Program.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+In addition, mere aggregation of another work not based on the Program	Err	vernunftzentrum.de	70
i+with the Program (or with a work based on the Program) on a volume of	Err	vernunftzentrum.de	70
i+a storage or distribution medium does not bring the other work under	Err	vernunftzentrum.de	70
i+the scope of this License.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  3. You may copy and distribute the Program (or a work based on it,	Err	vernunftzentrum.de	70
i+under Section 2) in object code or executable form under the terms of	Err	vernunftzentrum.de	70
i+Sections 1 and 2 above provided that you also do one of the following:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    a) Accompany it with the complete corresponding machine-readable	Err	vernunftzentrum.de	70
i+    source code, which must be distributed under the terms of Sections	Err	vernunftzentrum.de	70
i+    1 and 2 above on a medium customarily used for software interchange; or,	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    b) Accompany it with a written offer, valid for at least three	Err	vernunftzentrum.de	70
i+    years, to give any third party, for a charge no more than your	Err	vernunftzentrum.de	70
i+    cost of physically performing source distribution, a complete	Err	vernunftzentrum.de	70
i+    machine-readable copy of the corresponding source code, to be	Err	vernunftzentrum.de	70
i+    distributed under the terms of Sections 1 and 2 above on a medium	Err	vernunftzentrum.de	70
i+    customarily used for software interchange; or,	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    c) Accompany it with the information you received as to the offer	Err	vernunftzentrum.de	70
i+    to distribute corresponding source code.  (This alternative is	Err	vernunftzentrum.de	70
i+    allowed only for noncommercial distribution and only if you	Err	vernunftzentrum.de	70
i+    received the program in object code or executable form with such	Err	vernunftzentrum.de	70
i+    an offer, in accord with Subsection b above.)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+The source code for a work means the preferred form of the work for	Err	vernunftzentrum.de	70
i+making modifications to it.  For an executable work, complete source	Err	vernunftzentrum.de	70
i+code means all the source code for all modules it contains, plus any	Err	vernunftzentrum.de	70
i+associated interface definition files, plus the scripts used to	Err	vernunftzentrum.de	70
i+control compilation and installation of the executable.  However, as a	Err	vernunftzentrum.de	70
i+special exception, the source code distributed need not include	Err	vernunftzentrum.de	70
i+anything that is normally distributed (in either source or binary	Err	vernunftzentrum.de	70
i+form) with the major components (compiler, kernel, and so on) of the	Err	vernunftzentrum.de	70
i+operating system on which the executable runs, unless that component	Err	vernunftzentrum.de	70
i+itself accompanies the executable.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+If distribution of executable or object code is made by offering	Err	vernunftzentrum.de	70
i+access to copy from a designated place, then offering equivalent	Err	vernunftzentrum.de	70
i+access to copy the source code from the same place counts as	Err	vernunftzentrum.de	70
i+distribution of the source code, even though third parties are not	Err	vernunftzentrum.de	70
i+compelled to copy the source along with the object code.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  4. You may not copy, modify, sublicense, or distribute the Program	Err	vernunftzentrum.de	70
i+except as expressly provided under this License.  Any attempt	Err	vernunftzentrum.de	70
i+otherwise to copy, modify, sublicense or distribute the Program is	Err	vernunftzentrum.de	70
i+void, and will automatically terminate your rights under this License.	Err	vernunftzentrum.de	70
i+However, parties who have received copies, or rights, from you under	Err	vernunftzentrum.de	70
i+this License will not have their licenses terminated so long as such	Err	vernunftzentrum.de	70
i+parties remain in full compliance.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  5. You are not required to accept this License, since you have not	Err	vernunftzentrum.de	70
i+signed it.  However, nothing else grants you permission to modify or	Err	vernunftzentrum.de	70
i+distribute the Program or its derivative works.  These actions are	Err	vernunftzentrum.de	70
i+prohibited by law if you do not accept this License.  Therefore, by	Err	vernunftzentrum.de	70
i+modifying or distributing the Program (or any work based on the	Err	vernunftzentrum.de	70
i+Program), you indicate your acceptance of this License to do so, and	Err	vernunftzentrum.de	70
i+all its terms and conditions for copying, distributing or modifying	Err	vernunftzentrum.de	70
i+the Program or works based on it.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  6. Each time you redistribute the Program (or any work based on the	Err	vernunftzentrum.de	70
i+Program), the recipient automatically receives a license from the	Err	vernunftzentrum.de	70
i+original licensor to copy, distribute or modify the Program subject to	Err	vernunftzentrum.de	70
i+these terms and conditions.  You may not impose any further	Err	vernunftzentrum.de	70
i+restrictions on the recipients' exercise of the rights granted herein.	Err	vernunftzentrum.de	70
i+You are not responsible for enforcing compliance by third parties to	Err	vernunftzentrum.de	70
i+this License.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  7. If, as a consequence of a court judgment or allegation of patent	Err	vernunftzentrum.de	70
i+infringement or for any other reason (not limited to patent issues),	Err	vernunftzentrum.de	70
i+conditions are imposed on you (whether by court order, agreement or	Err	vernunftzentrum.de	70
i+otherwise) that contradict the conditions of this License, they do not	Err	vernunftzentrum.de	70
i+excuse you from the conditions of this License.  If you cannot	Err	vernunftzentrum.de	70
i+distribute so as to satisfy simultaneously your obligations under this	Err	vernunftzentrum.de	70
i+License and any other pertinent obligations, then as a consequence you	Err	vernunftzentrum.de	70
i+may not distribute the Program at all.  For example, if a patent	Err	vernunftzentrum.de	70
i+license would not permit royalty-free redistribution of the Program by	Err	vernunftzentrum.de	70
i+all those who receive copies directly or indirectly through you, then	Err	vernunftzentrum.de	70
i+the only way you could satisfy both it and this License would be to	Err	vernunftzentrum.de	70
i+refrain entirely from distribution of the Program.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+If any portion of this section is held invalid or unenforceable under	Err	vernunftzentrum.de	70
i+any particular circumstance, the balance of the section is intended to	Err	vernunftzentrum.de	70
i+apply and the section as a whole is intended to apply in other	Err	vernunftzentrum.de	70
i+circumstances.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+It is not the purpose of this section to induce you to infringe any	Err	vernunftzentrum.de	70
i+patents or other property right claims or to contest validity of any	Err	vernunftzentrum.de	70
i+such claims; this section has the sole purpose of protecting the	Err	vernunftzentrum.de	70
i+integrity of the free software distribution system, which is	Err	vernunftzentrum.de	70
i+implemented by public license practices.  Many people have made	Err	vernunftzentrum.de	70
i+generous contributions to the wide range of software distributed	Err	vernunftzentrum.de	70
i+through that system in reliance on consistent application of that	Err	vernunftzentrum.de	70
i+system; it is up to the author/donor to decide if he or she is willing	Err	vernunftzentrum.de	70
i+to distribute software through any other system and a licensee cannot	Err	vernunftzentrum.de	70
i+impose that choice.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+This section is intended to make thoroughly clear what is believed to	Err	vernunftzentrum.de	70
i+be a consequence of the rest of this License.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  8. If the distribution and/or use of the Program is restricted in	Err	vernunftzentrum.de	70
i+certain countries either by patents or by copyrighted interfaces, the	Err	vernunftzentrum.de	70
i+original copyright holder who places the Program under this License	Err	vernunftzentrum.de	70
i+may add an explicit geographical distribution limitation excluding	Err	vernunftzentrum.de	70
i+those countries, so that distribution is permitted only in or among	Err	vernunftzentrum.de	70
i+countries not thus excluded.  In such case, this License incorporates	Err	vernunftzentrum.de	70
i+the limitation as if written in the body of this License.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  9. The Free Software Foundation may publish revised and/or new versions	Err	vernunftzentrum.de	70
i+of the General Public License from time to time.  Such new versions will	Err	vernunftzentrum.de	70
i+be similar in spirit to the present version, but may differ in detail to	Err	vernunftzentrum.de	70
i+address new problems or concerns.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Each version is given a distinguishing version number.  If the Program	Err	vernunftzentrum.de	70
i+specifies a version number of this License which applies to it and "any	Err	vernunftzentrum.de	70
i+later version", you have the option of following the terms and conditions	Err	vernunftzentrum.de	70
i+either of that version or of any later version published by the Free	Err	vernunftzentrum.de	70
i+Software Foundation.  If the Program does not specify a version number of	Err	vernunftzentrum.de	70
i+this License, you may choose any version ever published by the Free Software	Err	vernunftzentrum.de	70
i+Foundation.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  10. If you wish to incorporate parts of the Program into other free	Err	vernunftzentrum.de	70
i+programs whose distribution conditions are different, write to the author	Err	vernunftzentrum.de	70
i+to ask for permission.  For software which is copyrighted by the Free	Err	vernunftzentrum.de	70
i+Software Foundation, write to the Free Software Foundation; we sometimes	Err	vernunftzentrum.de	70
i+make exceptions for this.  Our decision will be guided by the two goals	Err	vernunftzentrum.de	70
i+of preserving the free status of all derivatives of our free software and	Err	vernunftzentrum.de	70
i+of promoting the sharing and reuse of software generally.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+                            NO WARRANTY	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY	Err	vernunftzentrum.de	70
i+FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN	Err	vernunftzentrum.de	70
i+OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES	Err	vernunftzentrum.de	70
i+PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED	Err	vernunftzentrum.de	70
i+OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF	Err	vernunftzentrum.de	70
i+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS	Err	vernunftzentrum.de	70
i+TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE	Err	vernunftzentrum.de	70
i+PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,	Err	vernunftzentrum.de	70
i+REPAIR OR CORRECTION.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING	Err	vernunftzentrum.de	70
i+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR	Err	vernunftzentrum.de	70
i+REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,	Err	vernunftzentrum.de	70
i+INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING	Err	vernunftzentrum.de	70
i+OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED	Err	vernunftzentrum.de	70
i+TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY	Err	vernunftzentrum.de	70
i+YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER	Err	vernunftzentrum.de	70
i+PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE	Err	vernunftzentrum.de	70
i+POSSIBILITY OF SUCH DAMAGES.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+                     END OF TERMS AND CONDITIONS	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+        Appendix: How to Apply These Terms to Your New Programs	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  If you develop a new program, and you want it to be of the greatest	Err	vernunftzentrum.de	70
i+possible use to the public, the best way to achieve this is to make it	Err	vernunftzentrum.de	70
i+free software which everyone can redistribute and change under these terms.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  To do so, attach the following notices to the program.  It is safest	Err	vernunftzentrum.de	70
i+to attach them to the start of each source file to most effectively	Err	vernunftzentrum.de	70
i+convey the exclusion of warranty; and each file should have at least	Err	vernunftzentrum.de	70
i+the "copyright" line and a pointer to where the full notice is found.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    <one line to give the program's name and a brief idea of what it does.>	Err	vernunftzentrum.de	70
i+    Copyright (C) 19yy  <name of author>	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    This program is free software; you can redistribute it and/or modify	Err	vernunftzentrum.de	70
i+    it under the terms of the GNU General Public License as published by	Err	vernunftzentrum.de	70
i+    the Free Software Foundation; either version 2 of the License, or	Err	vernunftzentrum.de	70
i+    (at your option) any later version.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    This program is distributed in the hope that it will be useful,	Err	vernunftzentrum.de	70
i+    but WITHOUT ANY WARRANTY; without even the implied warranty of	Err	vernunftzentrum.de	70
i+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the	Err	vernunftzentrum.de	70
i+    GNU General Public License for more details.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    You should have received a copy of the GNU General Public License	Err	vernunftzentrum.de	70
i+    along with this program; if not, write to the Free Software	Err	vernunftzentrum.de	70
i+    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Also add information on how to contact you by electronic and paper mail.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+If the program is interactive, make it output a short notice like this	Err	vernunftzentrum.de	70
i+when it starts in an interactive mode:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    Gnomovision version 69, Copyright (C) 19yy name of author	Err	vernunftzentrum.de	70
i+    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.	Err	vernunftzentrum.de	70
i+    This is free software, and you are welcome to redistribute it	Err	vernunftzentrum.de	70
i+    under certain conditions; type `show c' for details.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+The hypothetical commands `show w' and `show c' should show the appropriate	Err	vernunftzentrum.de	70
i+parts of the General Public License.  Of course, the commands you use may	Err	vernunftzentrum.de	70
i+be called something other than `show w' and `show c'; they could even be	Err	vernunftzentrum.de	70
i+mouse-clicks or menu items--whatever suits your program.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+You should also get your employer (if you work as a programmer) or your	Err	vernunftzentrum.de	70
i+school, if any, to sign a "copyright disclaimer" for the program, if	Err	vernunftzentrum.de	70
i+necessary.  Here is a sample; alter the names:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  Yoyodyne, Inc., hereby disclaims all copyright interest in the program	Err	vernunftzentrum.de	70
i+  `Gnomovision' (which makes passes at compilers) written by James Hacker.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  <signature of Ty Coon>, 1 April 1989	Err	vernunftzentrum.de	70
i+  Ty Coon, President of Vice	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+This General Public License does not permit incorporating your program into	Err	vernunftzentrum.de	70
i+proprietary programs.  If your program is a subroutine library, you may	Err	vernunftzentrum.de	70
i+consider it more useful to permit linking proprietary applications with the	Err	vernunftzentrum.de	70
i+library.  If this is what you want to do, use the GNU Library General	Err	vernunftzentrum.de	70
i+Public License instead of this License.	Err	vernunftzentrum.de	70
1diff --git a/New.Features b/New.Features	/ckeen/repos/abc2ps/file/New.Features.gph	vernunftzentrum.de	70
i@@ -0,0 +1,334 @@	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+New features in abc2ps 1.3.1 (M. Methfessel, July 1998)	Err	vernunftzentrum.de	70
i+=======================================================	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+The program now supports multi-stave output and has been improved	Err	vernunftzentrum.de	70
i+in various other ways. Please look at Changes for more information. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+New features in abc2ps 1.2.4 (M. Methfessel, Feb. 1997)	Err	vernunftzentrum.de	70
i+=======================================================	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Please also have a look at file newfeatures.abc, which 	Err	vernunftzentrum.de	70
i+demonstrates many of these points. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Bass clef -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+The bass clef is selected by appending the word "bass" to the	Err	vernunftzentrum.de	70
i+key specification. eg. "K:G bass". Notes are then drawn so 	Err	vernunftzentrum.de	70
i+"C" is below the staff and "c" is in the third space from the top,	Err	vernunftzentrum.de	70
i+which is a downward shift by one line relative to the treble clef.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+For in-line clef changes, use an in-line specification such as	Err	vernunftzentrum.de	70
i+[K:G bass] (was formerly \K:G bass\; this still supported). 	Err	vernunftzentrum.de	70
i+If the key itself does not change, it is enough to write	Err	vernunftzentrum.de	70
i+[K:bass] and similarily [K:treble].	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Added: [K:alto] makes the alto (viola or C) clef.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Vocals -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Aligned lyrics under the staff are specified using a line directly	Err	vernunftzentrum.de	70
i+below the staff, starting with "w:". For example:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   edc2 edc2 | 	Err	vernunftzentrum.de	70
i+   w: Three blind mice, three blind mice	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Each blank-delimited word in the "w:" line is associated with	Err	vernunftzentrum.de	70
i+one note, in sequence. The following special symbols are available	Err	vernunftzentrum.de	70
i+to modify this behaviour:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   *  skips one note	Err	vernunftzentrum.de	70
i+   -  split a word into two syllables, associated with two notes,	Err	vernunftzentrum.de	70
i+      with '-' drawn between them	Err	vernunftzentrum.de	70
i+   |  tabs forward to the next bar line.	Err	vernunftzentrum.de	70
i+   ~  is drawn as a space, but contracts words to be written under	Err	vernunftzentrum.de	70
i+      one note. That is, "hey~ho" gives two words under one note.	Err	vernunftzentrum.de	70
i+   _  draws a thin "underscore" from the previous note to this one.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+For more than one line of lyrics, just use several w: lines.	Err	vernunftzentrum.de	70
i+To draw a '-' without breaking the word there, escape it as "\-".	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Note that \\ in the abc music line now defines a staff break. This is	Err	vernunftzentrum.de	70
i+useful when typesetting vocals, because it is tedious to split	Err	vernunftzentrum.de	70
i+the line explicitly when shifting a staff break about when there	Err	vernunftzentrum.de	70
i+are lines with vocals.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+If a word starts with a digit, this is interpreted as numbering of a	Err	vernunftzentrum.de	70
i+stanza and is pushed forward a bit. In other words, use something like 	Err	vernunftzentrum.de	70
i+   w: 1.~~Three blind mice 	Err	vernunftzentrum.de	70
i+to put a number before "Three".	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Writing text between the music -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+This can be done using pseudocomments in three ways. First:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+%%text This is a line of text.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+writes one line into the output. Second, 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+%%center This is another line of text.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+again writes one line, but centers it. Finally,	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+%%begintext	Err	vernunftzentrum.de	70
i+%%First line of text	Err	vernunftzentrum.de	70
i+%%Second line	Err	vernunftzentrum.de	70
i+%%And yet another line.	Err	vernunftzentrum.de	70
i+%%endtext	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+will write a block of several lines. To avoid conflict with other	Err	vernunftzentrum.de	70
i+programs, the text lines themselves are (optionally) prefaced with %%.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Statement "%%begintext" can be  given a parameter to determine 	Err	vernunftzentrum.de	70
i+how the output is done, namely: 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+%%begintext obeylines      keeps lines as they are (default)	Err	vernunftzentrum.de	70
i+%%begintext ragged         puts in own linebreaks to fill the line	Err	vernunftzentrum.de	70
i+%%begintext align          puts in own breaks and aligns right margin	Err	vernunftzentrum.de	70
i+%%begintext skip           skips the whole block, no output.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+For "ragged" and "align", the program has to estimate the number of	Err	vernunftzentrum.de	70
i+lines needed in the current font, since the typesetting is done	Err	vernunftzentrum.de	70
i+using the PostScript "widthshow" operator by the printer. 	Err	vernunftzentrum.de	70
i+The estimate should be reasonably reliable for Times-Roman, but might 	Err	vernunftzentrum.de	70
i+be more dodgy for some other fonts. Also, note that the Ghostview fonts 	Err	vernunftzentrum.de	70
i+can be quite different than the fonts used by the printer.	Err	vernunftzentrum.de	70
i+Strangely, a 13pt font can be smaller than a 12pt font.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+An empty line in a block ends a paragraph (see parskipfac below).	Err	vernunftzentrum.de	70
i+In any case, \\ can be used in a line of text to add line breaks.	Err	vernunftzentrum.de	70
i+Thus, two centered lines results from this:	Err	vernunftzentrum.de	70
i+%%center First line\\second line	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+As with the other pseudocomments (described below), the text is	Err	vernunftzentrum.de	70
i+associated with a specific tune if it is within that tune's block.	Err	vernunftzentrum.de	70
i+In that case, it will only be printed if that tune is selected. 	Err	vernunftzentrum.de	70
i+If the text is outside all tune blocks, it will always be printed.	Err	vernunftzentrum.de	70
i+The exception is if -E is used to to make a separate EPS file for 	Err	vernunftzentrum.de	70
i+each tune. In this case all text outside the blocks is ignored.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+The font for text output is determined as described below.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Other pseudocomments which do something -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+%%sep              - draws a short centered line as a separator	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+%%sep h1 h2 len    - draws a separator of length len with space 	Err	vernunftzentrum.de	70
i+                     h1 above, space h2 below. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+%%vskip h          - adds vertical space of height h	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+%%newpage          - writes a page break	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Dimensions can be given in cm, in, or pt, where pt is the default.	Err	vernunftzentrum.de	70
i+Examples:  "%%sep 1cm 1cm 4cm"  or  "vskip 1.5cm".	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Output formating -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+The user can now tailor the appearance of the output page.	Err	vernunftzentrum.de	70
i+This is done by setting formating parameters, for example:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   pageheight 29cm             % height of page	Err	vernunftzentrum.de	70
i+   staffwidth 5in              % width of staff	Err	vernunftzentrum.de	70
i+   leftmargin 1.8cm            % left margin	Err	vernunftzentrum.de	70
i+   titlefont Times-Roman 14    % the font for the title	Err	vernunftzentrum.de	70
i+   titlespace 1cm              % vertical space before the title	Err	vernunftzentrum.de	70
i+   scale 0.9                   % size of musical symbols	Err	vernunftzentrum.de	70
i+   staffsep  60pt              % space between staves	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Use abc2ps -H to see the current values of these parameters.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To specify the parameters, there are four levels:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+1. By default, a predefined set called "standard" is used.	Err	vernunftzentrum.de	70
i+   With flag -p, an alternative "pretty" set is taken.	Err	vernunftzentrum.de	70
i+   With flag -P, a third set "pretty2" is used.	Err	vernunftzentrum.de	70
i+   Users are encouraged to make their own choices for these styles	Err	vernunftzentrum.de	70
i+   and change the program accordingly (see routines	Err	vernunftzentrum.de	70
i+   set_standard_format, set_pretty_format, set_pretty2_format	Err	vernunftzentrum.de	70
i+   in file format.h).	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+2. Commands to set the parameters can be grouped into a file	Err	vernunftzentrum.de	70
i+   with extension "fmt", which can then be selected by flag -F.	Err	vernunftzentrum.de	70
i+   For example: there should be a file landscape.fmt in the	Err	vernunftzentrum.de	70
i+   distribution. This changes the page orientation to landscape	Err	vernunftzentrum.de	70
i+   and sets the page height and width accordingly, and also changes	Err	vernunftzentrum.de	70
i+   the title style a bit. To output file scotland.abc in landscape,	Err	vernunftzentrum.de	70
i+   the command is 	Err	vernunftzentrum.de	70
i+      abc2ps scotland.abc -F landscape -o	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+3. An abc file can contain pseudocomments (%%..) such as:	Err	vernunftzentrum.de	70
i+      %%staffwidth 16cm	Err	vernunftzentrum.de	70
i+      %%titlespace 1.4cm	Err	vernunftzentrum.de	70
i+   Depending on the position, the changes to the style parameters	Err	vernunftzentrum.de	70
i+   are either global for the rest of the file, or local to a single	Err	vernunftzentrum.de	70
i+   tune. The change is global if the line is outside any tune block	Err	vernunftzentrum.de	70
i+   (where a tune block starts with "X:" and ends with a blank line).	Err	vernunftzentrum.de	70
i+   If the pseudocomment is within such a block, the parameter change 	Err	vernunftzentrum.de	70
i+   is only applied for this tune. 	Err	vernunftzentrum.de	70
i+   Note that the program cannot determine if a tune is selected	Err	vernunftzentrum.de	70
i+   before it knows the title, so such a local pseudocomment should	Err	vernunftzentrum.de	70
i+   come after the "T:" line.	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+4. Some of the command-line flags change the style parameters, eg:	Err	vernunftzentrum.de	70
i+      -s 0.9      (sets symbol scale)	Err	vernunftzentrum.de	70
i+      -m 2cm      (sets left margin) etc.	Err	vernunftzentrum.de	70
i+   Type "abc2ps -h" for a list of flags.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+The priorities are in the sequence given above. That is, the ".fmt" 	Err	vernunftzentrum.de	70
i+file overrides the predefined format, pseudocomments overide that,	Err	vernunftzentrum.de	70
i+and a command-line flag overrides everything else.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Some more details:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+1. Format files are searched in the current directory. In abc2ps.c,	Err	vernunftzentrum.de	70
i+   the line "#define DEFAULT_FDIR .." can be used to set a default	Err	vernunftzentrum.de	70
i+   directory which is searched whenever a fmt file is not local.	Err	vernunftzentrum.de	70
i+   Flag -D can also be used to specify this default directory.	Err	vernunftzentrum.de	70
i+   (The idea is, even if a PC user only has the executable available,	Err	vernunftzentrum.de	70
i+   he could make something like an alias to get his standard	Err	vernunftzentrum.de	70
i+   fmt directory into the path.)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+2. To see the settings for all the parameters, use flag -H.	Err	vernunftzentrum.de	70
i+   When used in conjunction with other flags such as -p, -P, or -F,	Err	vernunftzentrum.de	70
i+   the corresponding parameters are shown. If you redirect the	Err	vernunftzentrum.de	70
i+   output to a file and edit out the header line, you immediately	Err	vernunftzentrum.de	70
i+   have a prototype fmt file which specifies all the parameters.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+3. Dimensions can be specified either as pt, cm, or in. Default is pt.	Err	vernunftzentrum.de	70
i+   So, "%%staffwidth 20" will lead to very short lines!	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+4. Pseudocomments which are not recognized are ignored silently.	Err	vernunftzentrum.de	70
i+   The idea is that other program can define their own. 	Err	vernunftzentrum.de	70
i+   It also means that when things frustratingly don't seem to work,	Err	vernunftzentrum.de	70
i+   the reason might be a spelling mistake.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+5. Because ISO fonts are needed for special characters and	Err	vernunftzentrum.de	70
i+   accents, all fonts must be known when the header of the PS file	Err	vernunftzentrum.de	70
i+   is written. The program tries to be as clever as it can	Err	vernunftzentrum.de	70
i+   about this, but a font might be undefined if it is invoked	Err	vernunftzentrum.de	70
i+   for the first time further down in a file. For this reason, 	Err	vernunftzentrum.de	70
i+   a line like this can be put into the fmt file:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      font Palatino-Bold	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   or alternatively at the top of the abc file:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      %%font Palatino-Bold	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   Either of these will define the corresponding ISO font in the header.	Err	vernunftzentrum.de	70
i+   To make things even easier, the program always looks for a file	Err	vernunftzentrum.de	70
i+   "fonts.fmt" and loads it if it exists. So, the often-used fonts	Err	vernunftzentrum.de	70
i+   can be defined there once and for all.	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+6. The default page dimensions are set by defines in abc2ps.c	Err	vernunftzentrum.de	70
i+   and then used in format.h to intialize the predefined formats.	Err	vernunftzentrum.de	70
i+   Change these if the standard paper will not be Din A4.	Err	vernunftzentrum.de	70
i+   The relevant lines in abc2ps.c are these:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define PAGEHEIGHT      29.7     /* basic page dimensions in cm..  */	Err	vernunftzentrum.de	70
i+#define LEFTMARGIN       1.8     /* .. used in all default formats */	Err	vernunftzentrum.de	70
i+#define STAFFWIDTH      17.4	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+7. A line consisting of the word "end" in a fmt file skips the	Err	vernunftzentrum.de	70
i+   rest of the file.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- List of format parameters -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Parameters without explanation are deemed obvious.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  pageheight     	Err	vernunftzentrum.de	70
i+  staffwidth     	Err	vernunftzentrum.de	70
i+  topmargin      	Err	vernunftzentrum.de	70
i+  botmargin      	Err	vernunftzentrum.de	70
i+  leftmargin     	Err	vernunftzentrum.de	70
i+  topspace        vertical space at the top of a tune.	Err	vernunftzentrum.de	70
i+  titlespace      space before the title. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      Note: Usually, one sees only the sum of these two.	Err	vernunftzentrum.de	70
i+      However, if text is written preceeding a tune, it	Err	vernunftzentrum.de	70
i+      will come after "topspace" and before "titlespace".	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  subtitlespace   space before the subtitle. 	Err	vernunftzentrum.de	70
i+  composerspace   space before the composer.	Err	vernunftzentrum.de	70
i+  musicspace      space between the composer and the music.	Err	vernunftzentrum.de	70
i+  partsspace      space ("up") between the "parts" and the music.	Err	vernunftzentrum.de	70
i+  vocalspace      space above a line of vocals.	Err	vernunftzentrum.de	70
i+  wordsspace      space aboove the words at the end of a tune.	Err	vernunftzentrum.de	70
i+  textspace       space above the text such as history (flag -n).	Err	vernunftzentrum.de	70
i+       	Err	vernunftzentrum.de	70
i+      Note: these spaces count to the top of a line of text.	Err	vernunftzentrum.de	70
i+      That is, the relevant text size (eg. "12pt") is added.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  staffsep        separation between staves. One-half of this 	Err	vernunftzentrum.de	70
i+                  distance is added above and below each staff.	Err	vernunftzentrum.de	70
i+  scale           symbol size; eg. 1.0 is used in the "pretty" output.	Err	vernunftzentrum.de	70
i+  maxshrink       how much to compress horizontally when staff breaks	Err	vernunftzentrum.de	70
i+                  are chosen automatically. Between 0 and 1.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  titlefont       Font for title, ie: Times-Roman 14	Err	vernunftzentrum.de	70
i+  subtitlefont    	Err	vernunftzentrum.de	70
i+  composerfont   	Err	vernunftzentrum.de	70
i+  partsfont      	Err	vernunftzentrum.de	70
i+  vocalfont      for vocals under a staff (w: field)	Err	vernunftzentrum.de	70
i+  gchordfont     for guitar chords	Err	vernunftzentrum.de	70
i+  textfont       for text under the tune, or between tunes	Err	vernunftzentrum.de	70
i+  wordsfont      for words under the tune (W: field)	Err	vernunftzentrum.de	70
i+  lineskipfac    dimensionless factor for spacing between lines of text:	Err	vernunftzentrum.de	70
i+                 1.0 gives single-space output, 2.0 double etc.	Err	vernunftzentrum.de	70
i+  parskipfac     similar factor for space after a paragraph of text.	Err	vernunftzentrum.de	70
i+  barsperstaff   same as flag -B	Err	vernunftzentrum.de	70
i+  landscape      (logical) landscape orientation if true	Err	vernunftzentrum.de	70
i+  titleleft      (logical) title flushed left if true.	Err	vernunftzentrum.de	70
i+  titlecaps      (logical) title in capital letters	Err	vernunftzentrum.de	70
i+  musiconly      (logical) no vocals if true (equivalent to flag -M)	Err	vernunftzentrum.de	70
i+  stretchstaff   (logical) stretches underfull staves across page	Err	vernunftzentrum.de	70
i+  stretchlast    (logical) stretches last staff if underfull.	Err	vernunftzentrum.de	70
i+  writehistory   (logical) writes notes, history etc if true;	Err	vernunftzentrum.de	70
i+  continueall    (logical) continue all lines if true (same as -c).	Err	vernunftzentrum.de	70
i+  breakall       (logical) break at all line ends (same as -b).	Err	vernunftzentrum.de	70
i+  oneperpage     (logical) each tune on separate page (same as -1)	Err	vernunftzentrum.de	70
i+  withxrefs      (logical) print out X: xref number in title (same as -x).	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Logicals can be specified as follows;	Err	vernunftzentrum.de	70
i+   One of: 1 yes true     gives true	Err	vernunftzentrum.de	70
i+   One of: 0 no  false    gives false.	Err	vernunftzentrum.de	70
i+If nothing is specified, this is equivalent to true.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Summary of tune layout -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To summarize: the layout of a tune is done as follows. 	Err	vernunftzentrum.de	70
i+Starting from the current position on the page, 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   First write the header:	Err	vernunftzentrum.de	70
i+      go down by topspace, write text if any is specified;	Err	vernunftzentrum.de	70
i+      go down by titlespace, write the main title;	Err	vernunftzentrum.de	70
i+      for each subtitle, go down subtitlespace and write it;	Err	vernunftzentrum.de	70
i+      go down composerspace, write the composer lines;	Err	vernunftzentrum.de	70
i+      go down musicspace and go up by partsspace, write the parts.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   Next, starting from musicspace below the composer:	Err	vernunftzentrum.de	70
i+      For each staff:	Err	vernunftzentrum.de	70
i+         go down by staffsep/2;	Err	vernunftzentrum.de	70
i+         write the staff;	Err	vernunftzentrum.de	70
i+         for vocals, go down by vocalspace and write them;	Err	vernunftzentrum.de	70
i+         go down another staffsep/2.	Err	vernunftzentrum.de	70
i+   Note that everything here (including the spaces and fonts)	Err	vernunftzentrum.de	70
i+   are scaled by "scale". 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   Finally:	Err	vernunftzentrum.de	70
i+      if words are included, go down wordsspace and write them;	Err	vernunftzentrum.de	70
i+      if history/notes are included, go down textspace and write them.	Err	vernunftzentrum.de	70
i+   Hereby lineskip and parskip given by "lineskipfac" and "parskipfac".	Err	vernunftzentrum.de	70
1diff --git a/ReadMe.abc2ps b/ReadMe.abc2ps	/ckeen/repos/abc2ps/file/ReadMe.abc2ps.gph	vernunftzentrum.de	70
i@@ -0,0 +1,778 @@	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Description of abc2ps (version 1.2)	Err	vernunftzentrum.de	70
i+===================================	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Program abc2ps reads an input file containing music in abc format	Err	vernunftzentrum.de	70
i+and typesets it directly in PostScript. It can also be used to list 	Err	vernunftzentrum.de	70
i+the contents of an abc file.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+For a description of the abc syntax, please see the abc userguide 	Err	vernunftzentrum.de	70
i+which is a part of the abc2mtex package written by Chris Walshaw.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Files -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+ReadMe.abc2ps      this file	Err	vernunftzentrum.de	70
i+License            GNU general public license 	Err	vernunftzentrum.de	70
i+Changes            history of changes to the program	Err	vernunftzentrum.de	70
i+New.Features       description of new features in 1.2.5	Err	vernunftzentrum.de	70
i+layout.txt         information about the music layout	Err	vernunftzentrum.de	70
i+abc2ps.c           main program 	Err	vernunftzentrum.de	70
i+buffer.h           routines to control the output buffer	Err	vernunftzentrum.de	70
i+format.h           routines for output formatting	Err	vernunftzentrum.de	70
i+syms.h             routines to define postscript macros	Err	vernunftzentrum.de	70
i+subs.h             general routines	Err	vernunftzentrum.de	70
i+util.h             more general routines	Err	vernunftzentrum.de	70
i+pssubs.h           routines for postscript output	Err	vernunftzentrum.de	70
i+parse.h            routines to parse input lines	Err	vernunftzentrum.de	70
i+music.h            routines to typeset music 	Err	vernunftzentrum.de	70
i+style.h            parameters for music layout	Err	vernunftzentrum.de	70
i+style.pure         alternative style file for "puristic" layout	Err	vernunftzentrum.de	70
i+sample.abc         input for demo and test	Err	vernunftzentrum.de	70
i+<others>.abc       sample input files	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Installation -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+This is a single C program, consisting of file abc2ps.c and some	Err	vernunftzentrum.de	70
i+include files *.h. It can be compiled in the usual way to make	Err	vernunftzentrum.de	70
i+the executable abc2ps:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   cc -o abc2ps abc2ps.c	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To test the program, unleash it on file sample.abc like this:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   ./abc2ps sample -o	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+The result can be inspected by using a PostScript previewer such as	Err	vernunftzentrum.de	70
i+ghostview on the output file Out.ps.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Possible problems:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+By default, the generated PostScript is level 2 since it uses	Err	vernunftzentrum.de	70
i+the operator "selectfont". If you want level 1 output instead, set 	Err	vernunftzentrum.de	70
i+macro PS_LEVEL to 1 in abc2ps.c.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Sometimes problems arise with the "stat" function. This used at the	Err	vernunftzentrum.de	70
i+end of the program to determine the size of the output file. 	Err	vernunftzentrum.de	70
i+The call to 'stat' is in routine get_file_size in file subs.h.	Err	vernunftzentrum.de	70
i+This file also contains an alternative plodding version of	Err	vernunftzentrum.de	70
i+get_file_size, which can be used if the 'stat' version causes problems.	Err	vernunftzentrum.de	70
i+Alternatively, just throw out the call to get_file_size in the bottom 	Err	vernunftzentrum.de	70
i+of abc2ps.c and change the printf statement accordingly... printing	Err	vernunftzentrum.de	70
i+out the file size is only for user information.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Program structure -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+The program defines a number of PostScript macros for drawing	Err	vernunftzentrum.de	70
i+elementary components like note heads, stems, flags, bars, 	Err	vernunftzentrum.de	70
i+rests etc. These definitions are written to the output	Err	vernunftzentrum.de	70
i+file Out.ps first. The symbols are mostly defined using Bezier	Err	vernunftzentrum.de	70
i+curves. At some stage, the macros should probably be changed 	Err	vernunftzentrum.de	70
i+to user paths for more efficiency. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+The input lines are read and interpreted one at a time.	Err	vernunftzentrum.de	70
i+The processing of the info fields is straightforward.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+The main work is done for lines of music. Such a line is parsed	Err	vernunftzentrum.de	70
i+into a list of symbols. To position the symbols horizontally along 	Err	vernunftzentrum.de	70
i+the staff, the program uses a method adapted from the "glue" used	Err	vernunftzentrum.de	70
i+Donald E. Knuth in the TeX program. The algorithm calculates	Err	vernunftzentrum.de	70
i+three separate sets of spacings:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  "shrink":   put the symbols as close together as is acceptable;	Err	vernunftzentrum.de	70
i+  "space":    space the symbols "naturally", whereby the space	Err	vernunftzentrum.de	70
i+              behind a note reflects its length;	Err	vernunftzentrum.de	70
i+  "stretch":  make a similar but stretched layout which still looks good.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To fill the staff, the spacings are interpolated between the "shrink" 	Err	vernunftzentrum.de	70
i+and "space" cases (if the sum of the natural spacings is larger than 	Err	vernunftzentrum.de	70
i+the staff length) or between the "space" and "stretch" cases (if the 	Err	vernunftzentrum.de	70
i+sum of the natural spacings is too short).	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+After the positions of all symbols are decided, lines are written to 	Err	vernunftzentrum.de	70
i+Out.ps to invoke the previously defined PostScript macros with 	Err	vernunftzentrum.de	70
i+suitable parameters.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+File "layout.txt" gives information on the positioning and how to 	Err	vernunftzentrum.de	70
i+modify the layout.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Page breaking -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Page breaking: version 1.2 avoids splitting a tune over pages	Err	vernunftzentrum.de	70
i+as much as possible. For each tune, the program checks whether 	Err	vernunftzentrum.de	70
i+the remaining space on the page is large enough to fit it in.	Err	vernunftzentrum.de	70
i+If not, a page break is put in before the tune.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To do this, the Postscript output is accumulated in a buffer first.	Err	vernunftzentrum.de	70
i+For really large tunes, the buffer might overflow. In that case,	Err	vernunftzentrum.de	70
i+the output is just written out without attempting to place the	Err	vernunftzentrum.de	70
i+page breaks cleverly.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Line breaking -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+The best output is usually obtained if the staff breaks are	Err	vernunftzentrum.de	70
i+chosen explicitly by suitable line breaks in the input file.	Err	vernunftzentrum.de	70
i+In this standard usage, the program tries to set the music as well 	Err	vernunftzentrum.de	70
i+as possible for each line separately. The symbols '*' and '**' at 	Err	vernunftzentrum.de	70
i+the end of a line are ignored, as well as the field 'E:' for	Err	vernunftzentrum.de	70
i+the elementary length.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+However, if a line is too long to fit onto one staff, the overhang 	Err	vernunftzentrum.de	70
i+is spilled onto the next staff in this version. This makes it possible 	Err	vernunftzentrum.de	70
i+to get reasonable output even when the input is one long logical line. 	Err	vernunftzentrum.de	70
i+In practice, this is equivalent to automatic line breaking. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To control line breaking, the following flags are available:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+ -b    break at all line ends, even if they end with the	Err	vernunftzentrum.de	70
i+       continuation symbol '\'.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+ -c    consider the input as one long line, ie., implicitly append 	Err	vernunftzentrum.de	70
i+       the continuation symbol '\' to every line of music.	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+ -B n  try to typeset with n bars on each line.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+ -a x  set the maximal amount of permitted shrinking to x,	Err	vernunftzentrum.de	70
i+       where x lies between 0 and 1.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+If none of these is specified, the standard line-by-line procedure	Err	vernunftzentrum.de	70
i+is followed, ie:	Err	vernunftzentrum.de	70
i+ 	Err	vernunftzentrum.de	70
i+   abc2ps infile -o	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+For completely automatic line breaking, use the command	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   abc2ps infile -c -o   	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+This should produce reasonable staff breaks in most cases. However, 	Err	vernunftzentrum.de	70
i+repeat bars, 1st and 2nd endings, and slurs might not be positioned 	Err	vernunftzentrum.de	70
i+very nicely.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+When doing automatic line breaking with -c, the user can control the 	Err	vernunftzentrum.de	70
i+spacing of the symbols along the staff by specifying the "compression 	Err	vernunftzentrum.de	70
i+parameter" alfa with the -a flag.  A value of 0.0 means that no 	Err	vernunftzentrum.de	70
i+shrinking is allowed, and a value of 1.0 allows shrinking until 	Err	vernunftzentrum.de	70
i+the symbols are almost touching. When -c is used, by default alfa 	Err	vernunftzentrum.de	70
i+is set to an intermediate value (displayed with 'abc2ps -c -h'). 	Err	vernunftzentrum.de	70
i+When -c is not used, maximal shrinking and stretching are allowed.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Thus, to really squeeze everything as much as possible, that is,	Err	vernunftzentrum.de	70
i+to get automatic line breaking together with maximal shrinking, use	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   abc2ps infile -c -o -a1	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+For more stretched output, use (for example)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   abc2ps infile -c -o -a 0.2	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+The flag "-B n" formats with n bars on each line. This is useful 	Err	vernunftzentrum.de	70
i+e.g. to try various spacings before deciding on how to set the	Err	vernunftzentrum.de	70
i+linebreaks explicitly in the file. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+There is not complete agreement on what output should be generated	Err	vernunftzentrum.de	70
i+when a staff is underfull, which happens when maximal stretching 	Err	vernunftzentrum.de	70
i+is not sufficient to fill the staff. The behaviour can be determined	Err	vernunftzentrum.de	70
i+by the following macros in abc2ps.c:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+STRETCH_MODE:  allowed values are	Err	vernunftzentrum.de	70
i+   0   music for undefull staves is bunched to the left.	Err	vernunftzentrum.de	70
i+   1   music for underfull staves is left-bunched for the last staff only.	Err	vernunftzentrum.de	70
i+   2   underfull staves are spread over the whole staff.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+STRETCH_STAFF: allowed values are	Err	vernunftzentrum.de	70
i+   0   when music is bunched to the left, the staff is also shortened.	Err	vernunftzentrum.de	70
i+   1   staff lines are always drawn all the way across the page.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Abc2ps 1.2 tries to take care of slurs and 1st & 2nd endings at the 	Err	vernunftzentrum.de	70
i+line breaks. But in general, a tune will look a substantially better 	Err	vernunftzentrum.de	70
i+when the breaks are chosen by hand.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- General usage -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Basically, the usage is:   	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   abc2ps file1 file2.. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+where file1, file2.. are the abc input files. This will list 	Err	vernunftzentrum.de	70
i+the file contents. To generate Postscript output, add flag -o:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   abc2ps file1 file2.. -o	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Note that most flags (see below) can be used in any sequence. 	Err	vernunftzentrum.de	70
i+Of course, the position does matter for flags e,f,C,S,R,T since	Err	vernunftzentrum.de	70
i+these determine how the following arguments are interpreted.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Flags can be contracted together if the meaning is clear, 	Err	vernunftzentrum.de	70
i+and a numerical argument for the last flag can be appended.	Err	vernunftzentrum.de	70
i+That is,  '-b -s 0.7 -v 1' can be contracted to '-bs0.7 -v1'.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Tune selection -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To select specific tunes from the files, use	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   abc2ps file1 file2.. -e selector1 selector2 ...	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+where each selector is a set of xref numbers or a pattern. Without -o, 	Err	vernunftzentrum.de	70
i+this will list only the selected tunes found in the files. With -o, 	Err	vernunftzentrum.de	70
i+output is generated only for the selected tunes.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Examples:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To list all the tunes in a file, say book1 or book1.abc (whichever exists):	Err	vernunftzentrum.de	70
i+      abc2ps book1	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To list selected tunes: 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      abc2ps book1 -e 1-3 5,20- 'House*' Hall	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+This selects xref numbers 1 to 3, 5, and 20 and above,	Err	vernunftzentrum.de	70
i+as well as those tunes whose title either starts with "House" or 	Err	vernunftzentrum.de	70
i+contains the string "Hall". A pattern without wildcards such 	Err	vernunftzentrum.de	70
i+as 'Hall' is treated as '*Hall*'	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Optionally, the search can be done on other fields using these flags	Err	vernunftzentrum.de	70
i+in place of -e:	Err	vernunftzentrum.de	70
i+      flag -R    seaches the rhythm field	Err	vernunftzentrum.de	70
i+      flag -C    searches the composer field	Err	vernunftzentrum.de	70
i+      flag -S    searches the source field.	Err	vernunftzentrum.de	70
i+      flag -T    seaches the title field (default)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Thus	Err	vernunftzentrum.de	70
i+      abc2ps book1 -C "John" 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+selects all tunes whose composer string contains "John".	Err	vernunftzentrum.de	70
i+If the -C flag is used, the composer field is also displayed when 	Err	vernunftzentrum.de	70
i+the file are listed. The same goes for the flags -R and -S.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Flag -A selects all tunes, overriding other selectors.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Selection on multiple input files -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To filter several files with the same set of selectors, the format is:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      abc2ps file1 file2 -e selectors...	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+To use a different set of selectors for the separate files,	Err	vernunftzentrum.de	70
i+use a command such as	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+      abc2ps file1 -e 1-3 -f file2 file3 -R Jig	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+This will select tunes 1-3 from file1 and the tunes with 'Jig' in the	Err	vernunftzentrum.de	70
i+rhythm field from file2 and file3. More precisely, flag -f indicates 	Err	vernunftzentrum.de	70
i+that the following arguments (up to the next -e flag) are file names. 	Err	vernunftzentrum.de	70
i+Each set of selectors is applied to the files preceeding it. 	Err	vernunftzentrum.de	70
i+As before, the flags -C -S -R can be used in place of -e to change	Err	vernunftzentrum.de	70
i+the searched field.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+For convenience, there are two conventions:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   1. An argument with the extension .abc is always assumed to be a	Err	vernunftzentrum.de	70
i+      file name, and is treated as if it were preceeded by the flag -f. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   2. An argument which is obviously a set of xref numbers is assumed 	Err	vernunftzentrum.de	70
i+      to be a selector, and is treated as if it were preceeded by the 	Err	vernunftzentrum.de	70
i+      flag -e. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+For example, these three commands all select tunes 1-3 from A.abc	Err	vernunftzentrum.de	70
i+and tunes 5-7 from B.abc:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      abc2ps A.abc -e 1-3 -f B.abc -e 5-7 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      abc2ps A.abc -e 1-3 B.abc -e 5-7 	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+      abc2ps A.abc 1-3 B.abc 5-7 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+On the other hand, this will NOT work in the expected way:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      abc2ps A 1-3 B 5-7 -o	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+because the program has no way of knowing that B is an input	Err	vernunftzentrum.de	70
i+file name and not a pattern selector. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+For complicated selections on multiple input files, it might be 	Err	vernunftzentrum.de	70
i+better to run the program interactively (see below).	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Making Postscript output -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+By adding flag '-o', the selected tunes are typeset and written	Err	vernunftzentrum.de	70
i+to the output file. To typeset all tunes in file "book1.abc":	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      abc2ps book1 -o	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To typeset selected tunes, use a command such as	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      abc2ps book1 -e 1-3 5,20- 'House*' Hall -o	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+The idea is to vary the numbers and/or patterns until the desired  	Err	vernunftzentrum.de	70
i+titles are listed, then add -o to the argument list to make the	Err	vernunftzentrum.de	70
i+output file. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+By default, all selected tunes are written into the same file, 	Err	vernunftzentrum.de	70
i+with suitable page breaks added. By using the flag -E, EPSF output	Err	vernunftzentrum.de	70
i+is made. Each tune is then put into a separate file with a correct	Err	vernunftzentrum.de	70
i+bounding box and no page breaks. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Flag -O determines where the output goes. The argument to -O can be	Err	vernunftzentrum.de	70
i+either a file name or the '=' sign. The latter case tells abc2ps	Err	vernunftzentrum.de	70
i+to choose the name by itself.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+For the PS and EPS modes, the output file names are:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+PS mode:	Err	vernunftzentrum.de	70
i+   default        Out.ps	Err	vernunftzentrum.de	70
i+   -O NAME        NAME.ps	Err	vernunftzentrum.de	70
i+   -O =           Output for "foo.abc" is written to "foo.ps"	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+EPSF:	Err	vernunftzentrum.de	70
i+   default        Outnnn.eps, where nnn is a running index	Err	vernunftzentrum.de	70
i+   -O NAME        NAMEnnn.eps      	Err	vernunftzentrum.de	70
i+   -O =           Outfile name is <tune_title>.eps	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Note: an output file is overwritten if it already exists.	Err	vernunftzentrum.de	70
i+This will happen if two tunes have the same name and flag "-O =" 	Err	vernunftzentrum.de	70
i+is used for EPSF output.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Modifying the output  -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+These flags change the output appearance:	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+   -x      includes the xref numbers in the tune title.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -1      writes every tune on a separate page.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -n      includes historical notes and other stuff at the bottom 	Err	vernunftzentrum.de	70
i+           of each tune.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -p      generates pretty output, with more whitespace between tunes,	Err	vernunftzentrum.de	70
i+           larger fonts for titles, and larger music symbols.  By default, 	Err	vernunftzentrum.de	70
i+           the layout squeezes the tunes to reduce the number of pages.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -s xxx  scales the music output by factor xxx.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -w www  sets the width of the staff to www points.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -m mmm  sets the left margin to mmm points.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -g shrink|space|stretch|fill   sets the "glue mode".	Err	vernunftzentrum.de	70
i+           The default mode is fill, which fills the staff.	Err	vernunftzentrum.de	70
i+           This flag is useful when changing the layout parameters, 	Err	vernunftzentrum.de	70
i+           to see what effect the changes have for each mode separately.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -B n    format with n bars on every staff	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -b      forces a staff break at the end of each line, even if	Err	vernunftzentrum.de	70
i+           the line has the continuation symbol \ at the end.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -c      append the continuation symbol to all music lines, 	Err	vernunftzentrum.de	70
i+           which amounts to automatic line breaking.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -a x    set the maximal allowed shrinkage to x, where x lies	Err	vernunftzentrum.de	70
i+           between 0.0 and 1.0	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- On-line help  -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Flags for on-line help:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -h      quick help, equivalent to "abc2ps" without any arguments.	Err	vernunftzentrum.de	70
i+           This also shows the default settings for some parameters.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -v n    sets the verbosity for output to the screen to n.	Err	vernunftzentrum.de	70
i+           Hereby -v0 gives very little, -v1,v2,v3.. show successively 	Err	vernunftzentrum.de	70
i+           more information. Verbosity >= 10 is for debugging.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -V      shows the version number.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Interactive mode -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+If the command list contains the flag -i, abc2ps runs in	Err	vernunftzentrum.de	70
i+interactive mode. This makes it possible to build up an output	Err	vernunftzentrum.de	70
i+file piece by piece. The disadvantage is that you have to start	Err	vernunftzentrum.de	70
i+over if you make a mistake.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Interactive mode is started with	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+      abc2ps -i	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+The program then prompts for input with the line	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      select tunes:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+The response should be a row of arguments, which are treated	Err	vernunftzentrum.de	70
i+in exactly the same way as in the non-interactive mode.	Err	vernunftzentrum.de	70
i+The only difference is that the input is not first run through	Err	vernunftzentrum.de	70
i+the shell, so that wildcards are not expanded and quotes are	Err	vernunftzentrum.de	70
i+not removed. Consequently Jig* should be used instead of 'Jig*' etc.	Err	vernunftzentrum.de	70
i+when specifying strings for selection, and filenames must be written 	Err	vernunftzentrum.de	70
i+out in full.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To exit from interactive mode, enter 'q', 'quit' or an empty input.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+For example, a "session" could look like this:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      abc2ps -i                start abc2ps interactively	Err	vernunftzentrum.de	70
i+      book1                    list tunes in book1.abc	Err	vernunftzentrum.de	70
i+      book1 -e 1-10            list tunes with xrefs 1-10 in book1	Err	vernunftzentrum.de	70
i+      book1 -e 1-10 -o         write these to Out.ps	Err	vernunftzentrum.de	70
i+      book2                    list tunes in book2.abc	Err	vernunftzentrum.de	70
i+      book2 -e House -o        write tunes with 'House' in the title	Err	vernunftzentrum.de	70
i+      quit                     exit abc2ps	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To make things easier, there are three special characters:	Err	vernunftzentrum.de	70
i+      ?   shows the last input used;	Err	vernunftzentrum.de	70
i+      !   at the start of line is substituted by the last files used;	Err	vernunftzentrum.de	70
i+      *   at the start of line is substituted by the last input.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+This means that the same effect as above can be obtained in 	Err	vernunftzentrum.de	70
i+shorter form like this:	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+      abc2ps -i                start abc2ps interactively	Err	vernunftzentrum.de	70
i+      book1                    list tunes 	Err	vernunftzentrum.de	70
i+      ! 1-10                   equivalent to 'book1 1-10'	Err	vernunftzentrum.de	70
i+      * -o                     equivalent to 'book1 1-10 -o'	Err	vernunftzentrum.de	70
i+      book2                    list tunes in book2.abc	Err	vernunftzentrum.de	70
i+      ! -e House -o            equivalent to 'book2 -e House -o'	Err	vernunftzentrum.de	70
i+      q                        exit abc2ps	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Note that the -e flag is not needed in the line '* 1-10'	Err	vernunftzentrum.de	70
i+because it is clear that '1-10' is a selector (see above).	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Another point is that if additional flags are used when starting	Err	vernunftzentrum.de	70
i+interactively, these function as defaults for the interactive mode.	Err	vernunftzentrum.de	70
i+For example, by starting the program with 	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+      abc2ps -io	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+all selected tunes are immediately written to the output file. 	Err	vernunftzentrum.de	70
i+The program usage is then very similar to that of abc2mtex. Of course, 	Err	vernunftzentrum.de	70
i+it is not possible to list the file contents (to help choose among	Err	vernunftzentrum.de	70
i+the titles) when using the program in this way.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+In interactive mode, flags -O -E can be used as before to redirect	Err	vernunftzentrum.de	70
i+the output. When switching to another output file, the previous	Err	vernunftzentrum.de	70
i+file is closed. Switching back to the same file later will overwrite 	Err	vernunftzentrum.de	70
i+the file. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+----- Examples -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+These examples assume that wildcards '*' in the argument list	Err	vernunftzentrum.de	70
i+are automatically expanded out by the operating system, as 	Err	vernunftzentrum.de	70
i+happens e.g. under the C shell under Unix. If not, the input files 	Err	vernunftzentrum.de	70
i+should be specified explicitly, that is:	Err	vernunftzentrum.de	70
i+   abc2ps x1.abc x2.abc x3.abc  instead of  abc2ps x*.abc	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To list the contents of file 'mytunes.abc':	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   abc mytunes.abc	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To typeset all tunes in 'mytunes.abc':	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   abc mytunes.abc -o	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To typeset all tunes, choosing all line breaks automatically:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   abc mytunes.abc -o -c	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To do the same, but squeeze notes together more:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   abc mytunes.abc -o -c -a0.9	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To list the contents of all abc files in the current directory:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   abc2ps *.abc	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To search all abc files for tunes containing 'House' in the title:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   abc2ps *.abc -e House	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To list the contents of all abc files, showing the Rhythm field also:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   abc2ps *.abc -R	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To search all abc files for tunes with rhythm 'jig' or 'Jig':	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+   abc2ps *.abc -R jig Jig	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To do the same while avoiding cases like 'slip jig':	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+   abc2ps *.abc -R 'jig*' 'Jig*'	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To output all tunes by composer 'Carolan' in all abc files:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   abc2ps *.abc -C Carolan -o	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To output tunes 1 to 10 in A.abc and 11-20 in B.abc:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   abc2ps A -e 1-10 -f B -e 11-20 -o	Err	vernunftzentrum.de	70
i+or 	Err	vernunftzentrum.de	70
i+   abc2ps A.abc 1-10 B.abc 11-20 -o	Err	vernunftzentrum.de	70
i+or 	Err	vernunftzentrum.de	70
i+   abc2ps A 1-10 B.abc 11-20 -o	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+To output all tunes with the string 'House' in the title or with	Err	vernunftzentrum.de	70
i+xref numbers 10-12, in all abc files whose name starts with X,	Err	vernunftzentrum.de	70
i+including historical notes and xref numbers in the output, 	Err	vernunftzentrum.de	70
i+forcing a line break at continuation lines, with reduced size	Err	vernunftzentrum.de	70
i+of the symbols, putting one tune per page:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   abc2ps X*.abc -e House 10,11,12 -onx -s0.9 -b1	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Differences to abc2mtex ------	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Essentially, all features described in the abc2mtex userguide 	Err	vernunftzentrum.de	70
i+should work. The are a few exceptions:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  The slur denotation S was replaced by the syntax (...) 	Err	vernunftzentrum.de	70
i+      (see below)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  Key signatures HP and Hp probably aren't treated 	Err	vernunftzentrum.de	70
i+      in exactly the right way.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  There is no automatic beam checking.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  There is no way to automatically transpose music in this version.	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Some extra features --- -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+For examples, see file sample.abc.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  Codes for decorations: including the ones defined in the	Err	vernunftzentrum.de	70
i+      standard abc syntax, the following decorations are interpreted:	Err	vernunftzentrum.de	70
i+         .   dot, staccato	Err	vernunftzentrum.de	70
i+         J   slide	Err	vernunftzentrum.de	70
i+         M   bar (M='em-phasis')	Err	vernunftzentrum.de	70
i+         H   hold sign (fermata)	Err	vernunftzentrum.de	70
i+         ~   gracing	Err	vernunftzentrum.de	70
i+         R   roll 	Err	vernunftzentrum.de	70
i+         u   up-bow	Err	vernunftzentrum.de	70
i+         v   down-bow	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  Escape sequences: embedding a string between two backslashes	Err	vernunftzentrum.de	70
i+      in a music line delimits an escape sequence. In the present version,	Err	vernunftzentrum.de	70
i+      these are treated as information fields. This makes it easy to 	Err	vernunftzentrum.de	70
i+      change key, meter, or default length within a line (see sample.abc). 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  N-tuplets: abc2ps can handle general n-tuplet cases using the syntax	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+         (p:q:r abcd ..	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      This means "put p notes into the time of q for the next r notes."	Err	vernunftzentrum.de	70
i+      If q is not given, it defaults as described in the abc2mtex	Err	vernunftzentrum.de	70
i+      user guide. If r is not given, it defaults to p. For example:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         (3::2 = (3:2:2  ;  (3 = (3:2:3 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      The number written over the n-plet is p. This generalized	Err	vernunftzentrum.de	70
i+      syntax is compatible with the older usage. Actually, q is not used 	Err	vernunftzentrum.de	70
i+      at all here; it is only relevant for programs which play the music.	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  Chords: The program accepts the +...+ notation, but it seems more	Err	vernunftzentrum.de	70
i+      intuitive to use some kind of brackets to group together the notes	Err	vernunftzentrum.de	70
i+      which make a chord. This program will accept square brackets:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+          [ace][adf] 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      in place of the +..+ syntax.	Err	vernunftzentrum.de	70
i+      The abc notation formally permits notes with different durations 	Err	vernunftzentrum.de	70
i+      on the same stem: [a/bc2] and so on. This program assigns all	Err	vernunftzentrum.de	70
i+      notes in a chord the duration of the first note in the bracket.	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+      A chord with two identical notes makes a union (one head	Err	vernunftzentrum.de	70
i+      with stems going both up and down), eg: [AA].	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  Slurs and ties: in place of the syntax "SabcSd" for a slur 	Err	vernunftzentrum.de	70
i+      over notes abcd, this program uses the notation	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+          (abcd) 	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+      for a slur over the notes abcd. It permits cases such as	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+          (ab(cd))  and  ((ab)cd)  and  (a(bc)d) 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      and similar slurs-below-slurs. To connect three or four notes 	Err	vernunftzentrum.de	70
i+      by ties (e.g., for a note held over several bars) use	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+          (a(b)c)  or by ties   a-b-c	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      The rule is that any note alone within brackets like (b) 	Err	vernunftzentrum.de	70
i+      terminates a previous slur and at the same time starts a new one.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      Note that the slur syntax (..) does not interfere with the (3abc 	Err	vernunftzentrum.de	70
i+      style for n-tuplets. If a bracket '(' is followed by a digit k, 	Err	vernunftzentrum.de	70
i+      it is interpreted as the start of a k-tuplet, otherwise it is the 	Err	vernunftzentrum.de	70
i+      start of a slur. For example, a slur is put over the last two 	Err	vernunftzentrum.de	70
i+      triplets in this line: (3abc ((3cde) ((3efg).	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      An unbalanced parenthesis ')' or '(' indicates the continuation	Err	vernunftzentrum.de	70
i+      of a slur on a neighboring line. This is needed (for example)	Err	vernunftzentrum.de	70
i+      in order to make automatic line breaking possible. It will also	Err	vernunftzentrum.de	70
i+      lead to unexpected strange-looking additional slurs if the input	Err	vernunftzentrum.de	70
i+      file contains the wrong syntax (3abc) instead of (3abc for triplets.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  Bars: The following symbols denote fat double bars 	Err	vernunftzentrum.de	70
i+      at the start or end of a piece (without repeat dots). 	Err	vernunftzentrum.de	70
i+      Namely: [| for thick-thin, |] for thin-thick.	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+      For better results when using automatic line breaking, the program 	Err	vernunftzentrum.de	70
i+      will split up some types of bars when these are at the end of a line, 	Err	vernunftzentrum.de	70
i+      for example:	Err	vernunftzentrum.de	70
i+        ::  becomes :|  together with |: on the next line 	Err	vernunftzentrum.de	70
i+        |:  becomes |   together with |: on the next line	Err	vernunftzentrum.de	70
i+        :|2 becomes :|  together with [2 on the next line etc.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  Field E: this field can be used to set some parameters from	Err	vernunftzentrum.de	70
i+      within the file:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+         shrink    set glue mode to compress      	Err	vernunftzentrum.de	70
i+         space     set to natural glue widths	Err	vernunftzentrum.de	70
i+         stretch   stretched glue mode	Err	vernunftzentrum.de	70
i+         fill      normal mode to fill staffs	Err	vernunftzentrum.de	70
i+         break     ignore continuations	Err	vernunftzentrum.de	70
i+         xref      write xref numbers to output	Err	vernunftzentrum.de	70
i+         one       write one tune per page.	Err	vernunftzentrum.de	70
i+         newpage   start new page for next tune	Err	vernunftzentrum.de	70
i+         lw ppp    set local staff width to ppp points.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      For example, to output a single tune in a narrower format,	Err	vernunftzentrum.de	70
i+      put 'E:lw 400' into the header of this tune. If this is put	Err	vernunftzentrum.de	70
i+      after the header but within the tune body, only the music is set 	Err	vernunftzentrum.de	70
i+      with a different width and the title is written as before.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Customization -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+1. First of all, the horizontal layout of the notes can be changed 	Err	vernunftzentrum.de	70
i+extensively. This is described in 'layout.txt'.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+2. Then there are a number of macros in the main program abc2ps.c	Err	vernunftzentrum.de	70
i+which determine the page layout, ie:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   PAGEHEIGHT    height of paper 	Err	vernunftzentrum.de	70
i+   PAGEWIDTH     width of paper 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+The following block determines the layout in the "pretty" mode (-p).	Err	vernunftzentrum.de	70
i+The numbers are various font sizes, skips between tunes etc.,	Err	vernunftzentrum.de	70
i+the seperation between staffs, and page margins. A similar 	Err	vernunftzentrum.de	70
i+block (MAINTITLE2 ...) defines the normal, more compact mode.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   MAINTITLE1          18 	Err	vernunftzentrum.de	70
i+   SUBTITLE1           15 	Err	vernunftzentrum.de	70
i+   SUBSUBTITLE1        12	Err	vernunftzentrum.de	70
i+   ASKIP1              0.6 * CM	Err	vernunftzentrum.de	70
i+   BSKIP1              0.6 * CM	Err	vernunftzentrum.de	70
i+   CSKIP1              1.2 * CM	Err	vernunftzentrum.de	70
i+   DSKIP1              0.5 * CM	Err	vernunftzentrum.de	70
i+   TOP_SEP1            25 	Err	vernunftzentrum.de	70
i+   BOT_SEP1            25 	Err	vernunftzentrum.de	70
i+   LSCALE1            0.8    	Err	vernunftzentrum.de	70
i+   LMARGIN1           1.5 * CM	Err	vernunftzentrum.de	70
i+   RMARGIN1           2.0 * CM	Err	vernunftzentrum.de	70
i+   TMARGIN1           2.0 * CM	Err	vernunftzentrum.de	70
i+   BMARGIN1           1.0 * CM	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+For example, the default staff width is calculated from these 	Err	vernunftzentrum.de	70
i+parameters as PAGEWIDTH-LMARGIN-RMARGIN. The flags -w and -m change 	Err	vernunftzentrum.de	70
i+this width and the left margin, respectively.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+3. The behavior for underfull lines can be chosen (see "Line breaks").	Err	vernunftzentrum.de	70
i+   Also consider these two parameters:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   ALFA_C   default compression when using the -c flag.	Err	vernunftzentrum.de	70
i+   BETA_X   maximal expansion allowed before considering a staff	Err	vernunftzentrum.de	70
i+            underfull.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Thus, setting BETA_X to 100.0 lets lines be stretched to any 	Err	vernunftzentrum.de	70
i+arbitrary amount quietly.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+4. Parameters which influence the musical symbols (all dimensions 	Err	vernunftzentrum.de	70
i+are in pt, relative to a fundamental spacing between staff lines of 6pt):	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   DECO_IS_ROLL  How gracings ~ are interpreted. For 0, draws a trill sign.	Err	vernunftzentrum.de	70
i+                 For 1, draws a roll sign (cap) over the note.	Err	vernunftzentrum.de	70
i+   LSCALE0       Overall scale factor. The "internal" height for the	Err	vernunftzentrum.de	70
i+                 staff is 24 pt, that is, 6 pt between the lines. This 	Err	vernunftzentrum.de	70
i+                 is rather big, so LSCALE0 scales the size down.	Err	vernunftzentrum.de	70
i+   BASEWIDTH     Width of lines within music (bars, stems etc).	Err	vernunftzentrum.de	70
i+   SLURWIDTH     Width of Bezier curves when drawing slurs.	Err	vernunftzentrum.de	70
i+   STEM_YOFF     Offset of stem from note head center, y direction	Err	vernunftzentrum.de	70
i+   STEM_XOFF     Offset of stem from note head center, x direction	Err	vernunftzentrum.de	70
i+   STEM          Standard stem length for single notes.	Err	vernunftzentrum.de	70
i+   STEM_MIN      Minimal stem length when drawing beams.	Err	vernunftzentrum.de	70
i+   STEM_CH       Standard stem length for chords.	Err	vernunftzentrum.de	70
i+   STEM_CH_MIN   Minimal stem length for chords under beams.	Err	vernunftzentrum.de	70
i+   BEAM_DEPTH    Width of the horizontal stroke for beams.	Err	vernunftzentrum.de	70
i+   BEAM_SHIFT    How far the second, third beams are shifted up or down.	Err	vernunftzentrum.de	70
i+   BEAM_FLATFAC  Long beams are drawn with slope reduced by this factor.	Err	vernunftzentrum.de	70
i+   BEAM_THRESH   If the slope of a beam lies below this threshold, 	Err	vernunftzentrum.de	70
i+                 it is drawn with slope zero.	Err	vernunftzentrum.de	70
i+   MAX_SLOPE     Upper limit for the slope of a beam.	Err	vernunftzentrum.de	70
i+   DOTSHIFT      Extra shift, to avoid putting the dot into the flag	Err	vernunftzentrum.de	70
i+                 on some notes.	Err	vernunftzentrum.de	70
i+   GSTEM         Grace note stem length.	Err	vernunftzentrum.de	70
i+   GSTEM_XOFF    Offset of grace note stem to head center.	Err	vernunftzentrum.de	70
i+   GSPACE0       Space between grace note and main note.	Err	vernunftzentrum.de	70
i+   GSPACE        Space between grace notes.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----- Summary of differences to version 1.1 -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  better page breaking 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  automatic line breaking possible	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  EPSF output possible	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  Slurs improved; slurs to previous/next staff allowed.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  New decorations: fermata, bar, up/down bow, roll sign, slide	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  unions as [aa]	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  thick-thin and thin-thick bars now [| and |]	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  normal or pretty output, depending on flag -p	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  horizontal beams positioned more cleverly	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  n-plets can contain rests, eg. (3zab or (3azb; 	Err	vernunftzentrum.de	70
i+      uses brackets if the notes are not all on one beam.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -  general n-plet syntax (p:q:r added	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+----  Feedback -------	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Any suggestions for improvement or bug reports are welcome.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+Michael Methfessel (msm@ihp-ffo.de), June 1996.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
1diff --git a/abc2ps.c b/abc2ps.c	/ckeen/repos/abc2ps/file/abc2ps.c.gph	vernunftzentrum.de	70
i@@ -0,0 +1,753 @@	Err	vernunftzentrum.de	70
i+/*	Err	vernunftzentrum.de	70
i+ *  abc2ps: a program to typeset tunes written in abc format using PostScript	Err	vernunftzentrum.de	70
i+ *  Copyright (C) 1996,1997,1998  Michael Methfessel	Err	vernunftzentrum.de	70
i+ *	Err	vernunftzentrum.de	70
i+ *  This program is free software; you can redistribute it and/or modify	Err	vernunftzentrum.de	70
i+ *  it under the terms of the GNU General Public License as published by	Err	vernunftzentrum.de	70
i+ *  the Free Software Foundation; either version 2 of the License, or	Err	vernunftzentrum.de	70
i+ *  (at your option) any later version.	Err	vernunftzentrum.de	70
i+ *	Err	vernunftzentrum.de	70
i+ *  This program is distributed in the hope that it will be useful,	Err	vernunftzentrum.de	70
i+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of	Err	vernunftzentrum.de	70
i+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the	Err	vernunftzentrum.de	70
i+ *  GNU General Public License for more details.	Err	vernunftzentrum.de	70
i+ *	Err	vernunftzentrum.de	70
i+ *  You should have received a copy of the GNU General Public License	Err	vernunftzentrum.de	70
i+ *  along with this program; if not, write to the Free Software	Err	vernunftzentrum.de	70
i+ *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.	Err	vernunftzentrum.de	70
i+ *	Err	vernunftzentrum.de	70
i+ *  The author can be contacted as follows:	Err	vernunftzentrum.de	70
i+ *  	Err	vernunftzentrum.de	70
i+ *  Michael Methfessel	Err	vernunftzentrum.de	70
i+ *  methfessel@ihp-ffo.de	Err	vernunftzentrum.de	70
i+ *  Institute for Semiconductor Physics, PO Box 409, 	Err	vernunftzentrum.de	70
i+ *  D-15204 Frankfurt (Oder), Germany	Err	vernunftzentrum.de	70
i+ */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* Main program abc2ps.c */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#include <stdio.h>	Err	vernunftzentrum.de	70
i+#include <math.h>	Err	vernunftzentrum.de	70
i+#include <time.h>	Err	vernunftzentrum.de	70
i+#include <string.h>	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* -------------- general macros ------------- */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define VERSION              "1.3"      /* version */	Err	vernunftzentrum.de	70
i+#define REVISION             "3"        /* revison */	Err	vernunftzentrum.de	70
i+#define VDATE        "Mar 17 1999"      /* version date */	Err	vernunftzentrum.de	70
i+#define VERBOSE0           2            /* default verbosity */	Err	vernunftzentrum.de	70
i+#define DEBUG_LV           0            /* debug output level */	Err	vernunftzentrum.de	70
i+#define OUTPUTFILE      "Out.ps"        /* standard output file */	Err	vernunftzentrum.de	70
i+#define INDEXFILE       "Ind.ps"        /* output file for index */	Err	vernunftzentrum.de	70
i+#define PS_LEVEL           2            /* PS laguage level: must be 1 or 2 */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* default directory to search for format files */	Err	vernunftzentrum.de	70
i+#define DEFAULT_FDIR   ""	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define PAGEHEIGHT      29.7     /* basic page dimensions in cm ..  */	Err	vernunftzentrum.de	70
i+#define LEFTMARGIN       1.8     /* .. used in all default formats  */	Err	vernunftzentrum.de	70
i+#define STAFFWIDTH      17.4	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- macros controlling music typesetting ----- */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define BASEWIDTH      0.8      /* width for lines drawn within music */	Err	vernunftzentrum.de	70
i+#define SLURWIDTH      0.8      /* width for lines for slurs */	Err	vernunftzentrum.de	70
i+#define STEM_YOFF      1.0      /* offset stem from note center */	Err	vernunftzentrum.de	70
i+#define STEM_XOFF      3.5	Err	vernunftzentrum.de	70
i+#define STEM            20      /* standard stem length */	Err	vernunftzentrum.de	70
i+#define STEM_MIN        16      /* min stem length under beams */	Err	vernunftzentrum.de	70
i+#define STEM_MIN2       12      /* ... for notes with two beams */	Err	vernunftzentrum.de	70
i+#define STEM_MIN3       10      /* ... for notes with three beams */	Err	vernunftzentrum.de	70
i+#define STEM_MIN4       10      /* ... for notes with four beams */	Err	vernunftzentrum.de	70
i+#define STEM_CH         16      /* standard stem length for chord */	Err	vernunftzentrum.de	70
i+#define STEM_CH_MIN     12      /* min stem length for chords under beams */	Err	vernunftzentrum.de	70
i+#define STEM_CH_MIN2     8      /* ... for notes with two beams */	Err	vernunftzentrum.de	70
i+#define STEM_CH_MIN3     7      /* ... for notes with three beams */	Err	vernunftzentrum.de	70
i+#define STEM_CH_MIN4     7      /* ... for notes with four beams */	Err	vernunftzentrum.de	70
i+#define BEAM_DEPTH     2.6      /* width of a beam stroke */	Err	vernunftzentrum.de	70
i+#define BEAM_OFFSET    0.25     /* pos of flat beam relative to staff line */	Err	vernunftzentrum.de	70
i+#define BEAM_SHIFT     5.3      /* shift of second and third beams */	Err	vernunftzentrum.de	70
i+/*  To align the 4th beam as the 1st: shift=6-(depth-2*offset)/3  */	Err	vernunftzentrum.de	70
i+#define BEAM_FLATFAC   0.6      /* factor to decrease slope of long beams */	Err	vernunftzentrum.de	70
i+#define BEAM_THRESH   0.06      /* flat beam if slope below this threshold */	Err	vernunftzentrum.de	70
i+#define BEAM_SLOPE     0.5      /* max slope of a beam */	Err	vernunftzentrum.de	70
i+#define BEAM_STUB      6.0      /* length of stub for flag under beam */ 	Err	vernunftzentrum.de	70
i+#define SLUR_SLOPE     1.0      /* max slope of a slur */	Err	vernunftzentrum.de	70
i+#define DOTSHIFT         5      /* shift dot when up flag on note */	Err	vernunftzentrum.de	70
i+#define GSTEM         10.0      /* grace note stem length */	Err	vernunftzentrum.de	70
i+#define GSTEM_XOFF     2.0      /* x offset for grace note stem */	Err	vernunftzentrum.de	70
i+#define GSPACE0       10.0      /* space from grace note to big note */	Err	vernunftzentrum.de	70
i+#define GSPACE         7.0      /* space between grace notes */	Err	vernunftzentrum.de	70
i+#define DECO_IS_ROLL     0      /* ~ makes roll if 1, otherwise twiddle */	Err	vernunftzentrum.de	70
i+#define WIDTH_MIN      1.0      /* minimal left,right width for xp list */	Err	vernunftzentrum.de	70
i+#define RANFAC        0.05      /* max random shift = RANFAC * spacing */	Err	vernunftzentrum.de	70
i+#define RANCUT        1.50      /* cutoff for random shift */	Err	vernunftzentrum.de	70
i+#define BNUMHT        32.0      /* height for bar numbers */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define BETA_C          0.1     /* max expansion for flag -c */	Err	vernunftzentrum.de	70
i+#define ALFA_X          1.0     /* max compression before complaining */	Err	vernunftzentrum.de	70
i+#define BETA_X          1.2     /* max expansion before complaining */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define VOCPRE          0.4     /* portion of vocals word before note */	Err	vernunftzentrum.de	70
i+#define GCHPRE          0.4     /* portion of guitar chord before note */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define DEFVOICE        "1"     /* default name for first voice */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- macros for program internals ----- */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define CM             28.35    /* factor to transform cm to pt */	Err	vernunftzentrum.de	70
i+#define PT              1.00    /* factor to transform pt to pt */	Err	vernunftzentrum.de	70
i+#define IN             72.00    /* factor to transform inch to pt */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define STRL      301           /* string length in info fields */	Err	vernunftzentrum.de	70
i+#define STRL1     101           /* string length for file names */	Err	vernunftzentrum.de	70
i+#define MAXSYMST   11           /* max symbols in start piece */	Err	vernunftzentrum.de	70
i+#define MAXHD      10           /* max heads on one stem */	Err	vernunftzentrum.de	70
i+#define NTEXT     100           /* max history lines for output */	Err	vernunftzentrum.de	70
i+#define MAXINF    100           /* max number of input files */	Err	vernunftzentrum.de	70
i+#define BSIZE    4001           /* buffer size for one input string */	Err	vernunftzentrum.de	70
i+#define BUFFSZ  40000           /* size of output buffer */	Err	vernunftzentrum.de	70
i+#define BUFFSZ1  3000           /* buffer reserved for one staff */	Err	vernunftzentrum.de	70
i+#define BUFFLN    100           /* max number of lines in output buffer */	Err	vernunftzentrum.de	70
i+#define NWPOOL   4000           /* char pool for vocals */	Err	vernunftzentrum.de	70
i+#define NWLINE      5           /* max number of vocal lines per staff */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define BASE           192      /* base for durations */   	Err	vernunftzentrum.de	70
i+#define WHOLE          192      /* whole note */	Err	vernunftzentrum.de	70
i+#define HALF            96      /* half note */	Err	vernunftzentrum.de	70
i+#define QUARTER         48      /* quarter note */	Err	vernunftzentrum.de	70
i+#define EIGHTH          24      /* 1/8 note */	Err	vernunftzentrum.de	70
i+#define SIXTEENTH       12      /* 1/16 note */	Err	vernunftzentrum.de	70
i+#define THIRTYSECOND     6      /* 1/32 note */	Err	vernunftzentrum.de	70
i+#define SIXTYFOURTH      3      /* 1/64 note */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define COMMENT          1      /* types of lines scanned */	Err	vernunftzentrum.de	70
i+#define MUSIC            2   	Err	vernunftzentrum.de	70
i+#define E_O_F            4   	Err	vernunftzentrum.de	70
i+#define INFO             5	Err	vernunftzentrum.de	70
i+#define TITLE            6	Err	vernunftzentrum.de	70
i+#define METER            7	Err	vernunftzentrum.de	70
i+#define PARTS            8	Err	vernunftzentrum.de	70
i+#define KEY              9	Err	vernunftzentrum.de	70
i+#define XREF            10	Err	vernunftzentrum.de	70
i+#define DLEN            11	Err	vernunftzentrum.de	70
i+#define HISTORY         12	Err	vernunftzentrum.de	70
i+#define BLANK           13	Err	vernunftzentrum.de	70
i+#define WORDS           14	Err	vernunftzentrum.de	70
i+#define MWORDS          15	Err	vernunftzentrum.de	70
i+#define PSCOMMENT       16	Err	vernunftzentrum.de	70
i+#define TEMPO           17	Err	vernunftzentrum.de	70
i+#define VOICE           18	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define INVISIBLE    1          /* valid symbol types */	Err	vernunftzentrum.de	70
i+#define NOTE         2         	Err	vernunftzentrum.de	70
i+#define REST         3         	Err	vernunftzentrum.de	70
i+#define BAR          4	Err	vernunftzentrum.de	70
i+#define CLEF         5 	Err	vernunftzentrum.de	70
i+#define TIMESIG      6 	Err	vernunftzentrum.de	70
i+#define KEYSIG       7 	Err	vernunftzentrum.de	70
i+#define GCHORD       8 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define SPACE      101           /* additional parsable things */	Err	vernunftzentrum.de	70
i+#define E_O_L      102	Err	vernunftzentrum.de	70
i+#define ESCSEQ     103	Err	vernunftzentrum.de	70
i+#define CONTINUE   104	Err	vernunftzentrum.de	70
i+#define NEWLINE    105	Err	vernunftzentrum.de	70
i+#define DUMMY      106	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define B_SNGL       1           /* codes for different types of bars */	Err	vernunftzentrum.de	70
i+#define B_DBL        2             /* ||   thin double bar */	Err	vernunftzentrum.de	70
i+#define B_LREP       3             /* |:   left repeat bar */	Err	vernunftzentrum.de	70
i+#define B_RREP       4             /* :|   right repeat bar */	Err	vernunftzentrum.de	70
i+#define B_DREP       5             /* ::   double repeat bar */	Err	vernunftzentrum.de	70
i+#define B_FAT1       6             /* [|   thick at section start */	Err	vernunftzentrum.de	70
i+#define B_FAT2       7             /* |]   thick at section end  */	Err	vernunftzentrum.de	70
i+#define B_INVIS      8             /* invisible; for endings without bars */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define A_SH         1           /* codes for accidentals */	Err	vernunftzentrum.de	70
i+#define A_NT         2	Err	vernunftzentrum.de	70
i+#define A_FT         3	Err	vernunftzentrum.de	70
i+#define A_DS         4	Err	vernunftzentrum.de	70
i+#define A_DF         5	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define D_GRACE      1           /* codes for decoration */	Err	vernunftzentrum.de	70
i+#define D_STACC      2           	Err	vernunftzentrum.de	70
i+#define D_SLIDE      3           	Err	vernunftzentrum.de	70
i+#define D_EMBAR      4           	Err	vernunftzentrum.de	70
i+#define D_HOLD       5           	Err	vernunftzentrum.de	70
i+#define D_UPBOW      6           	Err	vernunftzentrum.de	70
i+#define D_DOWNBOW    7           	Err	vernunftzentrum.de	70
i+#define D_ROLL       8           	Err	vernunftzentrum.de	70
i+#define D_TRILL      9           	Err	vernunftzentrum.de	70
i+#define D_HAT       10           	Err	vernunftzentrum.de	70
i+#define D_ATT       11           	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define H_FULL       1           /* types of heads */	Err	vernunftzentrum.de	70
i+#define H_EMPTY      2	Err	vernunftzentrum.de	70
i+#define H_OVAL       3	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define TREBLE       1           /* types of clefs */	Err	vernunftzentrum.de	70
i+#define BASS         2	Err	vernunftzentrum.de	70
i+#define ALTO         3	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define G_FILL       1            /* modes for glue */	Err	vernunftzentrum.de	70
i+#define G_SHRINK     2 	Err	vernunftzentrum.de	70
i+#define G_SPACE      3 	Err	vernunftzentrum.de	70
i+#define G_STRETCH    4	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define S_TITLE      1            /* where to do pattern matching */	Err	vernunftzentrum.de	70
i+#define S_RHYTHM     2	Err	vernunftzentrum.de	70
i+#define S_COMPOSER   3	Err	vernunftzentrum.de	70
i+#define S_SOURCE     4	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define TEXT_H       1            /* type of a text line */	Err	vernunftzentrum.de	70
i+#define TEXT_W       2	Err	vernunftzentrum.de	70
i+#define TEXT_Z       3	Err	vernunftzentrum.de	70
i+#define TEXT_N       4	Err	vernunftzentrum.de	70
i+#define TEXT_D       5	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define DO_INDEX     1            /* what program does */	Err	vernunftzentrum.de	70
i+#define DO_OUTPUT    2	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define SWFAC        0.50         /* factor to estimate width of string */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define DB_SW        0            /* debug switch */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define MAXFORMATS 10             /* max number of defined page formats */	Err	vernunftzentrum.de	70
i+#define STRLFMT    81             /* string length in FORMAT struct */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define MAXNTEXT   400            /* for text output */	Err	vernunftzentrum.de	70
i+#define MAXWLEN     51	Err	vernunftzentrum.de	70
i+#define ALIGN        1	Err	vernunftzentrum.de	70
i+#define RAGGED       2	Err	vernunftzentrum.de	70
i+#define OBEYLINES    3	Err	vernunftzentrum.de	70
i+#define OBEYCENTER   4	Err	vernunftzentrum.de	70
i+#define SKIP         5	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define E_CLOSED     1	Err	vernunftzentrum.de	70
i+#define E_OPEN       2 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- global variables ------- */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+int db=DEBUG_LV;           /* debug control */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+int maxSyms,maxVc;         /* for malloc */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define NCOMP     5        /* max number of composer lines */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+struct ISTRUCT {           /* information fields */	Err	vernunftzentrum.de	70
i+  char area   [STRL];	Err	vernunftzentrum.de	70
i+  char book   [STRL];	Err	vernunftzentrum.de	70
i+  char comp   [NCOMP][STRL];	Err	vernunftzentrum.de	70
i+  int  ncomp;	Err	vernunftzentrum.de	70
i+  char disc   [STRL];	Err	vernunftzentrum.de	70
i+  char eskip  [STRL];	Err	vernunftzentrum.de	70
i+  char group  [STRL];	Err	vernunftzentrum.de	70
i+  char hist   [STRL];	Err	vernunftzentrum.de	70
i+  char info   [STRL];	Err	vernunftzentrum.de	70
i+  char key    [STRL];	Err	vernunftzentrum.de	70
i+  char len    [STRL];	Err	vernunftzentrum.de	70
i+  char meter  [STRL];	Err	vernunftzentrum.de	70
i+  char notes  [STRL];	Err	vernunftzentrum.de	70
i+  char orig   [STRL];	Err	vernunftzentrum.de	70
i+  char rhyth  [STRL];	Err	vernunftzentrum.de	70
i+  char src    [STRL];	Err	vernunftzentrum.de	70
i+  char title  [STRL];	Err	vernunftzentrum.de	70
i+  char title2 [STRL];	Err	vernunftzentrum.de	70
i+  char title3 [STRL];	Err	vernunftzentrum.de	70
i+  char parts  [STRL];	Err	vernunftzentrum.de	70
i+  char xref   [STRL];	Err	vernunftzentrum.de	70
i+  char trans  [STRL];	Err	vernunftzentrum.de	70
i+  char tempo  [STRL];	Err	vernunftzentrum.de	70
i+} info,default_info;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+struct GRACE {             /* describes grace notes */	Err	vernunftzentrum.de	70
i+  int n;                       /* number of grace notes */	Err	vernunftzentrum.de	70
i+  int p[30];                   /* pitches */	Err	vernunftzentrum.de	70
i+  int a[30];                   /* accidentals */	Err	vernunftzentrum.de	70
i+};	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+struct DECO {             /* describes decorations */	Err	vernunftzentrum.de	70
i+  int n;                       /* number of grace notes */	Err	vernunftzentrum.de	70
i+  float top;                   /* max height needed */	Err	vernunftzentrum.de	70
i+  int t[10];                   /* type of deco */	Err	vernunftzentrum.de	70
i+};	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+struct SYMBOL {            /* struct for a drawable symbol */	Err	vernunftzentrum.de	70
i+  int type;                    /* type of symbol */	Err	vernunftzentrum.de	70
i+  int pits[MAXHD];             /* pitches for notes */	Err	vernunftzentrum.de	70
i+  int lens[MAXHD];             /* note lengths as multiple of BASE */	Err	vernunftzentrum.de	70
i+  int accs[MAXHD];             /* code for accidentals */	Err	vernunftzentrum.de	70
i+  int sl1 [MAXHD];             /* which slur start on this head */	Err	vernunftzentrum.de	70
i+  int sl2 [MAXHD];             /* which slur ends on this head */	Err	vernunftzentrum.de	70
i+  int ti1 [MAXHD];             /* flag to start tie here */	Err	vernunftzentrum.de	70
i+  int ti2 [MAXHD];             /* flag to end tie here */	Err	vernunftzentrum.de	70
i+  float shhd[MAXHD];           /* horizontal shift for heads */	Err	vernunftzentrum.de	70
i+  float shac[MAXHD];           /* horizontal shift for accidentals */	Err	vernunftzentrum.de	70
i+  int npitch;                  /* number of note heads */	Err	vernunftzentrum.de	70
i+  int len;                     /* basic note length */	Err	vernunftzentrum.de	70
i+  int fullmes;                 /* flag for full-measure rests */	Err	vernunftzentrum.de	70
i+  int word_st;                 /* 1 if word starts here */	Err	vernunftzentrum.de	70
i+  int word_end;                /* 1 if word ends here */	Err	vernunftzentrum.de	70
i+  int slur_st;                 /* how many slurs starts here */	Err	vernunftzentrum.de	70
i+  int slur_end;                /* how many slurs ends here */	Err	vernunftzentrum.de	70
i+  int yadd;                    /* shift for treble/bass etc clefs */	Err	vernunftzentrum.de	70
i+  float x,y;                   /* position */	Err	vernunftzentrum.de	70
i+  int ymn,ymx,yav;             /* min,mav,avg note head height */	Err	vernunftzentrum.de	70
i+  float ylo,yhi;               /* bounds for this object */	Err	vernunftzentrum.de	70
i+  float xmn,xmx;               /* min,max h-pos of a head rel to top */	Err	vernunftzentrum.de	70
i+  int stem;                    /* 0,1,-1 for no stem, up, down */	Err	vernunftzentrum.de	70
i+  int flags;                   /* number of flags or bars */	Err	vernunftzentrum.de	70
i+  int dots;                    /* number of dots */	Err	vernunftzentrum.de	70
i+  int head;                    /* type of head */	Err	vernunftzentrum.de	70
i+  int eoln;                    /* flag for last symbol in line */	Err	vernunftzentrum.de	70
i+  struct GRACE gr;             /* grace notes */	Err	vernunftzentrum.de	70
i+  struct DECO  dc;             /* grace notes */	Err	vernunftzentrum.de	70
i+  float xs,ys;                 /* position of stem end */	Err	vernunftzentrum.de	70
i+  int u,v,w,t,q;               /* auxillary information */	Err	vernunftzentrum.de	70
i+  int invis;                   /* mark note as invisible */	Err	vernunftzentrum.de	70
i+  float wl,wr;                 /* left,right min width */	Err	vernunftzentrum.de	70
i+  float pl,pr;                 /* left,right preferred width */	Err	vernunftzentrum.de	70
i+  float xl,xr;                 /* left,right expanded width */	Err	vernunftzentrum.de	70
i+  int p_plet,q_plet,r_plet;    /* data for n-plets */	Err	vernunftzentrum.de	70
i+  float gchy;                  /* height of guitar chord */	Err	vernunftzentrum.de	70
i+  char text[41];               /* for guitar chords etc. */	Err	vernunftzentrum.de	70
i+  char *wordp[NWLINE];         /* pointers to wpool for vocals */	Err	vernunftzentrum.de	70
i+  int p;                       /* pointer to entry in posit table */	Err	vernunftzentrum.de	70
i+  float time;                  /* time for symbol start */	Err	vernunftzentrum.de	70
i+} ;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+char lvoiceid[233];                   /* string from last V: line */	Err	vernunftzentrum.de	70
i+int  nvoice,mvoice;                   /* number of voices defd, nonempty */	Err	vernunftzentrum.de	70
i+int  ivc;                             /* current voice */	Err	vernunftzentrum.de	70
i+int  ivc0;                            /* top nonempty voice */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+struct XPOS {            /* struct for a horizontal position */	Err	vernunftzentrum.de	70
i+  int type;                    /* type of symbols here */	Err	vernunftzentrum.de	70
i+  int next,prec;               /* pointers for linked list */ 	Err	vernunftzentrum.de	70
i+  int eoln;                    /* flag for line break */	Err	vernunftzentrum.de	70
i+  int *p;                      /* pointers to associated syms */	Err	vernunftzentrum.de	70
i+  float time,dur;              /* start time, duration */	Err	vernunftzentrum.de	70
i+  float wl,wr;                 /* right and left widths */	Err	vernunftzentrum.de	70
i+  float space,shrink,stretch;  /* glue before this position */	Err	vernunftzentrum.de	70
i+  float tfac;                  /* factor to tune spacings */	Err	vernunftzentrum.de	70
i+  float x;                     /* final horizontal position */	Err	vernunftzentrum.de	70
i+};	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+int ixpfree;                   /* first free element in xp array */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+struct METERSTR {        /* data to specify the meter */	Err	vernunftzentrum.de	70
i+  int meter1,meter2;	Err	vernunftzentrum.de	70
i+  int mflag,lflag;	Err	vernunftzentrum.de	70
i+  int dlen;	Err	vernunftzentrum.de	70
i+  int insert;	Err	vernunftzentrum.de	70
i+  char top[31];	Err	vernunftzentrum.de	70
i+} default_meter;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+struct KEYSTR {          /* data to specify the key */	Err	vernunftzentrum.de	70
i+  int ktype;	Err	vernunftzentrum.de	70
i+  int sf;	Err	vernunftzentrum.de	70
i+  int add_pitch;       	Err	vernunftzentrum.de	70
i+  int root,root_acc;	Err	vernunftzentrum.de	70
i+  int add_transp,add_acc[7];   	Err	vernunftzentrum.de	70
i+} default_key;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+struct VCESPEC {         /* struct to characterize a voice */	Err	vernunftzentrum.de	70
i+  char id[33];                    /* identifier string, eg. a number */	Err	vernunftzentrum.de	70
i+  char name[81];                  /* full name of this voice */	Err	vernunftzentrum.de	70
i+  char sname[81];                 /* short name */	Err	vernunftzentrum.de	70
i+  struct METERSTR meter,meter0,meter1;    /* meter */	Err	vernunftzentrum.de	70
i+  struct KEYSTR   key,key0,key1;          /* keysig */	Err	vernunftzentrum.de	70
i+  int stems;                      /* +1 or -1 to force stem direction */	Err	vernunftzentrum.de	70
i+  int staves,brace,bracket;       /* for deco over several voices */	Err	vernunftzentrum.de	70
i+  int do_gch;                     /* 1 to output gchords for this voice */	Err	vernunftzentrum.de	70
i+  float sep;                      /* for space to next voice below */	Err	vernunftzentrum.de	70
i+  int nsym;                       /* number of symbols */	Err	vernunftzentrum.de	70
i+  int draw;                       /* flag if want to draw this voice */	Err	vernunftzentrum.de	70
i+  int select;                     /* flag if selected for output */	Err	vernunftzentrum.de	70
i+  int insert_btype,insert_num;    /* to split bars over linebreaks */	Err	vernunftzentrum.de	70
i+  int insert_bnum;                /* same for bar number */	Err	vernunftzentrum.de	70
i+  float insert_space;             /* space to insert after init syms */	Err	vernunftzentrum.de	70
i+  int end_slur;                   /* for a-b slurs */	Err	vernunftzentrum.de	70
i+  char insert_text[81];           /* string over inserted barline */	Err	vernunftzentrum.de	70
i+};	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+                              /* things to alloc: */	Err	vernunftzentrum.de	70
i+struct SYMBOL  *sym;              /* symbol list */	Err	vernunftzentrum.de	70
i+struct SYMBOL  **symv;            /* symbols for voices */	Err	vernunftzentrum.de	70
i+struct XPOS    *xp;               /* shared horizontal positions */	Err	vernunftzentrum.de	70
i+struct VCESPEC *voice;            /* characteristics of a voice */	Err	vernunftzentrum.de	70
i+struct SYMBOL  **sym_st;          /* symbols a staff start */	Err	vernunftzentrum.de	70
i+int            *nsym_st; 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+int halftones;                /* number of halftones to transpose by */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+                                          /* style parameters: */	Err	vernunftzentrum.de	70
i+float f0p,f5p,f1p,f0x,f5x,f1x;            /*   mapping fct */	Err	vernunftzentrum.de	70
i+float lnnp,bnnp,fnnp,lnnx,bnnx,fnnx;      /*   note-note spacing */	Err	vernunftzentrum.de	70
i+float lbnp,bbnp,rbnp,lbnx,bbnx,rbnx;      /*   bar-note spacing */	Err	vernunftzentrum.de	70
i+float lnbp,bnbp,rnbp,lnbx,bnbx,rnbx;      /*   note-bar spacing */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+char wpool[NWPOOL];            /* pool for vocal strings */	Err	vernunftzentrum.de	70
i+int nwpool,nwline;             /* globals to handle wpool */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+struct SYMBOL zsym;            /* symbol containing zeros */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+struct BEAM {                  /* packages info about one beam */	Err	vernunftzentrum.de	70
i+  int i1,i2;            	Err	vernunftzentrum.de	70
i+  float a,b;	Err	vernunftzentrum.de	70
i+  float x,y,t;	Err	vernunftzentrum.de	70
i+  int stem;	Err	vernunftzentrum.de	70
i+};	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+struct FONTSPEC {	Err	vernunftzentrum.de	70
i+  char name [STRLFMT];	Err	vernunftzentrum.de	70
i+  float size;	Err	vernunftzentrum.de	70
i+  int box;	Err	vernunftzentrum.de	70
i+};	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+struct FORMAT {                        /* struct for page layout */	Err	vernunftzentrum.de	70
i+  char     name     [STRLFMT];	Err	vernunftzentrum.de	70
i+  float    pageheight,staffwidth;	Err	vernunftzentrum.de	70
i+  float    topmargin,botmargin,leftmargin;	Err	vernunftzentrum.de	70
i+  float    topspace,wordsspace,titlespace,subtitlespace,partsspace;	Err	vernunftzentrum.de	70
i+  float    composerspace,musicspace,vocalspace,textspace;	Err	vernunftzentrum.de	70
i+  float    scale,maxshrink,lineskipfac,parskipfac,indent;	Err	vernunftzentrum.de	70
i+  float    staffsep,sysstaffsep,systemsep;	Err	vernunftzentrum.de	70
i+  float    strict1,strict2;	Err	vernunftzentrum.de	70
i+  int      landscape,titleleft,continueall,breakall,writehistory;	Err	vernunftzentrum.de	70
i+  int      stretchstaff,stretchlast,withxrefs,barsperstaff;	Err	vernunftzentrum.de	70
i+  int      oneperpage,titlecaps,barnums;	Err	vernunftzentrum.de	70
i+  struct FONTSPEC titlefont,subtitlefont,vocalfont,textfont,tempofont;	Err	vernunftzentrum.de	70
i+  struct FONTSPEC composerfont,partsfont,gchordfont,wordsfont,voicefont;	Err	vernunftzentrum.de	70
i+  struct FONTSPEC barnumfont,barlabelfont,indexfont;	Err	vernunftzentrum.de	70
i+};	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+struct FORMAT sfmt;                    /* format after initialization */	Err	vernunftzentrum.de	70
i+struct FORMAT dfmt;                    /* format at start of tune */	Err	vernunftzentrum.de	70
i+struct FORMAT cfmt;                    /* current format for output */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+char fontnames[50][STRLFMT];           /* list of needed fonts */	Err	vernunftzentrum.de	70
i+int  nfontnames;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+char txt[MAXNTEXT][MAXWLEN];           /* for output of text */	Err	vernunftzentrum.de	70
i+int  ntxt; 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+char vcselstr[101];            /* string for voice selection */	Err	vernunftzentrum.de	70
i+char mbf[501];                 /* mini-buffer for one line */	Err	vernunftzentrum.de	70
i+char buf[BUFFSZ];              /* output buffer.. should hold one tune */	Err	vernunftzentrum.de	70
i+int nbuf;                      /* number of bytes buffered */	Err	vernunftzentrum.de	70
i+float bposy;                   /* current position in buffered data */	Err	vernunftzentrum.de	70
i+int   ln_num;                  /* number of lines in buffer */	Err	vernunftzentrum.de	70
i+float ln_pos[BUFFLN];          /* vertical positions of buffered lines */	Err	vernunftzentrum.de	70
i+int   ln_buf[BUFFLN];          /* buffer location of buffered lines */	Err	vernunftzentrum.de	70
i+int   use_buffer;              /* 1 if lines are being accumulated */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+char text [NTEXT][STRL];       /* pool for history, words, etc. lines */	Err	vernunftzentrum.de	70
i+int text_type[NTEXT];          /* type of each text line */	Err	vernunftzentrum.de	70
i+int ntext;                     /* number of text lines */	Err	vernunftzentrum.de	70
i+char page_init[201];           /* initialization string after page break */	Err	vernunftzentrum.de	70
i+int do_mode;                   /* control whether to do index or output */	Err	vernunftzentrum.de	70
i+char escseq[81];               /* escape sequence string */	Err	vernunftzentrum.de	70
i+int linenum;                   /* current line number in input file */	Err	vernunftzentrum.de	70
i+int tunenum;                   /* number of current tune */	Err	vernunftzentrum.de	70
i+int tnum1,tnum2;	Err	vernunftzentrum.de	70
i+int numtitle;                  /* how many titles were read */	Err	vernunftzentrum.de	70
i+int mline;                     /* number music lines in current tune */	Err	vernunftzentrum.de	70
i+int nsym;                      /* number of symbols in line */	Err	vernunftzentrum.de	70
i+int nsym0;                     /* nsym at start of parsing a line */	Err	vernunftzentrum.de	70
i+int pagenum;                   /* current page in output file */	Err	vernunftzentrum.de	70
i+int writenum;                  /* calls to write_buffer for each one tune */	Err	vernunftzentrum.de	70
i+int xrefnum;                   /* xref number of current tune */	Err	vernunftzentrum.de	70
i+int do_meter, do_indent;       /* how to start next block */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+int index_pagenum;             /* for index file */	Err	vernunftzentrum.de	70
i+float index_posx, index_posy;	Err	vernunftzentrum.de	70
i+int index_initialized;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+char gch[201];                   /* guitar chord string */	Err	vernunftzentrum.de	70
i+int bagpipe;                     /* switch for HP mode */	Err	vernunftzentrum.de	70
i+int within_tune, within_block;   /* where we are in the file */	Err	vernunftzentrum.de	70
i+int do_this_tune;                /* are we typesetting the current one ? */	Err	vernunftzentrum.de	70
i+float posx,posy;                 /* overall scale, position on page */	Err	vernunftzentrum.de	70
i+int barinit;                     /* carryover bar number between parts */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+char *p, *p0;                    /* global pointers for parsing music line */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+int word,slur;                   /* variables used for parsing... */	Err	vernunftzentrum.de	70
i+int last_note,last_real_note;	Err	vernunftzentrum.de	70
i+int pplet,qplet,rplet;	Err	vernunftzentrum.de	70
i+int carryover;                   /* for interpreting > and < chars */	Err	vernunftzentrum.de	70
i+int ntinext,tinext[MAXHD];       /* for chord ties */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+struct {                         /* where to draw endings */	Err	vernunftzentrum.de	70
i+  float a,b;                        /* start and end position */	Err	vernunftzentrum.de	70
i+  int num;                          /* number of the ending */	Err	vernunftzentrum.de	70
i+  int type;                         /* shape: open or closed at right */	Err	vernunftzentrum.de	70
i+} ending[20];	Err	vernunftzentrum.de	70
i+int num_ending;                  /* number of endings to draw */	Err	vernunftzentrum.de	70
i+int mes1,mes2;                   /* to count measures in an ending */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+int slur1[20],slur2[20];         /* needed for drawing slurs */	Err	vernunftzentrum.de	70
i+int overfull;                    /* flag if staff overfull */	Err	vernunftzentrum.de	70
i+int do_words;                    /* flag if staff has words under it */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+int vb, verbose;                 /* verbosity, global and within tune */	Err	vernunftzentrum.de	70
i+int in_page=0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+                                 /* switches modified by flags: */	Err	vernunftzentrum.de	70
i+int gmode;                         /* switch for glue treatment */	Err	vernunftzentrum.de	70
i+int include_xrefs;                 /* to include xref numbers in title */	Err	vernunftzentrum.de	70
i+int one_per_page;                  /* new page for each tune ? */	Err	vernunftzentrum.de	70
i+int pagenumbers;                   /* write page numbers ? */	Err	vernunftzentrum.de	70
i+int write_history;                 /* write history and notes ? */	Err	vernunftzentrum.de	70
i+int interactive;                   /* interactive mode ? */	Err	vernunftzentrum.de	70
i+int help_me;                       /* need help ? */	Err	vernunftzentrum.de	70
i+int select_all;                    /* select all tunes ? */	Err	vernunftzentrum.de	70
i+int epsf;                          /* for EPSF postscript output */	Err	vernunftzentrum.de	70
i+int choose_outname;                /* 1 names outfile w. title/fnam */	Err	vernunftzentrum.de	70
i+int break_continues;               /* ignore continuations ? */	Err	vernunftzentrum.de	70
i+int search_field0;                 /* default search field */	Err	vernunftzentrum.de	70
i+int pretty;                        /* for pretty but sprawling layout */	Err	vernunftzentrum.de	70
i+int bars_per_line;                 /* bars for auto linebreaking */	Err	vernunftzentrum.de	70
i+int continue_lines;                /* flag to continue all lines */	Err	vernunftzentrum.de	70
i+int landscape;                     /* flag for landscape output */	Err	vernunftzentrum.de	70
i+int barnums;                       /* interval for bar numbers */	Err	vernunftzentrum.de	70
i+int make_index;                    /* write index file ? */	Err	vernunftzentrum.de	70
i+float alfa_c;                      /* max compression allowed */	Err	vernunftzentrum.de	70
i+float scalefac;                    /* scale factor for symbol size */	Err	vernunftzentrum.de	70
i+float lmargin;                     /* left margin */	Err	vernunftzentrum.de	70
i+float swidth;                      /* staff width */	Err	vernunftzentrum.de	70
i+float staffsep,dstaffsep;          /* staff separation */	Err	vernunftzentrum.de	70
i+float strict1,strict2;             /* 1stave, mstave strictness */	Err	vernunftzentrum.de	70
i+char transpose[21];                /* target key for transposition */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+float alfa_last,beta_last;         /* for last short short line.. */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+char in_file[MAXINF][STRL1];     /* list of input file names */	Err	vernunftzentrum.de	70
i+int  ninf;                       /* number of input file names */	Err	vernunftzentrum.de	70
i+FILE *fin;                       /* for input file */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+char outf[STRL1];                /* output file name */	Err	vernunftzentrum.de	70
i+char outfnam[STRL1];             /* internal file name for open/close */	Err	vernunftzentrum.de	70
i+char styf[STRL1];                /* layout style file name */	Err	vernunftzentrum.de	70
i+char styd[STRL1];                /* layout style directory */	Err	vernunftzentrum.de	70
i+char infostr[STRL1];             /* title string in PS file */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+int  file_open;                  /* for output file */	Err	vernunftzentrum.de	70
i+int  file_initialized;           /* for output file */	Err	vernunftzentrum.de	70
i+FILE *fout,*findex;              /* for output file */	Err	vernunftzentrum.de	70
i+int nepsf;                       /* counter for epsf output files */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+char sel_str[MAXINF][STRL1];     /* list of selector strings */	Err	vernunftzentrum.de	70
i+int  s_field[MAXINF];            /* type of selection for each file */	Err	vernunftzentrum.de	70
i+int  psel[MAXINF];               /* pointers from files to selectors */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+int temp_switch;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#include "style.h"               /* globals to define layout style */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- include subroutine files ----- */	Err	vernunftzentrum.de	70
i+void identify_note (struct SYMBOL *s, char *q);	Err	vernunftzentrum.de	70
i+int parse_length ();	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#include "syms.h" 	Err	vernunftzentrum.de	70
i+#include "util.h" 	Err	vernunftzentrum.de	70
i+#include "pssubs.h" 	Err	vernunftzentrum.de	70
i+#include "buffer.h" 	Err	vernunftzentrum.de	70
i+#include "format.h" 	Err	vernunftzentrum.de	70
i+#include "subs.h" 	Err	vernunftzentrum.de	70
i+#include "parse.h"	Err	vernunftzentrum.de	70
i+#include "music.h" 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- start of main ------ */	Err	vernunftzentrum.de	70
i+int main(argc, argv)	Err	vernunftzentrum.de	70
i+int argc;	Err	vernunftzentrum.de	70
i+char *argv[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  char aaa[501],bbb[501],ccc[501],ext[41];	Err	vernunftzentrum.de	70
i+  char xref_str[STRL1], pat[30][STRL1];	Err	vernunftzentrum.de	70
i+  char *urgv[100];	Err	vernunftzentrum.de	70
i+  int isel,j,npat,search_field,urgc,retcode,rc1;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* ----- set default options and parse arguments ----- */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  maxSyms = 800;	Err	vernunftzentrum.de	70
i+  maxVc   = 4;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  init_ops (1);	Err	vernunftzentrum.de	70
i+  retcode=parse_args (argc, argv);	Err	vernunftzentrum.de	70
i+  if (retcode) exit (1);	Err	vernunftzentrum.de	70
i+  if (interactive || (do_mode==DO_OUTPUT)) 	Err	vernunftzentrum.de	70
i+    printf ("This is abc2ps, version %s.%s (%s)\n", VERSION, REVISION, VDATE); 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  alloc_structs ();	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* ----- set the page format ----- */	Err	vernunftzentrum.de	70
i+  nfontnames=0;	Err	vernunftzentrum.de	70
i+  if (!set_page_format()) exit (3);	Err	vernunftzentrum.de	70
i+  if (help_me==2) {	Err	vernunftzentrum.de	70
i+    print_format(cfmt);	Err	vernunftzentrum.de	70
i+    exit (0);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* ----- help printout  ----- */	Err	vernunftzentrum.de	70
i+  if (argc<=1) help_me=1;	Err	vernunftzentrum.de	70
i+  if (help_me==1) {	Err	vernunftzentrum.de	70
i+    write_help ();	Err	vernunftzentrum.de	70
i+    exit (0);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if ((ninf==0) && (!interactive)) rx ("No input file specified", "");	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  isel=psel[ninf-1];	Err	vernunftzentrum.de	70
i+  search_field0=s_field[isel];   /* default for interactive mode */	Err	vernunftzentrum.de	70
i+  if (epsf) cutext(outf);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* ----- initialize ----- */	Err	vernunftzentrum.de	70
i+  zero_sym();	Err	vernunftzentrum.de	70
i+  pagenum=0;	Err	vernunftzentrum.de	70
i+  tunenum=tnum1=tnum2=0;	Err	vernunftzentrum.de	70
i+  verbose=0;	Err	vernunftzentrum.de	70
i+  file_open=file_initialized=0;	Err	vernunftzentrum.de	70
i+  nepsf=0;	Err	vernunftzentrum.de	70
i+  bposy=0;	Err	vernunftzentrum.de	70
i+  posx=cfmt.leftmargin;	Err	vernunftzentrum.de	70
i+  posy=cfmt.pageheight-cfmt.topmargin; 	Err	vernunftzentrum.de	70
i+  writenum=99;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  strcpy(page_init, "");	Err	vernunftzentrum.de	70
i+  strcpy (bbb,"");	Err	vernunftzentrum.de	70
i+  for (j=0;j<ninf;j++) {strcat(bbb,in_file[j]); strcat(bbb," ");}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if ((do_mode == DO_OUTPUT) && make_index) open_index_file (INDEXFILE);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* ----- start infinite loop for interactive mode ----- */	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (interactive) {	Err	vernunftzentrum.de	70
i+      printf ("\nSelect tunes: ");	Err	vernunftzentrum.de	70
i+/*|   gets (aaa); |*/	Err	vernunftzentrum.de	70
i+/*|   fgets (aaa, sizeof(aaa), stdin); |*/	Err	vernunftzentrum.de	70
i+      getline(aaa,500,stdin);	Err	vernunftzentrum.de	70
i+      if (isblank(aaa)) break;	Err	vernunftzentrum.de	70
i+      sscanf(aaa,"%s",ccc);	Err	vernunftzentrum.de	70
i+      if (ccc[0]=='?') {	Err	vernunftzentrum.de	70
i+        printf ("%s\n", bbb);	Err	vernunftzentrum.de	70
i+        continue;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      if (ccc[0]=='*') {	Err	vernunftzentrum.de	70
i+        strcat (bbb,strchr(aaa,'*')+1);	Err	vernunftzentrum.de	70
i+        strcpy (aaa,bbb);	Err	vernunftzentrum.de	70
i+        printf ("%s\n", aaa);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      if (ccc[0]=='!') {	Err	vernunftzentrum.de	70
i+        strcpy (bbb,"");	Err	vernunftzentrum.de	70
i+        for (j=0;j<ninf;j++) {	Err	vernunftzentrum.de	70
i+          strcat (bbb,in_file[j]);	Err	vernunftzentrum.de	70
i+          strcat (bbb," ");	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        strcat (bbb,strchr(aaa,'!')+1);	Err	vernunftzentrum.de	70
i+        strcpy (aaa,bbb);	Err	vernunftzentrum.de	70
i+        printf ("%s\n", aaa);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      strcpy(bbb,aaa);	Err	vernunftzentrum.de	70
i+      urgc=make_arglist (aaa, urgv);	Err	vernunftzentrum.de	70
i+      if (!strcmp(urgv[1],"q"))    break;	Err	vernunftzentrum.de	70
i+      if (!strcmp(urgv[1],"quit")) break;	Err	vernunftzentrum.de	70
i+      init_ops(0);	Err	vernunftzentrum.de	70
i+      retcode=parse_args (urgc, urgv);	Err	vernunftzentrum.de	70
i+      if (retcode) continue;	Err	vernunftzentrum.de	70
i+      ops_into_fmt (&cfmt);	Err	vernunftzentrum.de	70
i+      if (do_mode==DO_OUTPUT) {	Err	vernunftzentrum.de	70
i+        rc1=set_page_format();	Err	vernunftzentrum.de	70
i+        if (rc1==0) continue;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      if (epsf) cutext(outf);	Err	vernunftzentrum.de	70
i+      if (help_me==1) {	Err	vernunftzentrum.de	70
i+        write_help();	Err	vernunftzentrum.de	70
i+        continue;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      if (help_me==2) {	Err	vernunftzentrum.de	70
i+        print_format(cfmt);	Err	vernunftzentrum.de	70
i+        continue;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    /* ----- loop over files in list ---- */	Err	vernunftzentrum.de	70
i+    if (ninf==0) printf ("++++ No input files\n");	Err	vernunftzentrum.de	70
i+    for (j=0;j<ninf;j++) {	Err	vernunftzentrum.de	70
i+      getext (in_file[j],ext);	Err	vernunftzentrum.de	70
i+      /*  skip .ps and .eps files */	Err	vernunftzentrum.de	70
i+      if ((!strcmp(ext,"ps"))||(!strcmp(ext,"eps"))) continue;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      if ((fin = fopen (in_file[j],"r")) == NULL) {      	Err	vernunftzentrum.de	70
i+        if (!strcmp(ext,"")) strext (in_file[j],in_file[j],"abc",1);	Err	vernunftzentrum.de	70
i+        if ((fin = fopen (in_file[j],"r")) == NULL) { 	Err	vernunftzentrum.de	70
i+          printf ("++++ Cannot open input file: %s\n", in_file[j]);	Err	vernunftzentrum.de	70
i+          continue;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      isel=psel[j];	Err	vernunftzentrum.de	70
i+      search_field=s_field[isel];	Err	vernunftzentrum.de	70
i+      npat=rehash_selectors (sel_str[isel], xref_str, pat);	Err	vernunftzentrum.de	70
i+      dfmt=sfmt;	Err	vernunftzentrum.de	70
i+      strcpy(infostr, in_file[j]);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      if (do_mode==DO_INDEX) {	Err	vernunftzentrum.de	70
i+        printf ("%s:\n", in_file[j]);	Err	vernunftzentrum.de	70
i+        do_index (fin,xref_str,npat,pat,select_all,search_field);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+      else {	Err	vernunftzentrum.de	70
i+        if (!epsf) {	Err	vernunftzentrum.de	70
i+          strext (outf, outf, "ps", 1);	Err	vernunftzentrum.de	70
i+          if (choose_outname) strext (outf, in_file[j], "ps", 1);	Err	vernunftzentrum.de	70
i+          open_output_file(outf,in_file[j]);	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        printf ("%s: ", in_file[j]); 	Err	vernunftzentrum.de	70
i+        if ((vb>=3) || interactive) printf ("\n"); 	Err	vernunftzentrum.de	70
i+        process_file (fin,fout,xref_str,npat,pat,select_all,search_field);	Err	vernunftzentrum.de	70
i+        printf ("\n");	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (!interactive) break;	Err	vernunftzentrum.de	70
i+  }  	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if ((!interactive) && (do_mode==DO_INDEX)) 	Err	vernunftzentrum.de	70
i+    printf ("Selected %d title%s of %d\n", tnum1, tnum1==1?"":"s", tnum2);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  close_output_file ();	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if ((do_mode == DO_OUTPUT) && make_index) close_index_file ();	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  exit (0);	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
1diff --git a/bach.abc b/bach.abc	/ckeen/repos/abc2ps/file/bach.abc.gph	vernunftzentrum.de	70
i@@ -0,0 +1,28 @@	Err	vernunftzentrum.de	70
i+%%indent 1.4cm	Err	vernunftzentrum.de	70
i+%%voicefont Times-Roman 28	Err	vernunftzentrum.de	70
i+%%titlefont Times-Roman 18	Err	vernunftzentrum.de	70
i+%%barnumfont Times-Roman 11	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:1 	Err	vernunftzentrum.de	70
i+T: Praeludium II (WT II)	Err	vernunftzentrum.de	70
i+C: J.S. Bach	Err	vernunftzentrum.de	70
i+M: C	Err	vernunftzentrum.de	70
i+L: 1/16	Err	vernunftzentrum.de	70
i+K:Cm	Err	vernunftzentrum.de	70
i+V:RH clef=treble staves=2 brace=2 name="2."	Err	vernunftzentrum.de	70
i+V:LH clef=bass	Err	vernunftzentrum.de	70
i+[V:RH]  zGFG AFEF GEDE FDCD   | E2c2F2c2 E2c2D2=B2  | 	Err	vernunftzentrum.de	70
i+[V:LH]  c2c'2f2c'2 e2c'2d2=b2 | cgfg bfef gede fdcd |  	Err	vernunftzentrum.de	70
i+%	Err	vernunftzentrum.de	70
i+[V:RH]  CEGc Dc=B=A DGBd EdcB | EAce Fedc FBdf Gfed | ecBc dBAB cBAG Fzz2|	Err	vernunftzentrum.de	70
i+[V:LH]  e2c2f2d2 g2f2g2e2     | a2g2=a2f2 b2a2=b2g2 | c'a'g'a' bg'f'g' a2 z2ze'd'c'|	Err	vernunftzentrum.de	70
i+%	Err	vernunftzentrum.de	70
i+[V:RH]  dBAB cAGA BAGF Ezz2          | cAGA BGFG AFEF TA2A2           |	Err	vernunftzentrum.de	70
i+[V:LH]  bg'f'g' af'e'f' g2Z2 z_d'c'b | af'e'f' ge'd'e' fd'c'd' ec'bc' |	Err	vernunftzentrum.de	70
i+%	Err	vernunftzentrum.de	70
i+[V:RH]   AGFG TA2A2 Adfe dcBA | GBeG FeFd eBAB cAGA |	Err	vernunftzentrum.de	70
i+[V:LH]   dgfg caga B2b2 z2 d2 | e2c2A2B2 E2e2A2e2   |	Err	vernunftzentrum.de	70
i+%	Err	vernunftzentrum.de	70
i+[V:RH]   BGFG AFEF GEDE C2A2 | B,2G2A,2F2 G,B,EG- GFED | EGcF BEAD [B,8EG] :|	Err	vernunftzentrum.de	70
i+[V:LH]   G2e2F2d2 egfg afef  | gede fdcd e2g2a2b2      |c'2a2b2B2 zeBG C4  :|	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
1diff --git a/blue_boy_bass.abc b/blue_boy_bass.abc	/ckeen/repos/abc2ps/file/blue_boy_bass.abc.gph	vernunftzentrum.de	70
i@@ -0,0 +1,35 @@	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X: 1	Err	vernunftzentrum.de	70
i+T: Blue Boy 	Err	vernunftzentrum.de	70
i+C: Barney Kessel	Err	vernunftzentrum.de	70
i+C: Herzel's Bass Line	Err	vernunftzentrum.de	70
i+M: 4/4	Err	vernunftzentrum.de	70
i+L: 1/4	Err	vernunftzentrum.de	70
i+K: C bass	Err	vernunftzentrum.de	70
i+ "C"c2 c>c- | c4 | c2 c>c-|c4 | \	Err	vernunftzentrum.de	70
i+ "F" f2 f>f-| f4 | "C" c2 c>c-| c4 |	Err	vernunftzentrum.de	70
i+  (3"G"g/^f/g/ -g z "F"(3f/"E"e/"F"f/| -f z "F"f\	Err	vernunftzentrum.de	70
i+      ^f|1  "C"cef^f|"G"gz z4\	Err	vernunftzentrum.de	70
i+   :|2"C"cef^f|"G"g^gab|	Err	vernunftzentrum.de	70
i+"C"c'dec|"Dm"df"Eb0"_ed|"C"cdef|"Gm7"gf"C7"ec|   	Err	vernunftzentrum.de	70
i+"F7"fgag|fg"Fm7"_af|"Em7b5"edc_b,|"A7"a,b,^ce|	Err	vernunftzentrum.de	70
i+"Dm7"dcb,a,|"G7"g,a,b,d|"C"c>a,-"A7"a,>_b,-| "Bb"_b,>=b,-"B"b,2 |	Err	vernunftzentrum.de	70
i+"C"c"C#"^c"C"=c^f,|"F"f,"F#"^f,"F"=f,b,|"C"c"C#"^c"C"=c"C#"^c|"C"cdeg|	Err	vernunftzentrum.de	70
i+"F"f"F#"^f"F"=fa|"Bb"b"Eb"_e"Ab"_a_e|"Db"_d"Gb"_g"F"f"Bb"_b|"Em7b5"e_b"A7"ae|	Err	vernunftzentrum.de	70
i+"Dm7"defg|"A7"aed_d|"C"c>a,-"A7"a,>d-|"Dm7"dzz2|	Err	vernunftzentrum.de	70
i+ "C"c2 c>c- | c4 | c2 c>c-|c4 | \	Err	vernunftzentrum.de	70
i+ "F" f2 f>f-| f4 | "C" c2 c>c-| c4 |	Err	vernunftzentrum.de	70
i+  (3"G"g/^f/g/ -g z "F"(3f/"E"e/"F"f/| -f z "F"f^f| "C"cef^f|"G"gz z2 |	Err	vernunftzentrum.de	70
i+  (3"G"g/^f/g/ -g z "F"(3f/"E"e/"F"f/| -f z "F"f^f| "C"cef^f|"G"gz z2 |	Err	vernunftzentrum.de	70
i+  (3"G"g/^f/g/ -g z "F"(3f/"E"e/"F"f/| -f z "F"f^f| "C"c zz c|z c z  THc|]	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+L:1/4	Err	vernunftzentrum.de	70
i+  \M:3/4\ (3"G"g^fg -g2 z2 |"F"(3f"E"e"F"f -f2 z2 |\M:2/4\"F"f4\	Err	vernunftzentrum.de	70
i+      ^f4| \M:4/4\ "C"c2e2f2^f2|"G"g2z2 z4 |	Err	vernunftzentrum.de	70
i+L:1/4	Err	vernunftzentrum.de	70
i+  \M:3/4\ (3"G"g^fg -g2 |"F"(3f"E"e"F"f -f2 |\M:2/4\"F"f4\	Err	vernunftzentrum.de	70
i+      ^f4| \	Err	vernunftzentrum.de	70
i+M:4/4	Err	vernunftzentrum.de	70
i+L:1/4	Err	vernunftzentrum.de	70
i+ "C"c zz c|z c z  THc|]	Err	vernunftzentrum.de	70
1diff --git a/bran5.abc b/bran5.abc	/ckeen/repos/abc2ps/file/bran5.abc.gph	vernunftzentrum.de	70
i@@ -0,0 +1,54 @@	Err	vernunftzentrum.de	70
i+%%indent 60pt	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+%%leftmargin 1.8cm	Err	vernunftzentrum.de	70
i+%%voicefont  Times-Roman 12	Err	vernunftzentrum.de	70
i+%%titlefont Times-Roman 24	Err	vernunftzentrum.de	70
i+%%subtitlefont Times-Roman 18	Err	vernunftzentrum.de	70
i+%%composerfont Times-Roman 12	Err	vernunftzentrum.de	70
i+%%staffwidth 18.0cm	Err	vernunftzentrum.de	70
i+%%scale 0.65	Err	vernunftzentrum.de	70
i+%%musicspace 0.5cm	Err	vernunftzentrum.de	70
i+%%tempofont Times-Roman	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+%%topspace 0	Err	vernunftzentrum.de	70
i+%%titlespace 0.2cm	Err	vernunftzentrum.de	70
i+%%composerspace 0	Err	vernunftzentrum.de	70
i+%%musicspace 0	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:1	Err	vernunftzentrum.de	70
i+T: CONCERTO No. 5	Err	vernunftzentrum.de	70
i+T: I	Err	vernunftzentrum.de	70
i+C: Johann Sebastian Bach	Err	vernunftzentrum.de	70
i+C: BWV 1050	Err	vernunftzentrum.de	70
i+M: C|	Err	vernunftzentrum.de	70
i+Q:"Allegro"	Err	vernunftzentrum.de	70
i+L: 1/8	Err	vernunftzentrum.de	70
i+K: D	Err	vernunftzentrum.de	70
i+V:1 clef=treble name="Flauto traverso"     sname="Fl."	Err	vernunftzentrum.de	70
i+V:2 clef=treble name="Violino\\principale" sname="Vl. pr."  spc=+5	Err	vernunftzentrum.de	70
i+V:3 clef=treble name="Violino\\in ripieno" sname="Vl." stv=4 brk=4	Err	vernunftzentrum.de	70
i+V:4 clef=alto   name="Viola\\in ripieno"   sname="Vla."	Err	vernunftzentrum.de	70
i+V:5 clef=bass   name="Violoncello"         sname="Vc." 	Err	vernunftzentrum.de	70
i+V:6 clef=bass   name="Violone"             sname="Vne."     spc=+5	Err	vernunftzentrum.de	70
i+V:7 clef=treble name="Cembalo\\concertato" sname="C." brc=2 stv=2 spc=-5	Err	vernunftzentrum.de	70
i+V:8 clef=bass   	Err	vernunftzentrum.de	70
i+%	Err	vernunftzentrum.de	70
i+[V:1] 	Err	vernunftzentrum.de	70
i+   z8 | z8 | z8 |	Err	vernunftzentrum.de	70
i+[V:2] 	Err	vernunftzentrum.de	70
i+   [L:1/16] DDFF AAdd cdcB AGFE| DDFF AAdd e2A2 z2e2|ffee ggff bbaa ccdd|	Err	vernunftzentrum.de	70
i+[V:3] [L:1/16] DDFF AAdd cdcB AGFE| DDFF AAdd e2A2 z2e2|ffee ggff bbaa ccdd|	Err	vernunftzentrum.de	70
i+[V:4] f2 zf edec|dAdf cdec|dad'c' d'dgf|	Err	vernunftzentrum.de	70
i+[V:5] d2 zd abc'a | fefd abc'a| d'c'ba gfed|	Err	vernunftzentrum.de	70
i+[V:6] d2 zd abc'a | fefd abc'a| d'c'ba gfed|	Err	vernunftzentrum.de	70
i+[V:7] [D2FAd] x2 x4| x8 | x8|	Err	vernunftzentrum.de	70
i+[V:8] [d2f2a2] zd abc'a| fefd abc'a| d'c'ba gfed|	Err	vernunftzentrum.de	70
i+%	Err	vernunftzentrum.de	70
i+[V:1] z8 | z8 | z8 |	Err	vernunftzentrum.de	70
i+[V:2] GGFF BBAA CCDD A,A,GG| FEFD EEA,A, DEFG ABcA | ddcc eedd ggff bbaa|	Err	vernunftzentrum.de	70
i+[V:3] GGFF BBAA CCDD A,A,GG| FEFD EEA,A, DEFG ABcA | ddcc eedd ggff bbaa|	Err	vernunftzentrum.de	70
i+[V:4] eddd gfeA| AdBc d/e/f/g/ a/b/c'/a/|d'fba cdec|	Err	vernunftzentrum.de	70
i+[V:5] cdGF EDCc|dBGA B/c/d/e/ f/g/a/f/ | bagf edcA| 	Err	vernunftzentrum.de	70
i+[V:6] cdgf edcA|dBGA B/c/d/e/ f/g/a/f/ | bagf edcA| 	Err	vernunftzentrum.de	70
i+[V:7] x8 | x8 | x8 |	Err	vernunftzentrum.de	70
i+[V:8] cdgf edcA|dBGA B/c/d/e/ f/g/a/f/ | bagf edcA| 	Err	vernunftzentrum.de	70
1diff --git a/buffer.h b/buffer.h	/ckeen/repos/abc2ps/file/buffer.h.gph	vernunftzentrum.de	70
i@@ -0,0 +1,202 @@	Err	vernunftzentrum.de	70
i+/*  	Err	vernunftzentrum.de	70
i+ *  This file is part of abc2ps, 	Err	vernunftzentrum.de	70
i+ *  Copyright (C) 1996,1997,1998  Michael Methfessel	Err	vernunftzentrum.de	70
i+ *  See file abc2ps.c for details.	Err	vernunftzentrum.de	70
i+ */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*  subroutines to handle output buffer  */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* PUTn: add to buffer with n arguments */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define PUT0(f) {sprintf(mbf,f); a2b(mbf); }	Err	vernunftzentrum.de	70
i+#define PUT1(f,a) {sprintf(mbf,f,a); a2b(mbf); }	Err	vernunftzentrum.de	70
i+#define PUT2(f,a,b) {sprintf(mbf,f,a,b); a2b(mbf); }	Err	vernunftzentrum.de	70
i+#define PUT3(f,a,b,c) {sprintf(mbf,f,a,b,c); a2b(mbf); }	Err	vernunftzentrum.de	70
i+#define PUT4(f,a,b,c,d) {sprintf(mbf,f,a,b,c,d); a2b(mbf); }	Err	vernunftzentrum.de	70
i+#define PUT5(f,a,b,c,d,e) {sprintf(mbf,f,a,b,c,d,e); a2b(mbf); }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- a2b: appends string to output buffer ----- */	Err	vernunftzentrum.de	70
i+void a2b (t)	Err	vernunftzentrum.de	70
i+char *t;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int l,i;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  l=strlen(t);	Err	vernunftzentrum.de	70
i+  /*  printf ("Append %d <%s>\n", l, t); */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (nbuf+l>BUFFSZ) {	Err	vernunftzentrum.de	70
i+    printf("+++ a2b: buffer full, BUFFSZ=%d\n", BUFFSZ);	Err	vernunftzentrum.de	70
i+    exit (1);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (i=0;i<l;i++) buf[nbuf+i]=t[i];	Err	vernunftzentrum.de	70
i+  nbuf += l;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- bskip(h): translate down by h points in output buffer ---- */	Err	vernunftzentrum.de	70
i+void bskip(h)	Err	vernunftzentrum.de	70
i+float h;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  if (h*h>0.0001) {	Err	vernunftzentrum.de	70
i+    PUT1("0 %.2f T\n", -h)	Err	vernunftzentrum.de	70
i+    bposy=bposy-h;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- init_pdims: initialize page dimensions ----- */	Err	vernunftzentrum.de	70
i+void init_pdims ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  if (in_page) return;	Err	vernunftzentrum.de	70
i+  posx=cfmt.leftmargin;	Err	vernunftzentrum.de	70
i+  posy=cfmt.pageheight-cfmt.topmargin; 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- clear_buffer ------- */	Err	vernunftzentrum.de	70
i+void clear_buffer ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  nbuf   = 0;	Err	vernunftzentrum.de	70
i+  bposy  = 0.0;	Err	vernunftzentrum.de	70
i+  ln_num = 0;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- write_index_entry ------- */	Err	vernunftzentrum.de	70
i+void write_index_entry ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char s[801];	Err	vernunftzentrum.de	70
i+  float w,dx1,dx2;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (!index_initialized) init_index_file ();	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (vb>=8) printf("Write index entry: %5d  <%s>\n",	Err	vernunftzentrum.de	70
i+                    pagenum, info.title);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* spacing determined here */	Err	vernunftzentrum.de	70
i+  index_posy = index_posy-1.2*cfmt.indexfont.size;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (index_posy-cfmt.indexfont.size < cfmt.botmargin) {	Err	vernunftzentrum.de	70
i+    close_index_page (findex);	Err	vernunftzentrum.de	70
i+    init_index_page (findex);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  dx1 = 1.8*cfmt.indexfont.size;	Err	vernunftzentrum.de	70
i+  dx2 = dx1+cfmt.indexfont.size;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  tex_str (info.title,s,&w);	Err	vernunftzentrum.de	70
i+  if (strlen(s)==0) strcpy (s, "No title");	Err	vernunftzentrum.de	70
i+  fprintf (findex, "%.2f %.2f M (%d) lshow\n", 	Err	vernunftzentrum.de	70
i+           index_posx+dx1, index_posy, pagenum);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (findex, "%.2f %.2f M (%s) S\n", 	Err	vernunftzentrum.de	70
i+           index_posx+dx2, index_posy, s);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (strlen(info.rhyth) || strlen(info.orig)) {	Err	vernunftzentrum.de	70
i+    fprintf (findex, "(  (");	Err	vernunftzentrum.de	70
i+    if (strlen(info.rhyth)) fprintf (findex, "%s", info.rhyth);	Err	vernunftzentrum.de	70
i+    if (strlen(info.rhyth) && strlen(info.orig))	Err	vernunftzentrum.de	70
i+      fprintf (findex, ", ");	Err	vernunftzentrum.de	70
i+    if (strlen(info.orig)) fprintf (findex, "%s", info.orig);	Err	vernunftzentrum.de	70
i+    fprintf (findex, ")) S\n");	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (strlen(info.comp)) fprintf (findex, "(   - %s) S\n", info.comp);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (cfmt.withxrefs) fprintf (findex, "(   [%s]) S\n", info.xref);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- write_buffer: write buffer contents, break at full pages ---- */	Err	vernunftzentrum.de	70
i+void write_buffer (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,l,b1,b2,nb;	Err	vernunftzentrum.de	70
i+  float p1,dp;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (nbuf==0) return;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  writenum++;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if ((writenum==1) && make_index) write_index_entry();	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  nb=0;	Err	vernunftzentrum.de	70
i+  for (l=0;l<ln_num;l++) {	Err	vernunftzentrum.de	70
i+    b1=0;	Err	vernunftzentrum.de	70
i+    p1=0;	Err	vernunftzentrum.de	70
i+    if (l>0) {	Err	vernunftzentrum.de	70
i+      b1=ln_buf[l-1];	Err	vernunftzentrum.de	70
i+      p1=ln_pos[l-1];	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    b2=ln_buf[l];	Err	vernunftzentrum.de	70
i+    dp=ln_pos[l]-p1;	Err	vernunftzentrum.de	70
i+    if ((posy+dp<cfmt.botmargin) && (!epsf)) {	Err	vernunftzentrum.de	70
i+      write_pagebreak (fp);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    for (i=b1;i<b2;i++) putc(buf[i],fp);	Err	vernunftzentrum.de	70
i+    posy=posy+dp;	Err	vernunftzentrum.de	70
i+    nb=ln_buf[l];	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (nb<nbuf) {	Err	vernunftzentrum.de	70
i+    for (i=nb;i<nbuf;i++) putc(buf[i],fp);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  clear_buffer();	Err	vernunftzentrum.de	70
i+  return;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- buffer_eob: handle completed block in buffer ------- */	Err	vernunftzentrum.de	70
i+/* if the added stuff does not fit on current page, write it out	Err	vernunftzentrum.de	70
i+   after page break and change buffer handling mode to pass though */	Err	vernunftzentrum.de	70
i+void buffer_eob (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int do_break;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (ln_num>=BUFFLN) 	Err	vernunftzentrum.de	70
i+    rx("max number off buffer lines exceeded"," -- check BUFFLN");	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  ln_buf[ln_num]=nbuf;	Err	vernunftzentrum.de	70
i+  ln_pos[ln_num]=bposy;	Err	vernunftzentrum.de	70
i+  ln_num++;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (!use_buffer) {	Err	vernunftzentrum.de	70
i+    write_buffer (fp);	Err	vernunftzentrum.de	70
i+    return;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  do_break=0;	Err	vernunftzentrum.de	70
i+  if (posy+bposy<cfmt.botmargin) do_break=1;	Err	vernunftzentrum.de	70
i+  if (cfmt.oneperpage) do_break=1;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (do_break && (!epsf)) {	Err	vernunftzentrum.de	70
i+    if (tunenum != 1 ) write_pagebreak (fp);	Err	vernunftzentrum.de	70
i+    write_buffer (fp);	Err	vernunftzentrum.de	70
i+    use_buffer=0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- check_buffer: dump buffer if less than nb bytes avilable --- */	Err	vernunftzentrum.de	70
i+void check_buffer (fp, nb)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+int nb;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char mm[81];	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (nbuf+nb>BUFFSZ) {	Err	vernunftzentrum.de	70
i+    sprintf (mm, "BUFFSZ exceeded at line %d", ln_num);	Err	vernunftzentrum.de	70
i+    wng("possibly bad page breaks, ", mm);	Err	vernunftzentrum.de	70
i+    write_buffer (fp);	Err	vernunftzentrum.de	70
i+    use_buffer=0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
1diff --git a/celloprelude.abc b/celloprelude.abc	/ckeen/repos/abc2ps/file/celloprelude.abc.gph	vernunftzentrum.de	70
i@@ -0,0 +1,34 @@	Err	vernunftzentrum.de	70
i+%%barlabelfont Times-Bold 18 box	Err	vernunftzentrum.de	70
i+%%barnumberfont Times-Roman 12 box	Err	vernunftzentrum.de	70
i+%%barnumbers 5	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:1	Err	vernunftzentrum.de	70
i+T: Prelude from the first Cello Suite 	Err	vernunftzentrum.de	70
i+T: (transposed)	Err	vernunftzentrum.de	70
i+C: J.S. Bach	Err	vernunftzentrum.de	70
i+M: 4/4	Err	vernunftzentrum.de	70
i+L: 1/16	Err	vernunftzentrum.de	70
i+K:D	Err	vernunftzentrum.de	70
i+"A"[|] (DAf)e fAfA (DAf)e fAfA | (DBg)f gBgB (DBg)f gBgB | 	Err	vernunftzentrum.de	70
i+(Dcg)f gcgc (Dcg)f gcgc | (Ddf)d fdfd (Ddf)d fdfd |	Err	vernunftzentrum.de	70
i+(DBf)e fdcd Bdcd FA^GF  | (^Gde)d eded (^Gde)d eded |	Err	vernunftzentrum.de	70
i+(cea)^g aede cede AcBA  | (B,Fd)c dFdF (B,Fd)c dFdF |	Err	vernunftzentrum.de	70
i+(B,^GA)B AGFE (dcB)a ^gfed | (cBA)a eace (ABc)e dcBA |	Err	vernunftzentrum.de	70
i+^d(A=cB) cAdA f(AcB) cAdA  | (GBe)f geBA (GBe)f ge^cB |	Err	vernunftzentrum.de	70
i+^A(cAc) ecec A(cAc) ecec   "B"| (dcB)d cdec dcBA GFED |	Err	vernunftzentrum.de	70
i+CGAG AGAG CGAG AGAG | (DF=c)B cFcF (DFc)B cFcF |	Err	vernunftzentrum.de	70
i+(DGB)A BGBG (DGB)A BGBG | (D^cg)f gcgc (Dcg)f gcgc |	Err	vernunftzentrum.de	70
i+(DAf)e fdcB AGFE DCB,A, | ^G,(EBc) dBcd G,(EBc) dBcd |	Err	vernunftzentrum.de	70
i+=G,(EAB) cABc =G,(EAB) cABc | G,(EAc) (e^g(a2) a)EF=G ABcd "C"|	Err	vernunftzentrum.de	70
i+%second part	Err	vernunftzentrum.de	70
i+(ecA)B cdef (gec)d efga | _ba^ga a=gfg gec=B AEFG |	Err	vernunftzentrum.de	70
i+A,(EAc) efge (fdA)G FDEF | A,DFA defe ^g=fef fe^de |	Err	vernunftzentrum.de	70
i+e=dcd dB^GF EGBd e^gag | aecB ceAc EA^GF EDCB, "D"|	Err	vernunftzentrum.de	70
i+A,2 (=gf edcB A)(gfe dcBA | G)(fed cBAG F)(edc BAGF |	Err	vernunftzentrum.de	70
i+F)(dcB) [cc]e[AA]e [BB]e[cc]e [dd]e[BB]e | [cc]e[AA]e [dd]e[BB]e [cc]e[AA]e [dd]e[BB]e |	Err	vernunftzentrum.de	70
i+[cc]e[AA]e [BB]e[cc]e [dd]e[ee]e [ff]e[AA]e | [ee]e[ff]e [gg]e[AA]e [ff]e[gg]e [aa]e[ff]e |	Err	vernunftzentrum.de	70
i+[gg]e[ff]e [gg]e[ee]e [ff]e[ee]e [ff]e[dd]e | [ee]e[dd]e [ee]e[cc]e [dd]e[cc]e [dd]e[BB]e |	Err	vernunftzentrum.de	70
i+ceAB =cA^cA dA^dA eA=fA | ^fAgA ^gAaA ^bA=bA =c'A^c'A |	Err	vernunftzentrum.de	70
i+d'(fAf) d'fd'f d'(fAf) d'fd'f | d'(eAe) d'ed'e d'(eAe) d'ed'e |	Err	vernunftzentrum.de	70
i+c'(gAg) c'gc'g c'(gAg) c'gc'g | [D16Afd'] |]	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
1diff --git a/desafinado.abc b/desafinado.abc	/ckeen/repos/abc2ps/file/desafinado.abc.gph	vernunftzentrum.de	70
i@@ -0,0 +1,21 @@	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X: 1   % ---- desafinado in F	Err	vernunftzentrum.de	70
i+T: Desafinado 	Err	vernunftzentrum.de	70
i+C: A. Jobim	Err	vernunftzentrum.de	70
i+C: Chorus by Stan Getz	Err	vernunftzentrum.de	70
i+M: C|	Err	vernunftzentrum.de	70
i+L: 1/4	Err	vernunftzentrum.de	70
i+Q: "Bossa Nova"	Err	vernunftzentrum.de	70
i+K: F	Err	vernunftzentrum.de	70
i+z2 A<c-||"FM7"c2z2|C/D/E/F/ (3:2:2ED/ ^C//D//|"G7+11"F3-F/_D/|_D4|"Gm7" z4|"C7"A>G ^F/G/ (3A/B/=B/ |	Err	vernunftzentrum.de	70
i+"A07"c>_E E/DE/-|"D7b9"_E2zz/D/|"Gm7" cBA2|"A7b9"z/G/B2-B/A//G// |"D7" ^F/A/E/G/ ^F/D_E/-|"D7b9"_E4|	Err	vernunftzentrum.de	70
i+"G7b9"z2z/D/F/G/|_A3-A/G//F//|=B,4| _AG-"Gb7"G_B,|"FM7"A, z z2|z/A,/C/E/ G F/G/-|	Err	vernunftzentrum.de	70
i+"G7+11"G>F_D2-|_D z z2|"Gm7"z2 F/^C/D/E/|"C7" F/D/E/F/ G/A/B/=B/|"A07" d c/_E/-_E2|"D7b9"z2z/D/^C/D/|	Err	vernunftzentrum.de	70
i+"Gm7"c/Bc B/A/G/|"Eb9"B A/B/-B A/G//F//|"Dm7"A/GA G/F/E/|"B07"G/FG/-"E7"G>F|"AM7"E/A,/^F/E/ ^C<A,|"Ab7"z{_A,}F/_E/ C<_A,|	Err	vernunftzentrum.de	70
i+"G"z{G,D}E/D/ =B,/A,/B,/G,/-|"FM7" G,/A,/C/E/ "E7"GF/E/-|"AM7"E2z z/^C/|"Bbdim7"A,/^C/E/^F/ G2|"Bm7"^F3z/^c/-|"E7"(3^c/d/e/ c2-c/=B/|	Err	vernunftzentrum.de	70
i+"AM7"^G^F/E/ F<G|"Am7"=B/AE/ =C/DE/-|"Bm7"E2z/CE/|"E7"G/E/G E2|"CM7"zz/ G,/ C/E/ G-|"C#dim7"G>A G/F/E/F/|	Err	vernunftzentrum.de	70
i+"Dm7"G4 |"G7" E/D/^C/D/-D2|"Gm7"z2 (3D/_E/D/ ^C/D/|"A07"B=D"D7b9"^C/D/B|"Gm7"(3D/_E/D/ ^C/D/ .B.^C|"C7"=C/^C/A3|	Err	vernunftzentrum.de	70
i+"FM7"(3C/D/C/ =B,/C/G2-|G>F G/F/z/G/-|"G7+11"G F/_D/-_D2|z2z/AG/|"Gm7"A>G A/GA/-|"C7"AG ^F/G/ (3A/B/c/|	Err	vernunftzentrum.de	70
i+"A07"d/^c=c/-c>=B|"D7b9"_B2_E D/c/-|"Gm7"c2-c/BA//G//|"Bbm"Mc/B/A/G/ MB/A/G/F/|"Am7"A2 z/G/F/E/|"Abdim"G/F/E/D/ F/E/D/E/|	Err	vernunftzentrum.de	70
i+"G7"F4|=B,2F2-|"Bbm7"F3z/F/|"Eb9"cB_A/F/G/F/|"G7"=AF/D/=B,A|"C7"F/D/C/=B,/ _B,/AE/|	Err	vernunftzentrum.de	70
i+"F"G/FF/-F2||"Eb"z2z/_E/E/E/|"F"F4|"Eb"z2z/_E/E/E/|"F"F//C//_E/-E3|"Eb"z2z/_E/E/E/|"F"F4-|F4|]	Err	vernunftzentrum.de	70
1diff --git a/fbook.fmt b/fbook.fmt	/ckeen/repos/abc2ps/file/fbook.fmt.gph	vernunftzentrum.de	70
i@@ -0,0 +1,26 @@	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+%  Emulates the Jazz Fakebook style. 	Err	vernunftzentrum.de	70
i+%  Use caps for title, parts or Q: for tempo.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   scale 0.70	Err	vernunftzentrum.de	70
i+   topmargin 1.5cm	Err	vernunftzentrum.de	70
i+   titlefont Helvetica-Bold 13	Err	vernunftzentrum.de	70
i+   subtitlefont Helvetica-Bold 10	Err	vernunftzentrum.de	70
i+   titleleft false	Err	vernunftzentrum.de	70
i+   titlecaps	Err	vernunftzentrum.de	70
i+   composerfont Helvetica 9	Err	vernunftzentrum.de	70
i+   composerspace 0.3cm	Err	vernunftzentrum.de	70
i+   partsfont Times-Bold 10	Err	vernunftzentrum.de	70
i+   vocalfont Times-Bold 13	Err	vernunftzentrum.de	70
i+   musicspace    0.7cm	Err	vernunftzentrum.de	70
i+   gchordfont Times-Roman 12	Err	vernunftzentrum.de	70
i+   parskipfac 1.0	Err	vernunftzentrum.de	70
i+   leftmargin 1.3cm	Err	vernunftzentrum.de	70
i+   staffwidth 18.4cm	Err	vernunftzentrum.de	70
i+   staffsep   45	Err	vernunftzentrum.de	70
i+   maxshrink  0.65	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+   lineskipfac 1.1	Err	vernunftzentrum.de	70
i+   parskipfac 0	Err	vernunftzentrum.de	70
i+   textspace 0.2cm	Err	vernunftzentrum.de	70
i+   textfont Times-Roman 10	Err	vernunftzentrum.de	70
1diff --git a/fonts.fmt b/fonts.fmt	/ckeen/repos/abc2ps/file/fonts.fmt.gph	vernunftzentrum.de	70
i@@ -0,0 +1,5 @@	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+font AvantGarde-Demi	Err	vernunftzentrum.de	70
i+font Palatino-Bold	Err	vernunftzentrum.de	70
i+font Bookman-Demi	Err	vernunftzentrum.de	70
i+font Helvetica	Err	vernunftzentrum.de	70
1diff --git a/format.h b/format.h	/ckeen/repos/abc2ps/file/format.h.gph	vernunftzentrum.de	70
i@@ -0,0 +1,489 @@	Err	vernunftzentrum.de	70
i+/*  	Err	vernunftzentrum.de	70
i+ *  This file is part of abc2ps, 	Err	vernunftzentrum.de	70
i+ *  Copyright (C) 1996,1997,1998  Michael Methfessel	Err	vernunftzentrum.de	70
i+ *  See file abc2ps.c for details.	Err	vernunftzentrum.de	70
i+ */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*  subroutines connected with page layout  */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+ 	Err	vernunftzentrum.de	70
i+/* ----- fontspec ----- */	Err	vernunftzentrum.de	70
i+void fontspec (f,name,size,box)	Err	vernunftzentrum.de	70
i+char name [];	Err	vernunftzentrum.de	70
i+float size;	Err	vernunftzentrum.de	70
i+int box;	Err	vernunftzentrum.de	70
i+struct FONTSPEC *f;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  strcpy (f->name, name);	Err	vernunftzentrum.de	70
i+  f->size = size;	Err	vernunftzentrum.de	70
i+  f->box  = box;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+ 	Err	vernunftzentrum.de	70
i+/* ----- add_font ----- */	Err	vernunftzentrum.de	70
i+/* checks font list, adds font if new */	Err	vernunftzentrum.de	70
i+int add_font (f)	Err	vernunftzentrum.de	70
i+struct FONTSPEC *f;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,i0,fnum;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  i0=-1;	Err	vernunftzentrum.de	70
i+  for (i=0;i<nfontnames;i++) {	Err	vernunftzentrum.de	70
i+    if (!strcmp(f->name,fontnames[i])) i0=i; 	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (i0>=0) {	Err	vernunftzentrum.de	70
i+    fnum=i0;	Err	vernunftzentrum.de	70
i+    if (vb>=10) printf("Already at %d: font %s\n",fnum,f->name);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    fnum=nfontnames;	Err	vernunftzentrum.de	70
i+    strcpy(fontnames[fnum],f->name);	Err	vernunftzentrum.de	70
i+    if (vb>=10) printf("Add new at %d: font %s\n",fnum,f->name);	Err	vernunftzentrum.de	70
i+    nfontnames++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  return fnum;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- make_font_list ----- */	Err	vernunftzentrum.de	70
i+void make_font_list (f)	Err	vernunftzentrum.de	70
i+struct FORMAT *f;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  if (vb>=10) printf ("Adding fonts from format..\n");	Err	vernunftzentrum.de	70
i+  add_font (&f->titlefont);	Err	vernunftzentrum.de	70
i+  add_font (&f->subtitlefont);	Err	vernunftzentrum.de	70
i+  add_font (&f->composerfont);	Err	vernunftzentrum.de	70
i+  add_font (&f->partsfont);	Err	vernunftzentrum.de	70
i+  add_font (&f->tempofont);	Err	vernunftzentrum.de	70
i+  add_font (&f->vocalfont);	Err	vernunftzentrum.de	70
i+  add_font (&f->textfont);	Err	vernunftzentrum.de	70
i+  add_font (&f->wordsfont);	Err	vernunftzentrum.de	70
i+  add_font (&f->gchordfont);	Err	vernunftzentrum.de	70
i+  add_font (&f->voicefont);	Err	vernunftzentrum.de	70
i+  add_font (&f->barnumfont);	Err	vernunftzentrum.de	70
i+  add_font (&f->barlabelfont);	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_standard_format ----- */	Err	vernunftzentrum.de	70
i+void set_standard_format (f)	Err	vernunftzentrum.de	70
i+struct FORMAT *f;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  strcpy (f->name,           "standard");	Err	vernunftzentrum.de	70
i+  f->pageheight             =   PAGEHEIGHT * CM;	Err	vernunftzentrum.de	70
i+  f->staffwidth             =   STAFFWIDTH * CM;	Err	vernunftzentrum.de	70
i+  f->leftmargin             =   LEFTMARGIN * CM;	Err	vernunftzentrum.de	70
i+  f->topmargin              =   1.0  * CM;	Err	vernunftzentrum.de	70
i+  f->botmargin              =   1.0  * CM;	Err	vernunftzentrum.de	70
i+  f->topspace               =   0.8  * CM;	Err	vernunftzentrum.de	70
i+  f->titlespace             =   0.2  * CM;	Err	vernunftzentrum.de	70
i+  f->subtitlespace          =   0.1  * CM;	Err	vernunftzentrum.de	70
i+  f->composerspace          =   0.2  * CM;	Err	vernunftzentrum.de	70
i+  f->musicspace             =   0.2  * CM;	Err	vernunftzentrum.de	70
i+  f->partsspace             =   0.3  * CM;	Err	vernunftzentrum.de	70
i+  f->staffsep               =  46.0  * PT;	Err	vernunftzentrum.de	70
i+  f->sysstaffsep            =  40.0  * PT;	Err	vernunftzentrum.de	70
i+  f->systemsep              =  55.0  * PT;	Err	vernunftzentrum.de	70
i+  f->vocalspace             =  23.0  * PT;	Err	vernunftzentrum.de	70
i+  f->textspace              =   0.5  * CM;	Err	vernunftzentrum.de	70
i+  f->wordsspace             =   0.0  * CM;	Err	vernunftzentrum.de	70
i+  f->scale                  =   0.70;	Err	vernunftzentrum.de	70
i+  f->maxshrink              =   0.65;	Err	vernunftzentrum.de	70
i+  f->landscape              =   0;	Err	vernunftzentrum.de	70
i+  f->titleleft              =   0;	Err	vernunftzentrum.de	70
i+  f->stretchstaff           =   1;	Err	vernunftzentrum.de	70
i+  f->stretchlast            =   0;	Err	vernunftzentrum.de	70
i+  f->continueall            =   0;	Err	vernunftzentrum.de	70
i+  f->breakall               =   0;	Err	vernunftzentrum.de	70
i+  f->writehistory           =   0;	Err	vernunftzentrum.de	70
i+  f->withxrefs              =   0;	Err	vernunftzentrum.de	70
i+  f->oneperpage             =   0;	Err	vernunftzentrum.de	70
i+  f->titlecaps              =   0;	Err	vernunftzentrum.de	70
i+  f->barsperstaff           =   0;	Err	vernunftzentrum.de	70
i+  f->barnums                =   -1;	Err	vernunftzentrum.de	70
i+  f->lineskipfac            =   1.1;	Err	vernunftzentrum.de	70
i+  f->parskipfac             =   0.4;	Err	vernunftzentrum.de	70
i+  f->strict1                =   0.5;	Err	vernunftzentrum.de	70
i+  f->strict2                =   0.8;	Err	vernunftzentrum.de	70
i+  f->indent                 =   0.0;	Err	vernunftzentrum.de	70
i+  fontspec (&f->titlefont,     "Times-Roman",    15.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->subtitlefont,  "Times-Roman",    12.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->composerfont,  "Times-Italic",   11.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->partsfont,     "Times-Roman",    11.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->tempofont,     "Times-Bold",     10.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->vocalfont,     "Times-Bold",     13.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->textfont,      "Times-Roman",    12.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->wordsfont,     "Times-Roman",    12.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->gchordfont,    "Helvetica",      12.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->voicefont,     "Times-Roman",    12.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->barnumfont,    "Times-Italic",   12.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->barlabelfont,  "Times-Bold",     18.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->indexfont,     "Times-Roman",    11.0, 0); 	Err	vernunftzentrum.de	70
i+  if (vb>=10) printf ("Loading format \"%s\"\n",f->name);	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_pretty_format ----- */	Err	vernunftzentrum.de	70
i+void set_pretty_format (f)	Err	vernunftzentrum.de	70
i+struct FORMAT *f;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  set_standard_format (f);	Err	vernunftzentrum.de	70
i+  strcpy (f->name,    "pretty");	Err	vernunftzentrum.de	70
i+  f->titlespace             =   0.4  * CM;	Err	vernunftzentrum.de	70
i+  f->composerspace          =   0.25 * CM;	Err	vernunftzentrum.de	70
i+  f->musicspace             =   0.25 * CM;	Err	vernunftzentrum.de	70
i+  f->partsspace             =   0.3  * CM;	Err	vernunftzentrum.de	70
i+  f->staffsep               =  50.0  * PT;	Err	vernunftzentrum.de	70
i+  f->sysstaffsep            =  45.0  * PT;	Err	vernunftzentrum.de	70
i+  f->systemsep              =  55.0  * PT;	Err	vernunftzentrum.de	70
i+  f->scale                  =   0.75;	Err	vernunftzentrum.de	70
i+  f->maxshrink              =   0.55;	Err	vernunftzentrum.de	70
i+  f->parskipfac             =   0.1;	Err	vernunftzentrum.de	70
i+  fontspec (&f->titlefont,     "Times-Roman",    18.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->subtitlefont,  "Times-Roman",    15.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->composerfont,  "Times-Italic",   12.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->partsfont,     "Times-Roman",    12.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->tempofont,     "Times-Bold",     10.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->vocalfont,     "Times-Bold",     14.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->textfont,      "Times-Roman",    10.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->wordsfont,     "Times-Roman",    10.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->gchordfont,    "Helvetica",      12.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->voicefont,     "Times-Roman",    12.0, 0); 	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_pretty2_format ----- */	Err	vernunftzentrum.de	70
i+void set_pretty2_format (f)	Err	vernunftzentrum.de	70
i+struct FORMAT *f;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  set_standard_format (f);	Err	vernunftzentrum.de	70
i+  strcpy (f->name,    "pretty2");	Err	vernunftzentrum.de	70
i+  f->titlespace             =   0.4  * CM;	Err	vernunftzentrum.de	70
i+  f->composerspace          =   0.3  * CM;	Err	vernunftzentrum.de	70
i+  f->musicspace             =   0.25 * CM;	Err	vernunftzentrum.de	70
i+  f->partsspace             =   0.2  * CM;	Err	vernunftzentrum.de	70
i+  f->staffsep               =  55.0  * PT;	Err	vernunftzentrum.de	70
i+  f->sysstaffsep            =  45.0  * PT;	Err	vernunftzentrum.de	70
i+  f->systemsep              =  55.0  * PT;	Err	vernunftzentrum.de	70
i+  f->textspace              =   0.2  * CM;	Err	vernunftzentrum.de	70
i+  f->scale                  =   0.70;	Err	vernunftzentrum.de	70
i+  f->maxshrink              =   0.55;	Err	vernunftzentrum.de	70
i+  f->titleleft              =   1;	Err	vernunftzentrum.de	70
i+  f->parskipfac             =   0.1;	Err	vernunftzentrum.de	70
i+  fontspec (&f->titlefont,     "Helvetica-Bold", 16.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->subtitlefont,  "Helvetica-Bold", 13.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->composerfont,  "Helvetica",      10.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->partsfont,     "Times-Roman",    12.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->tempofont,     "Times-Bold",     10.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->vocalfont,     "Times-Bold",     13.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->textfont,      "Times-Roman",    10.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->wordsfont,     "Times-Roman",    10.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->gchordfont,    "Helvetica",      12.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->voicefont,     "Times-Roman",    12.0, 0); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->barnumfont,    "Times-Roman",    11.0, 1); 	Err	vernunftzentrum.de	70
i+  fontspec (&f->barlabelfont,  "Times-Bold",     18.0, 1); 	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- print_font ----- */	Err	vernunftzentrum.de	70
i+void print_font (str,fs)	Err	vernunftzentrum.de	70
i+char *str;	Err	vernunftzentrum.de	70
i+struct FONTSPEC fs;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  printf ("  %-14s %s %.1f", str, fs.name, fs.size);	Err	vernunftzentrum.de	70
i+  if (fs.box) printf (" box");	Err	vernunftzentrum.de	70
i+  printf ("\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- print_format ----- */	Err	vernunftzentrum.de	70
i+void print_format (f)	Err	vernunftzentrum.de	70
i+struct FORMAT f;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char yn[2][5]={"no","yes"};	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  printf ("\nFormat \"%s\":\n", f.name);	Err	vernunftzentrum.de	70
i+  printf ("  pageheight     %.2fcm\n",    f.pageheight/CM);	Err	vernunftzentrum.de	70
i+  printf ("  staffwidth     %.2fcm\n",    f.staffwidth/CM);	Err	vernunftzentrum.de	70
i+  printf ("  topmargin      %.2fcm\n",    f.topmargin/CM);	Err	vernunftzentrum.de	70
i+  printf ("  botmargin      %.2fcm\n",    f.botmargin/CM);	Err	vernunftzentrum.de	70
i+  printf ("  leftmargin     %.2fcm\n",    f.leftmargin/CM);	Err	vernunftzentrum.de	70
i+  printf ("  topspace       %.2fcm\n",    f.topspace/CM);	Err	vernunftzentrum.de	70
i+  printf ("  titlespace     %.2fcm\n",    f.titlespace/CM);	Err	vernunftzentrum.de	70
i+  printf ("  subtitlespace  %.2fcm\n",    f.subtitlespace/CM);	Err	vernunftzentrum.de	70
i+  printf ("  composerspace  %.2fcm\n",    f.composerspace/CM);	Err	vernunftzentrum.de	70
i+  printf ("  musicspace     %.2fcm\n",    f.musicspace/CM);	Err	vernunftzentrum.de	70
i+  printf ("  partsspace     %.2fcm\n",    f.partsspace/CM);	Err	vernunftzentrum.de	70
i+  printf ("  wordsspace     %.2fcm\n",    f.wordsspace/CM);	Err	vernunftzentrum.de	70
i+  printf ("  textspace      %.2fcm\n",    f.textspace/CM);	Err	vernunftzentrum.de	70
i+  printf ("  vocalspace     %.1fpt\n",    f.vocalspace);	Err	vernunftzentrum.de	70
i+  printf ("  staffsep       %.1fpt\n",    f.staffsep);	Err	vernunftzentrum.de	70
i+  printf ("  sysstaffsep    %.1fpt\n",    f.sysstaffsep);	Err	vernunftzentrum.de	70
i+  printf ("  systemsep      %.1fpt\n",    f.systemsep);	Err	vernunftzentrum.de	70
i+  printf ("  scale          %.2f\n",      f.scale);	Err	vernunftzentrum.de	70
i+  printf ("  maxshrink      %.2f\n",      f.maxshrink);	Err	vernunftzentrum.de	70
i+  printf ("  strictness1    %.2f\n",      f.strict1);	Err	vernunftzentrum.de	70
i+  printf ("  strictness2    %.2f\n",      f.strict2);	Err	vernunftzentrum.de	70
i+  printf ("  indent         %.1fpt\n",    f.indent);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  print_font("titlefont",    f.titlefont);	Err	vernunftzentrum.de	70
i+  print_font("subtitlefont", f.subtitlefont);	Err	vernunftzentrum.de	70
i+  print_font("composerfont", f.composerfont);	Err	vernunftzentrum.de	70
i+  print_font("partsfont",    f.partsfont);	Err	vernunftzentrum.de	70
i+  print_font("tempofont",    f.tempofont);	Err	vernunftzentrum.de	70
i+  print_font("vocalfont",    f.vocalfont);	Err	vernunftzentrum.de	70
i+  print_font("gchordfont",   f.gchordfont);	Err	vernunftzentrum.de	70
i+  print_font("textfont",     f.textfont);	Err	vernunftzentrum.de	70
i+  print_font("wordsfont",    f.wordsfont);	Err	vernunftzentrum.de	70
i+  print_font("voicefont",    f.voicefont);	Err	vernunftzentrum.de	70
i+  print_font("barnumberfont",f.barnumfont);	Err	vernunftzentrum.de	70
i+  print_font("barlabelfont", f.barlabelfont);	Err	vernunftzentrum.de	70
i+  print_font("indexfont",    f.indexfont);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  printf ("  lineskipfac    %.1f\n",    f.lineskipfac);	Err	vernunftzentrum.de	70
i+  printf ("  parskipfac     %.1f\n",    f.parskipfac);	Err	vernunftzentrum.de	70
i+  printf ("  barsperstaff   %d\n",      f.barsperstaff);	Err	vernunftzentrum.de	70
i+  printf ("  barnumbers     %d\n",      f.barnums);	Err	vernunftzentrum.de	70
i+  printf ("  landscape      %s\n", yn[f.landscape]);	Err	vernunftzentrum.de	70
i+  printf ("  titleleft      %s\n", yn[f.titleleft]);	Err	vernunftzentrum.de	70
i+  printf ("  titlecaps      %s\n", yn[f.titlecaps]);	Err	vernunftzentrum.de	70
i+  printf ("  stretchstaff   %s\n", yn[f.stretchstaff]);	Err	vernunftzentrum.de	70
i+  printf ("  stretchlast    %s\n", yn[f.stretchlast]);	Err	vernunftzentrum.de	70
i+  printf ("  writehistory   %s\n", yn[f.writehistory]);	Err	vernunftzentrum.de	70
i+  printf ("  continueall    %s\n", yn[f.continueall]);	Err	vernunftzentrum.de	70
i+  printf ("  breakall       %s\n", yn[f.breakall]);	Err	vernunftzentrum.de	70
i+  printf ("  oneperpage     %s\n", yn[f.oneperpage]);	Err	vernunftzentrum.de	70
i+  printf ("  withxrefs      %s\n", yn[f.withxrefs]);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- g_unum: read a number with a unit ----- */	Err	vernunftzentrum.de	70
i+void g_unum (l,s,num)	Err	vernunftzentrum.de	70
i+char *l,*s;	Err	vernunftzentrum.de	70
i+float *num;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float a,b;	Err	vernunftzentrum.de	70
i+  char unit[81];	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  strcpy(unit,"pt");	Err	vernunftzentrum.de	70
i+  sscanf(s,"%f%s", &a, unit);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if      (!strcmp(unit,"cm")) b=a*CM;	Err	vernunftzentrum.de	70
i+  else if (!strcmp(unit,"mm")) b=a*CM*0.1;	Err	vernunftzentrum.de	70
i+  else if (!strcmp(unit,"in")) b=a*IN;	Err	vernunftzentrum.de	70
i+  else if (!strcmp(unit,"pt")) b=a*PT;	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    printf ("+++ Unknown unit \"%s\" in line: %s\n",unit,l); 	Err	vernunftzentrum.de	70
i+    exit (3);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  *num = b;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- g_logv: read a logical variable ----- */ 	Err	vernunftzentrum.de	70
i+void g_logv (l,s,v)	Err	vernunftzentrum.de	70
i+char *l,*s;	Err	vernunftzentrum.de	70
i+int  *v;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int k;	Err	vernunftzentrum.de	70
i+  char t[31];	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  strcpy(t,"1");	Err	vernunftzentrum.de	70
i+  sscanf (s,"%s", t);	Err	vernunftzentrum.de	70
i+  if (!strcmp(t,"1") || !strcmp(t,"yes") || !strcmp(t,"true"))	Err	vernunftzentrum.de	70
i+    k=1;	Err	vernunftzentrum.de	70
i+  else if (!strcmp(t,"0") || !strcmp(t,"no") || !strcmp(t,"false"))	Err	vernunftzentrum.de	70
i+    k=0;	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    printf ("\n+++ Unknown logical value \"%s\" near \"%s\"\n",t,l); 	Err	vernunftzentrum.de	70
i+    exit (3);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  *v = k; 	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- g_fltv: read a float variable, no units ----- */ 	Err	vernunftzentrum.de	70
i+void g_fltv (l,nch,v)	Err	vernunftzentrum.de	70
i+char   *l;	Err	vernunftzentrum.de	70
i+int    nch;	Err	vernunftzentrum.de	70
i+float  *v;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float k;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  sscanf (l+nch,"%f", &k);	Err	vernunftzentrum.de	70
i+  *v = k;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- g_intv: read an int variable, no units ----- */ 	Err	vernunftzentrum.de	70
i+void g_intv (l,nch,v)	Err	vernunftzentrum.de	70
i+char   *l;	Err	vernunftzentrum.de	70
i+int    nch;	Err	vernunftzentrum.de	70
i+int    *v;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int k;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  sscanf (l+nch,"%d", &k);	Err	vernunftzentrum.de	70
i+  *v = k;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- g_fspc: read a font specifier ----- */ 	Err	vernunftzentrum.de	70
i+void g_fspc (l,nch,fn)	Err	vernunftzentrum.de	70
i+char *l;	Err	vernunftzentrum.de	70
i+int  nch;	Err	vernunftzentrum.de	70
i+struct FONTSPEC *fn;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char  fname[101],ssiz[101],sbox[101];	Err	vernunftzentrum.de	70
i+  float fsize;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fsize=fn->size;	Err	vernunftzentrum.de	70
i+  strcpy(sbox,"SnOt");	Err	vernunftzentrum.de	70
i+  strcpy(ssiz,"SnOt");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  sscanf (l+nch,"%s %s %s", fname, ssiz, sbox); 	Err	vernunftzentrum.de	70
i+  if (strcmp(fname,"*")) strcpy (fn->name, fname);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (strcmp(ssiz,"*")) sscanf(ssiz,"%f",&fsize);	Err	vernunftzentrum.de	70
i+  fn->size = fsize;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (!strcmp(sbox,"box"))       fn->box=1;	Err	vernunftzentrum.de	70
i+  else if (!strcmp(sbox,"SnOt")) ;	Err	vernunftzentrum.de	70
i+  else wng ("incorrect font spec: ", l+nch);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (!file_initialized) add_font (fn);	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- interpret_format_line ----- */	Err	vernunftzentrum.de	70
i+/* read a line with a format directive, set in format struct f */	Err	vernunftzentrum.de	70
i+int interpret_format_line (l,f)	Err	vernunftzentrum.de	70
i+char l[];	Err	vernunftzentrum.de	70
i+struct FORMAT *f;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char w[81],fnm[81];	Err	vernunftzentrum.de	70
i+  int nch,i,fnum;	Err	vernunftzentrum.de	70
i+  char *s;	Err	vernunftzentrum.de	70
i+  struct FONTSPEC tempfont;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  strcpy(w,"");	Err	vernunftzentrum.de	70
i+  sscanf(l,"%s%n", w, &nch);	Err	vernunftzentrum.de	70
i+  if (!strcmp(w,"")) return 0;	Err	vernunftzentrum.de	70
i+  if (w[0]=='%') return 0;	Err	vernunftzentrum.de	70
i+  if (vb>=6) printf ("Interpret format line: %s\n", l);	Err	vernunftzentrum.de	70
i+  if (!strcmp(w,"end")) return 1;	Err	vernunftzentrum.de	70
i+  s=l+nch;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if      (!strcmp(w,"pageheight"))    g_unum(l,s,&f->pageheight);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"staffwidth"))    g_unum(l,s,&f->staffwidth);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"topmargin"))     g_unum(l,s,&f->topmargin);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"botmargin"))     g_unum(l,s,&f->botmargin);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"leftmargin"))    g_unum(l,s,&f->leftmargin);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"topspace"))      g_unum(l,s,&f->topspace);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"wordsspace"))    g_unum(l,s,&f->wordsspace);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"titlespace"))    g_unum(l,s,&f->titlespace);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"subtitlespace")) g_unum(l,s,&f->subtitlespace);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"composerspace")) g_unum(l,s,&f->composerspace);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"musicspace"))    g_unum(l,s,&f->musicspace);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"partsspace"))    g_unum(l,s,&f->partsspace);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"staffsep"))      g_unum(l,s,&f->staffsep);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"sysstaffsep"))   g_unum(l,s,&f->sysstaffsep);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"systemsep"))     g_unum(l,s,&f->systemsep);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"vocalspace"))    g_unum(l,s,&f->vocalspace);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"textspace"))     g_unum(l,s,&f->textspace);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"scale"))         g_fltv(l,nch,&f->scale);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"maxshrink"))     g_fltv(l,nch,&f->maxshrink);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"lineskipfac"))   g_fltv(l,nch,&f->lineskipfac);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"parskipfac"))    g_fltv(l,nch,&f->parskipfac);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"barsperstaff"))  g_intv(l,nch,&f->barsperstaff);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"barnumbers"))    g_intv(l,nch,&f->barnums);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"strictness1"))   g_fltv(l,nch,&f->strict1);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"strictness2"))   g_fltv(l,nch,&f->strict2);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"strictness")) {	Err	vernunftzentrum.de	70
i+    g_fltv(l,nch,&f->strict1); f->strict2=f->strict1; }	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"indent"))        g_unum(l,s,&f->indent);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"titleleft"))     g_logv(l,s,&f->titleleft);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"titlecaps"))     g_logv(l,s,&f->titlecaps);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"landscape"))     g_logv(l,s,&f->landscape);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"stretchstaff"))  g_logv(l,s,&f->stretchstaff);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"stretchlast"))   g_logv(l,s,&f->stretchlast);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"continueall"))   g_logv(l,s,&f->continueall);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"breakall"))      g_logv(l,s,&f->breakall);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"writehistory"))  g_logv(l,s,&f->writehistory);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"withxrefs") )    g_logv(l,s,&f->withxrefs);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"oneperpage") )   g_logv(l,s,&f->oneperpage);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"titlefont"))     g_fspc(l,nch,&f->titlefont);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"subtitlefont"))  g_fspc(l,nch,&f->subtitlefont);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"vocalfont"))     g_fspc(l,nch,&f->vocalfont);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"partsfont"))     g_fspc(l,nch,&f->partsfont);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"tempofont"))     g_fspc(l,nch,&f->tempofont);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"textfont"))      g_fspc(l,nch,&f->textfont);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"composerfont"))  g_fspc(l,nch,&f->composerfont);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"wordsfont"))     g_fspc(l,nch,&f->wordsfont);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"gchordfont"))    g_fspc(l,nch,&f->gchordfont);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"voicefont"))     g_fspc(l,nch,&f->voicefont);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"barnumberfont")) g_fspc(l,nch,&f->barnumfont);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"barlabelfont"))  g_fspc(l,nch,&f->barlabelfont);	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"indexfont"))     g_fspc(l,nch,&f->indexfont);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"font")) {	Err	vernunftzentrum.de	70
i+    sscanf(l,"%*s %s", fnm);	Err	vernunftzentrum.de	70
i+    fnum=-1;	Err	vernunftzentrum.de	70
i+    for (i=0;i<nfontnames;i++) {	Err	vernunftzentrum.de	70
i+      if (!strcmp(fnm,fontnames[i])) fnum=i; 	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (fnum<0) {	Err	vernunftzentrum.de	70
i+      if (file_initialized) {	Err	vernunftzentrum.de	70
i+        printf ("+++ Cannot predefine when output file open: %s\n", l);	Err	vernunftzentrum.de	70
i+        exit (3);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      tempfont.size=12.0;	Err	vernunftzentrum.de	70
i+      g_fspc(l,nch,&tempfont);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    if (vb>=5) printf ("Ignore format line:    %s\n", l);	Err	vernunftzentrum.de	70
i+    return 2;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  return 0;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- read_fmt_file ----- */	Err	vernunftzentrum.de	70
i+int read_fmt_file (filename,dirname,f)	Err	vernunftzentrum.de	70
i+char filename [],dirname[];	Err	vernunftzentrum.de	70
i+struct FORMAT *f;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  FILE *fp;	Err	vernunftzentrum.de	70
i+  char line[BSIZE],fname[201];	Err	vernunftzentrum.de	70
i+  int i,end;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  strcpy(fname,filename);	Err	vernunftzentrum.de	70
i+  if ((fp = fopen (fname,"r")) == NULL) {      	Err	vernunftzentrum.de	70
i+    if (strlen(dirname)==0) 	Err	vernunftzentrum.de	70
i+      return 0;	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      strcpy(fname,dirname);	Err	vernunftzentrum.de	70
i+      strcat(fname,"/");	Err	vernunftzentrum.de	70
i+      strcat(fname,filename);	Err	vernunftzentrum.de	70
i+      if ((fp = fopen (fname,"r")) == NULL) return 0;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (vb>=4) printf ("Reading format file %s:\n", fname);	Err	vernunftzentrum.de	70
i+  printf ("%s .. ", fname);	Err	vernunftzentrum.de	70
i+  strcpy (line, "");	Err	vernunftzentrum.de	70
i+  getline(line, BSIZE, fp);	Err	vernunftzentrum.de	70
i+  for (i=0;i<200;i++) {	Err	vernunftzentrum.de	70
i+    end=interpret_format_line (line,f);	Err	vernunftzentrum.de	70
i+    if (end==1) return 1;	Err	vernunftzentrum.de	70
i+    strcpy (line, "");	Err	vernunftzentrum.de	70
i+    if (feof(fp)) return 1;	Err	vernunftzentrum.de	70
i+    if (!getline(line, BSIZE, fp)) return 1 ;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  fclose (fp);	Err	vernunftzentrum.de	70
i+  return 1;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
1diff --git a/journey.abc b/journey.abc	/ckeen/repos/abc2ps/file/journey.abc.gph	vernunftzentrum.de	70
i@@ -0,0 +1,36 @@	Err	vernunftzentrum.de	70
i+%%scale 0.70	Err	vernunftzentrum.de	70
i+%%titlefont Helvetica-Bold 13	Err	vernunftzentrum.de	70
i+%%composerfont Helvetica 9	Err	vernunftzentrum.de	70
i+%%composerspace 0.2cm	Err	vernunftzentrum.de	70
i+%%gchordfont Times-Roman 13	Err	vernunftzentrum.de	70
i+%%musicspace 1.1cm	Err	vernunftzentrum.de	70
i+%%leftmargin 1.3cm	Err	vernunftzentrum.de	70
i+%%staffwidth 18.4cm	Err	vernunftzentrum.de	70
i+%%staffsep 40	Err	vernunftzentrum.de	70
i+%%partsfont Times-Bold 10	Err	vernunftzentrum.de	70
i+%%partsspace 0.35cm	Err	vernunftzentrum.de	70
i+%musiconly	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X: 1	Err	vernunftzentrum.de	70
i+T: SENTIMENTAL JOURNEY	Err	vernunftzentrum.de	70
i+C: Words and Music by	Err	vernunftzentrum.de	70
i+C: Bud Green, Les Brown, and Ben Homer	Err	vernunftzentrum.de	70
i+M: C	Err	vernunftzentrum.de	70
i+L: 1/4	Err	vernunftzentrum.de	70
i+Q: "Easy Swing" 1/4=140	Err	vernunftzentrum.de	70
i+K: C	Err	vernunftzentrum.de	70
i+%text Easy Swing	Err	vernunftzentrum.de	70
i+"C"z/EC/ E>C|E/>C/E/>C/ E<C|z/EC/E>F|"D7"E_E/D/-"G7"D2|	Err	vernunftzentrum.de	70
i+w: Gon-na take a Sen-ti-men-tal Jour-ney, gon-na set my heart at ease._	Err	vernunftzentrum.de	70
i+w: Got my bag, I got my re-ser-va-tion, spent each dime I could af-ford.	Err	vernunftzentrum.de	70
i+"C"z/=EC/ E>C|"F9"_E/>C/E/>C/ E<D|"C"z/=EC/E>F|"G7"E/>_E/ D/C/-"C"C2:|	Err	vernunftzentrum.de	70
i+w: Gon-na take a Sen-ti-men-tal Jour-ney, to re-new old mem -or-ries._	Err	vernunftzentrum.de	70
i+w: Like a child in wild an-ti-ci-pa-tion, long to hear that "All_ a-board."	Err	vernunftzentrum.de	70
i+"FM7"B/c/-c3| B/>c/B/>c/ d<c | "CM7"^F/G/-G3| ^F/>G/F/>G/ A<G|	Err	vernunftzentrum.de	70
i+w:Se-ven,_ that's the time we leave, at sev-en._ I'll be wait-in' up for	Err	vernunftzentrum.de	70
i+"D7"^c/d/-d3|^c/>d/c/>d/=c>A|"G7"B/GA/-"Dm7"A>F|"G7"G"C#dim7"E/F/-"G7/D  G7"F2|	Err	vernunftzentrum.de	70
i+w:Hea-ven,_ count-in' ev-'ry mile of rail-road track_ that takes me back._	Err	vernunftzentrum.de	70
i+"C"z/EC/ E>C|E/>C/E/>C/ E<C|z/EC/E>F|"D7"E_E/D/-"G7"D2|	Err	vernunftzentrum.de	70
i+w: Nev-er thought my heart could be so yeam-y. Why did I de-cide to roam?_	Err	vernunftzentrum.de	70
i+"C"z/=EC/ E>C|"F9"_E/>C/E/>C/ E<D|"C"z/=EC/ E<F|"G7"E/>_E/ D/C/-"C"C2 |]	Err	vernunftzentrum.de	70
i+w:Got-ta take this Sen-ti-men-tal Jour-ney, Sen-ti-men-tal Jour - ney home._	Err	vernunftzentrum.de	70
1diff --git a/landscape.fmt b/landscape.fmt	/ckeen/repos/abc2ps/file/landscape.fmt.gph	vernunftzentrum.de	70
i@@ -0,0 +1,11 @@	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+% format for wide output in landscape mode	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   pageheight 21cm	Err	vernunftzentrum.de	70
i+   staffwidth 25cm	Err	vernunftzentrum.de	70
i+   landscape 1	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   titleleft  yes	Err	vernunftzentrum.de	70
i+   titlefont Palatino-Bold 22	Err	vernunftzentrum.de	70
i+   composerspace 0.6cm	Err	vernunftzentrum.de	70
i+   staffsep 60	Err	vernunftzentrum.de	70
1diff --git a/layout.txt b/layout.txt	/ckeen/repos/abc2ps/file/layout.txt.gph	vernunftzentrum.de	70
i@@ -0,0 +1,150 @@	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   How the notes are arranged on the staff in abc2ps	Err	vernunftzentrum.de	70
i+   =================================================	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   This file contains more detailed information on the way in which	Err	vernunftzentrum.de	70
i+   the layout is calculated in abc2ps, for those who are interested 	Err	vernunftzentrum.de	70
i+   or would like to change the layout.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   ----- General points -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   When typesetting music, an important feature is presumably 	Err	vernunftzentrum.de	70
i+   that notes and rests are arranged in some way which indicates	Err	vernunftzentrum.de	70
i+   the note durations. The following considerations entered	Err	vernunftzentrum.de	70
i+   into abc2ps:	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+   (a) The space assigned a note should be qualitatively proportional	Err	vernunftzentrum.de	70
i+   to its durations, but this mapping should not be strictly linear.	Err	vernunftzentrum.de	70
i+   It seems best to "saturate" the mapping so that whole notes	Err	vernunftzentrum.de	70
i+   are somewhat less than twice as wide as half notes. At the other	Err	vernunftzentrum.de	70
i+   end, the width allocated to 8th and 16th notes must be  	Err	vernunftzentrum.de	70
i+   more similar than a factor of 1/2 or the layout looks uneven.	Err	vernunftzentrum.de	70
i+   Thus, for durations approaching zero the note width should go	Err	vernunftzentrum.de	70
i+   to some constant. A modifiable function nwidth(len) defines 	Err	vernunftzentrum.de	70
i+   the mapping.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   (b) Given a sequence of notes (or rests) within a bar, the space 	Err	vernunftzentrum.de	70
i+   between any two should reflect the duration of the first. 	Err	vernunftzentrum.de	70
i+   If this is done strictly, the distance along the staff becomes	Err	vernunftzentrum.de	70
i+   the correct "time axis" but the output looks uneven.	Err	vernunftzentrum.de	70
i+   Therefore there is an "asymmetry" parameter beta to adjust. 	Err	vernunftzentrum.de	70
i+   For beta=0, the internote spacing comes equally from both neighbor 	Err	vernunftzentrum.de	70
i+   notes, and for beta=1 only the first note of each pair is taken 	Err	vernunftzentrum.de	70
i+   into account.	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+   (c) When notes are grouped under a beam, they are moved slightly	Err	vernunftzentrum.de	70
i+   closer together. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   (d) The spacing between a note at the start of a measure and the	Err	vernunftzentrum.de	70
i+   preceding bar line is a separate case. On the one hand, the duration	Err	vernunftzentrum.de	70
i+   of the note could influence the spacing. On the other hand,	Err	vernunftzentrum.de	70
i+   music often seems to be written with this spacing some fixed standard	Err	vernunftzentrum.de	70
i+   distance. The treatment here is to choose a standard space (eg. some 	Err	vernunftzentrum.de	70
i+   fraction of a full measure) and another tuning parameter beta. For beta=0 	Err	vernunftzentrum.de	70
i+   the standard distance is used, and for beta=1 the space is taken from 	Err	vernunftzentrum.de	70
i+   the note duration. Notes at the end of a measure are treated similarily.	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+   (e) If a measure has only one note in it, one can put the note exactly 	Err	vernunftzentrum.de	70
i+   into the middle and calculate the measure width from the note duration.	Err	vernunftzentrum.de	70
i+   Alternatively, this case can be treated like case (d) as a bar-note	Err	vernunftzentrum.de	70
i+   and a note-bar case. A further parameter interpolates between these 	Err	vernunftzentrum.de	70
i+   alternatives.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   ----- Puristic layout -----	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+   To change the layout rules, the parameters in file "style.h" should	Err	vernunftzentrum.de	70
i+   be modified. As a starting point, it is useful to consider a strict 	Err	vernunftzentrum.de	70
i+   layout defined as follows (see file "style.pure"):	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   (a) Make the mapping between note length and the space on the paper linear.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   (b) Make the space between two notes exactly proportional to the length 	Err	vernunftzentrum.de	70
i+       of the first note.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   (c) Do not move notes under beams closer together.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   (d) Put notes at the start of a measure at a fixed distance behind the bar.	Err	vernunftzentrum.de	70
i+       Put a bar behind a note at a spacing proportional to the note length.	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+   (e) Treat a measure with a single note in it like case (d).	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   For this layout, the position of each note exactly gives the time when	Err	vernunftzentrum.de	70
i+   the note starts. It looks more or less like what one wants, but it is 	Err	vernunftzentrum.de	70
i+   too strict for good readability. One way to get suitable layout	Err	vernunftzentrum.de	70
i+   parameters is to start from the settings in "style.pure" and twiddle 	Err	vernunftzentrum.de	70
i+   on the parameters.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   ----- Algorithm for filling out the staffs -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   This is similar to the procedure used by Knuth in TeX	Err	vernunftzentrum.de	70
i+   as described in the TeXBook, chapter on "Glue".	Err	vernunftzentrum.de	70
i+   Three different sets of spacings are defined: shrink, space, stretch.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   shrink:  the smallest acceptable spacings. These are controlled	Err	vernunftzentrum.de	70
i+            by function set_sym_widths().	Err	vernunftzentrum.de	70
i+   space:   prefered "natural" spacings at which layout looks best.	Err	vernunftzentrum.de	70
i+            All parameters in style.h ending in 'p' are relevant.	Err	vernunftzentrum.de	70
i+   stretch: spacings for an expanded "stretched" layout.	Err	vernunftzentrum.de	70
i+            All parameters in style.h ending in 'x' are relevant.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   To set a line, the natural spacings are added together. If the sum is	Err	vernunftzentrum.de	70
i+   larger than the desired staff length, the final spacings are obtained	Err	vernunftzentrum.de	70
i+   by linear interpolation between the "shrink" and "space" values.	Err	vernunftzentrum.de	70
i+   If the sum is smaller, the spacings are obtained by interpolating	Err	vernunftzentrum.de	70
i+   between the "space" and "stretch" values. Compression does not go 	Err	vernunftzentrum.de	70
i+   beyond the "shrink" spacings but expansion is allowed to any width. 	Err	vernunftzentrum.de	70
i+   (Formal note: the definition of shrink and stretch used here is not	Err	vernunftzentrum.de	70
i+   the same as in TeX; eg. the minimal spacing is here 'shrink' 	Err	vernunftzentrum.de	70
i+   whereas in TeX it is 'space-shrink'.)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   ----- How to proceed when changing the layout -----	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   When changing the output appearance, the important thing is to modify	Err	vernunftzentrum.de	70
i+   the three glue modes "shrink", "space", and "stretch" separately.	Err	vernunftzentrum.de	70
i+   Since a typical music line is a mixture of these modes, it is	Err	vernunftzentrum.de	70
i+   difficult to see what is happening when changing the parameters	Err	vernunftzentrum.de	70
i+   in the "fill" mode. In detail:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   (1) Use info field 'E:shrink' or the flag "-g shrink" to force 	Err	vernunftzentrum.de	70
i+   maximally compressed output. In this mode, no extra glue is put 	Err	vernunftzentrum.de	70
i+   between the symbols. The layout should be as compressed as possible 	Err	vernunftzentrum.de	70
i+   while still being acceptable. The spacings are here given by	Err	vernunftzentrum.de	70
i+   the left and right widths wl,wr which are defined in routine 	Err	vernunftzentrum.de	70
i+   set_sym_widths(). These are presently set so that symbols 	Err	vernunftzentrum.de	70
i+   have a small space around them, taking into account dots, flags, 	Err	vernunftzentrum.de	70
i+   accidentals etc. Slightly more space is left around open notes and 	Err	vernunftzentrum.de	70
i+   fat bars.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   (2) Next, use 'E:space' or "-g space" to force the prefered natural 	Err	vernunftzentrum.de	70
i+   spacing. This layout should be adjusted to get the ouput which looks 	Err	vernunftzentrum.de	70
i+   best. As in case (1), there are left and right widths for each symbol,	Err	vernunftzentrum.de	70
i+   now called pl and pr, which are also set in set_sym_widths().	Err	vernunftzentrum.de	70
i+   The important difference is that spacings around notes and rests	Err	vernunftzentrum.de	70
i+   are influenced by the durations. This is done according	Err	vernunftzentrum.de	70
i+   to the rules described above, using the parameters ending in 'p'	Err	vernunftzentrum.de	70
i+   in style.h. The relevant routine is set_sym_poslist(). 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   (3) Finally, use 'E:stretch' to force stretched output. 	Err	vernunftzentrum.de	70
i+   This output should be something like twice as wide but should still be 	Err	vernunftzentrum.de	70
i+   easily readable. For example, this implies that internote spacings are 	Err	vernunftzentrum.de	70
i+   more even than in the "space" mode. Internally, the stretched spacings 	Err	vernunftzentrum.de	70
i+   are calculated exactly as the prefered spacings, using left and right 	Err	vernunftzentrum.de	70
i+   widths xl and xr, function xwidth(len), and the parameters ending 	Err	vernunftzentrum.de	70
i+   in 'x' in style.h.	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+   The idea is that after obtaining satisfactory layouts for the shrink, 	Err	vernunftzentrum.de	70
i+   space, and stretch modes separately, the output should look good	Err	vernunftzentrum.de	70
i+   when the spacings are interpolated to fill out the staff.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   If you change the style file to your tastes, you might as well 	Err	vernunftzentrum.de	70
i+   give the layout a new name, by changing the macro STYLE in style.h.	Err	vernunftzentrum.de	70
i+   This is so that the command 'abc2ps -V' can show what style is 	Err	vernunftzentrum.de	70
i+   currently being used.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   Michael Methfessel, Feb 1996.	Err	vernunftzentrum.de	70
1diff --git a/mtunes1.abc b/mtunes1.abc	/ckeen/repos/abc2ps/file/mtunes1.abc.gph	vernunftzentrum.de	70
i@@ -0,0 +1,55 @@	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:1	Err	vernunftzentrum.de	70
i+%%indent 1cm	Err	vernunftzentrum.de	70
i+T: Reel in E-minor	Err	vernunftzentrum.de	70
i+C: Trad.	Err	vernunftzentrum.de	70
i+Z: From Fiddle Book by M. Thaut.	Err	vernunftzentrum.de	70
i+M: C|	Err	vernunftzentrum.de	70
i+L: 1/8	Err	vernunftzentrum.de	70
i+K:EDor	Err	vernunftzentrum.de	70
i+V:1 name="Mandolin" staves=1	Err	vernunftzentrum.de	70
i+"Em"EB, ((3B,A,B,) (EG) FE | "D"DA, ((3A,G,A,) DE FA | ("Em"GE) ED (EF) GA | 	Err	vernunftzentrum.de	70
i+"Em"B2 eB ("Bm"dB) AF | ((3"Em"EDE) B,E (GE) B,E | ((3"D"DED) A,D (FD) A,D |	Err	vernunftzentrum.de	70
i+((3"Bm"Bcd) "Em7"eB (dB) AF |1 ("D"DE) FA "Bm"B2 AF :|2 "D"DE FA "Em"B2 z2 ||	Err	vernunftzentrum.de	70
i+|: "Em"eB ((3BAB) (eg) fe | "D"d2 fa (gf) ed | ((3"Bm"Bcd) "Em"ef (gf) ge  |	Err	vernunftzentrum.de	70
i+("D"fg) ((3agf) "C"gf ed | "Em"eB ((3BAB) ("D"AB) FA | "Em"BE ((3EDE) (Bd) ef|	Err	vernunftzentrum.de	70
i+"C"g3a "D"f3d |1 ("Em"ef) ed ("Bm"BA) FB :|2 "Em"ef ed B2 z2 |]	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X: 2	Err	vernunftzentrum.de	70
i+T: Carolan's Cup	Err	vernunftzentrum.de	70
i+C:Trad.	Err	vernunftzentrum.de	70
i+Z: From Fiddle Book by M. Thaut.	Err	vernunftzentrum.de	70
i+M: 6/8	Err	vernunftzentrum.de	70
i+K:D	Err	vernunftzentrum.de	70
i+ (de) | f3/(g/f/e/) (df)a | ~e2 d/B/ A2 f/e/ | dcB A<FA | Bba bfe |	Err	vernunftzentrum.de	70
i+ f3/(g/f/e/) (df)a | e(g/f/e/d/) c2 e | (dc)B (AF)A | B3 B2 :|	Err	vernunftzentrum.de	70
i+|: c | d3/(e/d/c/) d2 f | a3/(b/a/f/) .a2 f | e3/(f/e/d/) (ef)a | (b3 b)(fa) |	Err	vernunftzentrum.de	70
i+baf/e/ (de)a | ~e2 d/B/ A2 f/e/ | (dc)B (AF)A | B3 B2 :|	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X: 3	Err	vernunftzentrum.de	70
i+T: Anroozha	Err	vernunftzentrum.de	70
i+C: Persian, arr. Farid Farjad	Err	vernunftzentrum.de	70
i+S: Anroozha first CD 	Err	vernunftzentrum.de	70
i+M: 2/4	Err	vernunftzentrum.de	70
i+L: 1/8	Err	vernunftzentrum.de	70
i+K:Em	Err	vernunftzentrum.de	70
i+"Em"zAGF | A(G3 |G4) | zGFE | "B7"G(F3|F4) | zFE^D| "Em"F(E3| E4)|	Err	vernunftzentrum.de	70
i+|:zAGF|"Am"BA2F|AG2E|("B7"F4|F4)|zGFE|"Am"AG2E|"B7"GF2^D|("Em"E4|"(fine)"E4):|	Err	vernunftzentrum.de	70
i+"Em"z(g/a/) .b/.b/.a/.a/|g(b3|b4)|z(f/g/) .a/.a/.g/.g/|\	Err	vernunftzentrum.de	70
i+   "Am"f(a3|a4)|"Em7"z(e/f/) .g/.g/.f/.f/|"C"e({e}g3|g4)|	Err	vernunftzentrum.de	70
i+"B7"z(^d/e/) f.e/.e/|"Em"^d/(d/(e3)|e2)z2|{E}A2 G2|\	Err	vernunftzentrum.de	70
i+   "Am"F3G/A/|("Em"G4|G2)z2|"C"G2F2|"B7"E3^D/F/|("Em"E4|E2)z2|	Err	vernunftzentrum.de	70
i+B2A2| "G"G3A/B/|("Am7"A4|A2)z2|A2G2|"D"F3G/A/|\	Err	vernunftzentrum.de	70
i+   ("C"G4|G3)F/E/|"B7"^D2E2|A2z G/F/|("Em"E4|E2)z2||	Err	vernunftzentrum.de	70
i+b3b|"G"{b}e'2d'2|"Am"{d'e'}d'c' b<c'|("Em"b4|b2)z2|\	Err	vernunftzentrum.de	70
i+   zb2g|"G"a2g2|"Am"ag2a|("Em"b4|b2)z2|	Err	vernunftzentrum.de	70
i+zb2g|"G"a>g f2|"B7"gfe^d|("Em"e4|e2)z2|\	Err	vernunftzentrum.de	70
i+   B3B|"G"{B}e2d2|"Am"{de}dc B<c|("Em"B4|B2)z2|	Err	vernunftzentrum.de	70
i+zB2G|"Am7"A2G2|AG2A|("Em"B4|B2)z2|zB2G|\	Err	vernunftzentrum.de	70
i+   "Am"A>GF2|"B7"GFE^D|("Em"E4|E2)z2| 	Err	vernunftzentrum.de	70
i+"Am"A2((3"Em"GFG)|"B"F3G/A/|("C"G4|G2)z2|"C"G2"B"F2|"Am"E3"B7"^D/F/|\	Err	vernunftzentrum.de	70
i+   ("Em"E4|E2)z2|"Em"B2"D"A2|"G"GF "C6"GA/B/|("Am"A4|A2)z2|	Err	vernunftzentrum.de	70
i+"D"A2"C"G2|"B"F3G/A/|("C"G4|G3)F/E/|"Em"^D2E2|"B7"A2zG/F/|("Em"E4|E2)z2|\	Err	vernunftzentrum.de	70
i+   b3b| ("G"a/c'/b2)(a/b/|"Am"a2)z2|	Err	vernunftzentrum.de	70
i+a3g|(a/b/a2)(g/a/|"Em"g2)z2|"C"{f}g3f|(g/a/g2)(f/g/|"B7"f3)e|\	Err	vernunftzentrum.de	70
i+   ^d2e2|"Am"a2zg/f/|("Em"e4|e2)"D.C."z2||	Err	vernunftzentrum.de	70
1diff --git a/music.h b/music.h	/ckeen/repos/abc2ps/file/music.h.gph	vernunftzentrum.de	70
i@@ -0,0 +1,4496 @@	Err	vernunftzentrum.de	70
i+/*  	Err	vernunftzentrum.de	70
i+ *  This file is part of abc2ps, 	Err	vernunftzentrum.de	70
i+ *  Copyright (C) 1996,1997,1998  Michael Methfessel	Err	vernunftzentrum.de	70
i+ *  See file abc2ps.c for details.	Err	vernunftzentrum.de	70
i+ */	Err	vernunftzentrum.de	70
i+ 	Err	vernunftzentrum.de	70
i+/*  subroutines connected with output of music  */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define XP_START   0	Err	vernunftzentrum.de	70
i+#define XP_END     (maxSyms-1)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- nwid ----- */	Err	vernunftzentrum.de	70
i+/* Sets the prefered width for a note depending on the duration.	Err	vernunftzentrum.de	70
i+   Return value is default space on right and left side. 	Err	vernunftzentrum.de	70
i+   Function is determined by values at 0, 1/2, 1.	Err	vernunftzentrum.de	70
i+   Return value is 1.0 for quarter note. */	Err	vernunftzentrum.de	70
i+float nwid (dur)	Err	vernunftzentrum.de	70
i+float dur;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float a,b,x,p,x0,p0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  a=2*(f1p-2*f5p+f0p);	Err	vernunftzentrum.de	70
i+  b=f1p-f0p-a;	Err	vernunftzentrum.de	70
i+  x = dur/(float)BASE;	Err	vernunftzentrum.de	70
i+  p = a*x*x + b*x + f0p;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  x0 = 0.25;	Err	vernunftzentrum.de	70
i+  p0 = a*x0*x0 + b*x0 + f0p;	Err	vernunftzentrum.de	70
i+  p  = p/p0;	Err	vernunftzentrum.de	70
i+  return p;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- xwid -- --- */	Err	vernunftzentrum.de	70
i+/* same as nwid but for stretched system */	Err	vernunftzentrum.de	70
i+float xwid (dur)	Err	vernunftzentrum.de	70
i+float dur;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float a,b,x,p,x0,p0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  a=2*(f1x-2*f5x+f0x);	Err	vernunftzentrum.de	70
i+  b=f1x-f0x-a;	Err	vernunftzentrum.de	70
i+  x = dur/(float)BASE;	Err	vernunftzentrum.de	70
i+  p = a*x*x + b*x + f0x;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  x0 = 0.25;	Err	vernunftzentrum.de	70
i+  p0 = a*x0*x0 + b*x0 + f0x;	Err	vernunftzentrum.de	70
i+  p  = p/p0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return p;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- next_note, prec_note ------ */	Err	vernunftzentrum.de	70
i+int next_note (k,n,symb)	Err	vernunftzentrum.de	70
i+int k,n;	Err	vernunftzentrum.de	70
i+struct SYMBOL symb[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+  for (i=k+1;i<n;i++) {	Err	vernunftzentrum.de	70
i+    if ((symb[i].type==NOTE)||(symb[i].type==REST)) return i;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  return -1; 	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+int prec_note (k,n,symb)	Err	vernunftzentrum.de	70
i+int k,n;	Err	vernunftzentrum.de	70
i+struct SYMBOL symb[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+  for (i=k-1;i>=0;i--) {	Err	vernunftzentrum.de	70
i+    if ((symb[i].type==NOTE)||(symb[i].type==REST)) return i;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  return -1; 	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- followed_by_note ------ */	Err	vernunftzentrum.de	70
i+int followed_by_note (k,n,symb)	Err	vernunftzentrum.de	70
i+int k,n;	Err	vernunftzentrum.de	70
i+struct SYMBOL symb[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  for (i=k+1;i<n;i++) {	Err	vernunftzentrum.de	70
i+    switch (symb[i].type) {	Err	vernunftzentrum.de	70
i+    case INVISIBLE:	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+    case NOTE: 	Err	vernunftzentrum.de	70
i+    case REST:	Err	vernunftzentrum.de	70
i+      return i;	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+    default:	Err	vernunftzentrum.de	70
i+      return -1;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  return -1; 	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- preceded_by_note ------ */	Err	vernunftzentrum.de	70
i+int preceded_by_note (k,n,symb)	Err	vernunftzentrum.de	70
i+int k,n;	Err	vernunftzentrum.de	70
i+struct SYMBOL symb[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  for (i=k-1;i>=0;i--) {	Err	vernunftzentrum.de	70
i+    switch (symb[i].type) {	Err	vernunftzentrum.de	70
i+    case INVISIBLE:	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+    case NOTE: 	Err	vernunftzentrum.de	70
i+    case REST:	Err	vernunftzentrum.de	70
i+      return i;	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+    default:	Err	vernunftzentrum.de	70
i+      return -1;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  return -1; 	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+void xch (i,j)  /* sub to exchange two integers */	Err	vernunftzentrum.de	70
i+int *i,*j;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int k;	Err	vernunftzentrum.de	70
i+  k=*i;	Err	vernunftzentrum.de	70
i+  *i=*j;	Err	vernunftzentrum.de	70
i+  *j=k;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- print_linetype ----------- */	Err	vernunftzentrum.de	70
i+void print_linetype (t)	Err	vernunftzentrum.de	70
i+int t;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if      (t== COMMENT)           printf("COMMENT\n");	Err	vernunftzentrum.de	70
i+  else if (t== MUSIC)             printf("MUSIC\n"); 	Err	vernunftzentrum.de	70
i+  else if (t== E_O_F)             printf("E_O_F\n");	Err	vernunftzentrum.de	70
i+  else if (t== INFO)              printf("INFO\n");             	Err	vernunftzentrum.de	70
i+  else if (t== TITLE)             printf("TITLE\n");            	Err	vernunftzentrum.de	70
i+  else if (t== METER)             printf("METER\n");  	Err	vernunftzentrum.de	70
i+  else if (t== PARTS)             printf("PARTS\n");  	Err	vernunftzentrum.de	70
i+  else if (t== KEY)               printf("KEY\n");  	Err	vernunftzentrum.de	70
i+  else if (t== XREF)              printf("XREF\n");     	Err	vernunftzentrum.de	70
i+  else if (t== DLEN)              printf("DLEN\n");  	Err	vernunftzentrum.de	70
i+  else if (t== HISTORY)           printf("HISTORY\n");  	Err	vernunftzentrum.de	70
i+  else if (t== TEMPO)             printf("TEMPO\n");  	Err	vernunftzentrum.de	70
i+  else if (t== BLANK)             printf("BLANK\n");	Err	vernunftzentrum.de	70
i+  else if (t== VOICE)             printf("VOICE\n");	Err	vernunftzentrum.de	70
i+  else if (t== MWORDS)            printf("MWORDS\n");	Err	vernunftzentrum.de	70
i+  else if (t== PSCOMMENT)         printf("PSCOMMENT\n");	Err	vernunftzentrum.de	70
i+  else                            printf("UNKNOWN LINE TYPE\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- print_syms: show sym properties set by parser ------ */	Err	vernunftzentrum.de	70
i+void print_syms(num1,num2,symb)	Err	vernunftzentrum.de	70
i+int num1,num2;	Err	vernunftzentrum.de	70
i+struct SYMBOL symb[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,t,j,y,nsh;	Err	vernunftzentrum.de	70
i+  char dsym[21] = {' ','~','.','J','M','H','u','v','R','T','K'};	Err	vernunftzentrum.de	70
i+  char bsym[10]  = {'-', '1' ,'2', '3', '4', '5', '6', '7', '8', '9'};	Err	vernunftzentrum.de	70
i+  char str[21];	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  printf ("\n---------- Symbol list ----------\n");	Err	vernunftzentrum.de	70
i+  printf ("word  slur  eol  num  description\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (i=num1;i<num2;i++) {	Err	vernunftzentrum.de	70
i+    printf (" %c %c   %c %c   %c  ", 	Err	vernunftzentrum.de	70
i+            bsym[symb[i].word_st], bsym[symb[i].word_end],	Err	vernunftzentrum.de	70
i+            bsym[symb[i].slur_st], bsym[symb[i].slur_end],	Err	vernunftzentrum.de	70
i+            bsym[symb[i].eoln] ); 	Err	vernunftzentrum.de	70
i+    printf ("%4d  ", i);	Err	vernunftzentrum.de	70
i+    t=symb[i].type;	Err	vernunftzentrum.de	70
i+    switch (t) {	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    case NOTE:	Err	vernunftzentrum.de	70
i+    case REST:	Err	vernunftzentrum.de	70
i+      if (t==NOTE) printf ("NOTE ");	Err	vernunftzentrum.de	70
i+      if (t==REST) printf ("REST ");	Err	vernunftzentrum.de	70
i+      if (symb[i].npitch>1) printf (" [");	Err	vernunftzentrum.de	70
i+      for (j=0;j<symb[i].npitch;j++) {	Err	vernunftzentrum.de	70
i+        printf (" ");	Err	vernunftzentrum.de	70
i+        if (symb[i].accs[j]==A_SH) printf ("^");	Err	vernunftzentrum.de	70
i+        if (symb[i].accs[j]==A_NT) printf ("=");	Err	vernunftzentrum.de	70
i+        if (symb[i].accs[j]==A_FT) printf ("_");	Err	vernunftzentrum.de	70
i+        if (symb[i].accs[j]==A_DS) printf ("^^");	Err	vernunftzentrum.de	70
i+        if (symb[i].accs[j]==A_DF) printf ("__");	Err	vernunftzentrum.de	70
i+        y=3*(symb[i].pits[j]-18)+symb[i].yadd;	Err	vernunftzentrum.de	70
i+        strcpy (str,"z");	Err	vernunftzentrum.de	70
i+        if (t==NOTE) symbolic_pitch (symb[i].pits[j],str);	Err	vernunftzentrum.de	70
i+        printf ("%s(%d)", str, symb[i].lens[j]); 	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      if (symb[i].npitch>1) printf (" ]");	Err	vernunftzentrum.de	70
i+      if (symb[i].p_plet)  	Err	vernunftzentrum.de	70
i+        printf ("  (%d:%d:%d", symb[i].p_plet,symb[i].q_plet,symb[i].r_plet);	Err	vernunftzentrum.de	70
i+      if (strlen(symb[i].text)>0) printf ("  \"%s\"", symb[i].text);	Err	vernunftzentrum.de	70
i+      if (symb[i].dc.n>0) {	Err	vernunftzentrum.de	70
i+        printf ("  deco ");	Err	vernunftzentrum.de	70
i+        for (j=0;j<symb[i].dc.n;j++) 	Err	vernunftzentrum.de	70
i+          printf ("%c",dsym[symb[i].dc.t[j]]);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      if (symb[i].gr.n>0) {	Err	vernunftzentrum.de	70
i+        printf ("  grace ");	Err	vernunftzentrum.de	70
i+        for (j=0;j<symb[i].gr.n;j++) {	Err	vernunftzentrum.de	70
i+          if (j>0) printf ("-");	Err	vernunftzentrum.de	70
i+          if (symb[i].gr.a[j]==A_SH) printf ("^");	Err	vernunftzentrum.de	70
i+          if (symb[i].gr.a[j]==A_NT) printf ("=");	Err	vernunftzentrum.de	70
i+          if (symb[i].gr.a[j]==A_FT) printf ("_");	Err	vernunftzentrum.de	70
i+          symbolic_pitch (symb[i].gr.p[j],str);	Err	vernunftzentrum.de	70
i+          printf ("%s",str);	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    case BAR:	Err	vernunftzentrum.de	70
i+      printf ("BAR  ======= ");	Err	vernunftzentrum.de	70
i+      if (symb[i].u==B_SNGL)  printf ("single");	Err	vernunftzentrum.de	70
i+      if (symb[i].u==B_DBL)   printf ("double");	Err	vernunftzentrum.de	70
i+      if (symb[i].u==B_LREP)  printf ("left repeat");	Err	vernunftzentrum.de	70
i+      if (symb[i].u==B_RREP)  printf ("right repeat");	Err	vernunftzentrum.de	70
i+      if (symb[i].u==B_DREP)  printf ("double repeat");	Err	vernunftzentrum.de	70
i+      if (symb[i].u==B_FAT1)  printf ("thick-thin");	Err	vernunftzentrum.de	70
i+      if (symb[i].u==B_FAT2)  printf ("thin-thick");	Err	vernunftzentrum.de	70
i+      if (symb[i].u==B_INVIS) printf ("invisible");	Err	vernunftzentrum.de	70
i+      if (symb[i].v) printf (", ending %d", symb[i].v);	Err	vernunftzentrum.de	70
i+      if (strlen(symb[i].text)>0) printf (", label \"%s\"",symb[i].text);	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    case CLEF:	Err	vernunftzentrum.de	70
i+      if (symb[i].u==TREBLE) printf ("CLEF  treble");	Err	vernunftzentrum.de	70
i+      if (symb[i].u==BASS)   printf ("CLEF  bass");	Err	vernunftzentrum.de	70
i+      if (symb[i].u==ALTO)   printf ("CLEF  alto");	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    case TIMESIG:	Err	vernunftzentrum.de	70
i+      printf ("TIMESIG  ");	Err	vernunftzentrum.de	70
i+      if (symb[i].w==1)      printf ("C");	Err	vernunftzentrum.de	70
i+      else if (symb[i].w==2) printf ("C|");	Err	vernunftzentrum.de	70
i+      else                   printf ("%d/%d", symb[i].u,symb[i].v);	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    case KEYSIG: 	Err	vernunftzentrum.de	70
i+      printf ("KEYSIG   ");	Err	vernunftzentrum.de	70
i+      if (symb[i].t==A_SH) printf ("sharps ");	Err	vernunftzentrum.de	70
i+      if (symb[i].t==A_FT) printf ("flats ");	Err	vernunftzentrum.de	70
i+      printf ("%d to %d", symb[i].u,symb[i].v);	Err	vernunftzentrum.de	70
i+      if (symb[i].w <= symb[i].v) 	Err	vernunftzentrum.de	70
i+        printf (", neutrals from %d", symb[i].w); 	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    case INVISIBLE:	Err	vernunftzentrum.de	70
i+      printf ("INVIS   ");	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    default:	Err	vernunftzentrum.de	70
i+      printf ("UNKNOWN ");	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    printf ("\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  printf ("\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- print_vsyms: print symbols for all voices ----- */	Err	vernunftzentrum.de	70
i+void print_vsyms ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  printf("\n");	Err	vernunftzentrum.de	70
i+  for (i=0;i<nvoice;i++) {	Err	vernunftzentrum.de	70
i+    if (nvoice>1) 	Err	vernunftzentrum.de	70
i+      printf ("Voice <%s> (%d of %d)", voice[i].id,i,nvoice);	Err	vernunftzentrum.de	70
i+    print_syms (0,voice[i].nsym,symv[i]);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_head_directions ----------- */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define ABS(a)  ((a)>0) ? (a) : (-a)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* decide whether to shift heads to other side of stem on chords */	Err	vernunftzentrum.de	70
i+/* also position accidentals to avoid too much overlap */	Err	vernunftzentrum.de	70
i+void set_head_directions (s)	Err	vernunftzentrum.de	70
i+struct SYMBOL *s;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,n,nx,sig,d,da,shift,nac;	Err	vernunftzentrum.de	70
i+  int i1,i2,m;	Err	vernunftzentrum.de	70
i+  float dx,xx,xmn;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  n=s->npitch;	Err	vernunftzentrum.de	70
i+  sig=-1;	Err	vernunftzentrum.de	70
i+  if (s->stem>0) sig=1;	Err	vernunftzentrum.de	70
i+  for (i=0;i<n;i++) {	Err	vernunftzentrum.de	70
i+    s->shhd[i]=0; 	Err	vernunftzentrum.de	70
i+    s->shac[i]=8; 	Err	vernunftzentrum.de	70
i+    if (s->head==H_OVAL) s->shac[i]+=3; 	Err	vernunftzentrum.de	70
i+    s->xmn=0;	Err	vernunftzentrum.de	70
i+    s->xmx=0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  if (n<2) return;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* sort heads by pitch */	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    nx=0;	Err	vernunftzentrum.de	70
i+    for (i=1;i<n;i++) {	Err	vernunftzentrum.de	70
i+      if ( (s->pits[i]-s->pits[i-1])*sig>0 ) {	Err	vernunftzentrum.de	70
i+        xch (&s->pits[i],&s->pits[i-1]);	Err	vernunftzentrum.de	70
i+        xch (&s->lens[i],&s->lens[i-1]);	Err	vernunftzentrum.de	70
i+        xch (&s->accs[i],&s->accs[i-1]);	Err	vernunftzentrum.de	70
i+        xch (&s->sl1[i],&s->sl1[i-1]); 	Err	vernunftzentrum.de	70
i+        xch (&s->sl2[i],&s->sl2[i-1]); 	Err	vernunftzentrum.de	70
i+        xch (&s->ti1[i],&s->ti1[i-1]); 	Err	vernunftzentrum.de	70
i+        xch (&s->ti2[i],&s->ti2[i-1]); 	Err	vernunftzentrum.de	70
i+        nx++;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (!nx) break;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  shift=0;                                 /* shift heads */	Err	vernunftzentrum.de	70
i+  for (i=n-2;i>=0;i--) {	Err	vernunftzentrum.de	70
i+    d=s->pits[i+1]-s->pits[i];	Err	vernunftzentrum.de	70
i+    if (d<0) d=-d;	Err	vernunftzentrum.de	70
i+    if ((d>=2) || (d==0)) 	Err	vernunftzentrum.de	70
i+      shift=0;	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      shift=1-shift;	Err	vernunftzentrum.de	70
i+      if (shift) {	Err	vernunftzentrum.de	70
i+        dx=7.8;	Err	vernunftzentrum.de	70
i+        if (s->head==H_EMPTY) dx=7.8;	Err	vernunftzentrum.de	70
i+        if (s->head==H_OVAL)  dx=10.0;	Err	vernunftzentrum.de	70
i+        if (s->stem==-1) s->shhd[i]=-dx;	Err	vernunftzentrum.de	70
i+        else             s->shhd[i]=dx;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (s->shhd[i] < s->xmn) s->xmn = s->shhd[i];	Err	vernunftzentrum.de	70
i+    if (s->shhd[i] > s->xmx) s->xmx = s->shhd[i];	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  shift=0;                                 /* shift accidentals */	Err	vernunftzentrum.de	70
i+  i1=0; i2=n-1;	Err	vernunftzentrum.de	70
i+  if (sig<0) { i1=n-1; i2=0; }	Err	vernunftzentrum.de	70
i+  for (i=i1; ; i=i+sig) {          /* count down in terms of pitch */	Err	vernunftzentrum.de	70
i+    xmn=0;                         /* left-most pos of a close head */	Err	vernunftzentrum.de	70
i+    nac=99;                        /* relative pos of next acc above */	Err	vernunftzentrum.de	70
i+    for (m=0;m<n;m++) {	Err	vernunftzentrum.de	70
i+      xx=s->shhd[m];	Err	vernunftzentrum.de	70
i+      d=s->pits[m]-s->pits[i];	Err	vernunftzentrum.de	70
i+      da=ABS(d);	Err	vernunftzentrum.de	70
i+      if ((da<=5) && (s->shhd[m]<xmn)) xmn=s->shhd[m];	Err	vernunftzentrum.de	70
i+      if ((d>0) && (da<nac) && s->accs[m]) nac=da;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    s->shac[i]=8.5-xmn+s->shhd[i];   /* aligns accidentals in column */	Err	vernunftzentrum.de	70
i+    if (s->head==H_EMPTY) s->shac[i] += 1.0;	Err	vernunftzentrum.de	70
i+    if (s->head==H_OVAL)  s->shac[i] += 3.0;	Err	vernunftzentrum.de	70
i+    if (s->accs[i]) {	Err	vernunftzentrum.de	70
i+      if (nac>=6)                        /* no overlap */	Err	vernunftzentrum.de	70
i+        shift=0;	Err	vernunftzentrum.de	70
i+      else if (nac>=4) {                 /* weak overlap */	Err	vernunftzentrum.de	70
i+        if (shift==0) shift=1;	Err	vernunftzentrum.de	70
i+        else          shift=shift-1;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else {                             /* strong overlap */	Err	vernunftzentrum.de	70
i+        if      (shift==0) shift=2;	Err	vernunftzentrum.de	70
i+        else if (shift==1) shift=3;	Err	vernunftzentrum.de	70
i+        else if (shift==2) shift=1;	Err	vernunftzentrum.de	70
i+        else if (shift==3) shift=0;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      while (shift>=4) shift -=4;	Err	vernunftzentrum.de	70
i+      s->shac[i] += 3*shift;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (i==i2) break;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_minsyms: want at least one symbol in each voice --- */	Err	vernunftzentrum.de	70
i+void set_minsyms(ivc)	Err	vernunftzentrum.de	70
i+int ivc;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int n2;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  n2=voice[ivc].nsym;	Err	vernunftzentrum.de	70
i+  printf ("set_minsyms:  n2=%d\n",n2);	Err	vernunftzentrum.de	70
i+  if (n2>0) return;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  symv[ivc][n2]=zsym;	Err	vernunftzentrum.de	70
i+  symv[ivc][n2].type = INVISIBLE;	Err	vernunftzentrum.de	70
i+  symv[ivc][n2].u    = 3;	Err	vernunftzentrum.de	70
i+  symv[ivc][n2].v    = 3;	Err	vernunftzentrum.de	70
i+  symv[ivc][n2].w    = 3;	Err	vernunftzentrum.de	70
i+  voice[ivc].nsym++;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_sym_chars: set symbol characteristics --- */	Err	vernunftzentrum.de	70
i+void set_sym_chars (n1,n2,symb)	Err	vernunftzentrum.de	70
i+int n1,n2;	Err	vernunftzentrum.de	70
i+struct SYMBOL symb[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,np,m,ymn,ymx;	Err	vernunftzentrum.de	70
i+  float yav,yy;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (i=n1;i<n2;i++) {   	Err	vernunftzentrum.de	70
i+    if ((symb[i].type==NOTE)||(symb[i].type==REST)) {	Err	vernunftzentrum.de	70
i+      symb[i].y=3*(symb[i].pits[0]-18)+symb[i].yadd;	Err	vernunftzentrum.de	70
i+      if (symb[i].type==REST) symb[i].y=12;	Err	vernunftzentrum.de	70
i+      yav=0;	Err	vernunftzentrum.de	70
i+      ymn=1000;	Err	vernunftzentrum.de	70
i+      ymx=-1000;	Err	vernunftzentrum.de	70
i+      np=symb[i].npitch;	Err	vernunftzentrum.de	70
i+      for (m=0;m<np;m++) {	Err	vernunftzentrum.de	70
i+        yy=3*(symb[i].pits[m]-18)+symb[i].yadd;	Err	vernunftzentrum.de	70
i+        yav=yav+yy/np;	Err	vernunftzentrum.de	70
i+        if (yy<ymn) ymn=yy;	Err	vernunftzentrum.de	70
i+        if (yy>ymx) ymx=yy;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      symb[i].ymn=ymn;	Err	vernunftzentrum.de	70
i+      symb[i].ymx=ymx;	Err	vernunftzentrum.de	70
i+      symb[i].yav=yav;	Err	vernunftzentrum.de	70
i+      symb[i].ylo=ymn;	Err	vernunftzentrum.de	70
i+      symb[i].yhi=ymx;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_beams: decide on beams ---- */	Err	vernunftzentrum.de	70
i+void set_beams (n1,n2,symb)	Err	vernunftzentrum.de	70
i+int n1,n2;	Err	vernunftzentrum.de	70
i+struct SYMBOL symb[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int j,lastnote,start_flag;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* separate words at notes without flags */	Err	vernunftzentrum.de	70
i+  start_flag=0;	Err	vernunftzentrum.de	70
i+  lastnote=-1;	Err	vernunftzentrum.de	70
i+  for (j=n1;j<n2;j++) {	Err	vernunftzentrum.de	70
i+    if (symb[j].type==NOTE) {	Err	vernunftzentrum.de	70
i+      if (start_flag) {	Err	vernunftzentrum.de	70
i+        symb[j].word_st=1;	Err	vernunftzentrum.de	70
i+        start_flag=0;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      if (symb[j].flags==0) {	Err	vernunftzentrum.de	70
i+        if (lastnote>=0) symb[lastnote].word_end=1;	Err	vernunftzentrum.de	70
i+        symb[j].word_st=1;	Err	vernunftzentrum.de	70
i+        symb[j].word_end=1;	Err	vernunftzentrum.de	70
i+        start_flag=1;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      lastnote=j;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_stems: decide on stem directions and lengths ---- */	Err	vernunftzentrum.de	70
i+void set_stems (n1,n2,symb)	Err	vernunftzentrum.de	70
i+int n1,n2;	Err	vernunftzentrum.de	70
i+struct SYMBOL symb[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int beam,j,k,n,stem,laststem;	Err	vernunftzentrum.de	70
i+  float avg,slen,lasty,dy;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* set stem directions; near middle, use previous direction */	Err	vernunftzentrum.de	70
i+  beam=0;	Err	vernunftzentrum.de	70
i+  laststem=0;       	Err	vernunftzentrum.de	70
i+  for (j=n1; j<n2; j++) {	Err	vernunftzentrum.de	70
i+    if (symb[j].type!=NOTE) laststem=0; 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (symb[j].type==NOTE) {	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      symb[j].stem=0;                  	Err	vernunftzentrum.de	70
i+      if (symb[j].len<WHOLE) symb[j].stem=1;	Err	vernunftzentrum.de	70
i+      if (symb[j].yav>=12) symb[j].stem=-symb[j].stem;	Err	vernunftzentrum.de	70
i+      if ((symb[j].yav>11) && (symb[j].yav<13) && (laststem!=0)) {	Err	vernunftzentrum.de	70
i+        dy=symb[j].yav-lasty;	Err	vernunftzentrum.de	70
i+        if ((dy>-7) && (dy<7)) symb[j].stem=laststem;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+      if (symb[j].word_st && (!symb[j].word_end)) {   /* start of beam */	Err	vernunftzentrum.de	70
i+        avg=0; 	Err	vernunftzentrum.de	70
i+        n=0;	Err	vernunftzentrum.de	70
i+        for (k=j;k<n2;k++) {	Err	vernunftzentrum.de	70
i+          if (symb[k].type==NOTE) {	Err	vernunftzentrum.de	70
i+            avg=avg+symb[k].yav;	Err	vernunftzentrum.de	70
i+            n++;	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+          if (symb[k].word_end) break;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        avg=avg/n;	Err	vernunftzentrum.de	70
i+        stem=1;	Err	vernunftzentrum.de	70
i+        if (avg>=12) stem=-1;	Err	vernunftzentrum.de	70
i+        if ((avg>11) && (avg<13) && (laststem!=0)) stem=laststem;	Err	vernunftzentrum.de	70
i+        beam=1;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+      if (beam) symb[j].stem=stem;	Err	vernunftzentrum.de	70
i+      if (symb[j].word_end) beam=0;	Err	vernunftzentrum.de	70
i+      if (bagpipe) symb[j].stem=-1;	Err	vernunftzentrum.de	70
i+      if (symb[j].len>=WHOLE) symb[j].stem=0;	Err	vernunftzentrum.de	70
i+      laststem=symb[j].stem;	Err	vernunftzentrum.de	70
i+      if (symb[j].len>=HALF) laststem=0;	Err	vernunftzentrum.de	70
i+      lasty=symb[j].yav;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* shift notes in chords (need stem direction to do this) */	Err	vernunftzentrum.de	70
i+  for (j=n1;j<n2;j++) 	Err	vernunftzentrum.de	70
i+    if (symb[j].type==NOTE) set_head_directions (&symb[j]);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* set height of stem end, without considering beaming for now */	Err	vernunftzentrum.de	70
i+  for (j=n1; j<n2; j++) if (symb[j].type==NOTE) {	Err	vernunftzentrum.de	70
i+    slen=STEM;	Err	vernunftzentrum.de	70
i+    if (symb[j].npitch>1) slen=STEM_CH; 	Err	vernunftzentrum.de	70
i+    if (symb[j].flags==3) slen += 4;	Err	vernunftzentrum.de	70
i+    if (symb[j].flags==4) slen += 9;	Err	vernunftzentrum.de	70
i+    if ((symb[j].flags>2) && (symb[j].stem==1)) slen -= 1;	Err	vernunftzentrum.de	70
i+    if (symb[j].stem==1) {	Err	vernunftzentrum.de	70
i+      symb[j].y=symb[j].ymn;	Err	vernunftzentrum.de	70
i+      symb[j].ys=symb[j].ymx+slen;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else if (symb[j].stem==-1) {	Err	vernunftzentrum.de	70
i+      symb[j].y=symb[j].ymx;	Err	vernunftzentrum.de	70
i+      symb[j].ys=symb[j].ymn-slen;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      symb[j].y=symb[j].ymx;	Err	vernunftzentrum.de	70
i+      symb[j].ys=symb[j].ymx;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_sym_times: set time axis; also count through bars ----- */	Err	vernunftzentrum.de	70
i+int set_sym_times (n1,n2,symb,meter0)	Err	vernunftzentrum.de	70
i+int n1,n2;	Err	vernunftzentrum.de	70
i+struct SYMBOL symb[];	Err	vernunftzentrum.de	70
i+struct METERSTR meter0;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,pp,qq,rr,meter1,meter2,count,bnum,lastb,bsave;	Err	vernunftzentrum.de	70
i+  int qtab[] = {0,0,3,2,3,0,2,0,3,0};	Err	vernunftzentrum.de	70
i+  float time,factor,fullmes;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  meter1=meter0.meter1;	Err	vernunftzentrum.de	70
i+  meter2=meter0.meter2;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  lastb=bnum=0;	Err	vernunftzentrum.de	70
i+  bsave=1;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  time=0.0;	Err	vernunftzentrum.de	70
i+  factor=1.0;	Err	vernunftzentrum.de	70
i+  for (i=n1;i<n2;i++) {   	Err	vernunftzentrum.de	70
i+    symb[i].time=time;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    /* count through bar numbers, put into symb.t */	Err	vernunftzentrum.de	70
i+    if (symb[i].type==BAR) {	Err	vernunftzentrum.de	70
i+      fullmes=(WHOLE*meter1)/meter2;	Err	vernunftzentrum.de	70
i+      if (bnum==0) {	Err	vernunftzentrum.de	70
i+        bnum=barinit;	Err	vernunftzentrum.de	70
i+        if (fullmes<time+0.001) bnum++;	Err	vernunftzentrum.de	70
i+        symb[i].t=bnum;	Err	vernunftzentrum.de	70
i+        lastb=i;	Err	vernunftzentrum.de	70
i+      } 	Err	vernunftzentrum.de	70
i+      else if (time-symb[lastb].time>=fullmes-0.001) {	Err	vernunftzentrum.de	70
i+        bnum++;	Err	vernunftzentrum.de	70
i+        while (symb[i+1].type==BAR) {i++; symb[i].time=time; }	Err	vernunftzentrum.de	70
i+        symb[i].t=bnum;	Err	vernunftzentrum.de	70
i+        lastb=i;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      if (symb[i].v>1) {	Err	vernunftzentrum.de	70
i+        bnum=bsave;	Err	vernunftzentrum.de	70
i+        symb[i].t=0;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      if (symb[i].v==1) bsave=bnum;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    if ((symb[i].type==NOTE)||(symb[i].type==REST)) {	Err	vernunftzentrum.de	70
i+      if (symb[i].p_plet) {	Err	vernunftzentrum.de	70
i+        pp=symb[i].p_plet;	Err	vernunftzentrum.de	70
i+        qq=symb[i].q_plet;	Err	vernunftzentrum.de	70
i+        rr=symb[i].r_plet;	Err	vernunftzentrum.de	70
i+        if (qq==0) {	Err	vernunftzentrum.de	70
i+          qq=qtab[pp];	Err	vernunftzentrum.de	70
i+          if (qq==0) {	Err	vernunftzentrum.de	70
i+            qq=2;	Err	vernunftzentrum.de	70
i+            if (meter1%3==0) qq=3;	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        factor=((float)qq)/((float)pp);	Err	vernunftzentrum.de	70
i+        count=rr;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      time=time+factor*symb[i].len;	Err	vernunftzentrum.de	70
i+      if (count>0) count--;	Err	vernunftzentrum.de	70
i+      if (count==0) factor=1;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (symb[i].type==TIMESIG) {     /* maintain meter as we go along */	Err	vernunftzentrum.de	70
i+      meter1=symb[i].u;	Err	vernunftzentrum.de	70
i+      meter2=symb[i].v;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return bnum;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_sym_widths: set widths and prefered space --- */	Err	vernunftzentrum.de	70
i+/* This routine sets the minimal left and right widths wl,wr	Err	vernunftzentrum.de	70
i+   so that successive symbols are still separated when	Err	vernunftzentrum.de	70
i+   no extra glue is put between them. It also sets the prefered 	Err	vernunftzentrum.de	70
i+   spacings pl,pr for good output and xl,xr for expanded layout.	Err	vernunftzentrum.de	70
i+   All distances in pt relative to the symbol center. */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+#define AT_LEAST(a,b)  if((a)<(b)) a=b;	Err	vernunftzentrum.de	70
i+void set_sym_widths (ns1,ns2,symb,ivc)	Err	vernunftzentrum.de	70
i+int ns1,ns2,ivc;	Err	vernunftzentrum.de	70
i+struct SYMBOL symb[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,n,j0,j,m,n1,n2,bt,k,sl,k1,k2,got_note,ok;	Err	vernunftzentrum.de	70
i+  float xx,w,swfac,spc,dur,yy;	Err	vernunftzentrum.de	70
i+  char t[81],tt[81];	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  swfac=1.0;	Err	vernunftzentrum.de	70
i+  if (strstr(cfmt.vocalfont.name,"Times-Roman"))    swfac=1.00;	Err	vernunftzentrum.de	70
i+  if (strstr(cfmt.vocalfont.name,"Times-Bold"))     swfac=1.05;	Err	vernunftzentrum.de	70
i+  if (strstr(cfmt.vocalfont.name,"Helvetica"))      swfac=1.10;	Err	vernunftzentrum.de	70
i+  if (strstr(cfmt.vocalfont.name,"Helvetica-Bold")) swfac=1.15;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  got_note=0;	Err	vernunftzentrum.de	70
i+  for (i=ns1;i<ns2;i++) {	Err	vernunftzentrum.de	70
i+    switch (symb[i].type) {	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+    case INVISIBLE:   /* empty space; shrink,space,stretch from u,v,w */	Err	vernunftzentrum.de	70
i+      symb[i].wl=symb[i].wr=0.5*symb[i].u;	Err	vernunftzentrum.de	70
i+      symb[i].pl=symb[i].pr=0.5*symb[i].v;	Err	vernunftzentrum.de	70
i+      symb[i].xl=symb[i].xr=0.5*symb[i].w;	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    case NOTE:	Err	vernunftzentrum.de	70
i+    case REST:	Err	vernunftzentrum.de	70
i+      got_note=1;	Err	vernunftzentrum.de	70
i+      dur=symb[i].len;	Err	vernunftzentrum.de	70
i+      symb[i].wl=symb[i].wr=4.5;	Err	vernunftzentrum.de	70
i+      if (symb[i].head==H_EMPTY) {symb[i].wl=6.0; symb[i].wr=14.0;}	Err	vernunftzentrum.de	70
i+      if (symb[i].head==H_OVAL)  {symb[i].wl=8.0; symb[i].wr=18.0;}	Err	vernunftzentrum.de	70
i+      symb[i].pl=symb[i].xl=symb[i].wl;	Err	vernunftzentrum.de	70
i+      symb[i].pr=symb[i].xr=symb[i].wr;	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+      /* room for shifted heads and accidental signs */	Err	vernunftzentrum.de	70
i+      for (m=0;m<symb[i].npitch;m++) {	Err	vernunftzentrum.de	70
i+        xx=symb[i].shhd[m];	Err	vernunftzentrum.de	70
i+        AT_LEAST (symb[i].wr, xx+6); 	Err	vernunftzentrum.de	70
i+        AT_LEAST (symb[i].wl, -xx+6); 	Err	vernunftzentrum.de	70
i+        if (symb[i].accs[m]) {	Err	vernunftzentrum.de	70
i+          xx=xx-symb[i].shac[m]; 	Err	vernunftzentrum.de	70
i+          AT_LEAST (symb[i].wl, -xx+3); 	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        AT_LEAST (symb[i].xl, -xx+3); 	Err	vernunftzentrum.de	70
i+        symb[i].pl=symb[i].wl;	Err	vernunftzentrum.de	70
i+        symb[i].xl=symb[i].wl;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+        	Err	vernunftzentrum.de	70
i+      /* room for slide */	Err	vernunftzentrum.de	70
i+      for (k=0;k<symb[i].dc.n;k++) {	Err	vernunftzentrum.de	70
i+        if (symb[i].dc.t[k]==D_SLIDE) symb[i].wl += 10;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      /* room for grace notes */	Err	vernunftzentrum.de	70
i+      if (symb[i].gr.n>0) {	Err	vernunftzentrum.de	70
i+        xx=GSPACE0;	Err	vernunftzentrum.de	70
i+        if (symb[i].gr.a[0]) xx=xx+3.5;	Err	vernunftzentrum.de	70
i+        for (j=1;j<symb[i].gr.n;j++) {                   	Err	vernunftzentrum.de	70
i+          xx=xx+GSPACE;	Err	vernunftzentrum.de	70
i+          if (symb[i].gr.a[j]) xx=xx+4;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        symb[i].wl = symb[i].wl + xx+1;	Err	vernunftzentrum.de	70
i+        symb[i].pl = symb[i].pl + xx+1;	Err	vernunftzentrum.de	70
i+        symb[i].xl = symb[i].xl + xx+1;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+      /* space for flag if stem goes up on standalone note */	Err	vernunftzentrum.de	70
i+      if (symb[i].word_st && symb[i].word_end) 	Err	vernunftzentrum.de	70
i+        if ((symb[i].stem==1) && symb[i].flags>0) 	Err	vernunftzentrum.de	70
i+          AT_LEAST (symb[i].wr, 12);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      /* leave room for dots */	Err	vernunftzentrum.de	70
i+      if (symb[i].dots>0) {	Err	vernunftzentrum.de	70
i+        AT_LEAST (symb[i].wr,12+symb[i].xmx);	Err	vernunftzentrum.de	70
i+        if (symb[i].dots>=2) symb[i].wr=symb[i].wr+3.5;	Err	vernunftzentrum.de	70
i+        n=(int) symb[i].y;	Err	vernunftzentrum.de	70
i+        /* special case: standalone with up-stem and flags */	Err	vernunftzentrum.de	70
i+        if (symb[i].flags && (symb[i].stem==1) && !(n%6)) 	Err	vernunftzentrum.de	70
i+          if ((symb[i].word_st==1) && (symb[i].word_end==1)) {	Err	vernunftzentrum.de	70
i+            symb[i].wr=symb[i].wr+DOTSHIFT;	Err	vernunftzentrum.de	70
i+            symb[i].pr=symb[i].pr+DOTSHIFT;	Err	vernunftzentrum.de	70
i+            symb[i].xr=symb[i].xr+DOTSHIFT;	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      /* extra space when down stem follows up stem */	Err	vernunftzentrum.de	70
i+      j0=preceded_by_note(i,ns2,symb);	Err	vernunftzentrum.de	70
i+      if ((j0>=0) && (symb[j0].stem==1) && (symb[i].stem==-1)) 	Err	vernunftzentrum.de	70
i+        AT_LEAST (symb[i].wl, 7);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      /* make sure helper lines don't overlap */	Err	vernunftzentrum.de	70
i+      if ((j0>=0) && (symb[i].y>27) && (symb[j0].y>27)) 	Err	vernunftzentrum.de	70
i+        AT_LEAST (symb[i].wl, 7.5);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      /* leave room guitar chord */	Err	vernunftzentrum.de	70
i+      if (strlen(symb[i].text)>0) {	Err	vernunftzentrum.de	70
i+        /* special case: guitar chord under ending 1 or 2 */	Err	vernunftzentrum.de	70
i+        /* leave some room to the left of the note */	Err	vernunftzentrum.de	70
i+        if ((i>0) && (symb[i-1].type==BAR)) {	Err	vernunftzentrum.de	70
i+          bt=symb[i-1].v;	Err	vernunftzentrum.de	70
i+          if (bt) AT_LEAST (symb[i].wl, 18);	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        /* rest is same for all guitar chord cases */	Err	vernunftzentrum.de	70
i+        tex_str(symb[i].text,t,&w);	Err	vernunftzentrum.de	70
i+        xx=cfmt.gchordfont.size*w;	Err	vernunftzentrum.de	70
i+        xx=xx*1.05;     /* extra space mainly for helvetica font */	Err	vernunftzentrum.de	70
i+        spc=xx*GCHPRE;	Err	vernunftzentrum.de	70
i+        k1=prec_note(i,ns2,symb);	Err	vernunftzentrum.de	70
i+        k2=next_note(i,ns2,symb);	Err	vernunftzentrum.de	70
i+        if (spc>8.0) spc=8.0;	Err	vernunftzentrum.de	70
i+        if ((k1>0) && (strlen(symb[k1].text)>0))	Err	vernunftzentrum.de	70
i+          AT_LEAST (symb[i].wl, spc); 	Err	vernunftzentrum.de	70
i+        if ((k2>0) && (strlen(symb[k2].text)>0)) 	Err	vernunftzentrum.de	70
i+          AT_LEAST (symb[i].wr, xx-spc); 	Err	vernunftzentrum.de	70
i+      }        	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      /* leave room for vocals under note */	Err	vernunftzentrum.de	70
i+      for (j=0;j<NWLINE;j++) {	Err	vernunftzentrum.de	70
i+        if (symb[i].wordp[j]) {	Err	vernunftzentrum.de	70
i+          sl=tex_str(symb[i].wordp[j],t,&w);	Err	vernunftzentrum.de	70
i+          xx=swfac*cfmt.vocalfont.size*(w+2*cwid(' '));	Err	vernunftzentrum.de	70
i+          AT_LEAST (symb[i].wl,xx*VOCPRE);	Err	vernunftzentrum.de	70
i+          AT_LEAST (symb[i].wr,xx*(1.0-VOCPRE));	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      } 	Err	vernunftzentrum.de	70
i+        	Err	vernunftzentrum.de	70
i+      AT_LEAST (symb[i].pl, symb[i].wl);	Err	vernunftzentrum.de	70
i+      AT_LEAST (symb[i].xl, symb[i].wl);	Err	vernunftzentrum.de	70
i+      AT_LEAST (symb[i].pr, symb[i].wr);	Err	vernunftzentrum.de	70
i+      AT_LEAST (symb[i].xr, symb[i].wr);	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+    case BAR:	Err	vernunftzentrum.de	70
i+      symb[i].wl=symb[i].wr=0;	Err	vernunftzentrum.de	70
i+      if (symb[i].u==B_SNGL)         symb[i].wl=symb[i].wr=3;	Err	vernunftzentrum.de	70
i+      else if (symb[i].u==B_DBL)   { symb[i].wl=7; symb[i].wr=4;  }	Err	vernunftzentrum.de	70
i+      else if (symb[i].u==B_LREP)  { symb[i].wl=3; symb[i].wr=12; }	Err	vernunftzentrum.de	70
i+      else if (symb[i].u==B_RREP)  { symb[i].wl=12; symb[i].wr=3; }	Err	vernunftzentrum.de	70
i+      else if (symb[i].u==B_DREP)    symb[i].wl=symb[i].wr=12;	Err	vernunftzentrum.de	70
i+      else if (symb[i].u==B_FAT1)  { symb[i].wl=3;  symb[i].wr=9; }	Err	vernunftzentrum.de	70
i+      else if (symb[i].u==B_FAT2)  { symb[i].wl=9;  symb[i].wr=3; }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      if (ivc==ivc0) {       /* bar numbers and labels next */	Err	vernunftzentrum.de	70
i+        ok=0;	Err	vernunftzentrum.de	70
i+        if ((cfmt.barnums>0) && (symb[i].t%cfmt.barnums==0)) ok=1;	Err	vernunftzentrum.de	70
i+        if (strlen(symb[i].text)>0) ok=1;	Err	vernunftzentrum.de	70
i+        if (ok) {	Err	vernunftzentrum.de	70
i+          if (strlen(symb[i].text)>0) {	Err	vernunftzentrum.de	70
i+            tex_str(symb[i].text,t,&w);	Err	vernunftzentrum.de	70
i+            xx=cfmt.barlabelfont.size*w*0.5;	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+          else {	Err	vernunftzentrum.de	70
i+            sprintf (tt,"%d",symb[i].t);	Err	vernunftzentrum.de	70
i+            tex_str(tt,t,&w);	Err	vernunftzentrum.de	70
i+            xx=cfmt.barnumfont.size*w*0.5;	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+          yy=60; 	Err	vernunftzentrum.de	70
i+          if (!got_note) yy=0; 	Err	vernunftzentrum.de	70
i+          if ((i>0) && (symb[i-1].type==NOTE)) {	Err	vernunftzentrum.de	70
i+            yy=symb[i-1].ymx;	Err	vernunftzentrum.de	70
i+            if (symb[i-1].stem==1) yy=yy+26;	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+          if ((i>0) && (strlen(symb[i-1].text)>0)) yy=60;	Err	vernunftzentrum.de	70
i+          AT_LEAST (symb[i].wl, 2); 	Err	vernunftzentrum.de	70
i+          if (yy>BNUMHT-4.0) AT_LEAST (symb[i].wl, xx+1); 	Err	vernunftzentrum.de	70
i+          if (!got_note) AT_LEAST (symb[i].wl, xx+1); 	Err	vernunftzentrum.de	70
i+          yy=0;	Err	vernunftzentrum.de	70
i+          if (symb[i+1].type==NOTE) yy=symb[i+1].ymx;	Err	vernunftzentrum.de	70
i+          if (yy>BNUMHT-4.0) AT_LEAST (symb[i].wr, xx+2); 	Err	vernunftzentrum.de	70
i+          if (strlen(symb[i+1].text)>0) AT_LEAST (symb[i].wr, xx+4); 	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      symb[i].pl=symb[i].wl;	Err	vernunftzentrum.de	70
i+      symb[i].pr=symb[i].wr;	Err	vernunftzentrum.de	70
i+      symb[i].xl=symb[i].wl;	Err	vernunftzentrum.de	70
i+      symb[i].xr=symb[i].wr;	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+    case CLEF:	Err	vernunftzentrum.de	70
i+      symb[i].wl=symb[i].wr=symb[i].xl=13.5;	Err	vernunftzentrum.de	70
i+      symb[i].pl=symb[i].pr=symb[i].xr=11.5;	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+    case KEYSIG:	Err	vernunftzentrum.de	70
i+      n1=symb[i].u;    	Err	vernunftzentrum.de	70
i+      n2=symb[i].v;    	Err	vernunftzentrum.de	70
i+      if (n2>=n1) {	Err	vernunftzentrum.de	70
i+        symb[i].wl=2;	Err	vernunftzentrum.de	70
i+        symb[i].wr=5*(n2-n1+1)+2;	Err	vernunftzentrum.de	70
i+        symb[i].pl=symb[i].wl;	Err	vernunftzentrum.de	70
i+        symb[i].pr=symb[i].wr;	Err	vernunftzentrum.de	70
i+        symb[i].xl=symb[i].wl;	Err	vernunftzentrum.de	70
i+        symb[i].xr=symb[i].wr;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else {	Err	vernunftzentrum.de	70
i+        symb[i].wl=symb[i].pl=symb[i].xl=3;	Err	vernunftzentrum.de	70
i+        symb[i].wr=symb[i].pr=symb[i].xr=3;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    case TIMESIG:	Err	vernunftzentrum.de	70
i+      symb[i].wl=8+4*(strlen(symb[i].text)-1);	Err	vernunftzentrum.de	70
i+      symb[i].wr=symb[i].wl+4;	Err	vernunftzentrum.de	70
i+      symb[i].pl=symb[i].wl;	Err	vernunftzentrum.de	70
i+      symb[i].pr=symb[i].wr;	Err	vernunftzentrum.de	70
i+      symb[i].xl=symb[i].wl;	Err	vernunftzentrum.de	70
i+      symb[i].xr=symb[i].wr;	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+    default:	Err	vernunftzentrum.de	70
i+      printf (">>> cannot set width for sym type %d\n", symb[i].type);	Err	vernunftzentrum.de	70
i+      symb[i].wl=symb[i].wr=symb[i].xl=0;	Err	vernunftzentrum.de	70
i+      symb[i].pl=symb[i].pr=symb[i].xr=0;	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- contract_keysigs: delete duplicate keysigs at staff start ---- */	Err	vernunftzentrum.de	70
i+/* Depending on line breaks, a key and/or meter change can come	Err	vernunftzentrum.de	70
i+   at the start of a staff. Solution: scan through symbols from start	Err	vernunftzentrum.de	70
i+   of line as long as sym is a CLEF, KEYSIG, or TIMESIG. Remove all	Err	vernunftzentrum.de	70
i+   these, but set flags so that set_initsyms will draw the	Err	vernunftzentrum.de	70
i+   key and meter which result at the end of the scan. */	Err	vernunftzentrum.de	70
i+int contract_keysigs (ip1)	Err	vernunftzentrum.de	70
i+int ip1;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,k,v,t,n3,sf,jp1,m,mtop;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  mtop=10000;	Err	vernunftzentrum.de	70
i+  for (v=0;v<nvoice;v++) {	Err	vernunftzentrum.de	70
i+    i=ip1;	Err	vernunftzentrum.de	70
i+    m=0;	Err	vernunftzentrum.de	70
i+    for (;;) {	Err	vernunftzentrum.de	70
i+      m++;	Err	vernunftzentrum.de	70
i+      k=xp[i].p[v];	Err	vernunftzentrum.de	70
i+      if (k>=0) {	Err	vernunftzentrum.de	70
i+        if (symv[v][k].type==CLEF) {	Err	vernunftzentrum.de	70
i+          voice[v].key.ktype=symv[v][k].u;	Err	vernunftzentrum.de	70
i+          symv[v][k].type=INVISIBLE; 	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        else if (symv[v][k].type==KEYSIG) {	Err	vernunftzentrum.de	70
i+          sf=symv[v][k].v;   	Err	vernunftzentrum.de	70
i+          n3=symv[v][k].w;   	Err	vernunftzentrum.de	70
i+          if (n3-1<sf) sf=n3-1;	Err	vernunftzentrum.de	70
i+          t =symv[v][k].t;   	Err	vernunftzentrum.de	70
i+          if (t==A_FT) sf=-sf;	Err	vernunftzentrum.de	70
i+          if (t==A_NT) sf=0;	Err	vernunftzentrum.de	70
i+          voice[v].key.sf=sf;	Err	vernunftzentrum.de	70
i+          symv[v][k].type=INVISIBLE; 	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        else if (symv[v][k].type==TIMESIG) {	Err	vernunftzentrum.de	70
i+          voice[v].meter.insert=1;	Err	vernunftzentrum.de	70
i+          voice[v].meter.meter1=symv[v][k].u;	Err	vernunftzentrum.de	70
i+          voice[v].meter.meter2=symv[v][k].v;	Err	vernunftzentrum.de	70
i+          voice[v].meter.mflag =symv[v][k].w;	Err	vernunftzentrum.de	70
i+          strcpy(voice[v].meter.top,symv[v][k].text);	Err	vernunftzentrum.de	70
i+          symv[v][k].type=INVISIBLE; 	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        else 	Err	vernunftzentrum.de	70
i+          break;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      i=xp[i].next;	Err	vernunftzentrum.de	70
i+      if (i==XP_END) {	Err	vernunftzentrum.de	70
i+        i=xp[i].prec;	Err	vernunftzentrum.de	70
i+        break;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (m<mtop && i>=0) {mtop=m; jp1=i; }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* set glue for first symbol */	Err	vernunftzentrum.de	70
i+  xp[jp1].shrink = xp[jp1].wl+3;	Err	vernunftzentrum.de	70
i+  xp[jp1].space  = xp[jp1].wl+9;	Err	vernunftzentrum.de	70
i+  xp[jp1].stretch= xp[jp1].wl+16;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return jp1;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_initsyms: set symbols at start of staff ----- */	Err	vernunftzentrum.de	70
i+int set_initsyms (v,wid0)	Err	vernunftzentrum.de	70
i+int v;	Err	vernunftzentrum.de	70
i+float *wid0;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int   k,t,n;	Err	vernunftzentrum.de	70
i+  float x;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  k=0;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* add clef */	Err	vernunftzentrum.de	70
i+  sym_st[v][k]=zsym;	Err	vernunftzentrum.de	70
i+  sym_st[v][k].type = CLEF;	Err	vernunftzentrum.de	70
i+  sym_st[v][k].u    = voice[ivc].key.ktype;	Err	vernunftzentrum.de	70
i+  sym_st[v][k].v    = 0;	Err	vernunftzentrum.de	70
i+  k++;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* add keysig */	Err	vernunftzentrum.de	70
i+  sym_st[v][k]=zsym;	Err	vernunftzentrum.de	70
i+  sym_st[v][k].type = KEYSIG;	Err	vernunftzentrum.de	70
i+  n=voice[ivc].key.sf;	Err	vernunftzentrum.de	70
i+  t=A_SH;	Err	vernunftzentrum.de	70
i+  if (n<0) { n=-n; t=A_FT; }	Err	vernunftzentrum.de	70
i+  sym_st[v][k].u = 1;	Err	vernunftzentrum.de	70
i+  sym_st[v][k].v = n;	Err	vernunftzentrum.de	70
i+  sym_st[v][k].w = 100;	Err	vernunftzentrum.de	70
i+  sym_st[v][k].t = t;	Err	vernunftzentrum.de	70
i+  k++;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* add timesig */	Err	vernunftzentrum.de	70
i+  if (voice[ivc].meter.insert) {	Err	vernunftzentrum.de	70
i+    sym_st[v][k]=zsym;	Err	vernunftzentrum.de	70
i+    sym_st[v][k].type = TIMESIG;	Err	vernunftzentrum.de	70
i+    sym_st[v][k].u    = voice[ivc].meter.meter1;	Err	vernunftzentrum.de	70
i+    sym_st[v][k].v    = voice[ivc].meter.meter2;	Err	vernunftzentrum.de	70
i+    sym_st[v][k].w    = voice[ivc].meter.mflag;	Err	vernunftzentrum.de	70
i+    strcpy(sym_st[v][k].text,voice[ivc].meter.top);	Err	vernunftzentrum.de	70
i+    k++;	Err	vernunftzentrum.de	70
i+    voice[ivc].meter.insert=0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (voice[ivc].insert_btype) {	Err	vernunftzentrum.de	70
i+    sym_st[v][k].type = BAR;	Err	vernunftzentrum.de	70
i+    sym_st[v][k].u=voice[ivc].insert_btype;	Err	vernunftzentrum.de	70
i+    sym_st[v][k].v=voice[ivc].insert_num;	Err	vernunftzentrum.de	70
i+    sym_st[v][k].t=voice[ivc].insert_bnum;	Err	vernunftzentrum.de	70
i+    strcpy(sym_st[v][k].text,voice[ivc].insert_text); 	Err	vernunftzentrum.de	70
i+    voice[ivc].insert_btype=0;	Err	vernunftzentrum.de	70
i+    voice[ivc].insert_bnum=0;	Err	vernunftzentrum.de	70
i+    k++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  n=k;	Err	vernunftzentrum.de	70
i+  set_sym_widths (0,n,sym_st[v],ivc);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  x=0;	Err	vernunftzentrum.de	70
i+  for (k=0;k<n;k++) {	Err	vernunftzentrum.de	70
i+    x=x+sym_st[v][k].wl;	Err	vernunftzentrum.de	70
i+    sym_st[v][k].x=x;	Err	vernunftzentrum.de	70
i+    x=x+sym_st[v][k].wr;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  *wid0=x+voice[v].insert_space;	Err	vernunftzentrum.de	70
i+  return n;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- print_poslist ----- */	Err	vernunftzentrum.de	70
i+void print_poslist ()	Err	vernunftzentrum.de	70
i+{ 	Err	vernunftzentrum.de	70
i+  int i,n,typ,vv;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  printf ("\n----------- xpos list -----------\n");	Err	vernunftzentrum.de	70
i+  printf (" num ptr  type      time   dur     width    tfac"	Err	vernunftzentrum.de	70
i+          "   shrk  spac  stre  eol  vptr\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  n=0;	Err	vernunftzentrum.de	70
i+  i=xp[XP_START].next;	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    typ=xp[i].type;	Err	vernunftzentrum.de	70
i+    printf ("%3d %3d  %d ", n,i,typ);	Err	vernunftzentrum.de	70
i+    if      (typ==NOTE)       printf ("NOTE");	Err	vernunftzentrum.de	70
i+    else if (typ==REST)       printf ("REST");	Err	vernunftzentrum.de	70
i+    else if (typ==KEYSIG)     printf ("KEY ");	Err	vernunftzentrum.de	70
i+    else if (typ==TIMESIG)    printf ("TSIG");	Err	vernunftzentrum.de	70
i+    else if (typ==BAR)        printf ("BAR ");	Err	vernunftzentrum.de	70
i+    else if (typ==CLEF)       printf ("CLEF");	Err	vernunftzentrum.de	70
i+    else if (typ==INVISIBLE)  printf ("INVS");	Err	vernunftzentrum.de	70
i+    else                      printf ("????");	Err	vernunftzentrum.de	70
i+    printf ("  %7.2f %6.2f  %4.1f %4.1f %5.2f  %5.1f %5.1f %5.1f", 	Err	vernunftzentrum.de	70
i+            xp[i].time,xp[i].dur,xp[i].wl,xp[i].wr,xp[i].tfac,	Err	vernunftzentrum.de	70
i+            xp[i].shrink,xp[i].space,xp[i].stretch);	Err	vernunftzentrum.de	70
i+    if (xp[i].eoln) 	Err	vernunftzentrum.de	70
i+      printf("  %d  ",xp[i].eoln);	Err	vernunftzentrum.de	70
i+    else	Err	vernunftzentrum.de	70
i+      printf("  -  ");	Err	vernunftzentrum.de	70
i+    for (vv=0;vv<nvoice;vv++) {	Err	vernunftzentrum.de	70
i+      if (xp[i].p[vv]>=0) 	Err	vernunftzentrum.de	70
i+        printf(" %2d",xp[i].p[vv]);	Err	vernunftzentrum.de	70
i+      else	Err	vernunftzentrum.de	70
i+        printf("  -");	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    printf ("\n");	Err	vernunftzentrum.de	70
i+    i=xp[i].next;	Err	vernunftzentrum.de	70
i+    n++;	Err	vernunftzentrum.de	70
i+    if (i==XP_END) break;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+} 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- insert_poslist: insert new element after element nins ----- */	Err	vernunftzentrum.de	70
i+int insert_poslist (nins)	Err	vernunftzentrum.de	70
i+int nins;	Err	vernunftzentrum.de	70
i+{ 	Err	vernunftzentrum.de	70
i+  int new,nxt,vv;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  new=ixpfree;	Err	vernunftzentrum.de	70
i+  ixpfree++;	Err	vernunftzentrum.de	70
i+  if (new>=XP_END) 	Err	vernunftzentrum.de	70
i+    rxi("Too many symbols; use -maxs to increase limit, now ",maxSyms);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  nxt=xp[nins].next;	Err	vernunftzentrum.de	70
i+  xp[new].prec=nins;	Err	vernunftzentrum.de	70
i+  xp[new].next=nxt;	Err	vernunftzentrum.de	70
i+  xp[nins].next=new;	Err	vernunftzentrum.de	70
i+  xp[nxt].prec=new;	Err	vernunftzentrum.de	70
i+  for (vv=0;vv<nvoice;vv++) xp[new].p[vv]=-1;	Err	vernunftzentrum.de	70
i+          	Err	vernunftzentrum.de	70
i+  return new;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_poslist: make list of horizontal posits to align voices --- */	Err	vernunftzentrum.de	70
i+void set_poslist ()	Err	vernunftzentrum.de	70
i+{ 	Err	vernunftzentrum.de	70
i+  int i,n,v,vv,typ,nok,nins;	Err	vernunftzentrum.de	70
i+  float tol=0.01;	Err	vernunftzentrum.de	70
i+  float d,tim;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* initialize xp with data from top nonempty voice, ivc0 */	Err	vernunftzentrum.de	70
i+  v=ivc0;	Err	vernunftzentrum.de	70
i+  n=0;	Err	vernunftzentrum.de	70
i+  xp[0].next=1;	Err	vernunftzentrum.de	70
i+  for (i=0;i<voice[v].nsym;i++) {	Err	vernunftzentrum.de	70
i+    n++;	Err	vernunftzentrum.de	70
i+    xp[n].prec=n-1;	Err	vernunftzentrum.de	70
i+    xp[n].next=n+1;	Err	vernunftzentrum.de	70
i+    symv[v][i].p=n;	Err	vernunftzentrum.de	70
i+    for (vv=0;vv<nvoice;vv++) xp[n].p[vv]=-1;	Err	vernunftzentrum.de	70
i+    xp[n].p[v]=i;	Err	vernunftzentrum.de	70
i+    typ=symv[v][i].type;	Err	vernunftzentrum.de	70
i+    if (typ==REST) typ=NOTE;	Err	vernunftzentrum.de	70
i+    xp[n].type = typ;	Err	vernunftzentrum.de	70
i+    xp[n].time = symv[v][i].time;	Err	vernunftzentrum.de	70
i+    xp[n].dur = xp[n].tfac = 0;	Err	vernunftzentrum.de	70
i+    xp[n].shrink = xp[n].space = xp[n].stretch =0;	Err	vernunftzentrum.de	70
i+    xp[n].wl = xp[n].wr = 0;	Err	vernunftzentrum.de	70
i+    xp[n].eoln=symv[v][i].eoln;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  xp[n].next=XP_END;	Err	vernunftzentrum.de	70
i+  xp[XP_END].prec=n;	Err	vernunftzentrum.de	70
i+  ixpfree=n+1;	Err	vernunftzentrum.de	70
i+ 	Err	vernunftzentrum.de	70
i+  /* find or insert syms for other voices */	Err	vernunftzentrum.de	70
i+  for (v=0;v<nvoice;v++) {	Err	vernunftzentrum.de	70
i+    if (voice[v].draw && v!=ivc0) {	Err	vernunftzentrum.de	70
i+      n=XP_START;	Err	vernunftzentrum.de	70
i+      for (i=0;i<voice[v].nsym;i++) {	Err	vernunftzentrum.de	70
i+        tim=symv[v][i].time;	Err	vernunftzentrum.de	70
i+        typ=symv[v][i].type;	Err	vernunftzentrum.de	70
i+        if (typ==REST) typ=NOTE;	Err	vernunftzentrum.de	70
i+        nok=-1;	Err	vernunftzentrum.de	70
i+        nins=n;	Err	vernunftzentrum.de	70
i+        for (;;) {	Err	vernunftzentrum.de	70
i+          n=xp[n].next;	Err	vernunftzentrum.de	70
i+          if (n==XP_END) break;	Err	vernunftzentrum.de	70
i+          d=xp[n].time-tim;	Err	vernunftzentrum.de	70
i+          if (xp[n].time<tim-tol) nins=n;	Err	vernunftzentrum.de	70
i+          if (d*d<tol*tol && xp[n].type==typ) {	Err	vernunftzentrum.de	70
i+            nok=n;	Err	vernunftzentrum.de	70
i+            break;	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+          if (xp[n].time>tim+tol) break;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        if (nok>0) 	Err	vernunftzentrum.de	70
i+          n=nok;	Err	vernunftzentrum.de	70
i+        else {	Err	vernunftzentrum.de	70
i+          n=insert_poslist (nins);	Err	vernunftzentrum.de	70
i+          xp[n].type=typ;	Err	vernunftzentrum.de	70
i+          xp[n].time=tim;	Err	vernunftzentrum.de	70
i+          xp[n].dur = xp[n].tfac = 0;	Err	vernunftzentrum.de	70
i+          xp[n].shrink = xp[n].space = xp[n].stretch =0;	Err	vernunftzentrum.de	70
i+          xp[n].wl = xp[n].wr = 0;	Err	vernunftzentrum.de	70
i+          xp[n].eoln=0;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        symv[v][i].p=n;	Err	vernunftzentrum.de	70
i+        xp[n].p[v]=i;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+/*|   print_poslist (); |*/	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+} 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_xpwid: set symbol widths and tfac in xp list ----- */	Err	vernunftzentrum.de	70
i+void set_xpwid()	Err	vernunftzentrum.de	70
i+{ 	Err	vernunftzentrum.de	70
i+  int i,j,k,i1,i2,k1,k2,v,nsm;	Err	vernunftzentrum.de	70
i+  float fac,dy,ff,wv,wx;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* set all tfacs to 1.0 */	Err	vernunftzentrum.de	70
i+  i=i1=xp[XP_START].next;	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    xp[i].tfac=1.0;	Err	vernunftzentrum.de	70
i+    xp[i].wl=xp[i].wr=WIDTH_MIN;	Err	vernunftzentrum.de	70
i+    i2=i;	Err	vernunftzentrum.de	70
i+    i=xp[i].next;	Err	vernunftzentrum.de	70
i+    if (i==XP_END) break;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* loop over voices. first voice last, assumed most important */	Err	vernunftzentrum.de	70
i+  for (v=nvoice-1;v>=0;v--) {	Err	vernunftzentrum.de	70
i+    nsm=voice[v].nsym;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    /* first symbol and last symbol */	Err	vernunftzentrum.de	70
i+    k1=symv[v][0].p;	Err	vernunftzentrum.de	70
i+    k2=symv[v][nsm-1].p;	Err	vernunftzentrum.de	70
i+    if (k1==i1 && symv[v][0].wl>xp[k1].wl)     xp[k1].wl=symv[v][0].wl;	Err	vernunftzentrum.de	70
i+    if (k2==i2 && symv[v][nsm-1].wr>xp[k2].wr) xp[k2].wr=symv[v][nsm-1].wr;	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    /* loop over symbol nn pairs */	Err	vernunftzentrum.de	70
i+    for (i=1;i<nsm;i++) {	Err	vernunftzentrum.de	70
i+      j=i-1;	Err	vernunftzentrum.de	70
i+      k1=symv[v][j].p;	Err	vernunftzentrum.de	70
i+      k2=symv[v][i].p;	Err	vernunftzentrum.de	70
i+      if (xp[k1].next==k2) {	Err	vernunftzentrum.de	70
i+        if (symv[v][j].wr>xp[k1].wr) xp[k1].wr=symv[v][j].wr;	Err	vernunftzentrum.de	70
i+        if (symv[v][i].wl>xp[k2].wl) xp[k2].wl=symv[v][i].wl;	Err	vernunftzentrum.de	70
i+        	Err	vernunftzentrum.de	70
i+        if (symv[v][j].type==NOTE && symv[v][i].type==NOTE) {	Err	vernunftzentrum.de	70
i+          fac=1.0;	Err	vernunftzentrum.de	70
i+          /* reduce distance under a beam */	Err	vernunftzentrum.de	70
i+          if (symv[v][i].word_st==0) fac=fac*fnnp;	Err	vernunftzentrum.de	70
i+          /* reduce distance for large jumps in pitch */	Err	vernunftzentrum.de	70
i+          dy=symv[v][i].y-symv[v][j].y;	Err	vernunftzentrum.de	70
i+          if (dy<0) dy=-dy;	Err	vernunftzentrum.de	70
i+          ff=1-0.010*dy; 	Err	vernunftzentrum.de	70
i+          if (ff<0.9) ff=0.9;	Err	vernunftzentrum.de	70
i+          fac=fac*ff;	Err	vernunftzentrum.de	70
i+          xp[k2].tfac=fac;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* check for all nn pairs in voice, in case some syms very wide */ 	Err	vernunftzentrum.de	70
i+  for (v=nvoice-1;v>=0;v--) {	Err	vernunftzentrum.de	70
i+    nsm=voice[v].nsym;	Err	vernunftzentrum.de	70
i+    for (i=1;i<nsm;i++) {	Err	vernunftzentrum.de	70
i+      j=i-1;	Err	vernunftzentrum.de	70
i+      k1=symv[v][j].p;	Err	vernunftzentrum.de	70
i+      k2=symv[v][i].p;	Err	vernunftzentrum.de	70
i+      if (xp[k1].next!=k2) {	Err	vernunftzentrum.de	70
i+        wv=symv[v][j].wr+symv[v][i].wl;	Err	vernunftzentrum.de	70
i+        wx=xp[k1].wr+xp[k2].wl;	Err	vernunftzentrum.de	70
i+        k=k1;	Err	vernunftzentrum.de	70
i+        for (;;) {	Err	vernunftzentrum.de	70
i+          k=xp[k].next;	Err	vernunftzentrum.de	70
i+          if (k==k2) break;	Err	vernunftzentrum.de	70
i+          wx=wx+xp[k].wl+xp[k].wr;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        if(wx<wv) {	Err	vernunftzentrum.de	70
i+          fac=wv/wx;	Err	vernunftzentrum.de	70
i+          xp[k1].wr=fac*xp[k1].wr;	Err	vernunftzentrum.de	70
i+          xp[k2].wl=fac*xp[k2].wl;	Err	vernunftzentrum.de	70
i+          k=k1;	Err	vernunftzentrum.de	70
i+          for (;;) {	Err	vernunftzentrum.de	70
i+            k=xp[k].next;	Err	vernunftzentrum.de	70
i+            if (k==k2) break;	Err	vernunftzentrum.de	70
i+            xp[k].wl=fac*xp[k].wl;	Err	vernunftzentrum.de	70
i+            xp[k].wr=fac*xp[k].wr;	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+} 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_spaces: set the shrink,space,stretch distances ----- */	Err	vernunftzentrum.de	70
i+void set_spaces ()	Err	vernunftzentrum.de	70
i+{ 	Err	vernunftzentrum.de	70
i+  int i,j,n,nxt,typ,typl,meter1,meter2;	Err	vernunftzentrum.de	70
i+  float w0,w1,w2;	Err	vernunftzentrum.de	70
i+  float vbnp,vbnx,vnbp,vnbx;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* note lengths for spaces at bars. Use dcefault meter for now */	Err	vernunftzentrum.de	70
i+  meter1=default_meter.meter1;	Err	vernunftzentrum.de	70
i+  meter2=default_meter.meter2;	Err	vernunftzentrum.de	70
i+  vbnp=(rbnp*meter1*BASE)/meter2;	Err	vernunftzentrum.de	70
i+  vbnx=(rbnx*meter1*BASE)/meter2;	Err	vernunftzentrum.de	70
i+  vnbp=(rnbp*meter1*BASE)/meter2;	Err	vernunftzentrum.de	70
i+  vnbx=(rnbx*meter1*BASE)/meter2;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* redefine durations as differences in start times */	Err	vernunftzentrum.de	70
i+  n=0;	Err	vernunftzentrum.de	70
i+  i=xp[XP_START].next;	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    nxt=xp[i].next;	Err	vernunftzentrum.de	70
i+    if (nxt!=XP_END) xp[i].dur=xp[nxt].time-xp[i].time;	Err	vernunftzentrum.de	70
i+    i=nxt;	Err	vernunftzentrum.de	70
i+    n++;	Err	vernunftzentrum.de	70
i+    if (i==XP_END) break;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  i=xp[XP_START].next;	Err	vernunftzentrum.de	70
i+  j=-1;	Err	vernunftzentrum.de	70
i+  typl=0;	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    nxt=xp[i].next;	Err	vernunftzentrum.de	70
i+    typ=xp[i].type;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    /* shrink distance is sum of left and right widths */	Err	vernunftzentrum.de	70
i+    if (j>=0) 	Err	vernunftzentrum.de	70
i+      xp[i].shrink=xp[j].wr+xp[i].wl;	Err	vernunftzentrum.de	70
i+    else	Err	vernunftzentrum.de	70
i+      xp[i].shrink=xp[i].wl;	Err	vernunftzentrum.de	70
i+    xp[i].space=xp[i].stretch=xp[i].shrink;	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    if (xp[i].type==NOTE) { 	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+      if (typl==NOTE) {             /* note after another note */	Err	vernunftzentrum.de	70
i+        w1 = lnnp*nwid(xp[j].dur);	Err	vernunftzentrum.de	70
i+        w2 = lnnp*nwid(xp[i].dur);	Err	vernunftzentrum.de	70
i+        xp[i].space = bnnp*w1 + (1-bnnp)*0.5*(w1+w2);	Err	vernunftzentrum.de	70
i+        w1 = lnnx*xwid(xp[j].dur);	Err	vernunftzentrum.de	70
i+        w2 = lnnx*xwid(xp[i].dur);	Err	vernunftzentrum.de	70
i+        xp[i].stretch = bnnx*w1 + (1-bnnx)*0.5*(w1+w2);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+      else {                        /* note at start of bar */	Err	vernunftzentrum.de	70
i+        w1 = lbnp*nwid(xp[i].dur);	Err	vernunftzentrum.de	70
i+        w0 = lbnp*nwid(vbnp);	Err	vernunftzentrum.de	70
i+        if (w0>w1) w0=w1;	Err	vernunftzentrum.de	70
i+        xp[i].space = bbnp*w1 + (1-bbnp)*w0 + xp[j].wr; 	Err	vernunftzentrum.de	70
i+        if (xp[i].space<14.0) xp[i].space=14.0;	Err	vernunftzentrum.de	70
i+        w1 = lbnx*xwid(xp[i].dur);	Err	vernunftzentrum.de	70
i+        w0 = lbnx*xwid(vbnp);	Err	vernunftzentrum.de	70
i+        if (w0>w1) w0=w1;	Err	vernunftzentrum.de	70
i+        xp[i].stretch = bbnx*w1 + (1-bbnx)*w0 + xp[j].wr; 	Err	vernunftzentrum.de	70
i+        if (xp[i].stretch<18.0) xp[i].stretch=18.0;	Err	vernunftzentrum.de	70
i+        if (xp[i].shrink<12.0) xp[i].shrink=12.0;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    } 	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    else {                         /* some other symbol after note */	Err	vernunftzentrum.de	70
i+      if (typl==NOTE) {	Err	vernunftzentrum.de	70
i+        w1 = lnbp*nwid(xp[j].dur);	Err	vernunftzentrum.de	70
i+        w0 = lnbp*nwid(vnbp);	Err	vernunftzentrum.de	70
i+        xp[i].space = bnbp*w1 + (1-bnbp)*w0 + xp[i].wl;	Err	vernunftzentrum.de	70
i+        if (xp[i].space<13.0) xp[i].space=13.0;	Err	vernunftzentrum.de	70
i+        w1 = lnbx*xwid(xp[j].dur);	Err	vernunftzentrum.de	70
i+        w0 = lnbx*xwid(vnbx);	Err	vernunftzentrum.de	70
i+        xp[i].stretch = bnbx*w1 + (1-bnbx)*w0 + xp[i].wl;	Err	vernunftzentrum.de	70
i+        if (xp[i].stretch<17.0) xp[i].stretch=17.0;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    /* multiply space and stretch by factors tfac */	Err	vernunftzentrum.de	70
i+    xp[i].space   = xp[i].space*xp[i].tfac;	Err	vernunftzentrum.de	70
i+    xp[i].stretch = xp[i].stretch*xp[i].tfac;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    /* make sure that shrink < space < stretch */	Err	vernunftzentrum.de	70
i+    if (xp[i].space<xp[i].shrink)  xp[i].space=xp[i].shrink;	Err	vernunftzentrum.de	70
i+    if (xp[i].stretch<xp[i].space) xp[i].stretch=xp[i].space;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    j=i;	Err	vernunftzentrum.de	70
i+    typl=typ;	Err	vernunftzentrum.de	70
i+    i=nxt;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (i==XP_END) break;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (verbose>=11) print_poslist ();	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- check_overflow: returns upper limit which fits on staff ------ */	Err	vernunftzentrum.de	70
i+int check_overflow (ip1,ip2,width)	Err	vernunftzentrum.de	70
i+int ip1,ip2;	Err	vernunftzentrum.de	70
i+float width;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  int i,jp2,lastcut,nbar,need_note;	Err	vernunftzentrum.de	70
i+  float space,shrink,stretch,alfa,alfa0;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* max shrink is alfa0 */	Err	vernunftzentrum.de	70
i+  alfa0=ALFA_X;           	Err	vernunftzentrum.de	70
i+  if (cfmt.continueall) alfa0=cfmt.maxshrink;	Err	vernunftzentrum.de	70
i+  if (gmode==G_SHRINK)  alfa0=1.0;	Err	vernunftzentrum.de	70
i+  if (gmode==G_SPACE)   alfa0=0.0;	Err	vernunftzentrum.de	70
i+  if (gmode==G_STRETCH) alfa0=1.0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  jp2=ip2;	Err	vernunftzentrum.de	70
i+  space=shrink=stretch=0;	Err	vernunftzentrum.de	70
i+  lastcut=-1;	Err	vernunftzentrum.de	70
i+  nbar=0;	Err	vernunftzentrum.de	70
i+  need_note=1;	Err	vernunftzentrum.de	70
i+  i=ip1;	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    space=space+xp[i].space;	Err	vernunftzentrum.de	70
i+    shrink=shrink+xp[i].shrink;	Err	vernunftzentrum.de	70
i+    stretch=stretch+xp[i].stretch;	Err	vernunftzentrum.de	70
i+    alfa=0;	Err	vernunftzentrum.de	70
i+    if (space>shrink) {	Err	vernunftzentrum.de	70
i+      alfa=(space-width)/(space-shrink);	Err	vernunftzentrum.de	70
i+      if (xp[i].type!=BAR) 	Err	vernunftzentrum.de	70
i+        alfa=((space+8)-width)/(space-shrink);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (alfa>alfa0) {	Err	vernunftzentrum.de	70
i+      if (!cfmt.continueall) {	Err	vernunftzentrum.de	70
i+        if (verbose<=3) printf ("\n");	Err	vernunftzentrum.de	70
i+        printf ("+++ Overfull after %d bar%s in staff %d\n",	Err	vernunftzentrum.de	70
i+                nbar, nbar==1 ? "" : "s", mline);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      jp2=i;	Err	vernunftzentrum.de	70
i+      if (i==ip1) jp2=xp[i].next;  	Err	vernunftzentrum.de	70
i+      if (lastcut>=0) jp2=xp[lastcut].next;	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    /* The need_note business is to cut at the first of consecutive bars */	Err	vernunftzentrum.de	70
i+    if (xp[i].type==NOTE)  need_note=0;	Err	vernunftzentrum.de	70
i+    if (xp[i].type==BAR && need_note==0) {lastcut=i; need_note=1; nbar++; }	Err	vernunftzentrum.de	70
i+    if (xp[i].type==KEYSIG) lastcut=i;	Err	vernunftzentrum.de	70
i+    i=xp[i].next;	Err	vernunftzentrum.de	70
i+    if (i==ip2) break;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return jp2;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_glue --------- */	Err	vernunftzentrum.de	70
i+float set_glue (ip1,ip2,width)	Err	vernunftzentrum.de	70
i+int ip1,ip2;	Err	vernunftzentrum.de	70
i+float width;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  int i,j;	Err	vernunftzentrum.de	70
i+  float space,shrink,stretch,alfa,beta,glue,w,x,d1,d2,w1;	Err	vernunftzentrum.de	70
i+  float alfa0,beta0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  alfa0=ALFA_X;                       /* max shrink and stretch */	Err	vernunftzentrum.de	70
i+  if (cfmt.continueall) alfa0=cfmt.maxshrink;	Err	vernunftzentrum.de	70
i+  if (gmode==G_SHRINK)  alfa0=1.0;	Err	vernunftzentrum.de	70
i+  if (gmode==G_SPACE)   alfa0=0.0;	Err	vernunftzentrum.de	70
i+  if (gmode==G_STRETCH) alfa0=1.0;	Err	vernunftzentrum.de	70
i+  beta0=BETA_X;	Err	vernunftzentrum.de	70
i+  if (cfmt.continueall) beta0=BETA_C;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  space=shrink=stretch=0;	Err	vernunftzentrum.de	70
i+  i=ip1;	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    space=space+xp[i].space;	Err	vernunftzentrum.de	70
i+    shrink=shrink+xp[i].shrink;	Err	vernunftzentrum.de	70
i+    stretch=stretch+xp[i].stretch;	Err	vernunftzentrum.de	70
i+    j=i;	Err	vernunftzentrum.de	70
i+    i=xp[i].next;	Err	vernunftzentrum.de	70
i+    if (i==ip2) break;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* add extra space if last symbol is not a bar */	Err	vernunftzentrum.de	70
i+  if (xp[j].type!=BAR) { 	Err	vernunftzentrum.de	70
i+    d1=d2=xp[j].wr+3;	Err	vernunftzentrum.de	70
i+    if (xp[j].type==NOTE) d2 = lnbp*nwid(xp[j].dur)+xp[j].wr;	Err	vernunftzentrum.de	70
i+    if (d2<d1) d2=d1;	Err	vernunftzentrum.de	70
i+    shrink  = shrink  + d1; 	Err	vernunftzentrum.de	70
i+    space   = space   + d2; 	Err	vernunftzentrum.de	70
i+    stretch = stretch + d2; 	Err	vernunftzentrum.de	70
i+  } 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* select alfa and beta */	Err	vernunftzentrum.de	70
i+  alfa=beta=0;	Err	vernunftzentrum.de	70
i+  if (space>width) { 	Err	vernunftzentrum.de	70
i+    alfa=99;	Err	vernunftzentrum.de	70
i+    if (space>shrink) alfa=(space-width)/(space-shrink); 	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else { 	Err	vernunftzentrum.de	70
i+    beta=99;	Err	vernunftzentrum.de	70
i+    if (stretch>space) beta=(width-space)/(stretch-space); 	Err	vernunftzentrum.de	70
i+    if (!cfmt.stretchstaff) beta=0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (gmode==G_SHRINK)  { alfa=1; beta=0;}     /* force minimal spacing */	Err	vernunftzentrum.de	70
i+  if (gmode==G_STRETCH) { alfa=0; beta=1;}     /* force stretched spacing */	Err	vernunftzentrum.de	70
i+  if (gmode==G_SPACE)   { alfa=beta=0;   }     /* force natural spacing */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*|   if (alfa>alfa0) { alfa=alfa0; beta=0; } |*/	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (beta>beta0) {	Err	vernunftzentrum.de	70
i+    if (!cfmt.continueall) {	Err	vernunftzentrum.de	70
i+      if (verbose<=3) printf ("\n");	Err	vernunftzentrum.de	70
i+      printf ("+++ Underfull (%.0fpt of %.0fpt) in staff %d\n", 	Err	vernunftzentrum.de	70
i+              (beta0*stretch+(1-beta0)*space)*cfmt.scale,	Err	vernunftzentrum.de	70
i+              cfmt.staffwidth,mline);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    alfa=0; 	Err	vernunftzentrum.de	70
i+    if (!cfmt.stretchstaff) beta=0;	Err	vernunftzentrum.de	70
i+    if ((!cfmt.stretchlast) && (ip2==XP_END)) {	Err	vernunftzentrum.de	70
i+      w1=alfa_last*shrink+beta_last*stretch+(1-alfa_last-beta_last)*space;	Err	vernunftzentrum.de	70
i+      if (w1<width) {	Err	vernunftzentrum.de	70
i+        alfa=alfa_last;    /* shrink undefull last line same as previous */	Err	vernunftzentrum.de	70
i+        beta=beta_last;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  w=alfa*shrink+beta*stretch+(1-alfa-beta)*space;	Err	vernunftzentrum.de	70
i+  if (verbose>=5) {	Err	vernunftzentrum.de	70
i+    if (alfa>0)      printf ("Shrink staff %.0f%%",  100*alfa);	Err	vernunftzentrum.de	70
i+    else if (beta>0) printf ("Stretch staff %.0f%%", 100*beta);	Err	vernunftzentrum.de	70
i+    else             printf ("No shrink or stretch");	Err	vernunftzentrum.de	70
i+    printf (" to width %.0f (%.0f,%.0f,%.0f)\n",w,shrink,space,stretch);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* now calculate the x positions */	Err	vernunftzentrum.de	70
i+  x=0; 	Err	vernunftzentrum.de	70
i+  i=ip1;	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    glue=alfa*xp[i].shrink+beta*xp[i].stretch+(1-alfa-beta)*xp[i].space;	Err	vernunftzentrum.de	70
i+    x=x+glue;	Err	vernunftzentrum.de	70
i+    xp[i].x=x;	Err	vernunftzentrum.de	70
i+    if (verbose>22) printf ("pos[%d]: type=%d  pos=%.2f\n", i,xp[i].type,x);	Err	vernunftzentrum.de	70
i+    i=xp[i].next;	Err	vernunftzentrum.de	70
i+    if (i==ip2) break;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  alfa_last=alfa;	Err	vernunftzentrum.de	70
i+  beta_last=beta;	Err	vernunftzentrum.de	70
i+  return w;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- adjust_group: even out spacings for one group of notes --- */	Err	vernunftzentrum.de	70
i+/* Here we repeat the whole glue thing, in rudimentary form */	Err	vernunftzentrum.de	70
i+void adjust_group(i1,i2)	Err	vernunftzentrum.de	70
i+int i1,i2;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int j;	Err	vernunftzentrum.de	70
i+  float dx,x,spa,shr,str,hp,hx,alfa,beta,dur1;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  dx=sym[i2].x-sym[i1].x;	Err	vernunftzentrum.de	70
i+  shr=sym[i1].wr+sym[i2].wl;	Err	vernunftzentrum.de	70
i+  for (j=i1+1;j<i2;j++) shr=shr+sym[j].wl+sym[j].wr;	Err	vernunftzentrum.de	70
i+  dur1=sym[i1].len;	Err	vernunftzentrum.de	70
i+  hp=lnnp*nwid(dur1);	Err	vernunftzentrum.de	70
i+  hx=lnnx*xwid(dur1);	Err	vernunftzentrum.de	70
i+  spa = (i2-i1)*hp;	Err	vernunftzentrum.de	70
i+  str = (i2-i1)*hx;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  alfa=beta=0;	Err	vernunftzentrum.de	70
i+  if (dx>spa)	Err	vernunftzentrum.de	70
i+    beta=(dx-spa)/(str-spa);	Err	vernunftzentrum.de	70
i+  else	Err	vernunftzentrum.de	70
i+    alfa=(dx-spa)/(shr-spa);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  x=sym[i1].x; 	Err	vernunftzentrum.de	70
i+  for (j=i1+1;j<=i2;j++) {  	Err	vernunftzentrum.de	70
i+    x=x+alfa*(sym[j-1].wr+sym[j].wl)+beta*hx+(1-alfa-beta)*hp;	Err	vernunftzentrum.de	70
i+    sym[j].x=x;   	Err	vernunftzentrum.de	70
i+  }  	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- adjust_spacings: even out triplet spacings etc --- */	Err	vernunftzentrum.de	70
i+void adjust_spacings (n)	Err	vernunftzentrum.de	70
i+int n;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,i1,count,beam,num;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* adjust the n-plets */	Err	vernunftzentrum.de	70
i+   count=0; 	Err	vernunftzentrum.de	70
i+   for (i=1;i<n;i++) { 	Err	vernunftzentrum.de	70
i+     if ((sym[i].type==NOTE)||(sym[i].type==REST)) { 	Err	vernunftzentrum.de	70
i+       if (sym[i].p_plet) { 	Err	vernunftzentrum.de	70
i+         i1=i; 	Err	vernunftzentrum.de	70
i+         count=sym[i].r_plet; 	Err	vernunftzentrum.de	70
i+       } 	Err	vernunftzentrum.de	70
i+       if (count>0 && sym[i].len!=sym[i1].len) count=0; 	Err	vernunftzentrum.de	70
i+       if (count==1) adjust_group (i1,i); 	Err	vernunftzentrum.de	70
i+       if (count>0) count--; 	Err	vernunftzentrum.de	70
i+     } 	Err	vernunftzentrum.de	70
i+     else 	Err	vernunftzentrum.de	70
i+       count=0; 	Err	vernunftzentrum.de	70
i+   } 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* adjust beamed notes of equal duration */	Err	vernunftzentrum.de	70
i+  beam=0;	Err	vernunftzentrum.de	70
i+  for (i=1;i<n;i++) {	Err	vernunftzentrum.de	70
i+    if ((sym[i].type==NOTE)||(sym[i].type==REST)) {	Err	vernunftzentrum.de	70
i+      if (sym[i].word_st && (!sym[i].word_end)) { 	Err	vernunftzentrum.de	70
i+        i1=i;	Err	vernunftzentrum.de	70
i+        beam=1;	Err	vernunftzentrum.de	70
i+        if (sym[i].p_plet) beam=0;          /* don't do nplets here */	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      if (beam && sym[i].len!=sym[i1].len) beam=0;	Err	vernunftzentrum.de	70
i+      if (beam && sym[i].word_end) {	Err	vernunftzentrum.de	70
i+        num=i-i1+1;	Err	vernunftzentrum.de	70
i+        if (num>2 && num<4) adjust_group (i1,i);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      if (sym[i].word_end) beam=0;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else	Err	vernunftzentrum.de	70
i+      beam=0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- adjust_rests: position single rests in bar center */	Err	vernunftzentrum.de	70
i+void adjust_rests (n,v)	Err	vernunftzentrum.de	70
i+int n,v;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,ok;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  for (i=2;i<n-1;i++) {	Err	vernunftzentrum.de	70
i+    if ((sym[i].type==REST) && sym[i].fullmes) {	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      ok=1;	Err	vernunftzentrum.de	70
i+      if ((sym[i-1].type==REST) || (sym[i-1].type==NOTE)) ok=0;	Err	vernunftzentrum.de	70
i+      if ((sym[i+1].type==REST) || (sym[i+1].type==NOTE)) ok=0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      if (ok) {	Err	vernunftzentrum.de	70
i+        sym[i].head = H_OVAL;	Err	vernunftzentrum.de	70
i+        sym[i].dots = 0;	Err	vernunftzentrum.de	70
i+        sym[i].x = 0.5*(sym[i-1].x+sym[i+1].x);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- copy_vsyms: copy selected syms for voice to v sym --- */	Err	vernunftzentrum.de	70
i+int copy_vsyms (v,ip1,ip2,wid0)	Err	vernunftzentrum.de	70
i+int v,ip1,ip2;	Err	vernunftzentrum.de	70
i+float wid0;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,n,m,k;	Err	vernunftzentrum.de	70
i+  float d1,d2,r,x;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* copy staff initialization symbols */	Err	vernunftzentrum.de	70
i+  n=0;	Err	vernunftzentrum.de	70
i+  for (i=0;i<nsym_st[v];i++) {	Err	vernunftzentrum.de	70
i+    sym[n]=sym_st[v][i];	Err	vernunftzentrum.de	70
i+    n++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+  /* copy real symbols, shifted by wid0 */	Err	vernunftzentrum.de	70
i+  i=ip1;	Err	vernunftzentrum.de	70
i+  m=0;	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    k=xp[i].p[v];	Err	vernunftzentrum.de	70
i+    if (k >= 0) {	Err	vernunftzentrum.de	70
i+      sym[n]=symv[v][k];	Err	vernunftzentrum.de	70
i+      sym[n].x=xp[i].x+wid0;	Err	vernunftzentrum.de	70
i+      n++;	Err	vernunftzentrum.de	70
i+      m++;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    i=xp[i].next;	Err	vernunftzentrum.de	70
i+    if (i==ip2) break;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* adjust things for more pretty output.. */	Err	vernunftzentrum.de	70
i+  adjust_rests (n,v);	Err	vernunftzentrum.de	70
i+  if (mvoice>1) adjust_spacings (n);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* small random shifts make the output more human... */	Err	vernunftzentrum.de	70
i+  for (i=1;i<n-1;i++) {	Err	vernunftzentrum.de	70
i+    if ((sym[i].type==NOTE) || (sym[i].type==REST)) {	Err	vernunftzentrum.de	70
i+      d1=sym[i].x-sym[i-1].x;	Err	vernunftzentrum.de	70
i+      d2=sym[i+1].x-sym[i].x;	Err	vernunftzentrum.de	70
i+      r=RANFAC*d1;	Err	vernunftzentrum.de	70
i+      if (d2<d1) r=RANFAC*d2;	Err	vernunftzentrum.de	70
i+      if (r>RANCUT) r=RANCUT;	Err	vernunftzentrum.de	70
i+      x=ranf(-r,r);	Err	vernunftzentrum.de	70
i+      sym[i].x=sym[i].x+x; 	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return n;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_timesig ------- */	Err	vernunftzentrum.de	70
i+void draw_timesig (x,s)	Err	vernunftzentrum.de	70
i+struct SYMBOL s;	Err	vernunftzentrum.de	70
i+float x;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  if (s.w==1) 	Err	vernunftzentrum.de	70
i+    PUT1("%.1f csig\n", x)	Err	vernunftzentrum.de	70
i+  else if (s.w==2) 	Err	vernunftzentrum.de	70
i+    PUT1("%.1f ctsig\n", x)	Err	vernunftzentrum.de	70
i+  else 	Err	vernunftzentrum.de	70
i+/*    PUT3("%.1f (%d) (%d) tsig\n", x, s.u, s.v) */	Err	vernunftzentrum.de	70
i+    PUT3("%.1f (%s) (%d) tsig\n", x, s.text, s.v)	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_keysig: return sf for this key ----- */	Err	vernunftzentrum.de	70
i+int draw_keysig (x,s)	Err	vernunftzentrum.de	70
i+struct SYMBOL s;	Err	vernunftzentrum.de	70
i+float x;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float p;	Err	vernunftzentrum.de	70
i+  int i,n1,n2,n3,t,yad,sf;	Err	vernunftzentrum.de	70
i+  int sh_pos[8]={0,  24,15,27,18,9,21,15};	Err	vernunftzentrum.de	70
i+  int ft_pos[8]={0,  12,21,9,18,6,15,3};	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  n1=s.u;               /* which symbol to start with */	Err	vernunftzentrum.de	70
i+  n2=s.v;               /* up to which symbol to go */	Err	vernunftzentrum.de	70
i+  n3=s.w;               /* draw neutrals instead starting from this one */	Err	vernunftzentrum.de	70
i+  t =s.t;               /* type of symbol: sharp or flat */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  yad = 0;	Err	vernunftzentrum.de	70
i+  if (voice[ivc].key.ktype==BASS) yad = -6;	Err	vernunftzentrum.de	70
i+  if (voice[ivc].key.ktype==ALTO) yad = -3;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (n2>7) {	Err	vernunftzentrum.de	70
i+    printf ("+++ Keysig seems to have %d symbols ???\n", n2);	Err	vernunftzentrum.de	70
i+    return 0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  sf=0;	Err	vernunftzentrum.de	70
i+  if (t==A_SH) {	Err	vernunftzentrum.de	70
i+    p=x;	Err	vernunftzentrum.de	70
i+    for (i=n1;i<=n2;i++) {	Err	vernunftzentrum.de	70
i+      if (i>=n3) 	Err	vernunftzentrum.de	70
i+        PUT2("%.1f %d nt0 ",p,sh_pos[i]+yad)	Err	vernunftzentrum.de	70
i+      else {      	Err	vernunftzentrum.de	70
i+        sf++;	Err	vernunftzentrum.de	70
i+        PUT2("%.1f %d sh0 ",p,sh_pos[i]+yad)	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      p=p+5;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    PUT0("\n")	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else if (t==A_FT) {	Err	vernunftzentrum.de	70
i+    p=x;	Err	vernunftzentrum.de	70
i+    for (i=n1;i<=n2;i++) {	Err	vernunftzentrum.de	70
i+      if (i>=n3) 	Err	vernunftzentrum.de	70
i+        PUT2("%.1f %d nt0 ", p, ft_pos[i]+yad)	Err	vernunftzentrum.de	70
i+      else {	Err	vernunftzentrum.de	70
i+        sf--;	Err	vernunftzentrum.de	70
i+        PUT2("%.1f %d ft0 ", p, ft_pos[i]+yad)	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      p=p+5;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    PUT0("\n")	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else 	Err	vernunftzentrum.de	70
i+    bug ("wrong type in draw_keysig", 0);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  return sf;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_bar ------- */	Err	vernunftzentrum.de	70
i+void draw_bar (x,s)	Err	vernunftzentrum.de	70
i+struct SYMBOL s;	Err	vernunftzentrum.de	70
i+float x;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (s.u==B_SNGL)                        /* draw the bar */	Err	vernunftzentrum.de	70
i+    PUT1("%.1f bar\n", x)	Err	vernunftzentrum.de	70
i+  else if (s.u==B_DBL)  	Err	vernunftzentrum.de	70
i+    PUT1("%.1f dbar\n", x)	Err	vernunftzentrum.de	70
i+  else if (s.u==B_LREP) 	Err	vernunftzentrum.de	70
i+    PUT2("%.1f fbar1 %.1f rdots\n", x, x+10)	Err	vernunftzentrum.de	70
i+  else if (s.u==B_RREP) {	Err	vernunftzentrum.de	70
i+    PUT2("%.1f fbar2 %.1f rdots\n", x, x-10)	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else if (s.u==B_DREP) {	Err	vernunftzentrum.de	70
i+    PUT2("%.1f fbar1 %.1f rdots\n", x-1, x+9)	Err	vernunftzentrum.de	70
i+    PUT2("%.1f fbar2 %.1f rdots\n", x+1, x-9)	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else if (s.u==B_FAT1) 	Err	vernunftzentrum.de	70
i+    PUT1("%.1f fbar1\n", x)	Err	vernunftzentrum.de	70
i+  else if (s.u==B_FAT2) 	Err	vernunftzentrum.de	70
i+    PUT1("%.1f fbar2\n", x)	Err	vernunftzentrum.de	70
i+  else if (s.u==B_INVIS)	Err	vernunftzentrum.de	70
i+    ;	Err	vernunftzentrum.de	70
i+  else	Err	vernunftzentrum.de	70
i+    printf (">>> dont know how to draw bar type %d\n", s.u);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  PUT0("\n")	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+}  	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_barnums ------- */	Err	vernunftzentrum.de	70
i+void draw_barnums (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,last,ok,got_note;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  last=0;	Err	vernunftzentrum.de	70
i+  got_note=0;	Err	vernunftzentrum.de	70
i+  for (i=0;i<nsym;i++) {	Err	vernunftzentrum.de	70
i+    if ((sym[i].type==NOTE)||(sym[i].type==REST)) got_note=1;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if ((sym[i].type==BAR) && (strlen(sym[i].text)>0)) {	Err	vernunftzentrum.de	70
i+      if (last != 2) set_font (fp, cfmt.barlabelfont, 0);	Err	vernunftzentrum.de	70
i+      PUT3 (" %.1f %.1f M (%s) cshow ", sym[i].x, BNUMHT, sym[i].text)	Err	vernunftzentrum.de	70
i+      last=2;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if ((sym[i].type==BAR) && sym[i].t) {	Err	vernunftzentrum.de	70
i+      ok=0;	Err	vernunftzentrum.de	70
i+      if ((cfmt.barnums>0) && (sym[i].t%cfmt.barnums==0)) ok=1; 	Err	vernunftzentrum.de	70
i+      if ((cfmt.barnums==0) && (!got_note)) ok=1;	Err	vernunftzentrum.de	70
i+      if ((cfmt.barnums!=0) && ((strlen(sym[i].text)>0))) ok=0;	Err	vernunftzentrum.de	70
i+            	Err	vernunftzentrum.de	70
i+      if (ok) {	Err	vernunftzentrum.de	70
i+        if (last != 1) set_font (fp, cfmt.barnumfont, 0);	Err	vernunftzentrum.de	70
i+/*|     if ((mvoice>1) && (cfmt.barnums==0))  |*/	Err	vernunftzentrum.de	70
i+        if (cfmt.barnums==0)	Err	vernunftzentrum.de	70
i+          PUT1 (" 0 38 M (%d) rshow ", sym[i].t)	Err	vernunftzentrum.de	70
i+        else	Err	vernunftzentrum.de	70
i+          PUT3 (" %.1f %.1f M (%d) cshow ", sym[i].x, BNUMHT, sym[i].t)	Err	vernunftzentrum.de	70
i+        last=1;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  PUT0("\n");	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}  	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- update_endings: remember where to draw endings ------- */	Err	vernunftzentrum.de	70
i+void update_endings (x,s)	Err	vernunftzentrum.de	70
i+struct SYMBOL s;	Err	vernunftzentrum.de	70
i+float x;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (num_ending>0) {	Err	vernunftzentrum.de	70
i+    i=num_ending-1;	Err	vernunftzentrum.de	70
i+    if (ending[i].num==1) 	Err	vernunftzentrum.de	70
i+      mes1++;	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      mes2++;	Err	vernunftzentrum.de	70
i+      if (mes2==mes1) ending[i].b=x;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (s.v) {         	Err	vernunftzentrum.de	70
i+    if (num_ending>0)	Err	vernunftzentrum.de	70
i+      if (ending[num_ending-1].num==1) ending[num_ending-1].b=x-3;	Err	vernunftzentrum.de	70
i+    ending[num_ending].a=x;	Err	vernunftzentrum.de	70
i+    ending[num_ending].b=-1;	Err	vernunftzentrum.de	70
i+    ending[num_ending].num=s.v;	Err	vernunftzentrum.de	70
i+    if (s.v==1) mes1=0;	Err	vernunftzentrum.de	70
i+    else        mes2=0;	Err	vernunftzentrum.de	70
i+    num_ending++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}  	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_ending: determine limits of ending box ------- */	Err	vernunftzentrum.de	70
i+void set_ending (i)	Err	vernunftzentrum.de	70
i+int i;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int num,j,j0,j1,mes,mesmax;	Err	vernunftzentrum.de	70
i+  float top;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  num=sym[i].v;	Err	vernunftzentrum.de	70
i+  mesmax=0;	Err	vernunftzentrum.de	70
i+  if (num==2) mesmax=mes1;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  mes=0;	Err	vernunftzentrum.de	70
i+  j0=j1=-1;	Err	vernunftzentrum.de	70
i+  for (j=i+1;j<nsym;j++) {	Err	vernunftzentrum.de	70
i+    if (sym[j].type==BAR) {	Err	vernunftzentrum.de	70
i+      if (sym[j].u!=B_INVIS)  mes++;	Err	vernunftzentrum.de	70
i+      if (mes==1) j1=j;	Err	vernunftzentrum.de	70
i+      if (sym[j].u==B_RREP || sym[j].u==B_DREP || sym[j].u==B_FAT2 ||	Err	vernunftzentrum.de	70
i+          sym[j].u==B_LREP || sym[j].u==B_FAT1 || sym[j].v>0) {	Err	vernunftzentrum.de	70
i+        j0=j;	Err	vernunftzentrum.de	70
i+        break;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      if (mes==mesmax) {	Err	vernunftzentrum.de	70
i+        j0=j;	Err	vernunftzentrum.de	70
i+        break;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  top=-1;	Err	vernunftzentrum.de	70
i+  if (j0==-1) j0=j1; 	Err	vernunftzentrum.de	70
i+  if (j0>=0) top=sym[j0].x;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  ending[num_ending].num=num;	Err	vernunftzentrum.de	70
i+  ending[num_ending].a=sym[i].x;	Err	vernunftzentrum.de	70
i+  ending[num_ending].b=top;	Err	vernunftzentrum.de	70
i+  if (num==1) ending[num_ending].b=top-3;	Err	vernunftzentrum.de	70
i+  ending[num_ending].type=E_CLOSED;	Err	vernunftzentrum.de	70
i+  if (sym[j0].type==BAR && sym[j0].u==B_SNGL) ending[num_ending].type=E_OPEN;	Err	vernunftzentrum.de	70
i+  num_ending++;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (num==1) mes1=mes;	Err	vernunftzentrum.de	70
i+  if (num==2) mes1=0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_endings ------- */	Err	vernunftzentrum.de	70
i+void draw_endings ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (i=0;i<num_ending;i++) {	Err	vernunftzentrum.de	70
i+    if (ending[i].b<0) 	Err	vernunftzentrum.de	70
i+      PUT3("%.1f %.1f (%d) end2\n", 	Err	vernunftzentrum.de	70
i+           ending[i].a, ending[i].a+50, ending[i].num)	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      if (ending[i].type==E_CLOSED) {	Err	vernunftzentrum.de	70
i+        PUT3("%.1f %.1f (%d) end1\n", 	Err	vernunftzentrum.de	70
i+             ending[i].a, ending[i].b, ending[i].num)	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else {	Err	vernunftzentrum.de	70
i+        PUT3("%.1f %.1f (%d) end2\n", 	Err	vernunftzentrum.de	70
i+             ending[i].a, ending[i].b, ending[i].num)	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  num_ending=0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}   	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_rest ----- */	Err	vernunftzentrum.de	70
i+void draw_rest (x,yy,s,gchy)	Err	vernunftzentrum.de	70
i+struct SYMBOL s;	Err	vernunftzentrum.de	70
i+float x,yy;	Err	vernunftzentrum.de	70
i+float *gchy;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  int y,i,k,deco;	Err	vernunftzentrum.de	70
i+  float dotx,doty;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  *gchy=38;	Err	vernunftzentrum.de	70
i+  if (s.invis) return;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  y=(int) s.y;	Err	vernunftzentrum.de	70
i+  PUT2("%.2f %.0f", x, yy)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (s.head==H_OVAL)       PUT0(" r1")  	Err	vernunftzentrum.de	70
i+  else if (s.head==H_EMPTY) PUT0(" r2")	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    if (s.flags==0)      PUT0(" r4")	Err	vernunftzentrum.de	70
i+    else if (s.flags==1) PUT0(" r8")	Err	vernunftzentrum.de	70
i+    else if (s.flags==2) PUT0(" r16")	Err	vernunftzentrum.de	70
i+    else if (s.flags==3) PUT0(" r32")	Err	vernunftzentrum.de	70
i+    else                 PUT0(" r64")	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (y%6) { dotx=6.5; doty=0; }                   /* dots */	Err	vernunftzentrum.de	70
i+  else     { dotx=6.5; doty=3; }	Err	vernunftzentrum.de	70
i+  if (s.head==H_OVAL)  { dotx=8; doty=-3; }	Err	vernunftzentrum.de	70
i+  if (s.head==H_EMPTY) { dotx=8; doty=3;  }	Err	vernunftzentrum.de	70
i+  for (i=0;i<s.dots;i++) {	Err	vernunftzentrum.de	70
i+    PUT2(" %.1f %.1f dt", dotx, doty)	Err	vernunftzentrum.de	70
i+    dotx=dotx+3.5;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (k=s.dc.n-1;k>=0;k--) {    	Err	vernunftzentrum.de	70
i+    deco=s.dc.t[k];	Err	vernunftzentrum.de	70
i+    if (deco==D_HOLD) PUT1(" %.1f hld", 27.0)	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  PUT0("\n")	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_gracenotes ----- */	Err	vernunftzentrum.de	70
i+void draw_gracenotes (x,w,d,s)	Err	vernunftzentrum.de	70
i+struct SYMBOL *s;	Err	vernunftzentrum.de	70
i+float x,w,d;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,n,y,acc,ii,m;	Err	vernunftzentrum.de	70
i+  float xg[20],yg[20],lg,px[20],py[20],xx,yy;	Err	vernunftzentrum.de	70
i+  float s1,sx,sy,sxx,sxy,a,b,delta,lmin;	Err	vernunftzentrum.de	70
i+  float x0,y0,x1,y1,x2,y2,x3,y3,bet1,bet2,dy1,dy2,dx,dd,fac,facx;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  n=s->gr.n;	Err	vernunftzentrum.de	70
i+  if (n==0) return;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  facx=0.3;	Err	vernunftzentrum.de	70
i+  fac=d/w-1;	Err	vernunftzentrum.de	70
i+  if (fac<0) fac=0;	Err	vernunftzentrum.de	70
i+  fac=1+(fac*facx)/(fac+facx);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  dx=0;	Err	vernunftzentrum.de	70
i+  for (m=0;m<s->npitch;m++) {              /* room for accidentals */	Err	vernunftzentrum.de	70
i+    dd=-s->shhd[m];	Err	vernunftzentrum.de	70
i+    if (s->accs[m]) dd=-s->shhd[m]+s->shac[m];	Err	vernunftzentrum.de	70
i+    if ((s->accs[m]==A_FT)||(s->accs[m]==A_NT)) dd=dd-2;	Err	vernunftzentrum.de	70
i+    if (dx<dd) dx=dd;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  xx=x-fac*(dx+GSPACE0);	Err	vernunftzentrum.de	70
i+  for (i=n-1;i>=0;i--) {                   /* set note positions */	Err	vernunftzentrum.de	70
i+    yg[i]=3*(s->gr.p[i]-18)+s->yadd;	Err	vernunftzentrum.de	70
i+    if (i==n-1) {                             /* some subtle shifts.. */	Err	vernunftzentrum.de	70
i+      if(yg[i]>=s->ymx)  xx=xx+1;              /* gnote above a bit closer */ 	Err	vernunftzentrum.de	70
i+      if((yg[i]<s->ymn-7)&&(n==1)) xx=xx-2;   /* below with flag further */	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (i<n-1) {	Err	vernunftzentrum.de	70
i+      if (yg[i]>yg[i+1]+8) xx=xx+fac*1.8;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    xg[i]=xx;	Err	vernunftzentrum.de	70
i+    xx=xx-fac*GSPACE;	Err	vernunftzentrum.de	70
i+    if (s->gr.a[i]) xx=xx-3.5;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (n>1) {	Err	vernunftzentrum.de	70
i+    s1=sx=sy=sxx=sxy=0;                    /* linear fit through stems */	Err	vernunftzentrum.de	70
i+    for (i=0;i<n;i++) {      	Err	vernunftzentrum.de	70
i+      px[i]=xg[i]+GSTEM_XOFF;	Err	vernunftzentrum.de	70
i+      py[i]=yg[i]+GSTEM;	Err	vernunftzentrum.de	70
i+      s1 += 1; sx += px[i]; sy += py[i];	Err	vernunftzentrum.de	70
i+      sxx += px[i]*px[i]; sxy += px[i]*py[i];	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    delta=s1*sxx-sx*sx;                   /* beam fct: y=ax+b */	Err	vernunftzentrum.de	70
i+    a=(s1*sxy-sx*sy)/delta;	Err	vernunftzentrum.de	70
i+    if (a>BEAM_SLOPE) a=BEAM_SLOPE;	Err	vernunftzentrum.de	70
i+    if (a<-BEAM_SLOPE) a=-BEAM_SLOPE;  	Err	vernunftzentrum.de	70
i+    b=(sy-a*sx)/s1;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (bagpipe) { a=0; b=35; }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    lmin=100;                           /* shift to get min stems */	Err	vernunftzentrum.de	70
i+    for (i=0;i<n;i++) {      	Err	vernunftzentrum.de	70
i+      px[i]=xg[i]+GSTEM_XOFF;	Err	vernunftzentrum.de	70
i+      py[i]=a*px[i]+b;	Err	vernunftzentrum.de	70
i+      lg=py[i]-yg[i];	Err	vernunftzentrum.de	70
i+      if (lg<lmin) lmin=lg;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (lmin<10) b=b+10-lmin;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (i=0;i<n;i++) {                     /* draw grace notes */	Err	vernunftzentrum.de	70
i+    if (n>1) {	Err	vernunftzentrum.de	70
i+      px[i]=xg[i]+GSTEM_XOFF;	Err	vernunftzentrum.de	70
i+      py[i]=a*px[i]+b;	Err	vernunftzentrum.de	70
i+      lg=py[i]-yg[i];	Err	vernunftzentrum.de	70
i+      PUT3("%.1f %.1f %.1f gnt ", xg[i],yg[i],lg)	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      lg=GSTEM;	Err	vernunftzentrum.de	70
i+      PUT3("%.1f %.1f %.1f gn1 ", xg[i],yg[i],lg)	Err	vernunftzentrum.de	70
i+    }      	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    acc=s->gr.a[i];	Err	vernunftzentrum.de	70
i+    if (acc==A_SH) PUT2("%.1f %.1f gsh0 ",xg[i]-4.5,yg[i])	Err	vernunftzentrum.de	70
i+    if (acc==A_FT) PUT2("%.1f %.1f gft0 ",xg[i]-4.5,yg[i])	Err	vernunftzentrum.de	70
i+    if (acc==A_NT) PUT2("%.1f %.1f gnt0 ",xg[i]-4.5,yg[i])	Err	vernunftzentrum.de	70
i+    if (acc==A_DS) PUT2("%.1f %.1f gds0 ",xg[i]-4.5,yg[i])	Err	vernunftzentrum.de	70
i+    if (acc==A_DF) PUT2("%.1f %.1f gdf0 ",xg[i]-4.5,yg[i])	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    y = (int)yg[i];                         /* helper lines */	Err	vernunftzentrum.de	70
i+    if (y<=-6) {	Err	vernunftzentrum.de	70
i+      if (y%6) PUT2("%.1f %d ghl ",xg[i], y+3) 	Err	vernunftzentrum.de	70
i+      else     PUT2("%.1f %d ghl ",xg[i], y) 	Err	vernunftzentrum.de	70
i+    }  	Err	vernunftzentrum.de	70
i+    if (y>=30) {	Err	vernunftzentrum.de	70
i+      if (y%6) PUT2("%.1f %d ghl ",xg[i], y-3) 	Err	vernunftzentrum.de	70
i+      else     PUT2("%.1f %d ghl ",xg[i], y) 	Err	vernunftzentrum.de	70
i+    }  	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (n>1)                                /* beam */	Err	vernunftzentrum.de	70
i+    if (bagpipe) 	Err	vernunftzentrum.de	70
i+      PUT4("%.1f %.1f %.1f %.1f gbm3 ", px[0],py[0],px[n-1],py[n-1])	Err	vernunftzentrum.de	70
i+    else	Err	vernunftzentrum.de	70
i+      PUT4("%.1f %.1f %.1f %.1f gbm2 ", px[0],py[0],px[n-1],py[n-1])	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  bet1=0.2;                            /* slur */	Err	vernunftzentrum.de	70
i+  bet2=0.8;     	Err	vernunftzentrum.de	70
i+  yy=1000; 	Err	vernunftzentrum.de	70
i+  for (i=n-1;i>=0;i--) if (yg[i]<=yy) {yy=yg[i]; ii=i;}	Err	vernunftzentrum.de	70
i+  x0=xg[ii];	Err	vernunftzentrum.de	70
i+  y0=yg[ii]-5;	Err	vernunftzentrum.de	70
i+  if (ii>0) { x0=x0-4; y0=y0+1; }	Err	vernunftzentrum.de	70
i+  x3=x-1;	Err	vernunftzentrum.de	70
i+  y3=s->ymn-5;	Err	vernunftzentrum.de	70
i+  dy1=(x3-x0)*0.4;	Err	vernunftzentrum.de	70
i+  if (dy1>3) dy1=3;	Err	vernunftzentrum.de	70
i+  dy2=dy1;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (yg[ii]>s->ymn+7){	Err	vernunftzentrum.de	70
i+    x0=xg[ii]-1;	Err	vernunftzentrum.de	70
i+    y0=yg[ii]-4.5;	Err	vernunftzentrum.de	70
i+    y3=s->ymn+1.5;	Err	vernunftzentrum.de	70
i+    x3=x-dx-5.5;	Err	vernunftzentrum.de	70
i+    dy2=(y0-y3)*0.2;	Err	vernunftzentrum.de	70
i+    dy1=(y0-y3)*0.8;	Err	vernunftzentrum.de	70
i+    bet1=0.0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (y3>y0+4) {	Err	vernunftzentrum.de	70
i+    y3=y0+4;	Err	vernunftzentrum.de	70
i+    x0=xg[ii]+2;	Err	vernunftzentrum.de	70
i+    y0=yg[ii]-4;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  x1=bet1*x3+(1-bet1)*x0;	Err	vernunftzentrum.de	70
i+  y1=bet1*y3+(1-bet1)*y0-dy1;	Err	vernunftzentrum.de	70
i+  x2=bet2*x3+(1-bet2)*x0;	Err	vernunftzentrum.de	70
i+  y2=bet2*y3+(1-bet2)*y0-dy2;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  PUT4(" %.1f %.1f %.1f %.1f", x1,y1,x2,y2);	Err	vernunftzentrum.de	70
i+  PUT4(" %.1f %.1f %.1f %.1f gsl\n", x3,y3,x0,y0);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_basic_note: draw m-th head with accidentals and dots -- */	Err	vernunftzentrum.de	70
i+void draw_basic_note (x,w,d,s,m)	Err	vernunftzentrum.de	70
i+struct SYMBOL *s;	Err	vernunftzentrum.de	70
i+float x,w,d;	Err	vernunftzentrum.de	70
i+int m;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int y,i,yy;	Err	vernunftzentrum.de	70
i+  float dotx,doty,xx,dx,avail,add,fac;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  y=3*(s->pits[m]-18)+s->yadd;                    /* height on staff */	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  xx=x+s->shhd[m];                              /* draw head */	Err	vernunftzentrum.de	70
i+  PUT2("%.1f %d", xx, y)              	Err	vernunftzentrum.de	70
i+  if (s->head==H_OVAL)  PUT0(" HD")	Err	vernunftzentrum.de	70
i+  if (s->head==H_EMPTY) PUT0(" Hd")	Err	vernunftzentrum.de	70
i+  if (s->head==H_FULL)  PUT0(" hd")	Err	vernunftzentrum.de	70
i+  if (s->shhd[m]) {                  	Err	vernunftzentrum.de	70
i+    yy=0;	Err	vernunftzentrum.de	70
i+    if (y>=30) { yy=y; if (yy%6) yy=yy-3; }	Err	vernunftzentrum.de	70
i+    if (y<=-6) { yy=y; if (yy%6) yy=yy+3; }	Err	vernunftzentrum.de	70
i+    if (yy) PUT1(" %d hl", yy)	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (s->dots) {                                /* add dots */	Err	vernunftzentrum.de	70
i+    if (y%6) { dotx=8; doty=0; }    	Err	vernunftzentrum.de	70
i+    else     { dotx=8; doty=3; }	Err	vernunftzentrum.de	70
i+    if (s->stem==-1) 	Err	vernunftzentrum.de	70
i+      dotx=dotx+s->xmx-s->shhd[m]; 	Err	vernunftzentrum.de	70
i+    else	Err	vernunftzentrum.de	70
i+      dotx=dotx+s->xmx-s->shhd[m];	Err	vernunftzentrum.de	70
i+    if (s->dots && s->flags && (s->stem==1) && !(y%6)) 	Err	vernunftzentrum.de	70
i+      if ((s->word_st==1) && (s->word_end==1) && (s->npitch==1))	Err	vernunftzentrum.de	70
i+        dotx=dotx+DOTSHIFT; 	Err	vernunftzentrum.de	70
i+    if (s->head==H_EMPTY) dotx=dotx+1;	Err	vernunftzentrum.de	70
i+    if (s->head==H_OVAL)  dotx=dotx+2;	Err	vernunftzentrum.de	70
i+    for (i=0;i<s->dots;i++) {	Err	vernunftzentrum.de	70
i+      PUT2(" %.1f %.1f dt", dotx, doty)	Err	vernunftzentrum.de	70
i+      dotx=dotx+3.5;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (s->accs[m]) {                          /* add accidentals */	Err	vernunftzentrum.de	70
i+    fac=1.0;	Err	vernunftzentrum.de	70
i+    avail=d-w-3;	Err	vernunftzentrum.de	70
i+    add=0.3*avail;	Err	vernunftzentrum.de	70
i+    fac=1+add/s->wl;	Err	vernunftzentrum.de	70
i+    if (fac<1) fac=1;	Err	vernunftzentrum.de	70
i+    if (fac>1.2) fac=1.2;	Err	vernunftzentrum.de	70
i+    dx=fac*s->shac[m];    	Err	vernunftzentrum.de	70
i+    if (s->accs[m]==A_SH) PUT1(" %.1f sh", dx)  	Err	vernunftzentrum.de	70
i+    if (s->accs[m]==A_NT) PUT1(" %.1f nt", dx)	Err	vernunftzentrum.de	70
i+    if (s->accs[m]==A_FT) PUT1(" %.1f ft", dx)	Err	vernunftzentrum.de	70
i+    if (s->accs[m]==A_DS) PUT1(" %.1f dsh", dx)	Err	vernunftzentrum.de	70
i+    if (s->accs[m]==A_DF) PUT1(" %.1f dft", dx)	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_decorations ----- */	Err	vernunftzentrum.de	70
i+float draw_decorations (x,s,tp)	Err	vernunftzentrum.de	70
i+struct SYMBOL *s;	Err	vernunftzentrum.de	70
i+float x;	Err	vernunftzentrum.de	70
i+float *tp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int y,sig,k,deco,m;	Err	vernunftzentrum.de	70
i+  float yc,xc,y1,top,top1,dx,dy;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  top=-1000;	Err	vernunftzentrum.de	70
i+  for (k=s->dc.n-1;k>=0;k--) {                 /*  decos close to head */	Err	vernunftzentrum.de	70
i+    deco=s->dc.t[k];	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*  if ((deco==D_STACC)||(deco==D_EMBAR)) { */      /* dot or bar mark */	Err	vernunftzentrum.de	70
i+    if (deco==D_STACC) {                           /* dot */	Err	vernunftzentrum.de	70
i+      sig=1; if (s->stem==1) sig=-1;	Err	vernunftzentrum.de	70
i+      y=s->y+6*sig;	Err	vernunftzentrum.de	70
i+      if (y<top+3) y=top+3;	Err	vernunftzentrum.de	70
i+      if (!(y%6) && (y>=0) && (y<=24)) y+=3*sig;	Err	vernunftzentrum.de	70
i+      if (top<y) top=y;	Err	vernunftzentrum.de	70
i+      if (deco==D_STACC) PUT1(" %d stc",y)	Err	vernunftzentrum.de	70
i+      else               PUT1(" %d emb",y)	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    if (deco==D_SLIDE) {                           /* slide */	Err	vernunftzentrum.de	70
i+      yc=s->ymn;	Err	vernunftzentrum.de	70
i+      xc=5;	Err	vernunftzentrum.de	70
i+      for (m=0;m<s->npitch;m++) {                       	Err	vernunftzentrum.de	70
i+        dx=5-s->shhd[m];	Err	vernunftzentrum.de	70
i+        if (s->head==H_OVAL) dx=dx+2.5; 	Err	vernunftzentrum.de	70
i+        if (s->accs[m]) dx=4-s->shhd[m]+s->shac[m];	Err	vernunftzentrum.de	70
i+        dy=3*(s->pits[m]-18)+s->yadd-yc;	Err	vernunftzentrum.de	70
i+        if ((dy<10) && (dx>xc)) xc=dx; 	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      yc=s->ymn;	Err	vernunftzentrum.de	70
i+      PUT2(" %.1f %.1f sld", yc, xc)	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  top1=top;	Err	vernunftzentrum.de	70
i+  for (k=s->dc.n-1;k>=0;k--) {                 /*  decos further away */	Err	vernunftzentrum.de	70
i+    deco=s->dc.t[k];	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (deco==D_EMBAR) {                         /* bar */	Err	vernunftzentrum.de	70
i+      yc=s->ymx+6; 	Err	vernunftzentrum.de	70
i+      if (s->stem==1) yc=s->ys+4;	Err	vernunftzentrum.de	70
i+      if (yc<28) yc=28;	Err	vernunftzentrum.de	70
i+      if (yc<top+3) yc=top+3;	Err	vernunftzentrum.de	70
i+      if (top<yc+2) top=yc+2;	Err	vernunftzentrum.de	70
i+      PUT1(" %.2f emb", yc)	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if ((deco==D_GRACE)||(deco==D_HAT)||(deco==D_ATT)) { /* gracing,hat,att */	Err	vernunftzentrum.de	70
i+      yc=s->ymx+9; 	Err	vernunftzentrum.de	70
i+      if (s->stem==1) yc=s->ys+5;	Err	vernunftzentrum.de	70
i+      if (yc<30) yc=30;	Err	vernunftzentrum.de	70
i+      if (yc<top+4) yc=top+4;	Err	vernunftzentrum.de	70
i+      if (top<yc+2) top=yc+2;	Err	vernunftzentrum.de	70
i+      if      (deco==D_GRACE) PUT1(" %.2f grm", yc)	Err	vernunftzentrum.de	70
i+      else if (deco==D_HAT)   PUT1(" %.2f hat", yc)	Err	vernunftzentrum.de	70
i+      else                    PUT1(" %.2f att", yc)	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (deco==D_ROLL) {                            /* roll sign */	Err	vernunftzentrum.de	70
i+      y=s->y;	Err	vernunftzentrum.de	70
i+      if (s->stem==1) {	Err	vernunftzentrum.de	70
i+        yc=s->y-5;	Err	vernunftzentrum.de	70
i+        if (yc>-2) yc=-2;	Err	vernunftzentrum.de	70
i+        PUT1(" %.2f cpd", yc)	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else {	Err	vernunftzentrum.de	70
i+        yc=s->y+5;	Err	vernunftzentrum.de	70
i+        if (s->dots && (!(y%6))) yc=s->y+6;	Err	vernunftzentrum.de	70
i+        if (yc<26) yc=26;	Err	vernunftzentrum.de	70
i+        if (yc<top+1) yc=top+1;	Err	vernunftzentrum.de	70
i+        if (top<yc+8) top=yc+8;	Err	vernunftzentrum.de	70
i+        PUT1(" %.2f cpu", yc)	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    } 	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    if (deco==D_HOLD) {                           /* hold sign */	Err	vernunftzentrum.de	70
i+      yc=27;	Err	vernunftzentrum.de	70
i+      if (s->stem==1) 	Err	vernunftzentrum.de	70
i+        y1=s->ys+4; 	Err	vernunftzentrum.de	70
i+      else 	Err	vernunftzentrum.de	70
i+        y1=s->ymx+6;	Err	vernunftzentrum.de	70
i+      if (yc<y1) yc=y1;	Err	vernunftzentrum.de	70
i+      if (yc<top+4) yc=top+4;	Err	vernunftzentrum.de	70
i+      if (top<yc+12) top=yc+12;	Err	vernunftzentrum.de	70
i+      PUT1(" %.1f hld", yc)	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    if (deco==D_TRILL) {                          /* trill sign */	Err	vernunftzentrum.de	70
i+      yc=30;	Err	vernunftzentrum.de	70
i+      if (s->stem==1) 	Err	vernunftzentrum.de	70
i+        y1=s->ys+5; 	Err	vernunftzentrum.de	70
i+      else 	Err	vernunftzentrum.de	70
i+        y1=s->ymx+7;	Err	vernunftzentrum.de	70
i+      if (yc<y1) yc=y1;	Err	vernunftzentrum.de	70
i+      if (yc<top+1) yc=top+1;	Err	vernunftzentrum.de	70
i+      if (top<yc+8) top=yc+8;	Err	vernunftzentrum.de	70
i+      PUT1(" %.1f trl", yc)	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if ((deco==D_UPBOW)||(deco==D_DOWNBOW)) {     /* bowing signs */	Err	vernunftzentrum.de	70
i+      yc=21;	Err	vernunftzentrum.de	70
i+      if (s->stem==1) 	Err	vernunftzentrum.de	70
i+        y1=s->ys+4; 	Err	vernunftzentrum.de	70
i+      else 	Err	vernunftzentrum.de	70
i+        y1=s->ymx+8;	Err	vernunftzentrum.de	70
i+      if (yc<y1) yc=y1;	Err	vernunftzentrum.de	70
i+      if (yc<top+4) yc=top+4;	Err	vernunftzentrum.de	70
i+      if (top<yc+10) top=yc+10;	Err	vernunftzentrum.de	70
i+      if (deco==D_UPBOW)   PUT1(" %.1f upb", yc)	Err	vernunftzentrum.de	70
i+      if (deco==D_DOWNBOW) PUT1(" %.1f dnb", yc)	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  *tp=top;	Err	vernunftzentrum.de	70
i+  return top1;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_note ----- */	Err	vernunftzentrum.de	70
i+float draw_note (x,w,d,s,fl,gchy)	Err	vernunftzentrum.de	70
i+struct SYMBOL *s;	Err	vernunftzentrum.de	70
i+float x,w,d;	Err	vernunftzentrum.de	70
i+float *gchy;	Err	vernunftzentrum.de	70
i+int fl;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char c,cc;	Err	vernunftzentrum.de	70
i+  int y,i,m,k;	Err	vernunftzentrum.de	70
i+  float yc,slen,slen0,top,top2,xx;	Err	vernunftzentrum.de	70
i+  slen0=STEM;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  draw_gracenotes (x, w, d, s);                /* draw grace notes */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  c = 'd'; cc='u';	Err	vernunftzentrum.de	70
i+  if (s->stem==1) { c='u'; cc='d'; }	Err	vernunftzentrum.de	70
i+  slen=s->stem*(s->ys-s->y);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (m=0;m<s->npitch;m++) {                       	Err	vernunftzentrum.de	70
i+    if (m>0) PUT0(" ")	Err	vernunftzentrum.de	70
i+    draw_basic_note (x,w,d,s,m);             /* draw note heads */	Err	vernunftzentrum.de	70
i+    xx=3*(s->pits[m]-18)+s->yadd-s->y;	Err	vernunftzentrum.de	70
i+    xx=xx*xx;	Err	vernunftzentrum.de	70
i+    if (xx<0.01) {                                 /* add stem */	Err	vernunftzentrum.de	70
i+      if (s->stem) PUT2(" %.1f s%c",slen,c) 	Err	vernunftzentrum.de	70
i+      if (fl && (s->flags>0))                      /* add flags */	Err	vernunftzentrum.de	70
i+        PUT3(" %.1f f%d%c",slen,s->flags,c)	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if ((m>0) && (s->pits[m]==s->pits[m-1])) {     /* unions */	Err	vernunftzentrum.de	70
i+      if (s->stem) PUT2(" %.2f s%c",slen0,cc) 	Err	vernunftzentrum.de	70
i+      if (s->flags>0)                    	Err	vernunftzentrum.de	70
i+        PUT3(" %.1f f%d%c",slen0,s->flags,cc)	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  top=draw_decorations (x,s,&top2);                /* add decorations */	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  y = s->ymn;                                      /* lower helper lines */	Err	vernunftzentrum.de	70
i+  if (y<=-6) {                           	Err	vernunftzentrum.de	70
i+    for (i=-6;i>=y;i=i-6) PUT1(" %d hl", i)	Err	vernunftzentrum.de	70
i+    if (s->head==H_OVAL) PUT0("1")	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  y = s->ymx;                                      /* upper helper lines */	Err	vernunftzentrum.de	70
i+  if (y>=30) {	Err	vernunftzentrum.de	70
i+    for (i=30;i<=y;i=i+6) PUT1(" %d hl", i)	Err	vernunftzentrum.de	70
i+    if (s->head==H_OVAL) PUT0("1")	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  *gchy=38;	Err	vernunftzentrum.de	70
i+  if (strlen(s->text)>0) {                         /* position guitar chord */	Err	vernunftzentrum.de	70
i+    yc=*gchy;	Err	vernunftzentrum.de	70
i+    if (yc<y+8) yc=y+8;	Err	vernunftzentrum.de	70
i+    if (yc<s->ys+4) yc=s->ys+4;	Err	vernunftzentrum.de	70
i+    for (k=0;k<s->dc.n;k++) {	Err	vernunftzentrum.de	70
i+      if ((s->dc.t[k]==D_GRACE) && (yc<y+12)) yc=y+12;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (yc<top2) yc=top2;	Err	vernunftzentrum.de	70
i+    *gchy=yc;	Err	vernunftzentrum.de	70
i+  }    	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  PUT0("\n")	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+  return top;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- vsh: up/down shift needed to get k*6  ----- */	Err	vernunftzentrum.de	70
i+float vsh (x,dir)	Err	vernunftzentrum.de	70
i+int dir;	Err	vernunftzentrum.de	70
i+float x;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int ix,iy,ir;	Err	vernunftzentrum.de	70
i+  float x1,xx;	Err	vernunftzentrum.de	70
i+  x1=x*dir;	Err	vernunftzentrum.de	70
i+  ix=x1+600.999;	Err	vernunftzentrum.de	70
i+  ir=ix%6;	Err	vernunftzentrum.de	70
i+  iy=ix-600;	Err	vernunftzentrum.de	70
i+  if (ir>0) iy=iy+6-ir;	Err	vernunftzentrum.de	70
i+  xx=iy*dir;	Err	vernunftzentrum.de	70
i+  return xx-x;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- rnd3: up/down shift needed to get k*3  ----- */	Err	vernunftzentrum.de	70
i+float rnd3(x)	Err	vernunftzentrum.de	70
i+float x;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int ix,iy,ir;	Err	vernunftzentrum.de	70
i+  float xx;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  ix=x+600.999-1.5;	Err	vernunftzentrum.de	70
i+  ir=ix%3;	Err	vernunftzentrum.de	70
i+  iy=ix-600;	Err	vernunftzentrum.de	70
i+  if (ir>0) iy=iy+3-ir;	Err	vernunftzentrum.de	70
i+  xx=iy;	Err	vernunftzentrum.de	70
i+  return xx-x;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- rnd6: up/down shift needed to get k*6  ----- */	Err	vernunftzentrum.de	70
i+float rnd6(x)	Err	vernunftzentrum.de	70
i+float x;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int ix,iy,ir;	Err	vernunftzentrum.de	70
i+  float xx;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  ix=x+600.999-3.0;	Err	vernunftzentrum.de	70
i+  ir=ix%6;	Err	vernunftzentrum.de	70
i+  iy=ix-600;	Err	vernunftzentrum.de	70
i+  if (ir>0) iy=iy+6-ir;	Err	vernunftzentrum.de	70
i+  xx=iy;	Err	vernunftzentrum.de	70
i+  return xx-x;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- b_pos ----- */	Err	vernunftzentrum.de	70
i+float b_pos (stem,flags,b)	Err	vernunftzentrum.de	70
i+int stem,flags;	Err	vernunftzentrum.de	70
i+float b;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float bb,d1,d2,add;	Err	vernunftzentrum.de	70
i+  float top,bot;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (stem==1) {	Err	vernunftzentrum.de	70
i+    top=b;	Err	vernunftzentrum.de	70
i+    bot=b-(flags-1)*BEAM_SHIFT-BEAM_DEPTH;	Err	vernunftzentrum.de	70
i+    if (bot>26) return b;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    bot=b;	Err	vernunftzentrum.de	70
i+    top=b+(flags-1)*BEAM_SHIFT+BEAM_DEPTH;	Err	vernunftzentrum.de	70
i+    if (top<-2) return b;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  d1=rnd6(top-BEAM_OFFSET);	Err	vernunftzentrum.de	70
i+  d2=rnd6(bot+BEAM_OFFSET); 	Err	vernunftzentrum.de	70
i+  add=d1;	Err	vernunftzentrum.de	70
i+  if (d1*d1>d2*d2) add=d2;	Err	vernunftzentrum.de	70
i+  bb=b+add;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*  printf ("stem %d top %.1f, bot%.1f, choices %.1f %.1f => %.1f\n", 	Err	vernunftzentrum.de	70
i+          stem, top,bot, d1,d2, add); */	Err	vernunftzentrum.de	70
i+/*  printf ("b_pos(%d) b=%.1f to %.1f\n", stem,b,bb); */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return bb;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- calculate_beam ----- */	Err	vernunftzentrum.de	70
i+int calculate_beam (i0,bm)	Err	vernunftzentrum.de	70
i+int i0;	Err	vernunftzentrum.de	70
i+struct BEAM *bm;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int j,j1,j2,i,stem,notes,flags;	Err	vernunftzentrum.de	70
i+  float x,y,ys,a,b,max_stem_err,stem_err,min_stem,slen,yyg,yg,try;	Err	vernunftzentrum.de	70
i+  float s,sx,sy,sxx,sxy,syy,delta,hh,dev,dev2,a0;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  j1=i0;                      /* find first and last note in beam */	Err	vernunftzentrum.de	70
i+  j2=-1;	Err	vernunftzentrum.de	70
i+  stem=sym[j1].stem;        	Err	vernunftzentrum.de	70
i+  for (j=i0;j<nsym;j++) 	Err	vernunftzentrum.de	70
i+    if (sym[j].word_end) {	Err	vernunftzentrum.de	70
i+      j2=j;	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  if (j2==-1) {	Err	vernunftzentrum.de	70
i+    return 0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  notes=flags=0;                /* set x positions, count notes and flags */	Err	vernunftzentrum.de	70
i+  for (j=j1;j<=j2;j++) {	Err	vernunftzentrum.de	70
i+    if(sym[j].type==NOTE) {   	Err	vernunftzentrum.de	70
i+      sym[j].xs=sym[j].x+stem*STEM_XOFF;	Err	vernunftzentrum.de	70
i+      sym[j].stem=stem;	Err	vernunftzentrum.de	70
i+      if (sym[j].flags>flags) flags=sym[j].flags;	Err	vernunftzentrum.de	70
i+      notes++;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  s=sx=sy=sxx=sxy=syy=0;              /* linear fit through stem ends */	Err	vernunftzentrum.de	70
i+  for (j=j1;j<=j2;j++) if (sym[j].type==NOTE) {	Err	vernunftzentrum.de	70
i+    x=sym[j].xs;	Err	vernunftzentrum.de	70
i+    y=sym[j].ymx+STEM*stem;	Err	vernunftzentrum.de	70
i+    s += 1; sx += x; sy += y;	Err	vernunftzentrum.de	70
i+    sxx += x*x; sxy += x*y; syy += y*y;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  delta=s*sxx-sx*sx;                  /* beam fct: y=ax+b */	Err	vernunftzentrum.de	70
i+  a=(s*sxy-sx*sy)/delta;	Err	vernunftzentrum.de	70
i+  b=(sy-a*sx)/s;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* the next few lines modify the slope of the beam */	Err	vernunftzentrum.de	70
i+  if (notes>=3) {                   	Err	vernunftzentrum.de	70
i+    hh=syy-a*sxy-b*sy;                /* flatten if notes not in line */	Err	vernunftzentrum.de	70
i+    dev=0;	Err	vernunftzentrum.de	70
i+    if (hh>0) {	Err	vernunftzentrum.de	70
i+      dev2=hh/(notes-2);	Err	vernunftzentrum.de	70
i+      if (dev2>0.5) a=BEAM_FLATFAC*a;   	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (a>=0) a=BEAM_SLOPE*a/(BEAM_SLOPE+a);   /* max steepness for beam */	Err	vernunftzentrum.de	70
i+  else      a=BEAM_SLOPE*a/(BEAM_SLOPE-a);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* to decide if to draw flat etc. use normalized slope a0 */	Err	vernunftzentrum.de	70
i+  a0=a*(sym[j2].xs-sym[j1].xs)/(20*(notes-1));	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if ((a0<BEAM_THRESH) && (a0>-BEAM_THRESH)) a=0;  /* flat below threshhold */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  b=(sy-a*sx)/s;                        /* recalculate b for new slope */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*  if (flags>1) b=b+2*stem;*/      /* leave a bit more room if several beams */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (bagpipe) { b=-11; a=0; }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  max_stem_err=0;                        /* check stem lengths */	Err	vernunftzentrum.de	70
i+  for (j=j1;j<=j2;j++) if (sym[j].type==NOTE) {	Err	vernunftzentrum.de	70
i+    if (sym[j].npitch==1) {	Err	vernunftzentrum.de	70
i+      min_stem=STEM_MIN;	Err	vernunftzentrum.de	70
i+      if (sym[j].flags==2) min_stem=STEM_MIN2;	Err	vernunftzentrum.de	70
i+      if (sym[j].flags==3) min_stem=STEM_MIN3;	Err	vernunftzentrum.de	70
i+      if (sym[j].flags==4) min_stem=STEM_MIN4;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      min_stem=STEM_CH_MIN;	Err	vernunftzentrum.de	70
i+      if (sym[j].flags==2) min_stem=STEM_CH_MIN2;	Err	vernunftzentrum.de	70
i+      if (sym[j].flags==3) min_stem=STEM_CH_MIN3;	Err	vernunftzentrum.de	70
i+      if (sym[j].flags==4) min_stem=STEM_CH_MIN4;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    min_stem=min_stem+BEAM_DEPTH+BEAM_SHIFT*(sym[j].flags-1);	Err	vernunftzentrum.de	70
i+    ys=a*sym[j].xs+b;	Err	vernunftzentrum.de	70
i+    if (stem==1) slen=ys-sym[j].ymx;	Err	vernunftzentrum.de	70
i+    else         slen=sym[j].ymn-ys;	Err	vernunftzentrum.de	70
i+    stem_err=min_stem-slen;	Err	vernunftzentrum.de	70
i+    if (stem_err>max_stem_err) max_stem_err=stem_err;	Err	vernunftzentrum.de	70
i+  } 	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (max_stem_err>0)                   /* shift beam if stems too short */	Err	vernunftzentrum.de	70
i+    b=b+stem*max_stem_err;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (j=j1+1;j<=j2;j++) if (sym[j].type==NOTE) {  /* room for gracenotes */	Err	vernunftzentrum.de	70
i+    for (i=0;i<sym[j].gr.n;i++) {	Err	vernunftzentrum.de	70
i+      yyg=a*(sym[j].x-GSPACE0)+b;	Err	vernunftzentrum.de	70
i+      yg=3*(sym[j].gr.p[i]-18)+sym[j].yadd;	Err	vernunftzentrum.de	70
i+      if (stem==1) {	Err	vernunftzentrum.de	70
i+        try=(yg+GSTEM)-(yyg-BEAM_DEPTH-2);	Err	vernunftzentrum.de	70
i+        if (try>0) b=b+try;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else {	Err	vernunftzentrum.de	70
i+        try=(yg)-(yyg+BEAM_DEPTH+7);	Err	vernunftzentrum.de	70
i+        if (try<0) b=b+try;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if ((a<0.01) && (a>-0.01))       /* shift flat beams onto staff lines */	Err	vernunftzentrum.de	70
i+    b=b_pos (stem,flags,b); 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (j=j1;j<=j2;j++) if (sym[j].type==NOTE) {    /* final stems */	Err	vernunftzentrum.de	70
i+    sym[j].ys=a*sym[j].xs+b;	Err	vernunftzentrum.de	70
i+  } 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  bm->i1=j1;                      /* save beam parameters in struct */	Err	vernunftzentrum.de	70
i+  bm->i2=j2;	Err	vernunftzentrum.de	70
i+  bm->a=a;	Err	vernunftzentrum.de	70
i+  bm->b=b;	Err	vernunftzentrum.de	70
i+  bm->stem=stem;	Err	vernunftzentrum.de	70
i+  bm->t=stem*BEAM_DEPTH;	Err	vernunftzentrum.de	70
i+  return 1;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+/* ----- rest_under_beam ----- */	Err	vernunftzentrum.de	70
i+float rest_under_beam (x,head,bm)	Err	vernunftzentrum.de	70
i+float x;	Err	vernunftzentrum.de	70
i+int head;	Err	vernunftzentrum.de	70
i+struct BEAM *bm;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float y,tspace,bspace;	Err	vernunftzentrum.de	70
i+  int j1,j2,j,nf,iy;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  tspace=9;	Err	vernunftzentrum.de	70
i+  bspace=11;	Err	vernunftzentrum.de	70
i+  if ((head==H_OVAL)||(head==H_EMPTY)) tspace=bspace=4;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  j1=bm->i1;	Err	vernunftzentrum.de	70
i+  j2=bm->i2;	Err	vernunftzentrum.de	70
i+  nf=0;	Err	vernunftzentrum.de	70
i+  for (j=j1;j<=j2;j++) 	Err	vernunftzentrum.de	70
i+    if ((sym[j].type==NOTE)||(sym[j].flags>nf)) nf=sym[j].flags;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (bm->stem==1) {	Err	vernunftzentrum.de	70
i+    y=bm->a*x+bm->b;	Err	vernunftzentrum.de	70
i+    y=y-BEAM_DEPTH-(nf-1)*BEAM_SHIFT;	Err	vernunftzentrum.de	70
i+    y=y-tspace;	Err	vernunftzentrum.de	70
i+    if (y>12) y=12;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    y=bm->a*x+bm->b;	Err	vernunftzentrum.de	70
i+    y=y+BEAM_DEPTH+(nf-1)*BEAM_SHIFT;	Err	vernunftzentrum.de	70
i+    y=y+bspace;	Err	vernunftzentrum.de	70
i+    if (y<12) y=12;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if ((head==H_OVAL)||(head==H_EMPTY)) {	Err	vernunftzentrum.de	70
i+    iy=(y+3.0)/6.0; 	Err	vernunftzentrum.de	70
i+    y=6*iy;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return y;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_beam_num: draw number on a beam ----- */	Err	vernunftzentrum.de	70
i+void draw_beam_num (bm,num,xn)	Err	vernunftzentrum.de	70
i+struct BEAM *bm;	Err	vernunftzentrum.de	70
i+int num;	Err	vernunftzentrum.de	70
i+float xn;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float yn;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (bm->stem==-1) 	Err	vernunftzentrum.de	70
i+    yn=bm->a*xn+bm->b-12;	Err	vernunftzentrum.de	70
i+  else 	Err	vernunftzentrum.de	70
i+    yn=bm->a*xn+bm->b+4;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  PUT3("%.1f %.1f (%d) bnum\n", xn, yn, num)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+/* ----- draw_beam: draw a single beam ----- */	Err	vernunftzentrum.de	70
i+void draw_beam (x1,x2,dy,bm)	Err	vernunftzentrum.de	70
i+float x1,x2,dy;	Err	vernunftzentrum.de	70
i+struct BEAM *bm;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float y1,y2;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  y1=bm->a*x1+bm->b-bm->stem*dy;	Err	vernunftzentrum.de	70
i+  y2=bm->a*x2+bm->b-bm->stem*dy;	Err	vernunftzentrum.de	70
i+  PUT5("%.1f %.1f %.1f %.1f %.1f bm\n", x1,y1,x2,y2,bm->t)	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+/* ----- draw_beams: draw the beams for one word ----- */	Err	vernunftzentrum.de	70
i+void draw_beams (bm)	Err	vernunftzentrum.de	70
i+struct BEAM *bm;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int j,j1,j2,j3,inbeam,k1,k2,num,p,r;	Err	vernunftzentrum.de	70
i+  float x1,x2,xn;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  j1=bm->i1;	Err	vernunftzentrum.de	70
i+  j2=bm->i2;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* make first beam over whole word */	Err	vernunftzentrum.de	70
i+  x1=sym[j1].xs;	Err	vernunftzentrum.de	70
i+  x2=sym[j2].xs;	Err	vernunftzentrum.de	70
i+  num=sym[j1].u;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  for (j=j1;j<=j2;j++) {    /* numbers for nplets on same beam */	Err	vernunftzentrum.de	70
i+    if (sym[j].p_plet>0) {	Err	vernunftzentrum.de	70
i+      p=sym[j].p_plet;	Err	vernunftzentrum.de	70
i+      r=sym[j].r_plet;	Err	vernunftzentrum.de	70
i+      j3=j+r-1;	Err	vernunftzentrum.de	70
i+      if (j3<=j2) {  	Err	vernunftzentrum.de	70
i+        xn=0.5*(sym[j].xs+sym[j3].xs);	Err	vernunftzentrum.de	70
i+        draw_beam_num (bm,p,xn);	Err	vernunftzentrum.de	70
i+        sym[j].p_plet=0;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  draw_beam (x1,x2,0.0,bm);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* second beams where two or more flags */	Err	vernunftzentrum.de	70
i+  k1=0;	Err	vernunftzentrum.de	70
i+  inbeam=0;	Err	vernunftzentrum.de	70
i+  for (j=j1;j<=j2;j++) {	Err	vernunftzentrum.de	70
i+    if (sym[j].type!=NOTE) continue;	Err	vernunftzentrum.de	70
i+    if ((!inbeam) && (sym[j].flags>=2)) {	Err	vernunftzentrum.de	70
i+      k1=j;	Err	vernunftzentrum.de	70
i+      inbeam=1;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (inbeam && ((sym[j].flags<2) || (j==j2))) {	Err	vernunftzentrum.de	70
i+      if ((sym[j].flags>=2) && (j==j2)) k2=j;	Err	vernunftzentrum.de	70
i+      x1=sym[k1].xs;	Err	vernunftzentrum.de	70
i+      x2=sym[k2].xs;	Err	vernunftzentrum.de	70
i+      inbeam=0;	Err	vernunftzentrum.de	70
i+      if (k1==k2) {	Err	vernunftzentrum.de	70
i+        if (k1==j1) draw_beam (x1+BEAM_STUB,x1,BEAM_SHIFT,bm);	Err	vernunftzentrum.de	70
i+        else        draw_beam (x1-BEAM_STUB,x1,BEAM_SHIFT,bm);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else 	Err	vernunftzentrum.de	70
i+        draw_beam (x1,x2,BEAM_SHIFT,bm);	Err	vernunftzentrum.de	70
i+      inbeam=0;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    k2=j;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* third beams where three or more flags */	Err	vernunftzentrum.de	70
i+  k1=0;	Err	vernunftzentrum.de	70
i+  inbeam=0;	Err	vernunftzentrum.de	70
i+  for (j=j1;j<=j2;j++) {	Err	vernunftzentrum.de	70
i+    if (sym[j].type!=NOTE) continue;	Err	vernunftzentrum.de	70
i+    if ((!inbeam) && (sym[j].flags>=3)) {	Err	vernunftzentrum.de	70
i+      k1=j;	Err	vernunftzentrum.de	70
i+      inbeam=1;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (inbeam && ((sym[j].flags<3) || (j==j2))) {	Err	vernunftzentrum.de	70
i+      if ((sym[j].flags>=3) && (j==j2)) k2=j;	Err	vernunftzentrum.de	70
i+      x1=sym[k1].xs;	Err	vernunftzentrum.de	70
i+      x2=sym[k2].xs;	Err	vernunftzentrum.de	70
i+      inbeam=0;	Err	vernunftzentrum.de	70
i+      if (k1==k2) {	Err	vernunftzentrum.de	70
i+        if (k1==j1) draw_beam (x1+BEAM_STUB,x1,2*BEAM_SHIFT,bm);	Err	vernunftzentrum.de	70
i+        else        draw_beam (x1-BEAM_STUB,x1,2*BEAM_SHIFT,bm);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else 	Err	vernunftzentrum.de	70
i+        draw_beam (x1,x2,2*BEAM_SHIFT,bm);	Err	vernunftzentrum.de	70
i+      inbeam=0;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    k2=j;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* fourth beams where four or more flags */	Err	vernunftzentrum.de	70
i+  k1=0;	Err	vernunftzentrum.de	70
i+  inbeam=0;	Err	vernunftzentrum.de	70
i+  for (j=j1;j<=j2;j++) {	Err	vernunftzentrum.de	70
i+    if (sym[j].type!=NOTE) continue;	Err	vernunftzentrum.de	70
i+    if ((!inbeam) && (sym[j].flags>=4)) {	Err	vernunftzentrum.de	70
i+      k1=j;	Err	vernunftzentrum.de	70
i+      inbeam=1;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (inbeam && ((sym[j].flags<4) || (j==j2))) {	Err	vernunftzentrum.de	70
i+      if ((sym[j].flags>=4) && (j==j2)) k2=j;	Err	vernunftzentrum.de	70
i+      x1=sym[k1].xs;	Err	vernunftzentrum.de	70
i+      x2=sym[k2].xs;	Err	vernunftzentrum.de	70
i+      inbeam=0;	Err	vernunftzentrum.de	70
i+      if (k1==k2) {	Err	vernunftzentrum.de	70
i+        if (k1==j1) draw_beam (x1+BEAM_STUB,x1,3*BEAM_SHIFT,bm);	Err	vernunftzentrum.de	70
i+        else        draw_beam (x1-BEAM_STUB,x1,3*BEAM_SHIFT,bm);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else 	Err	vernunftzentrum.de	70
i+        draw_beam (x1,x2,3*BEAM_SHIFT,bm);	Err	vernunftzentrum.de	70
i+      inbeam=0;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    k2=j;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- extreme: return min or max, depending on s ----- */	Err	vernunftzentrum.de	70
i+float extreme (s, a, b)	Err	vernunftzentrum.de	70
i+float s,a,b;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (s>0) {	Err	vernunftzentrum.de	70
i+    if (a>b) return a;	Err	vernunftzentrum.de	70
i+    return b;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    if (a<b) return a;	Err	vernunftzentrum.de	70
i+    return b;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_bracket  ----- */	Err	vernunftzentrum.de	70
i+void draw_bracket (p,j1,j2)	Err	vernunftzentrum.de	70
i+int p,j1,j2;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float x1,x2,y1,y2,xm,ym,s,s0,xx,yy,yx,dy;	Err	vernunftzentrum.de	70
i+  int j;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  x1=sym[j1].x-4;	Err	vernunftzentrum.de	70
i+  x2=sym[j2].x+4;	Err	vernunftzentrum.de	70
i+  y1=sym[j1].ymx+10;	Err	vernunftzentrum.de	70
i+  y2=sym[j2].ymx+10;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (sym[j1].stem==1) { y1=sym[j1].ys+4; x1=x1+3; }	Err	vernunftzentrum.de	70
i+  if (sym[j2].stem==1) { y2=sym[j2].ys+4; x2=x2+3; }	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+  if (y1<30) y1=30;	Err	vernunftzentrum.de	70
i+  if (y2<30) y2=30; 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  xm=0.5*(x1+x2);	Err	vernunftzentrum.de	70
i+  ym=0.5*(y1+y2);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  s=(y2-y1)/(x2-x1);	Err	vernunftzentrum.de	70
i+  s0=(sym[j2].ymx-sym[j1].ymx)/(x2-x1);	Err	vernunftzentrum.de	70
i+  if (s0>0) {	Err	vernunftzentrum.de	70
i+    if (s<0) s=0; if (s>s0) s=s0; 	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    if (s>0) s=0; if (s<s0) s=s0; 	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  if (s*s < 0.2*0.2) s=0;   /* flat if below limit */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  dy=0;           /* shift up bracket if needed */	Err	vernunftzentrum.de	70
i+  for (j=j1;j<=j2;j++) {	Err	vernunftzentrum.de	70
i+    if ((sym[j].type==NOTE) || (sym[j].type==REST)) {	Err	vernunftzentrum.de	70
i+      xx=sym[j].x;	Err	vernunftzentrum.de	70
i+      yy=ym+(xx-xm)*s;	Err	vernunftzentrum.de	70
i+      yx=sym[j].ymx+10;	Err	vernunftzentrum.de	70
i+      if (sym[j].stem==1) yx=sym[j].ys+5;	Err	vernunftzentrum.de	70
i+      if (yx-yy>dy) dy=yx-yy;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  ym=ym+dy;	Err	vernunftzentrum.de	70
i+  y1=ym+s*(x1-xm);	Err	vernunftzentrum.de	70
i+  y2=ym+s*(x2-xm);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* shift up guitar chords, if needed */	Err	vernunftzentrum.de	70
i+  for (j=j1;j<=j2;j++) {	Err	vernunftzentrum.de	70
i+    if ((sym[j].type==NOTE) || (sym[j].type==REST)) {	Err	vernunftzentrum.de	70
i+      xx=sym[j].x;	Err	vernunftzentrum.de	70
i+      yy=ym+(xx-xm)*s;	Err	vernunftzentrum.de	70
i+      if (sym[j].gchy<yy+4) sym[j].gchy=yy+4;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  xx=xm-6;	Err	vernunftzentrum.de	70
i+  yy=ym+s*(xx-xm);	Err	vernunftzentrum.de	70
i+  PUT4("%.1f %.1f %.1f %.1f hbr ",  x1,y1,xx,yy)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  xx=xm+6;	Err	vernunftzentrum.de	70
i+  yy=ym+s*(xx-xm);	Err	vernunftzentrum.de	70
i+  PUT4("%.1f %.1f %.1f %.1f hbr ",  x2,y2,xx,yy)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  yy=0.5*(y1+y2);	Err	vernunftzentrum.de	70
i+  PUT3("%.1f %.1f (%d) bnum\n", xm, yy-4, p)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_nplet_brackets  ----- */	Err	vernunftzentrum.de	70
i+void draw_nplet_brackets ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,j,k,p,r,c;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  for (i=0;i<nsym;i++) {	Err	vernunftzentrum.de	70
i+    if ((sym[i].type==NOTE) || (sym[i].type==REST)) {	Err	vernunftzentrum.de	70
i+      if (sym[i].p_plet>0) {	Err	vernunftzentrum.de	70
i+        p=sym[i].p_plet;	Err	vernunftzentrum.de	70
i+        r=sym[i].r_plet;	Err	vernunftzentrum.de	70
i+        c=r;	Err	vernunftzentrum.de	70
i+        k=i;	Err	vernunftzentrum.de	70
i+        for (j=i;j<nsym;j++) {	Err	vernunftzentrum.de	70
i+          if ((sym[j].type==NOTE) || (sym[j].type==REST)) {	Err	vernunftzentrum.de	70
i+            c--; 	Err	vernunftzentrum.de	70
i+            k=j; 	Err	vernunftzentrum.de	70
i+            if (c==0) break;	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        draw_bracket (p,i,k);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- slur_direction: decide whether slur goes up or down --- */	Err	vernunftzentrum.de	70
i+float slur_direction (k1,k2)	Err	vernunftzentrum.de	70
i+int k1,k2;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float s;	Err	vernunftzentrum.de	70
i+  int i,are_stems,are_downstems,are_bars,y_max,notes;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  are_stems=are_downstems=are_bars=0;  	Err	vernunftzentrum.de	70
i+  notes=0;	Err	vernunftzentrum.de	70
i+  y_max=300;	Err	vernunftzentrum.de	70
i+  for (i=k1;i<=k2;i++) {	Err	vernunftzentrum.de	70
i+    if (sym[i].type==BAR) are_bars=1;	Err	vernunftzentrum.de	70
i+    if (sym[i].type==NOTE) {	Err	vernunftzentrum.de	70
i+      notes++;	Err	vernunftzentrum.de	70
i+      if (sym[i].stem != 0 )  are_stems=1;	Err	vernunftzentrum.de	70
i+      if (sym[i].stem == -1 ) are_downstems=1;	Err	vernunftzentrum.de	70
i+      if (sym[i].ymn<y_max) y_max=sym[i].ymn;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  s=-1;	Err	vernunftzentrum.de	70
i+  if (are_downstems) s=1;	Err	vernunftzentrum.de	70
i+  if (!are_stems) {	Err	vernunftzentrum.de	70
i+    s=1;	Err	vernunftzentrum.de	70
i+    if (y_max<12) s=-1;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* next line tries to put long phrasings on top */	Err	vernunftzentrum.de	70
i+  if (are_bars && (notes>5)) s=1;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return s;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- output_slur: output slur -- --- */	Err	vernunftzentrum.de	70
i+void output_slur (x1,y1,x2,y2,s,height,shift)	Err	vernunftzentrum.de	70
i+float x1,y1,x2,y2,s,height,shift;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float alfa,beta,mx,my,xx1,yy1,xx2,yy2,dx,dy,dz,a,add;	Err	vernunftzentrum.de	70
i+       	Err	vernunftzentrum.de	70
i+  alfa=0.3;                	Err	vernunftzentrum.de	70
i+  beta=0.45;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* for wide flat slurs, make shape more square */	Err	vernunftzentrum.de	70
i+  dy=y2-y1;	Err	vernunftzentrum.de	70
i+  if (dy<0) dy=-dy;	Err	vernunftzentrum.de	70
i+  dx=x2-x1;	Err	vernunftzentrum.de	70
i+  if (dx<0) dx=-dx;	Err	vernunftzentrum.de	70
i+  a=dy/dx;	Err	vernunftzentrum.de	70
i+  if ((a<0.7) && dx>40) {	Err	vernunftzentrum.de	70
i+    add=0.2*(dx-40)/100;	Err	vernunftzentrum.de	70
i+    alfa=0.3+add;	Err	vernunftzentrum.de	70
i+    if (alfa>0.7) alfa=0.7;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* alfa, beta, and height determine Bezier control points pp1,pp2 	Err	vernunftzentrum.de	70
i+   *	Err	vernunftzentrum.de	70
i+   *           X====alfa===|===alfa=====X  	Err	vernunftzentrum.de	70
i+   *          /            |             \	Err	vernunftzentrum.de	70
i+   *        pp1            |              pp2	Err	vernunftzentrum.de	70
i+   *        /            height            \	Err	vernunftzentrum.de	70
i+   *      beta             |                beta	Err	vernunftzentrum.de	70
i+   *      /                |                 \	Err	vernunftzentrum.de	70
i+   *    p1                 m                  p2	Err	vernunftzentrum.de	70
i+   *       	Err	vernunftzentrum.de	70
i+   */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  mx=0.5*(x1+x2);	Err	vernunftzentrum.de	70
i+  my=0.5*(y1+y2);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  xx1=mx+alfa*(x1-mx);	Err	vernunftzentrum.de	70
i+  yy1=my+alfa*(y1-my)+height;	Err	vernunftzentrum.de	70
i+  xx1=x1+beta*(xx1-x1);	Err	vernunftzentrum.de	70
i+  yy1=y1+beta*(yy1-y1); 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  xx2=mx+alfa*(x2-mx);	Err	vernunftzentrum.de	70
i+  yy2=my+alfa*(y2-my)+height;	Err	vernunftzentrum.de	70
i+  xx2=x2+beta*(xx2-x2);	Err	vernunftzentrum.de	70
i+  yy2=y2+beta*(yy2-y2); 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  dx=0.03*(x2-x1);	Err	vernunftzentrum.de	70
i+  if (dx>10.0) dx=10.0;	Err	vernunftzentrum.de	70
i+  dy=1.0;	Err	vernunftzentrum.de	70
i+  dz=0.20;	Err	vernunftzentrum.de	70
i+  if (x2-x1>100) dz=dz+0.001*(x2-x1);	Err	vernunftzentrum.de	70
i+  if (dz>0.6) dz=0.6;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  PUT4("%.1f %.1f %.1f %.1f ", 	Err	vernunftzentrum.de	70
i+       xx2-dx, yy2+shift+s*dy, xx1+dx, yy1+shift+s*dy)	Err	vernunftzentrum.de	70
i+  PUT3("%.1f %.1f 0 %.1f ", x1,y1+shift+s*dz,s*dz)	Err	vernunftzentrum.de	70
i+  PUT4("%.1f %.1f %.1f %.1f ", xx1,yy1+shift,xx2,yy2+shift)	Err	vernunftzentrum.de	70
i+  PUT4("%.1f %.1f %.1f %.1f SL\n", x2,y2+shift, x1,y1+shift)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*PUT4("%.2f %.2f %.2f %.2f ", xx1,yy1+shift,xx2,yy2+shift)	Err	vernunftzentrum.de	70
i+  PUT4("%.2f %.2f %.2f %.2f sl\n", x2,y2+shift, x1,y1+shift)*/	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_slur (not a pretty routine, this) ----- */	Err	vernunftzentrum.de	70
i+void draw_slur (k1,k2,nn,level)	Err	vernunftzentrum.de	70
i+int k1,k2,level,nn;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float x01,x02,y01,y02;	Err	vernunftzentrum.de	70
i+  float x1,y1,x2,y2,yy,height,addx,addy;	Err	vernunftzentrum.de	70
i+  float s,shift,hmin,a;	Err	vernunftzentrum.de	70
i+  float x,y,z,h,dx,dy;	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  s=slur_direction (k1,k2);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* fix endpoints */	Err	vernunftzentrum.de	70
i+  if (sym[k1].type==NOTE) {            /* here if k1 points to note */	Err	vernunftzentrum.de	70
i+    x01=sym[k1].x;	Err	vernunftzentrum.de	70
i+    yy=sym[k1].ymn; if (s>0) yy=sym[k1].ymx;	Err	vernunftzentrum.de	70
i+    y01=extreme(s,yy+s*6,sym[k1].ys+s*2);	Err	vernunftzentrum.de	70
i+    if (sym[k1].word_end) {	Err	vernunftzentrum.de	70
i+      yy=sym[k1].ymn; if (s>0) yy=sym[k1].ymx;	Err	vernunftzentrum.de	70
i+      y01=yy+s*6;	Err	vernunftzentrum.de	70
i+      if ((sym[k1].stem==1)&&(s==1)) x01=x01+4;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if ((s>0) && (y01<sym[k1].dc.top+2.5)) y01=sym[k1].dc.top+2.5;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (sym[k2].type==NOTE) {            /* here if k2 points to note */	Err	vernunftzentrum.de	70
i+    x02=sym[k2].x;	Err	vernunftzentrum.de	70
i+    yy=sym[k2].ymn; if (s>0) yy=sym[k2].ymx;	Err	vernunftzentrum.de	70
i+    y02=extreme(s,yy+s*6,sym[k2].ys+s*2);	Err	vernunftzentrum.de	70
i+    if (sym[k2].word_st) {	Err	vernunftzentrum.de	70
i+      yy=sym[k2].ymn; if (s>0) yy=sym[k2].ymx;	Err	vernunftzentrum.de	70
i+      y02=yy+s*6;	Err	vernunftzentrum.de	70
i+      if ((sym[k2].stem==-1)&&(s==-1)) x02=x02-3;	Err	vernunftzentrum.de	70
i+    }  	Err	vernunftzentrum.de	70
i+    if ((s>0) && (y02<sym[k2].dc.top+2.5)) y02=sym[k2].dc.top+2.5;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (sym[k1].type!=NOTE) {	Err	vernunftzentrum.de	70
i+    x01=sym[k1].x+sym[k1].wr;	Err	vernunftzentrum.de	70
i+    y01=y02+1.2*s; 	Err	vernunftzentrum.de	70
i+    if (nn>1) {	Err	vernunftzentrum.de	70
i+      if(s==1) { if (y01<28) y01=28; } 	Err	vernunftzentrum.de	70
i+      else     { if (y01>-4) y01=-4; }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (sym[k2].type!=NOTE) {	Err	vernunftzentrum.de	70
i+    x02=sym[k2].x; 	Err	vernunftzentrum.de	70
i+    y02=y01+1.2*s; 	Err	vernunftzentrum.de	70
i+    if (nn>1) {	Err	vernunftzentrum.de	70
i+      if (s==1) {if (y02<28) y02=28; }	Err	vernunftzentrum.de	70
i+      else      {if (y02>-4) y02=-4; }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* shift endpoints */	Err	vernunftzentrum.de	70
i+  addx=0.04*(x02-x01);	Err	vernunftzentrum.de	70
i+  if (addx>3.0) addx=3.0;	Err	vernunftzentrum.de	70
i+  addy=0.02*(x02-x01);	Err	vernunftzentrum.de	70
i+  if (addy>3.0) addy=3.0;	Err	vernunftzentrum.de	70
i+  x1 = x01+addx;	Err	vernunftzentrum.de	70
i+  x2 = x02-addx;	Err	vernunftzentrum.de	70
i+  y1=y01+s*addy;	Err	vernunftzentrum.de	70
i+  y2=y02+s*addy;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  a=(y2-y1)/(x2-x1);                    /* slur steepness */     	Err	vernunftzentrum.de	70
i+  if (a >  SLUR_SLOPE) a= SLUR_SLOPE;  	Err	vernunftzentrum.de	70
i+  if (a < -SLUR_SLOPE) a=-SLUR_SLOPE;  	Err	vernunftzentrum.de	70
i+  if (a>0) {	Err	vernunftzentrum.de	70
i+    if (s ==  1) y1=y2-a*(x2-x1);	Err	vernunftzentrum.de	70
i+    if (s == -1) y2=y1+a*(x2-x1);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    if (s == -1) y1=y2-a*(x2-x1);	Err	vernunftzentrum.de	70
i+    if (s ==  1) y2=y1+a*(x2-x1);	Err	vernunftzentrum.de	70
i+  }  	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* for big vertical jump, shift endpoints */	Err	vernunftzentrum.de	70
i+  y=y2-y1; if (y>8) y=8; if (y<-8) y=-8; 	Err	vernunftzentrum.de	70
i+  z=y; if(z<0) z=-z; dx=0.5*z; dy=0.3*z;	Err	vernunftzentrum.de	70
i+  if (y>0) {	Err	vernunftzentrum.de	70
i+    if (s==1) { x2=x2-dx; y2=y2-dy; }	Err	vernunftzentrum.de	70
i+    if (s==-1) { x1=x1+dx; y1=y1+dy; }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    if (s==1) { x1=x1+dx; y1=y1-dy; }	Err	vernunftzentrum.de	70
i+    if (s==-1) { x2=x2-dx; y2=y2+dy; }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  h=0;	Err	vernunftzentrum.de	70
i+  for (i=k1+1; i<k2; i++) 	Err	vernunftzentrum.de	70
i+    if (sym[i].type==NOTE) {	Err	vernunftzentrum.de	70
i+      x = sym[i].x;	Err	vernunftzentrum.de	70
i+      yy = sym[i].ymn; if (s>0) yy=sym[i].ymx;	Err	vernunftzentrum.de	70
i+      y = extreme (s, yy+6*s, sym[i].ys+2*s);	Err	vernunftzentrum.de	70
i+      z = (y2*(x-x1)+y1*(x2-x))/(x2-x1);	Err	vernunftzentrum.de	70
i+      h = extreme (s, h, y-z);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  y1=y1+0.4*h;	Err	vernunftzentrum.de	70
i+  y2=y2+0.4*h;	Err	vernunftzentrum.de	70
i+  h=0.6*h;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  hmin=s*(0.03*(x2-x1)+8);	Err	vernunftzentrum.de	70
i+  if (nn>3) hmin=s*(0.12*(x2-x1)+12);	Err	vernunftzentrum.de	70
i+  height = extreme (s, hmin, 3.0*h);	Err	vernunftzentrum.de	70
i+  height = extreme (-s, height, s*50);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  y=y2-y1; if (y<0) y=-y;	Err	vernunftzentrum.de	70
i+  if ((s==1)  && (height< 0.8*y)) height=0.8*y;	Err	vernunftzentrum.de	70
i+  if ((s==-1) && (height>-0.8*y)) height=-0.8*y; 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  shift=3*s*level;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  output_slur (x1,y1,x2,y2,s,height,shift);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- prev_scut, next_scut: find place to terminate/start slur --- */	Err	vernunftzentrum.de	70
i+int next_scut (i)	Err	vernunftzentrum.de	70
i+int i;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int j,cut,ok;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  cut=nsym-1;	Err	vernunftzentrum.de	70
i+  for (j=i+1;j<nsym;j++) {	Err	vernunftzentrum.de	70
i+    ok=0;	Err	vernunftzentrum.de	70
i+    if (sym[j].type==BAR) {	Err	vernunftzentrum.de	70
i+      if (sym[j].u==B_RREP) ok=1;	Err	vernunftzentrum.de	70
i+      if (sym[j].u==B_DREP) ok=1;	Err	vernunftzentrum.de	70
i+      if (sym[j].u==B_FAT1) ok=1;	Err	vernunftzentrum.de	70
i+      if (sym[j].u==B_FAT2) ok=1;	Err	vernunftzentrum.de	70
i+      if (sym[j].v==2)      ok=1;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if(ok) {	Err	vernunftzentrum.de	70
i+      cut=j;	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  return cut;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+int prev_scut(i)	Err	vernunftzentrum.de	70
i+int i;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int j,cut,ok;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  cut=-1;	Err	vernunftzentrum.de	70
i+  for (j=i;j>=0;j--) {	Err	vernunftzentrum.de	70
i+    ok=0;	Err	vernunftzentrum.de	70
i+    if (sym[j].type==BAR) {	Err	vernunftzentrum.de	70
i+      if (sym[j].u==B_LREP) ok=1;	Err	vernunftzentrum.de	70
i+      if (sym[j].u==B_DREP) ok=1;	Err	vernunftzentrum.de	70
i+      if (sym[j].u==B_FAT1) ok=1;	Err	vernunftzentrum.de	70
i+      if (sym[j].u==B_FAT2) ok=1;	Err	vernunftzentrum.de	70
i+      if (sym[j].v==2)      ok=1;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if(ok) {	Err	vernunftzentrum.de	70
i+      cut=j;	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (cut==-1) {    /* return sym before first note */	Err	vernunftzentrum.de	70
i+    cut=0;	Err	vernunftzentrum.de	70
i+    for (j=0;j<nsym;j++) {	Err	vernunftzentrum.de	70
i+      if((sym[j].type==REST) || (sym[j].type==NOTE)) {	Err	vernunftzentrum.de	70
i+        cut=j-1;	Err	vernunftzentrum.de	70
i+        break;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return cut;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_chord_slurs ----- */	Err	vernunftzentrum.de	70
i+void draw_chord_slurs(k1,k2,nh1,nh2,nslur,mhead1,mhead2,job)	Err	vernunftzentrum.de	70
i+int k1,k2,nh1,nh2,nslur,mhead1[MAXHD],mhead2[MAXHD],job;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  int i,pbot,ptop,m1,m2,p1,p2,y,cut;	Err	vernunftzentrum.de	70
i+  float s,x1,y1,x2,y2,height,shift,addx,addy;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (nslur==0) return;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  pbot=1000;	Err	vernunftzentrum.de	70
i+  ptop=-1000;	Err	vernunftzentrum.de	70
i+  for (i=0;i<sym[k1].npitch;i++) {	Err	vernunftzentrum.de	70
i+    p1=sym[k1].pits[i];	Err	vernunftzentrum.de	70
i+    if (p1<pbot) pbot=p1;	Err	vernunftzentrum.de	70
i+    if (p1>ptop) ptop=p1;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  for (i=0;i<nslur;i++) {	Err	vernunftzentrum.de	70
i+    m1=mhead1[i];	Err	vernunftzentrum.de	70
i+    m2=mhead2[i];	Err	vernunftzentrum.de	70
i+    p1=sym[k1].pits[m1];	Err	vernunftzentrum.de	70
i+    p2=sym[k2].pits[m2];	Err	vernunftzentrum.de	70
i+    s=slur_direction (k1,k2);	Err	vernunftzentrum.de	70
i+    if (p1==pbot) s=-1;	Err	vernunftzentrum.de	70
i+    if (p1==ptop) s=1;	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    x1=sym[k1].x;	Err	vernunftzentrum.de	70
i+    x2=sym[k2].x;	Err	vernunftzentrum.de	70
i+    if (job==2) {	Err	vernunftzentrum.de	70
i+      cut=next_scut(k1);	Err	vernunftzentrum.de	70
i+      x2=sym[cut].x;	Err	vernunftzentrum.de	70
i+      if (cut==k1) x2=x1+30;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (job==1) {	Err	vernunftzentrum.de	70
i+      cut=prev_scut(k1);	Err	vernunftzentrum.de	70
i+      x1=sym[cut].x;	Err	vernunftzentrum.de	70
i+      if (cut==k1) x2=x1-30;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+    addx=0.04*(x2-x1);	Err	vernunftzentrum.de	70
i+    if (addx>3.0) addx=3.0;	Err	vernunftzentrum.de	70
i+    addy=0.02*(x2-x1);	Err	vernunftzentrum.de	70
i+    if (addy>3.0) addy=3.0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    x1=x1+3+addx;	Err	vernunftzentrum.de	70
i+    x2=x2-3-addx;	Err	vernunftzentrum.de	70
i+    if ((s==1)  && (sym[k1].stem==1))  x1=x1+1.5;	Err	vernunftzentrum.de	70
i+    if ((s==-1) && (sym[k2].stem==-1)) x2=x2-1.5;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    y=3*(p1-18)+sym[k1].yadd;	Err	vernunftzentrum.de	70
i+    y1=y2=y+s*(4+addy);	Err	vernunftzentrum.de	70
i+    y=3*(p2-18)+sym[k2].yadd;	Err	vernunftzentrum.de	70
i+    y2=y+s*(4+addy);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if ((s==1) && !(y%6) && (sym[k1].dots>0)) {	Err	vernunftzentrum.de	70
i+      y2=y1=y+s*(5.5+addy);	Err	vernunftzentrum.de	70
i+      x1=x1-2;	Err	vernunftzentrum.de	70
i+      x2=x2+2;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    height=s*(0.04*(x2-x1)+5);	Err	vernunftzentrum.de	70
i+    shift=0;	Err	vernunftzentrum.de	70
i+    output_slur (x1,y1,x2,y2,s,height,shift);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_slurs: draw slurs/ties between neighboring notes/chords */	Err	vernunftzentrum.de	70
i+void draw_slurs (k1,k2,job)	Err	vernunftzentrum.de	70
i+int k1,k2,job;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,m1,m2;	Err	vernunftzentrum.de	70
i+  int mhead1[MAXHD],mhead2[MAXHD],nslur,nh1,nh2;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (nbuf+100>BUFFSZ) 	Err	vernunftzentrum.de	70
i+    rx ("PS output exceeds reserved space per staff",	Err	vernunftzentrum.de	70
i+        " -- increase BUFFSZ1");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  nslur=0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (job==2) {                    /* half slurs from last note in line */	Err	vernunftzentrum.de	70
i+    nh1=sym[k1].npitch;	Err	vernunftzentrum.de	70
i+    for (i=1;i<=nh1;i++) {	Err	vernunftzentrum.de	70
i+      for (m1=0;m1<nh1;m1++) {	Err	vernunftzentrum.de	70
i+        if (sym[k1].sl1[m1]==i) {	Err	vernunftzentrum.de	70
i+          nslur=nslur+1;	Err	vernunftzentrum.de	70
i+          mhead1[nslur-1]=m1;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        if (sym[k1].ti1[m1]) {	Err	vernunftzentrum.de	70
i+          nslur=nslur+1;	Err	vernunftzentrum.de	70
i+          mhead1[nslur-1]=m1;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    draw_chord_slurs(k1,k1,nh1,nh1,nslur,mhead1,mhead1,job);	Err	vernunftzentrum.de	70
i+    return;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (job==1) {                    /* half slurs to first note in line */	Err	vernunftzentrum.de	70
i+    nh1=sym[k1].npitch;	Err	vernunftzentrum.de	70
i+    for (i=1;i<=nh1;i++) {	Err	vernunftzentrum.de	70
i+      for (m1=0;m1<nh1;m1++) {	Err	vernunftzentrum.de	70
i+        if (sym[k1].sl2[m1]==i) {	Err	vernunftzentrum.de	70
i+          nslur=nslur+1;	Err	vernunftzentrum.de	70
i+          mhead1[nslur-1]=m1;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        if (sym[k1].ti2[m1]) {	Err	vernunftzentrum.de	70
i+          nslur=nslur+1;	Err	vernunftzentrum.de	70
i+          mhead1[nslur-1]=m1;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    draw_chord_slurs(k1,k1,nh1,nh1,nslur,mhead1,mhead1,job);	Err	vernunftzentrum.de	70
i+    return;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* real 2-note case: set up list of slurs/ties to draw */	Err	vernunftzentrum.de	70
i+  if ((sym[k1].type==NOTE) && (sym[k2].type==NOTE)) {	Err	vernunftzentrum.de	70
i+    nh1=sym[k1].npitch;	Err	vernunftzentrum.de	70
i+    nh2=sym[k2].npitch;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    for (m1=0;m1<nh1;m1++) {	Err	vernunftzentrum.de	70
i+      if (sym[k1].ti1[m1]) {	Err	vernunftzentrum.de	70
i+        for (m2=0;m2<nh2;m2++) {	Err	vernunftzentrum.de	70
i+          if (sym[k2].pits[m2]==sym[k1].pits[m1]) {	Err	vernunftzentrum.de	70
i+            nslur++;	Err	vernunftzentrum.de	70
i+            mhead1[nslur-1]=m1;	Err	vernunftzentrum.de	70
i+            mhead2[nslur-1]=m2;	Err	vernunftzentrum.de	70
i+            break;	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    for (i=1;i<=nh1;i++) {	Err	vernunftzentrum.de	70
i+      for (m1=0;m1<nh1;m1++) {	Err	vernunftzentrum.de	70
i+        if (sym[k1].sl1[m1]==i) {	Err	vernunftzentrum.de	70
i+          nslur++;	Err	vernunftzentrum.de	70
i+          mhead1[nslur-1]=m1;	Err	vernunftzentrum.de	70
i+          mhead2[nslur-1]=-1;	Err	vernunftzentrum.de	70
i+          for (m2=0;m2<nh2;m2++) {	Err	vernunftzentrum.de	70
i+            if (sym[k2].sl2[m2]==i) mhead2[nslur-1]=m2;	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+          if (mhead2[nslur-1]==-1) nslur--;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }  	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+  draw_chord_slurs(k1,k2,nh1,nh2,nslur,mhead1,mhead2,job);	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_phrasing: draw phrasing slur between two symbols --- */	Err	vernunftzentrum.de	70
i+void draw_phrasing (k1,k2,level)	Err	vernunftzentrum.de	70
i+int k1,k2,level;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int nn,i;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (k1==k2) return;	Err	vernunftzentrum.de	70
i+  if (nbuf+100>BUFFSZ) 	Err	vernunftzentrum.de	70
i+    rx ("PS output exceeds reserved space per staff",	Err	vernunftzentrum.de	70
i+        " -- increase BUFFSZ1");	Err	vernunftzentrum.de	70
i+  nn=0;	Err	vernunftzentrum.de	70
i+  for (i=k1;i<=k2;i++) 	Err	vernunftzentrum.de	70
i+    if ((sym[i].type==NOTE)||(sym[i].type==REST)) nn++;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  draw_slur (k1,k2,nn,level);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_all_slurs: draw all slurs/ties between neighboring notes  */	Err	vernunftzentrum.de	70
i+void draw_all_slurs ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,i1,i2;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  i1=-1;	Err	vernunftzentrum.de	70
i+  for (i=0;i<nsym;i++) {	Err	vernunftzentrum.de	70
i+    if (sym[i].type==NOTE) {	Err	vernunftzentrum.de	70
i+      i1=i;	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  if (i1<0) return;	Err	vernunftzentrum.de	70
i+  draw_slurs(i1,i1,1);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    i2=-1;	Err	vernunftzentrum.de	70
i+    for (i=i1+1;i<nsym;i++) {	Err	vernunftzentrum.de	70
i+      if (sym[i].type==NOTE) {	Err	vernunftzentrum.de	70
i+        i2=i;	Err	vernunftzentrum.de	70
i+        break;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (i2<0) break;	Err	vernunftzentrum.de	70
i+    draw_slurs(i1,i2,0);	Err	vernunftzentrum.de	70
i+    i1=i2;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  draw_slurs(i1,i1,2);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_all_phrasings: draw all phrasing slurs for one staff ----- */	Err	vernunftzentrum.de	70
i+void draw_all_phrasings ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,j,k,cut,pass,num;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (pass=0;;pass++) {	Err	vernunftzentrum.de	70
i+    num=0;	Err	vernunftzentrum.de	70
i+    for (i=0;i<nsym;i++) {	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+      if (sym[i].slur_st) {      	Err	vernunftzentrum.de	70
i+        k=-1;                       /* find matching slur end */	Err	vernunftzentrum.de	70
i+        for (j=i+1;j<nsym;j++) {	Err	vernunftzentrum.de	70
i+          if (sym[j].slur_st && (!sym[j].slur_end)) break;	Err	vernunftzentrum.de	70
i+          if (sym[j].slur_end) {	Err	vernunftzentrum.de	70
i+            k=j;	Err	vernunftzentrum.de	70
i+            break;	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        if (k>=0) {	Err	vernunftzentrum.de	70
i+          cut=next_scut(i);	Err	vernunftzentrum.de	70
i+          if (cut<k) {	Err	vernunftzentrum.de	70
i+            draw_phrasing (i,cut,pass);	Err	vernunftzentrum.de	70
i+            cut=prev_scut(k);	Err	vernunftzentrum.de	70
i+            draw_phrasing (cut,k,pass);	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+          else {	Err	vernunftzentrum.de	70
i+            draw_phrasing (i,k,pass);	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+          num++;	Err	vernunftzentrum.de	70
i+          sym[i].slur_st--;	Err	vernunftzentrum.de	70
i+          sym[k].slur_end--;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (num==0) break;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* do unbalanced slurs still left over */	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  for (i=0;i<nsym;i++) {	Err	vernunftzentrum.de	70
i+    if (sym[i].slur_end) {	Err	vernunftzentrum.de	70
i+      cut=prev_scut(i);	Err	vernunftzentrum.de	70
i+      draw_phrasing (cut,i,0);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (sym[i].slur_st) {	Err	vernunftzentrum.de	70
i+      cut=next_scut(i);	Err	vernunftzentrum.de	70
i+      draw_phrasing (i,cut,0);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }    	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- check_bars1 ---------- */	Err	vernunftzentrum.de	70
i+void check_bars1 (ip1,ip2)	Err	vernunftzentrum.de	70
i+int ip1,ip2;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int v,i,j,k1,k2;	Err	vernunftzentrum.de	70
i+  float dx;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* check for inelegant bar combinations within one line */	Err	vernunftzentrum.de	70
i+  i=j=ip1;	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    if (xp[i].type==BAR && xp[j].type==BAR && i!=j) {	Err	vernunftzentrum.de	70
i+      dx=0;	Err	vernunftzentrum.de	70
i+      for (v=0;v<nvoice;v++) {	Err	vernunftzentrum.de	70
i+        k1=xp[j].p[v];	Err	vernunftzentrum.de	70
i+        k2=xp[i].p[v];	Err	vernunftzentrum.de	70
i+        if (k1>=0 && k2>=0) {	Err	vernunftzentrum.de	70
i+          if (symv[v][k1].u==B_RREP && symv[v][k2].u==B_LREP) {	Err	vernunftzentrum.de	70
i+            symv[v][k2].u=B_DREP;	Err	vernunftzentrum.de	70
i+            symv[v][k1].u=B_INVIS;	Err	vernunftzentrum.de	70
i+            dx=-4.0;	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      xp[i].x=xp[i].x+dx;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    j=i;	Err	vernunftzentrum.de	70
i+    i=xp[i].next;	Err	vernunftzentrum.de	70
i+    if (i==ip2) break;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- check_bars2 ---------- */	Err	vernunftzentrum.de	70
i+void check_bars2 (ip1,ip2)	Err	vernunftzentrum.de	70
i+int ip1,ip2;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,ip,v;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* check whether to split up last bar over two lines */	Err	vernunftzentrum.de	70
i+  ip=xp[ip2].prec;	Err	vernunftzentrum.de	70
i+  for (v=0;v<nvoice;v++) {	Err	vernunftzentrum.de	70
i+    strcpy(voice[v].insert_text,"");	Err	vernunftzentrum.de	70
i+    voice[v].insert_bnum  = 0;	Err	vernunftzentrum.de	70
i+    voice[v].insert_space = 0;	Err	vernunftzentrum.de	70
i+    voice[v].insert_num   = 0;	Err	vernunftzentrum.de	70
i+    voice[v].insert_btype = 0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    i=xp[ip].p[v];	Err	vernunftzentrum.de	70
i+    if (i>=0) {	Err	vernunftzentrum.de	70
i+      if (symv[v][i].type==BAR) {	Err	vernunftzentrum.de	70
i+        if (symv[v][i].u==B_LREP) {	Err	vernunftzentrum.de	70
i+          symv[v][i].u=B_SNGL; 	Err	vernunftzentrum.de	70
i+          voice[v].insert_btype=B_LREP; 	Err	vernunftzentrum.de	70
i+          voice[v].insert_num=0;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        else if (symv[v][i].u==B_DREP) {	Err	vernunftzentrum.de	70
i+          symv[v][i].u=B_RREP;               	Err	vernunftzentrum.de	70
i+          voice[v].insert_btype=B_LREP; 	Err	vernunftzentrum.de	70
i+          voice[v].insert_num=0;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        else if ((symv[v][i].u==B_RREP) && (symv[v][i].v!=0)) {	Err	vernunftzentrum.de	70
i+          voice[v].insert_btype=B_INVIS; 	Err	vernunftzentrum.de	70
i+          voice[v].insert_num=symv[v][i].v;	Err	vernunftzentrum.de	70
i+          symv[v][i].v=0;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        else if ((symv[v][i].u==B_SNGL) && (symv[v][i].v!=0)) {	Err	vernunftzentrum.de	70
i+          voice[v].insert_btype=B_INVIS; 	Err	vernunftzentrum.de	70
i+          voice[v].insert_num=symv[v][i].v;	Err	vernunftzentrum.de	70
i+          symv[v][i].v=0;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+        /* if number or label on last bar, move to next line */	Err	vernunftzentrum.de	70
i+        if (symv[v][i].t || (strlen(symv[v][i].text)>0)) {	Err	vernunftzentrum.de	70
i+          if (symv[v][i+1].type==BAR) {	Err	vernunftzentrum.de	70
i+            if (symv[v][i+1].t==0) symv[v][i+1].t=symv[v][i].t;	Err	vernunftzentrum.de	70
i+            if (strlen(symv[v][i+1].text)==0) 	Err	vernunftzentrum.de	70
i+              strcpy(symv[v][i+1].text,symv[v][i].text); 	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+          else {	Err	vernunftzentrum.de	70
i+            if (!voice[v].insert_btype) voice[v].insert_btype=B_INVIS; 	Err	vernunftzentrum.de	70
i+            voice[v].insert_space=symv[v][i].wr;	Err	vernunftzentrum.de	70
i+            voice[v].insert_bnum=symv[v][i].t;	Err	vernunftzentrum.de	70
i+            strcpy(voice[v].insert_text,symv[v][i].text);	Err	vernunftzentrum.de	70
i+            strcpy(symv[v][i].text,"");	Err	vernunftzentrum.de	70
i+            symv[v][i].t=0;	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_vocals ----- */	Err	vernunftzentrum.de	70
i+void draw_vocals (fp,nwl,botnote,bspace,botpos)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+float botnote,bspace;	Err	vernunftzentrum.de	70
i+float *botpos;	Err	vernunftzentrum.de	70
i+int nwl;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,hyflag,l,j;	Err	vernunftzentrum.de	70
i+  float x,x0,yword,lastx,spc,vfsize,w,swfac,lskip;	Err	vernunftzentrum.de	70
i+  char word[81],t[81];	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (nwl<=0) return;	Err	vernunftzentrum.de	70
i+  vfsize=cfmt.vocalfont.size;	Err	vernunftzentrum.de	70
i+  lskip=1.1*vfsize;	Err	vernunftzentrum.de	70
i+  set_font (fp, cfmt.vocalfont, 0);	Err	vernunftzentrum.de	70
i+  yword=-cfmt.vocalspace;	Err	vernunftzentrum.de	70
i+  swfac=1.05;	Err	vernunftzentrum.de	70
i+  if (strstr(cfmt.vocalfont.name,"Helvetica")) swfac=1.10;	Err	vernunftzentrum.de	70
i+  if (botnote-cfmt.vocalfont.size<yword) 	Err	vernunftzentrum.de	70
i+    yword=botnote-cfmt.vocalfont.size;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  for (j=0;j<nwl;j++) {	Err	vernunftzentrum.de	70
i+    hyflag=0;	Err	vernunftzentrum.de	70
i+    lastx=-10;	Err	vernunftzentrum.de	70
i+    for (i=0;i<nsym;i++) {          	Err	vernunftzentrum.de	70
i+      if (sym[i].wordp[j]) {	Err	vernunftzentrum.de	70
i+        strcpy(word,sym[i].wordp[j]);	Err	vernunftzentrum.de	70
i+        x0=sym[i].x;	Err	vernunftzentrum.de	70
i+        l=strlen(word);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+        if (hyflag) {	Err	vernunftzentrum.de	70
i+          tex_str (word,t,&w);	Err	vernunftzentrum.de	70
i+          spc=x0-VOCPRE*vfsize*swfac*w-lastx;	Err	vernunftzentrum.de	70
i+          x = lastx+0.5*spc-0.5*swfac*vfsize*cwid('-');	Err	vernunftzentrum.de	70
i+          PUT2("%.1f %.1f whf ",x,yword)	Err	vernunftzentrum.de	70
i+          hyflag=0;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+        if ((l>1) && (word[l-1]=='^')) {	Err	vernunftzentrum.de	70
i+          word[l-1]='\0';	Err	vernunftzentrum.de	70
i+          hyflag=1;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+        if ((l==1) && (word[0]=='_')) {	Err	vernunftzentrum.de	70
i+          if (lastx<0) lastx=sym[i-1].x+sym[i-1].wr;	Err	vernunftzentrum.de	70
i+          PUT3("%.1f %.1f %.1f wln ", lastx+3, sym[i].x+1, yword)	Err	vernunftzentrum.de	70
i+        } 	Err	vernunftzentrum.de	70
i+        else if ((l==1) && (word[0]=='^')) {	Err	vernunftzentrum.de	70
i+          PUT2("%.1f %.1f whf ", x0, yword)	Err	vernunftzentrum.de	70
i+          lastx=x0+vfsize*swfac*w;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        else {	Err	vernunftzentrum.de	70
i+          tex_str (word,t,&w);	Err	vernunftzentrum.de	70
i+          if (isdig(word[0])) 	Err	vernunftzentrum.de	70
i+            x0=x0-3*vfsize*swfac*cwid('1');	Err	vernunftzentrum.de	70
i+          else	Err	vernunftzentrum.de	70
i+            x0=x0-VOCPRE*vfsize*swfac*w;	Err	vernunftzentrum.de	70
i+          if (strcmp(t," ")) PUT3("(%s) %.1f %.1f wd ", t, x0, yword)	Err	vernunftzentrum.de	70
i+          lastx=x0+vfsize*swfac*w;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (hyflag) PUT2("%.1f %.1f whf ",lastx+5,yword)	Err	vernunftzentrum.de	70
i+    yword=yword-lskip;	Err	vernunftzentrum.de	70
i+  } 	Err	vernunftzentrum.de	70
i+  *botpos=yword + lskip - bspace;	Err	vernunftzentrum.de	70
i+}  	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_symbols: draw symbols at proper positions on staff ----- */	Err	vernunftzentrum.de	70
i+void draw_symbols (fp,bspace,bpos,is_top)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+float bspace,*bpos;	Err	vernunftzentrum.de	70
i+int is_top;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,inbeam,j,nwl;	Err	vernunftzentrum.de	70
i+  float x,y,top,xl,d,w,gchy,botnote,botpos,spc,swfac;	Err	vernunftzentrum.de	70
i+  struct BEAM bm;	Err	vernunftzentrum.de	70
i+  char t[81];	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  inbeam=do_words=0;	Err	vernunftzentrum.de	70
i+  botnote=0;	Err	vernunftzentrum.de	70
i+  nwl=0;	Err	vernunftzentrum.de	70
i+  for (i=0;i<nsym;i++) {                      /* draw the symbols */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    for (j=0;j<NWLINE;j++) 	Err	vernunftzentrum.de	70
i+      if (sym[i].wordp[j]) {	Err	vernunftzentrum.de	70
i+        if (j+1>nwl) nwl=j+1;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    if (nbuf+100>BUFFSZ) 	Err	vernunftzentrum.de	70
i+      rx ("PS output exceeds reserved space per staff",	Err	vernunftzentrum.de	70
i+          " -- increase BUFFSZ1");	Err	vernunftzentrum.de	70
i+    x=sym[i].x;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    switch (sym[i].type) {	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+    case NOTE:	Err	vernunftzentrum.de	70
i+      xl=0; w=sym[i].wl;	Err	vernunftzentrum.de	70
i+      if (i>0) { xl=sym[i-1].x; w=w+sym[i-1].wr; }	Err	vernunftzentrum.de	70
i+      d=x-xl;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      if (sym[i].word_st && !sym[i].word_end) {	Err	vernunftzentrum.de	70
i+        if (calculate_beam (i,&bm)) inbeam=1;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      if (inbeam) {	Err	vernunftzentrum.de	70
i+        top=draw_note(x,w,d,&sym[i],0,&gchy);	Err	vernunftzentrum.de	70
i+        if (i==bm.i2) {	Err	vernunftzentrum.de	70
i+          inbeam=0;	Err	vernunftzentrum.de	70
i+          draw_beams (&bm);	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else {	Err	vernunftzentrum.de	70
i+        top=draw_note(x,w,d,&sym[i],1,&gchy);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      sym[i].gchy=gchy;	Err	vernunftzentrum.de	70
i+      sym[i].dc.top=top;	Err	vernunftzentrum.de	70
i+      if (sym[i].ymn-5<botnote) botnote=sym[i].ymn-5;	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+    case REST:	Err	vernunftzentrum.de	70
i+      y=sym[i].y;	Err	vernunftzentrum.de	70
i+      if (inbeam) y=rest_under_beam (sym[i].x,sym[i].head,&bm);	Err	vernunftzentrum.de	70
i+      draw_rest(x,y,sym[i],&gchy);	Err	vernunftzentrum.de	70
i+      sym[i].gchy=gchy;	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+    case BAR:	Err	vernunftzentrum.de	70
i+      if (sym[i].v) set_ending(i);	Err	vernunftzentrum.de	70
i+      draw_bar (x,sym[i]);	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+    case CLEF:	Err	vernunftzentrum.de	70
i+      if (sym[i].u==TREBLE) {	Err	vernunftzentrum.de	70
i+        if (sym[i].v) PUT1("%.1f stclef\n", x)	Err	vernunftzentrum.de	70
i+        else          PUT1("%.1f tclef\n", x)	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else if (sym[i].u==BASS) {	Err	vernunftzentrum.de	70
i+        if (sym[i].v) PUT1("%.1f sbclef\n", x)	Err	vernunftzentrum.de	70
i+        else          PUT1("%.1f bclef\n", x)	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else if (sym[i].u==ALTO) {	Err	vernunftzentrum.de	70
i+        if (sym[i].v) PUT1("%.1f scclef\n", x)	Err	vernunftzentrum.de	70
i+        else          PUT1("%.1f cclef\n", x)	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else 	Err	vernunftzentrum.de	70
i+        bug("unknown clef type", 0);	Err	vernunftzentrum.de	70
i+      voice[ivc].key.ktype=sym[i].u;	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+    case TIMESIG:	Err	vernunftzentrum.de	70
i+      draw_timesig (x,sym[i]);	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+    case KEYSIG:	Err	vernunftzentrum.de	70
i+      voice[ivc].key.sf=draw_keysig (x,sym[i]);	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    case INVISIBLE:	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+    default:	Err	vernunftzentrum.de	70
i+      printf (">>> cannot draw symbol type %d\n", sym[i].type);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  draw_nplet_brackets ();	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*|   if (voice[ivc].do_gch) draw_barnums (fp); |*/	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (ivc==ivc0) draw_barnums (fp); 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* draw guitar chords */	Err	vernunftzentrum.de	70
i+  if (voice[ivc].do_gch) {	Err	vernunftzentrum.de	70
i+    set_font(fp,cfmt.gchordfont,0);	Err	vernunftzentrum.de	70
i+    swfac=1.0;	Err	vernunftzentrum.de	70
i+    if (strstr(cfmt.gchordfont.name,"Times-Roman"))    swfac=1.00;	Err	vernunftzentrum.de	70
i+    if (strstr(cfmt.gchordfont.name,"Times-Bold"))     swfac=1.05;	Err	vernunftzentrum.de	70
i+    if (strstr(cfmt.gchordfont.name,"Helvetica"))      swfac=1.10;	Err	vernunftzentrum.de	70
i+    if (strstr(cfmt.gchordfont.name,"Helvetica-Bold")) swfac=1.15;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    for (i=0;i<nsym;i++) {   	Err	vernunftzentrum.de	70
i+      if ((sym[i].type==NOTE)||(sym[i].type==REST)) {	Err	vernunftzentrum.de	70
i+        if (strlen(sym[i].text)>0) {	Err	vernunftzentrum.de	70
i+          tex_str (sym[i].text,t,&w);	Err	vernunftzentrum.de	70
i+          w=cfmt.gchordfont.size*w;	Err	vernunftzentrum.de	70
i+          spc=w*GCHPRE;	Err	vernunftzentrum.de	70
i+          if (spc>8.0) spc=8.0; 	Err	vernunftzentrum.de	70
i+          PUT3("%.1f %.1f (%s) gc ", sym[i].x-spc, sym[i].gchy, t)	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  draw_all_slurs ();	Err	vernunftzentrum.de	70
i+  draw_all_phrasings ();	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*|   if (is_top) draw_endings (); |*/	Err	vernunftzentrum.de	70
i+  if (ivc==ivc0) draw_endings ();	Err	vernunftzentrum.de	70
i+  num_ending=0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  botpos=-bspace;	Err	vernunftzentrum.de	70
i+  if (botnote<botpos) botpos=botnote;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (nwl>0) draw_vocals (fp,nwl,botnote,bspace,&botpos);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  *bpos=botpos;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- draw_sysbars: draw bars extending over staves----- */	Err	vernunftzentrum.de	70
i+void draw_sysbars (fp,ip1,ip2,wid0,h1,dh)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+int ip1,ip2;	Err	vernunftzentrum.de	70
i+float wid0,h1,dh;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,v,ok,u,uu,p;	Err	vernunftzentrum.de	70
i+  float x;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  PUT2 ("gsave 0 %.2f T 1.0 %.4f scale ",h1,dh/24.0)	Err	vernunftzentrum.de	70
i+  i=ip1;	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    if (xp[i].type==BAR) {	Err	vernunftzentrum.de	70
i+      p=xp[i].p[ivc0];	Err	vernunftzentrum.de	70
i+      u=symv[ivc0][p].u;	Err	vernunftzentrum.de	70
i+      if (u==B_LREP) u=B_FAT1;	Err	vernunftzentrum.de	70
i+      if (u==B_RREP) u=B_FAT2;	Err	vernunftzentrum.de	70
i+      ok=1;	Err	vernunftzentrum.de	70
i+      for (v=0;v<nvoice;v++) {	Err	vernunftzentrum.de	70
i+        if (v!=ivc0 && voice[v].draw) {	Err	vernunftzentrum.de	70
i+          p=xp[i].p[v];	Err	vernunftzentrum.de	70
i+          if (p<0) ok=0;	Err	vernunftzentrum.de	70
i+          else {	Err	vernunftzentrum.de	70
i+            uu=symv[v][p].u;	Err	vernunftzentrum.de	70
i+            if (uu==B_LREP) uu=B_FAT1;	Err	vernunftzentrum.de	70
i+            if (uu==B_RREP) uu=B_FAT2;	Err	vernunftzentrum.de	70
i+            if (uu!=u) ok=0;	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+      if (ok) {	Err	vernunftzentrum.de	70
i+        x=xp[i].x+wid0;	Err	vernunftzentrum.de	70
i+        if (u==B_SNGL)  	Err	vernunftzentrum.de	70
i+          PUT1("%.1f bar ", x)	Err	vernunftzentrum.de	70
i+        else if (u==B_DBL)   	Err	vernunftzentrum.de	70
i+          PUT1("%.1f dbar ", x)	Err	vernunftzentrum.de	70
i+        else if (u==B_FAT1) 	Err	vernunftzentrum.de	70
i+          PUT1("%.1f fbar1 ", x)	Err	vernunftzentrum.de	70
i+        else if (u==B_FAT2) 	Err	vernunftzentrum.de	70
i+          PUT1("%.1f fbar2 ", x)	Err	vernunftzentrum.de	70
i+        else if (u==B_DREP) {	Err	vernunftzentrum.de	70
i+          PUT1("%.1f fbar1 ", x-1)	Err	vernunftzentrum.de	70
i+          PUT1("%.1f fbar2 ", x+1)	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    i=xp[i].next;	Err	vernunftzentrum.de	70
i+    if (i==ip2) break;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  PUT0 (" 0.0 bar grestore\n")	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- count_symbols: count number of "real" symbols ---- */	Err	vernunftzentrum.de	70
i+int count_symbols ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,c;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  c=0;	Err	vernunftzentrum.de	70
i+  for (i=0;i<nsym;i++) { 	Err	vernunftzentrum.de	70
i+    switch (sym[i].type) {	Err	vernunftzentrum.de	70
i+    case NOTE:	Err	vernunftzentrum.de	70
i+    case REST:	Err	vernunftzentrum.de	70
i+    case BAR:	Err	vernunftzentrum.de	70
i+      c++;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  return c;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- select_piece: choose limits for piece to put on one staff ---- */	Err	vernunftzentrum.de	70
i+int select_piece (ip1)	Err	vernunftzentrum.de	70
i+int ip1;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,num,ltype,count_this;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* find next symbol marked as eol */	Err	vernunftzentrum.de	70
i+  i=ip1;	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    if (xp[i].eoln) break;	Err	vernunftzentrum.de	70
i+    if (xp[i].next==XP_END) break;	Err	vernunftzentrum.de	70
i+    i=xp[i].next;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  i=xp[i].next;	Err	vernunftzentrum.de	70
i+  if (cfmt.barsperstaff==0) return i;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* find first note or rest */	Err	vernunftzentrum.de	70
i+  i=ip1;	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    if (xp[i].type==NOTE || xp[i].type==REST) 	Err	vernunftzentrum.de	70
i+    if (xp[i].type==NOTE || xp[i].type==REST) break;	Err	vernunftzentrum.de	70
i+    i=xp[i].next;	Err	vernunftzentrum.de	70
i+    if (i==XP_END) return i;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  i=xp[i].next;	Err	vernunftzentrum.de	70
i+  if (i==XP_END) return i;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* count bars until number is reached */	Err	vernunftzentrum.de	70
i+  num=0;	Err	vernunftzentrum.de	70
i+  ltype=0;	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    count_this=0;	Err	vernunftzentrum.de	70
i+    if (xp[i].type==BAR) {	Err	vernunftzentrum.de	70
i+      count_this=1;	Err	vernunftzentrum.de	70
i+      if (ltype==BAR) count_this=0;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    num=num+count_this;	Err	vernunftzentrum.de	70
i+    ltype=xp[i].type;	Err	vernunftzentrum.de	70
i+    i=xp[i].next;	Err	vernunftzentrum.de	70
i+    if (i==XP_END) return i;	Err	vernunftzentrum.de	70
i+    if (num==cfmt.barsperstaff) return i;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  i=xp[i].next;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return i;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- is_topvc: check for top voice of set staved together --- */	Err	vernunftzentrum.de	70
i+int is_topvc (jv)	Err	vernunftzentrum.de	70
i+int jv;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int iv,kv,ok;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  ok=0;	Err	vernunftzentrum.de	70
i+  for (iv=0;iv<jv;iv++) {	Err	vernunftzentrum.de	70
i+    if (voice[iv].staves >= jv-iv+1) {	Err	vernunftzentrum.de	70
i+      for (kv=iv;kv<jv;kv++)	Err	vernunftzentrum.de	70
i+        if (voice[kv].draw) ok=1;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }        	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return 1-ok;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- vc_select: set flags for voice selection from -V option --- */	Err	vernunftzentrum.de	70
i+int vc_select ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char *s;	Err	vernunftzentrum.de	70
i+  int i,a,b,n;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (strlen(vcselstr)==0) return nvoice;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (i=0;i<nvoice;i++) voice[i].select=0;	Err	vernunftzentrum.de	70
i+  s=vcselstr;	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    if (*s==0) break;	Err	vernunftzentrum.de	70
i+    if (!sscanf(s,"%d%n",&a,&n)) break;	Err	vernunftzentrum.de	70
i+    s+=n;	Err	vernunftzentrum.de	70
i+    b=a;	Err	vernunftzentrum.de	70
i+    if (*s=='-') {	Err	vernunftzentrum.de	70
i+      s++;	Err	vernunftzentrum.de	70
i+      if (*s==0) break;	Err	vernunftzentrum.de	70
i+      if (!sscanf(s,"%d%n",&b,&n)) break;	Err	vernunftzentrum.de	70
i+      s+=n;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    for (i=a-1;i<b;i++) 	Err	vernunftzentrum.de	70
i+      if (i>=0 && i<nvoice) voice[i].select=1;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    if (*s==0) {	Err	vernunftzentrum.de	70
i+      n=0;	Err	vernunftzentrum.de	70
i+      for (i=0;i<nvoice;i++) if (voice[i].select) n++;	Err	vernunftzentrum.de	70
i+      if (verbose>=4) {	Err	vernunftzentrum.de	70
i+        printf ("Selection <%s>   selected voices:",vcselstr);	Err	vernunftzentrum.de	70
i+        for (i=0;i<nvoice;i++) if (voice[i].select) printf(" %d",i+1);	Err	vernunftzentrum.de	70
i+        printf ("\n");	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      return n;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (*s==',') s++;	Err	vernunftzentrum.de	70
i+    else break;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  rx ("Bad voice selection: -V ", vcselstr);	Err	vernunftzentrum.de	70
i+  return 0;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- voice_label: label voice, or just return length if job==0 -- */	Err	vernunftzentrum.de	70
i+float voice_label (fp, label, h, xc, dx0, job)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+char *label;	Err	vernunftzentrum.de	70
i+float xc,dx0,h;	Err	vernunftzentrum.de	70
i+int   job;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float w,wid,dy,xcc;	Err	vernunftzentrum.de	70
i+  char lab[81],t[81];	Err	vernunftzentrum.de	70
i+  int n,i;	Err	vernunftzentrum.de	70
i+  char *p,*q,*l[10];	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (strlen(label)==0) return 0.0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  strcpy(lab,label);	Err	vernunftzentrum.de	70
i+  n=0;	Err	vernunftzentrum.de	70
i+  p=lab;	Err	vernunftzentrum.de	70
i+  l[0]=p;	Err	vernunftzentrum.de	70
i+  while (q=strstr(p,"\\\\")) { *q='\0'; p=q+2; n++; l[n]=p; }	Err	vernunftzentrum.de	70
i+  n++;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  wid=0;	Err	vernunftzentrum.de	70
i+  for (i=0;i<n;i++) {	Err	vernunftzentrum.de	70
i+    tex_str(l[i],t,&w);	Err	vernunftzentrum.de	70
i+    w=cfmt.voicefont.size*w;	Err	vernunftzentrum.de	70
i+    if (w>wid) wid=w;	Err	vernunftzentrum.de	70
i+    if (job!=0) {	Err	vernunftzentrum.de	70
i+      xcc=xc;	Err	vernunftzentrum.de	70
i+      if (xcc+0.5*w>dx0) xcc=dx0-0.5*w;	Err	vernunftzentrum.de	70
i+      dy = 8.0 + 0.5*cfmt.voicefont.size*(n-1-2*i) + h;	Err	vernunftzentrum.de	70
i+      PUT3 (" %.2f %.2f M (%s) cshow\n",xcc,dy,t) 	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  return wid;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- mstave_deco: draw decorations over multiple staves ----- */	Err	vernunftzentrum.de	70
i+void mstave_deco (fp,ip1,ip2,wid0,hsys,htab)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+int ip1,ip2;	Err	vernunftzentrum.de	70
i+float hsys,wid0,htab[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int   iv,jv,nv;	Err	vernunftzentrum.de	70
i+  float hbot,htop,ht,x0,y0,wid,wc,wcb,w,wmin;	Err	vernunftzentrum.de	70
i+  float wmin1=15.0, wmin2=10.0;  /* space to staff */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  wmin=wmin2;	Err	vernunftzentrum.de	70
i+  if (do_indent) wmin=wmin1;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* draw bar lines */	Err	vernunftzentrum.de	70
i+  if (mvoice>1) {	Err	vernunftzentrum.de	70
i+    for (iv=0;iv<nvoice;iv++) {	Err	vernunftzentrum.de	70
i+      hbot=10000; htop=-hbot; nv=1;	Err	vernunftzentrum.de	70
i+      for (jv=iv;jv<iv+voice[iv].staves;jv++) {	Err	vernunftzentrum.de	70
i+        if (voice[jv].draw) nv++;	Err	vernunftzentrum.de	70
i+        if (voice[jv].draw && (htab[jv]<hbot)) hbot=htab[jv];	Err	vernunftzentrum.de	70
i+        if (voice[jv].draw && (htab[jv]>htop)) htop=htab[jv];	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      if ((hbot<htop-0.001) && (nv>1))	Err	vernunftzentrum.de	70
i+        draw_sysbars (fp,ip1,ip2,wid0,hsys-htop,htop-hbot+24.0);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    PUT1 ("gsave 1.0 %.4f scale 0.0 bar grestore\n", (hsys+24.0)/24.0)	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* next part draws voice names (except on braces) */	Err	vernunftzentrum.de	70
i+  set_font (fp, cfmt.voicefont, 0);	Err	vernunftzentrum.de	70
i+  nv=0;	Err	vernunftzentrum.de	70
i+  for (iv=0;iv<nvoice;iv++) if (voice[iv].draw) nv++;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* get max label width, then center labels above each other */	Err	vernunftzentrum.de	70
i+  wid=w=0;	Err	vernunftzentrum.de	70
i+  for (iv=0;iv<nvoice;iv++) {	Err	vernunftzentrum.de	70
i+    if (voice[iv].draw) {	Err	vernunftzentrum.de	70
i+      if (do_indent) 	Err	vernunftzentrum.de	70
i+        w=voice_label (fp, voice[iv].name, 0.0,0.0,0.0, 0); 	Err	vernunftzentrum.de	70
i+      else if (nv>1) 	Err	vernunftzentrum.de	70
i+        w=voice_label (fp, voice[iv].sname, 0.0,0.0,0.0, 0); 	Err	vernunftzentrum.de	70
i+      if (w>wid) wid=w;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  wc=wcb=0.5*wid+wmin;	Err	vernunftzentrum.de	70
i+  if (wcb<18.0) wcb=18.0;     /* label on brace needs a bit more room */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (iv=0;iv<nvoice;iv++) {	Err	vernunftzentrum.de	70
i+    if (voice[iv].draw && (voice[iv].brace==0) ) {	Err	vernunftzentrum.de	70
i+      y0=hsys-htab[iv];	Err	vernunftzentrum.de	70
i+      if (do_indent) 	Err	vernunftzentrum.de	70
i+        voice_label (fp, voice[iv].name,y0,-wc,-wmin,1); 	Err	vernunftzentrum.de	70
i+      else if (nv>1) 	Err	vernunftzentrum.de	70
i+        voice_label (fp,voice[iv].sname,y0,-wc,-wmin,1); 	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* braces and brackets */	Err	vernunftzentrum.de	70
i+  for (iv=0;iv<nvoice;iv++) {	Err	vernunftzentrum.de	70
i+    hbot=10000; htop=-hbot; nv=0;	Err	vernunftzentrum.de	70
i+    for (jv=iv;jv<iv+voice[iv].brace;jv++) {	Err	vernunftzentrum.de	70
i+      if (voice[jv].draw) nv++;	Err	vernunftzentrum.de	70
i+      if (voice[jv].draw && (htab[jv]<hbot)) hbot=htab[jv];	Err	vernunftzentrum.de	70
i+      if (voice[jv].draw && (htab[jv]>htop)) htop=htab[jv];	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (hbot<htop+0.001) {	Err	vernunftzentrum.de	70
i+      ht=htop-hbot+24.0;	Err	vernunftzentrum.de	70
i+      y0=hsys-htop+0.5*ht;	Err	vernunftzentrum.de	70
i+      x0=-8;	Err	vernunftzentrum.de	70
i+      ht=ht-2.0;	Err	vernunftzentrum.de	70
i+      if (voice[iv].brace==1) ht=ht+15.0;	Err	vernunftzentrum.de	70
i+      if (voice[iv].brace>2)  ht=ht-8.0;	Err	vernunftzentrum.de	70
i+      if ((nv>1)||(voice[iv].brace==1))	Err	vernunftzentrum.de	70
i+        PUT3 (" %.4f %.1f %.1f brace\n", ht/120.0, x0, y0) 	Err	vernunftzentrum.de	70
i+      if (do_indent) 	Err	vernunftzentrum.de	70
i+        voice_label (fp, voice[iv].name, y0-12.0,-wcb,-wmin,1); 	Err	vernunftzentrum.de	70
i+      else if (nv>1)	Err	vernunftzentrum.de	70
i+        voice_label (fp, voice[iv].sname,y0-12.0,-wcb,-wmin,1);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    hbot=10000; htop=-hbot; nv=0;	Err	vernunftzentrum.de	70
i+    for (jv=iv;jv<iv+voice[iv].bracket;jv++) {	Err	vernunftzentrum.de	70
i+      if (voice[jv].draw) nv++;	Err	vernunftzentrum.de	70
i+      if (voice[jv].draw && (htab[jv]<hbot)) hbot=htab[jv];	Err	vernunftzentrum.de	70
i+      if (voice[jv].draw && (htab[jv]>htop)) htop=htab[jv];	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if ((hbot<htop+0.001) && ((nv>1)||(voice[iv].bracket==1)))	Err	vernunftzentrum.de	70
i+      PUT2 ("\n %.1f -3 %.1f bracket\n", htop-hbot+24.0+6.0, hsys-htop-3.0)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- output_music: output for parsed symbol list ----- */	Err	vernunftzentrum.de	70
i+void output_music (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int ip1,ip2,mv,is_top,nsel,b,bnum;	Err	vernunftzentrum.de	70
i+  float realwidth,staffwidth,wid0,widv,lscale,lwidth,bpos;	Err	vernunftzentrum.de	70
i+  float spa1,spa2,hsys,htab[40],extra,indent,spax;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* save current meter and key, to continue after P: or T: field */	Err	vernunftzentrum.de	70
i+  for (ivc=0;ivc<nvoice;ivc++) {	Err	vernunftzentrum.de	70
i+    voice[ivc].meter1 = voice[ivc].meter;	Err	vernunftzentrum.de	70
i+    voice[ivc].key1   = voice[ivc].key;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (!file_initialized && !epsf) {	Err	vernunftzentrum.de	70
i+    init_ps (fout,infostr,0,0.0,0.0,0.0,0.0); 	Err	vernunftzentrum.de	70
i+    init_page (fout);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (nvoice==0) { init_parse_params(); return; }	Err	vernunftzentrum.de	70
i+  if (verbose>=10) print_vsyms ();	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  alfa_last=0.1; beta_last=0.0;	Err	vernunftzentrum.de	70
i+  lwidth=cfmt.staffwidth;   	Err	vernunftzentrum.de	70
i+  lscale=cfmt.scale;	Err	vernunftzentrum.de	70
i+  check_margin (cfmt.leftmargin);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* dump buffer if not enough space for a staff line */	Err	vernunftzentrum.de	70
i+  check_buffer (fp, BUFFSZ1);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* initialize meter and key for voices */	Err	vernunftzentrum.de	70
i+  for (ivc=0;ivc<nvoice;ivc++) {	Err	vernunftzentrum.de	70
i+    voice[ivc].meter = voice[ivc].meter0;	Err	vernunftzentrum.de	70
i+    voice[ivc].key   = voice[ivc].key0;	Err	vernunftzentrum.de	70
i+    if (!do_meter) voice[ivc].meter.insert=0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* setup for horizontal positioning, decide which voices to draw */	Err	vernunftzentrum.de	70
i+  nsel=vc_select ();	Err	vernunftzentrum.de	70
i+  for (ivc=0;ivc<nvoice;ivc++) 	Err	vernunftzentrum.de	70
i+    if (!voice[ivc].select) voice[ivc].nsym=0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  mvoice=0;	Err	vernunftzentrum.de	70
i+  ivc0=-1;	Err	vernunftzentrum.de	70
i+  for (ivc=0;ivc<nvoice;ivc++) {	Err	vernunftzentrum.de	70
i+    voice[ivc].draw=0;	Err	vernunftzentrum.de	70
i+    if (voice[ivc].nsym>0) {	Err	vernunftzentrum.de	70
i+      mvoice++;	Err	vernunftzentrum.de	70
i+      if (ivc0<0) ivc0=ivc;	Err	vernunftzentrum.de	70
i+      voice[ivc].draw=1;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  if (mvoice==0) { init_parse_params(); return; }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (ivc=0;ivc<nvoice;ivc++) {	Err	vernunftzentrum.de	70
i+    if (voice[ivc].draw) {	Err	vernunftzentrum.de	70
i+      set_sym_chars  (0,voice[ivc].nsym,symv[ivc]);	Err	vernunftzentrum.de	70
i+      set_beams      (0,voice[ivc].nsym,symv[ivc]);	Err	vernunftzentrum.de	70
i+      set_stems      (0,voice[ivc].nsym,symv[ivc]);	Err	vernunftzentrum.de	70
i+      b=set_sym_times(0,voice[ivc].nsym,symv[ivc],voice[ivc].meter0);	Err	vernunftzentrum.de	70
i+      set_sym_widths (0,voice[ivc].nsym,symv[ivc],ivc);	Err	vernunftzentrum.de	70
i+      if (ivc==ivc0) bnum=b;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  barinit=bnum;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (mvoice==1)	Err	vernunftzentrum.de	70
i+    set_style_pars (cfmt.strict1);	Err	vernunftzentrum.de	70
i+  else	Err	vernunftzentrum.de	70
i+    set_style_pars (cfmt.strict2);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  set_poslist ();	Err	vernunftzentrum.de	70
i+  set_xpwid ();	Err	vernunftzentrum.de	70
i+  set_spaces ();	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* loop over pieces to output */	Err	vernunftzentrum.de	70
i+  ip1=xp[XP_START].next;	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    mline++;	Err	vernunftzentrum.de	70
i+    ip1=contract_keysigs (ip1);  	Err	vernunftzentrum.de	70
i+    wid0=0;	Err	vernunftzentrum.de	70
i+    for (ivc=0;ivc<nvoice;ivc++) {	Err	vernunftzentrum.de	70
i+      nsym_st[ivc]=set_initsyms (ivc, &widv);	Err	vernunftzentrum.de	70
i+      if (widv>wid0) wid0=widv;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    indent = (do_indent==1) ? cfmt.indent : 0.0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    ip2=select_piece (ip1);	Err	vernunftzentrum.de	70
i+    ip2=check_overflow (ip1,ip2,lwidth/lscale-wid0-indent);	Err	vernunftzentrum.de	70
i+    if (verbose>5) printf ("output posits %d to %d\n",ip1,ip2-1);	Err	vernunftzentrum.de	70
i+    realwidth=set_glue (ip1,ip2,lwidth/lscale-wid0-indent);	Err	vernunftzentrum.de	70
i+    check_bars1 (ip1,ip2);	Err	vernunftzentrum.de	70
i+    check_bars2 (ip1,ip2);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    spa1=spa2=cfmt.staffsep;	Err	vernunftzentrum.de	70
i+    if (mvoice>1) {	Err	vernunftzentrum.de	70
i+      spa1=cfmt.systemsep;	Err	vernunftzentrum.de	70
i+      spa2=cfmt.sysstaffsep;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    hsys=0;	Err	vernunftzentrum.de	70
i+    mv=0;	Err	vernunftzentrum.de	70
i+    for (ivc=0;ivc<nvoice;ivc++) {	Err	vernunftzentrum.de	70
i+      if (voice[ivc].draw) {	Err	vernunftzentrum.de	70
i+        mv++;	Err	vernunftzentrum.de	70
i+        nsym=copy_vsyms (ivc,ip1,ip2,wid0);	Err	vernunftzentrum.de	70
i+        PUT2("\n%% --- ln %d vc %d \n", mline,ivc+1)   	Err	vernunftzentrum.de	70
i+        if (mv==1) bskip(lscale*(0.5*spa1+24.0));	Err	vernunftzentrum.de	70
i+        else       bskip(lscale*(0.5*spa2+24.0));	Err	vernunftzentrum.de	70
i+        PUT3("gsave %.3f %.3f scale %.2f setlinewidth\n",  	Err	vernunftzentrum.de	70
i+             lscale, lscale, BASEWIDTH) 	Err	vernunftzentrum.de	70
i+        if (do_indent) PUT1(" %.2f 0 T ",indent) 	Err	vernunftzentrum.de	70
i+        staffwidth=realwidth+wid0;	Err	vernunftzentrum.de	70
i+        PUT1("%.2f staff\n", staffwidth) 	Err	vernunftzentrum.de	70
i+        htab[ivc]=hsys;	Err	vernunftzentrum.de	70
i+        spax=spa2+voice[ivc].sep;	Err	vernunftzentrum.de	70
i+        if (voice[ivc].sep>1000.0) spax=voice[ivc].sep-2000.0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+        is_top=is_topvc(ivc);	Err	vernunftzentrum.de	70
i+        draw_symbols (fp,0.5*spa2+spax-spa2,&bpos,is_top); 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+        if (mv==mvoice) mstave_deco (fp,ip1,ip2,wid0,hsys,htab);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+        PUT0("grestore\n")  	Err	vernunftzentrum.de	70
i+        bskip(-lscale*bpos);  	Err	vernunftzentrum.de	70
i+        hsys=hsys+0.5*spa2+24.0-bpos;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    extra=-bpos-0.5*spa2;	Err	vernunftzentrum.de	70
i+    if (mvoice>1) bskip(lscale*(spa1+bpos-0.5*spa1+extra));	Err	vernunftzentrum.de	70
i+    buffer_eob (fp); 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    do_meter=do_indent=0;	Err	vernunftzentrum.de	70
i+    ip1=ip2;	Err	vernunftzentrum.de	70
i+    if (ip1==XP_END) break;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* set things to continue parsing */	Err	vernunftzentrum.de	70
i+  for (ivc=0;ivc<nvoice;ivc++) {	Err	vernunftzentrum.de	70
i+    voice[ivc].nsym=0;	Err	vernunftzentrum.de	70
i+    voice[ivc].meter0 = voice[ivc].meter = voice[ivc].meter1;	Err	vernunftzentrum.de	70
i+    voice[ivc].key0   = voice[ivc].key   = voice[ivc].key1;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  init_parse_params ();	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- process_textblock ----- */	Err	vernunftzentrum.de	70
i+void process_textblock(fpin,fp,job)	Err	vernunftzentrum.de	70
i+FILE *fp,*fpin;	Err	vernunftzentrum.de	70
i+int  job;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char w1[81],ln[BSIZE],ln1[BSIZE];	Err	vernunftzentrum.de	70
i+  float lwidth,baseskip,parskip;	Err	vernunftzentrum.de	70
i+  int i,ll,add_final_nl;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  baseskip = cfmt.textfont.size * cfmt.lineskipfac;	Err	vernunftzentrum.de	70
i+  parskip  = cfmt.textfont.size * cfmt.parskipfac;	Err	vernunftzentrum.de	70
i+  add_final_nl=0;	Err	vernunftzentrum.de	70
i+  if (job==OBEYLINES) add_final_nl=1;	Err	vernunftzentrum.de	70
i+  lwidth=cfmt.staffwidth;	Err	vernunftzentrum.de	70
i+  output_music (fp); 	Err	vernunftzentrum.de	70
i+  buffer_eob (fp); 	Err	vernunftzentrum.de	70
i+  set_font (fp, cfmt.textfont, 0);	Err	vernunftzentrum.de	70
i+  ntxt=0;	Err	vernunftzentrum.de	70
i+  for (i=0;i<100;i++) {	Err	vernunftzentrum.de	70
i+    if (feof(fpin)) rx("EOF reached scanning text block","");	Err	vernunftzentrum.de	70
i+    strcpy (ln, "");	Err	vernunftzentrum.de	70
i+    getline(ln, BSIZE, fpin);	Err	vernunftzentrum.de	70
i+    ll=strlen(ln);	Err	vernunftzentrum.de	70
i+    linenum++;	Err	vernunftzentrum.de	70
i+    if ((verbose>=5) || (vb>=10) ) printf ("%3d  %s \n", linenum, ln);	Err	vernunftzentrum.de	70
i+    if ((ln[0]=='%') && (ln[1]=='%')) {	Err	vernunftzentrum.de	70
i+      strcpy(ln1,ln+2);	Err	vernunftzentrum.de	70
i+      strcpy(ln,ln1);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    strcpy(w1,"");	Err	vernunftzentrum.de	70
i+    sscanf(ln,"%s",w1);	Err	vernunftzentrum.de	70
i+    if (!strcmp(w1,"endtext")) break;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (job!=SKIP) {	Err	vernunftzentrum.de	70
i+      if (isblank(ln)) {	Err	vernunftzentrum.de	70
i+        write_text_block (fp,job);	Err	vernunftzentrum.de	70
i+        ntxt=0;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else {	Err	vernunftzentrum.de	70
i+        add_to_text_block (ln,add_final_nl);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  if (job!=SKIP) write_text_block (fp,job);	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- process_pscomment  ----- */	Err	vernunftzentrum.de	70
i+void process_pscomment (fpin,fp,line)	Err	vernunftzentrum.de	70
i+FILE *fp,*fpin;	Err	vernunftzentrum.de	70
i+char line[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char w[81],fstr[81],unum1[41],unum2[41],unum3[41];	Err	vernunftzentrum.de	70
i+  float h1,h2,len,lwidth;	Err	vernunftzentrum.de	70
i+  int i,nch,job;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  lwidth=cfmt.staffwidth;	Err	vernunftzentrum.de	70
i+  line[0]=' ';	Err	vernunftzentrum.de	70
i+  line[1]=' ';	Err	vernunftzentrum.de	70
i+  for (i=0;i<strlen(line);i++) if (line[i]=='%') line[i]='\0';	Err	vernunftzentrum.de	70
i+  strcpy(w," ");	Err	vernunftzentrum.de	70
i+  sscanf(line,"%s%n", w, &nch);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (!strcmp(w,"begintext")) {	Err	vernunftzentrum.de	70
i+    if (epsf && !within_block) return;	Err	vernunftzentrum.de	70
i+    strcpy(fstr,"");	Err	vernunftzentrum.de	70
i+    sscanf(line, "%*s %s", fstr);	Err	vernunftzentrum.de	70
i+    if (isblank(fstr)) strcpy(fstr,"obeylines");	Err	vernunftzentrum.de	70
i+    if      (!strcmp(fstr,"obeylines")) job=OBEYLINES;	Err	vernunftzentrum.de	70
i+    else if (!strcmp(fstr,"align"))     job=ALIGN;	Err	vernunftzentrum.de	70
i+    else if (!strcmp(fstr,"skip"))      job=SKIP;	Err	vernunftzentrum.de	70
i+    else if (!strcmp(fstr,"ragged"))    job=RAGGED;	Err	vernunftzentrum.de	70
i+    else rx("bad argument for begintext: ",fstr);	Err	vernunftzentrum.de	70
i+    if (within_block && !do_this_tune) job=SKIP;	Err	vernunftzentrum.de	70
i+    process_textblock (fpin,fp,job);	Err	vernunftzentrum.de	70
i+    return;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (!strcmp(w,"text") || !strcmp(w,"center")) {	Err	vernunftzentrum.de	70
i+    if (epsf && !within_block) return;	Err	vernunftzentrum.de	70
i+    if (within_block && !do_this_tune) return;	Err	vernunftzentrum.de	70
i+    output_music (fp); 	Err	vernunftzentrum.de	70
i+    set_font (fp, cfmt.textfont, 0);	Err	vernunftzentrum.de	70
i+    ntxt=0;	Err	vernunftzentrum.de	70
i+    add_to_text_block (line+nch+1,1);	Err	vernunftzentrum.de	70
i+    if (!strcmp(w,"text"))	Err	vernunftzentrum.de	70
i+      write_text_block (fp,OBEYLINES);	Err	vernunftzentrum.de	70
i+    else	Err	vernunftzentrum.de	70
i+      write_text_block (fp,OBEYCENTER);	Err	vernunftzentrum.de	70
i+    buffer_eob (fp); 	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"sep")) {	Err	vernunftzentrum.de	70
i+    if (within_block && !do_this_tune) return;	Err	vernunftzentrum.de	70
i+    output_music (fp); 	Err	vernunftzentrum.de	70
i+    strcpy(unum1,"");	Err	vernunftzentrum.de	70
i+    strcpy(unum2,"");	Err	vernunftzentrum.de	70
i+    strcpy(unum3,"");	Err	vernunftzentrum.de	70
i+    sscanf(line,"%*s %s %s %s", unum1,unum2,unum3);	Err	vernunftzentrum.de	70
i+    g_unum(unum1,unum1,&h1);	Err	vernunftzentrum.de	70
i+    g_unum(unum2,unum2,&h2);	Err	vernunftzentrum.de	70
i+    g_unum(unum3,unum3,&len);	Err	vernunftzentrum.de	70
i+    if (h1*h1<0.00001) h1=0.5*CM;	Err	vernunftzentrum.de	70
i+    if (h2*h2<0.00001) h2=h1;	Err	vernunftzentrum.de	70
i+    if (len*len<0.0001) len=3.0*CM;	Err	vernunftzentrum.de	70
i+    bskip (h1);	Err	vernunftzentrum.de	70
i+    PUT2("%.1f %.1f sep0\n", lwidth/2-len/2, lwidth/2+len/2);	Err	vernunftzentrum.de	70
i+    bskip (h2);	Err	vernunftzentrum.de	70
i+    buffer_eob (fp); 	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"vskip")) {	Err	vernunftzentrum.de	70
i+    if (within_block && !do_this_tune) return;	Err	vernunftzentrum.de	70
i+    output_music (fp); 	Err	vernunftzentrum.de	70
i+    strcpy(unum1,"");	Err	vernunftzentrum.de	70
i+    sscanf(line,"%*s %s", unum1);	Err	vernunftzentrum.de	70
i+    g_unum(unum1,unum1,&h1);	Err	vernunftzentrum.de	70
i+    if (h1*h1<0.00001) h1=0.5*CM;	Err	vernunftzentrum.de	70
i+    bskip (h1);	Err	vernunftzentrum.de	70
i+    buffer_eob (fp); 	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  else if (!strcmp(w,"newpage")) {	Err	vernunftzentrum.de	70
i+    if (within_block && !do_this_tune) return;	Err	vernunftzentrum.de	70
i+    output_music (fp); 	Err	vernunftzentrum.de	70
i+    write_buffer (fp);	Err	vernunftzentrum.de	70
i+    use_buffer=0; 	Err	vernunftzentrum.de	70
i+    write_pagebreak (fp);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  else  {	Err	vernunftzentrum.de	70
i+    if (within_block) {	Err	vernunftzentrum.de	70
i+      interpret_format_line (line,&cfmt);	Err	vernunftzentrum.de	70
i+      ops_into_fmt (&cfmt);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      interpret_format_line (line,&dfmt);	Err	vernunftzentrum.de	70
i+      ops_into_fmt (&dfmt);	Err	vernunftzentrum.de	70
i+      cfmt=dfmt;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}   	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- check_selected ----- */	Err	vernunftzentrum.de	70
i+void check_selected(fp,xref_str,npat,pat,sel_all,search_field)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+int npat,sel_all,search_field;	Err	vernunftzentrum.de	70
i+char xref_str[],pat[][STRL1];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (!do_this_tune) {	Err	vernunftzentrum.de	70
i+    if (is_selected(xref_str,npat,pat,sel_all,search_field)) {	Err	vernunftzentrum.de	70
i+      do_this_tune=1;	Err	vernunftzentrum.de	70
i+      verbose=vb;	Err	vernunftzentrum.de	70
i+      clear_buffer ();	Err	vernunftzentrum.de	70
i+/*    set to 0 to permit staff breaks in a tune */	Err	vernunftzentrum.de	70
i+      use_buffer=1;	Err	vernunftzentrum.de	70
i+      write_tunetop(fp);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- process_header: call at end of header ----- */	Err	vernunftzentrum.de	70
i+void process_header (fp,xref_str,npat,pat,sel_all,search_field)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+int npat,sel_all,search_field;	Err	vernunftzentrum.de	70
i+char xref_str[],pat[][STRL1];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if ((vb>15) || ((verbose>10)&&within_block)) 	Err	vernunftzentrum.de	70
i+    printf ("End of header.. process header data\n"); 	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  check_selected(fp,xref_str,npat,pat,sel_all,search_field);	Err	vernunftzentrum.de	70
i+  if (do_this_tune) {	Err	vernunftzentrum.de	70
i+    tunenum++;	Err	vernunftzentrum.de	70
i+    if (verbose>=3) 	Err	vernunftzentrum.de	70
i+      printf ("---- start %d (%s) ----\n", xrefnum, info.title);	Err	vernunftzentrum.de	70
i+    fflush (stdout);	Err	vernunftzentrum.de	70
i+    set_keysig (info.key,  &default_key, 1);	Err	vernunftzentrum.de	70
i+    halftones=get_halftones (default_key, transpose);	Err	vernunftzentrum.de	70
i+    set_transtab (halftones,&default_key);	Err	vernunftzentrum.de	70
i+    set_meter  (info.meter,&default_meter);	Err	vernunftzentrum.de	70
i+    set_dlen   (info.len,  &default_meter);	Err	vernunftzentrum.de	70
i+    check_margin (cfmt.leftmargin);	Err	vernunftzentrum.de	70
i+    write_heading (fp); 	Err	vernunftzentrum.de	70
i+    nvoice=0;	Err	vernunftzentrum.de	70
i+    init_parse_params ();	Err	vernunftzentrum.de	70
i+    default_meter.insert=1;	Err	vernunftzentrum.de	70
i+    mline=0;	Err	vernunftzentrum.de	70
i+    do_indent=do_meter=1;	Err	vernunftzentrum.de	70
i+    barinit=1;	Err	vernunftzentrum.de	70
i+    writenum=0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  within_tune=1;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- close_tune ----- */	Err	vernunftzentrum.de	70
i+void close_tune (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char fnm[81],finf[MAXINF];	Err	vernunftzentrum.de	70
i+  FILE *feps;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (do_this_tune) {	Err	vernunftzentrum.de	70
i+    output_music (fp); 	Err	vernunftzentrum.de	70
i+    put_words (fp);	Err	vernunftzentrum.de	70
i+    if (cfmt.writehistory) put_history (fp);	Err	vernunftzentrum.de	70
i+    if (epsf) {	Err	vernunftzentrum.de	70
i+      close_output_file ();	Err	vernunftzentrum.de	70
i+      if (choose_outname) {	Err	vernunftzentrum.de	70
i+        epsf_title (info.title, fnm);	Err	vernunftzentrum.de	70
i+        strcat (fnm,".eps");	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else {	Err	vernunftzentrum.de	70
i+        nepsf++;	Err	vernunftzentrum.de	70
i+        sprintf (fnm, "%s%03d.eps", outf, nepsf);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      sprintf (finf, "%s (%d)", in_file[0], xrefnum); 	Err	vernunftzentrum.de	70
i+      if ((feps = fopen (fnm,"w")) == NULL) 	Err	vernunftzentrum.de	70
i+        rx ("Cannot open output file ", fnm);	Err	vernunftzentrum.de	70
i+      init_ps (feps, finf, 1,	Err	vernunftzentrum.de	70
i+               cfmt.leftmargin-5, posy+bposy-5, 	Err	vernunftzentrum.de	70
i+               cfmt.leftmargin+cfmt.staffwidth+5, 	Err	vernunftzentrum.de	70
i+               cfmt.pageheight-cfmt.topmargin);	Err	vernunftzentrum.de	70
i+      init_epsf (feps);	Err	vernunftzentrum.de	70
i+      write_buffer (feps); 	Err	vernunftzentrum.de	70
i+      printf ("\n[%s] %s", fnm, info.title);	Err	vernunftzentrum.de	70
i+      close_epsf (feps);	Err	vernunftzentrum.de	70
i+      fclose (feps);	Err	vernunftzentrum.de	70
i+      in_page=0;	Err	vernunftzentrum.de	70
i+      init_pdims ();	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      buffer_eob (fp);	Err	vernunftzentrum.de	70
i+      write_buffer (fp); 	Err	vernunftzentrum.de	70
i+      if ((verbose==0) && (tunenum%10==0)) printf (".");	Err	vernunftzentrum.de	70
i+      if (verbose==2) printf ("%s - ", info.title);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    verbose=0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  info=default_info;	Err	vernunftzentrum.de	70
i+  within_tune=within_block=do_this_tune=0;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- process_line ----- */	Err	vernunftzentrum.de	70
i+void process_line (fp,type,xref_str,npat,pat,sel_all,search_field)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+int type,npat,sel_all,search_field;	Err	vernunftzentrum.de	70
i+char xref_str[],pat[][STRL1];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if ((vb>15) || ((verbose>10)&&within_block)) { 	Err	vernunftzentrum.de	70
i+    printf ("process_line, type %d ", type); 	Err	vernunftzentrum.de	70
i+    print_linetype(type); 	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  switch (type) {	Err	vernunftzentrum.de	70
i+        	Err	vernunftzentrum.de	70
i+  case XREF:                       /* start of new block */	Err	vernunftzentrum.de	70
i+    if (!epsf) write_buffer (fp);    /* flush stuff left from %% lines */	Err	vernunftzentrum.de	70
i+    if (within_block) printf ("\n+++ Last tune not closed properly\n");	Err	vernunftzentrum.de	70
i+    get_default_info ();	Err	vernunftzentrum.de	70
i+    within_block  = 1;	Err	vernunftzentrum.de	70
i+    within_tune   = 0;	Err	vernunftzentrum.de	70
i+    do_this_tune  = 0;	Err	vernunftzentrum.de	70
i+    numtitle=0;	Err	vernunftzentrum.de	70
i+    ntext=0;	Err	vernunftzentrum.de	70
i+    init_pdims();	Err	vernunftzentrum.de	70
i+    cfmt=dfmt;	Err	vernunftzentrum.de	70
i+    break;	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+  case TITLE:    	Err	vernunftzentrum.de	70
i+    if (!within_block) break;	Err	vernunftzentrum.de	70
i+    if (within_tune) {             /* title within tune */	Err	vernunftzentrum.de	70
i+      if (do_this_tune ) {       	Err	vernunftzentrum.de	70
i+        output_music (fp); 	Err	vernunftzentrum.de	70
i+        write_inside_title (fp);	Err	vernunftzentrum.de	70
i+        do_meter=do_indent=1;	Err	vernunftzentrum.de	70
i+        barinit=1;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else 	Err	vernunftzentrum.de	70
i+      check_selected(fp,xref_str,npat,pat,sel_all,search_field);	Err	vernunftzentrum.de	70
i+    break;	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+  case TEMPO:    	Err	vernunftzentrum.de	70
i+    if (!within_block) break;	Err	vernunftzentrum.de	70
i+    if (within_tune) {             /* tempo within tune */	Err	vernunftzentrum.de	70
i+      if (do_this_tune ) {       	Err	vernunftzentrum.de	70
i+        output_music (fp); 	Err	vernunftzentrum.de	70
i+        write_inside_tempo(fp);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else 	Err	vernunftzentrum.de	70
i+      check_selected(fp,xref_str,npat,pat,sel_all,search_field);	Err	vernunftzentrum.de	70
i+    break;	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+  case KEY:                        	Err	vernunftzentrum.de	70
i+    if (!within_block) break;	Err	vernunftzentrum.de	70
i+    if (within_tune) {  	Err	vernunftzentrum.de	70
i+      if (do_this_tune) handle_inside_field(type);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else {                         /* end of header.. start now */	Err	vernunftzentrum.de	70
i+/*|       process_header (fp,xref_str,npat,pat,sel_all,search_field); |*/	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    break;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  case METER:                      	Err	vernunftzentrum.de	70
i+    if (!within_block) break;	Err	vernunftzentrum.de	70
i+    if (do_this_tune && within_tune) handle_inside_field(type);	Err	vernunftzentrum.de	70
i+    break;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  case DLEN:                      	Err	vernunftzentrum.de	70
i+    if (!within_block) break;	Err	vernunftzentrum.de	70
i+    if (do_this_tune && within_tune) handle_inside_field(type);	Err	vernunftzentrum.de	70
i+    break;	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+  case PARTS:	Err	vernunftzentrum.de	70
i+    if (!within_block) break;	Err	vernunftzentrum.de	70
i+    if (do_this_tune && within_tune) {	Err	vernunftzentrum.de	70
i+      output_music (fp); 	Err	vernunftzentrum.de	70
i+      write_parts(fp); 	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    break;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  case VOICE:         	Err	vernunftzentrum.de	70
i+    if (do_this_tune && within_block) {	Err	vernunftzentrum.de	70
i+      if (!within_tune)	Err	vernunftzentrum.de	70
i+        printf ("+++ Voice field not allowed in header: V:%s\n", lvoiceid);	Err	vernunftzentrum.de	70
i+      else	Err	vernunftzentrum.de	70
i+        ivc=switch_voice (lvoiceid);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    break;	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- process_file ----- */	Err	vernunftzentrum.de	70
i+void process_file (fpin,fpout,xref_str,npat,pat,sel_all,search_field)	Err	vernunftzentrum.de	70
i+FILE *fpin,*fpout;	Err	vernunftzentrum.de	70
i+int npat,sel_all,search_field;	Err	vernunftzentrum.de	70
i+char xref_str[],pat[][STRL1];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char line[BSIZE];	Err	vernunftzentrum.de	70
i+  int type,nsym0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  within_tune=within_block=do_this_tune=0;	Err	vernunftzentrum.de	70
i+  linenum=0;	Err	vernunftzentrum.de	70
i+  numtitle=0;	Err	vernunftzentrum.de	70
i+  reset_info (&default_info);	Err	vernunftzentrum.de	70
i+  info=default_info;	Err	vernunftzentrum.de	70
i+  verbose=0;	Err	vernunftzentrum.de	70
i+  if (vb>=20) db=3;	Err	vernunftzentrum.de	70
i+  if (vb>=25) db=5;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  type=read_line (fpin,line);            	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    /* header is completed at first MUSIC or VOICE line */	Err	vernunftzentrum.de	70
i+    if ((type==MUSIC) || (type==VOICE)) {	Err	vernunftzentrum.de	70
i+      if (within_block && !within_tune) 	Err	vernunftzentrum.de	70
i+        process_header (fpout,xref_str,npat,pat,sel_all,search_field); 	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    /* tune terminates at BLANK or EOF */	Err	vernunftzentrum.de	70
i+    if ((type==BLANK) || (type==E_O_F)) close_tune (fpout);	Err	vernunftzentrum.de	70
i+    if (type==E_O_F) break;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (type==PSCOMMENT) process_pscomment(fpin,fpout,line);	Err	vernunftzentrum.de	70
i+    if ((type==MUSIC) && do_this_tune) parse_music_line (line);	Err	vernunftzentrum.de	70
i+    process_line (fpout,type,xref_str,npat,pat,sel_all,search_field);	Err	vernunftzentrum.de	70
i+    type=read_line (fpin,line);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  if (!epsf) {	Err	vernunftzentrum.de	70
i+    buffer_eob (fpout);	Err	vernunftzentrum.de	70
i+    write_buffer (fpout); 	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
1diff --git a/newfeatures.abc b/newfeatures.abc	/ckeen/repos/abc2ps/file/newfeatures.abc.gph	vernunftzentrum.de	70
i@@ -0,0 +1,121 @@	Err	vernunftzentrum.de	70
i+%%textfont Helvetica-Bold 16	Err	vernunftzentrum.de	70
i+%%center Examples for new features in abc2ps-1.2.5	Err	vernunftzentrum.de	70
i+%%textfont * 12	Err	vernunftzentrum.de	70
i+%%center Oct. 5 1997	Err	vernunftzentrum.de	70
i+%%textfont Times-Roman 12	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:1	Err	vernunftzentrum.de	70
i+T:Scale with Treble Clef	Err	vernunftzentrum.de	70
i+M:C	Err	vernunftzentrum.de	70
i+K:C 	Err	vernunftzentrum.de	70
i+L: 1/4	Err	vernunftzentrum.de	70
i+ "C,"C,"D,"D,"E,"E,"F,"F,  "G,"G,"A,"A,"B,"B,\	Err	vernunftzentrum.de	70
i+| "C"C"D"D"E"E"F"F  "G"G"A"A"B"B| "c"c "d"d"e"e"f"f  "g"g"a"a"b"b"c'"c' |	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:2	Err	vernunftzentrum.de	70
i+T:Scale with Bass and Alto Clef	Err	vernunftzentrum.de	70
i+M:C	Err	vernunftzentrum.de	70
i+K:C bass	Err	vernunftzentrum.de	70
i+L: 1/4	Err	vernunftzentrum.de	70
i+P:Bass	Err	vernunftzentrum.de	70
i+ "C,"C,"D,"D,"E,"E,"F,"F,  "G,"G,"A,"A,"B,"B,\	Err	vernunftzentrum.de	70
i+| "C"C"D"D"E"E"F"F  "G"G"A"A"B"B| "c"c "d"d"e"e"f"f  "g"g"a"a"b"b"c'"c' |	Err	vernunftzentrum.de	70
i+P:Alto	Err	vernunftzentrum.de	70
i+K:C alto	Err	vernunftzentrum.de	70
i+ "C,"C,"D,"D,"E,"E,"F,"F,  "G,"G,"A,"A,"B,"B,\	Err	vernunftzentrum.de	70
i+| "C"C"D"D"E"E"F"F  "G"G"A"A"B"B| "c"c "d"d"e"e"f"f  "g"g"a"a"b"b"c'"c' |	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:3	Err	vernunftzentrum.de	70
i+T:Clef Changes Within Tune	Err	vernunftzentrum.de	70
i+T:In-Line Info Fields by [..]	Err	vernunftzentrum.de	70
i+%%begintext align	Err	vernunftzentrum.de	70
i+Here is an example for a block of text which is associated with a specific 	Err	vernunftzentrum.de	70
i+tune. It will only be printed if this tune (number 3) is selected.	Err	vernunftzentrum.de	70
i+The text should be placed after the "T:" field and before the	Err	vernunftzentrum.de	70
i+block is terminated by a blank line.	Err	vernunftzentrum.de	70
i+Text which is outside a block is 	Err	vernunftzentrum.de	70
i+always printed; for example, the title at the top of the page.	Err	vernunftzentrum.de	70
i+%%endtext	Err	vernunftzentrum.de	70
i+M:C	Err	vernunftzentrum.de	70
i+L: 1/8	Err	vernunftzentrum.de	70
i+K:C	Err	vernunftzentrum.de	70
i+cdef gabc' [K:bass] | cdef gabc' [K:D treble] | cdef gabc' |  	Err	vernunftzentrum.de	70
i+%%sep	Err	vernunftzentrum.de	70
i+%%text Note: this line and the separator above are also associated with this tune. 	Err	vernunftzentrum.de	70
i+ 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:4	Err	vernunftzentrum.de	70
i+T:Vocals	Err	vernunftzentrum.de	70
i+T:Note also the trill	Err	vernunftzentrum.de	70
i+C:Music: Trad.	Err	vernunftzentrum.de	70
i+C:Text: Anonymous	Err	vernunftzentrum.de	70
i+M:C	Err	vernunftzentrum.de	70
i+K:C	Err	vernunftzentrum.de	70
i+L: 1/4	Err	vernunftzentrum.de	70
i+e>e ez || edTc2 | ed(c2 | e2 c2- | Hc4) |]	Err	vernunftzentrum.de	70
i+w: *** 1.~~Three blind mice, three blind mice.__	Err	vernunftzentrum.de	70
i+w: *** 2.~~See how~they run, see how~they ru-uuu-un._	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:6	Err	vernunftzentrum.de	70
i+T:Invisible Rests Using X	Err	vernunftzentrum.de	70
i+M:C	Err	vernunftzentrum.de	70
i+K:C	Err	vernunftzentrum.de	70
i+L: 1/4	Err	vernunftzentrum.de	70
i+"F"z4|"F"z4|"F"z4|"F"z4|"Bb"z4|"Bb"z4|"F"z4|"F"z4|"C"z4|"Bb"z4|"F"z4|"F"z4||	Err	vernunftzentrum.de	70
i+"F"x4|"F"x4|"F"x4|"F"x4|"Bb"x4|"Bb"x4|"F"x4|"F"x4|"C"x4|"Bb"x4|"F"x4|"F"x4||	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+%%leftmargin 3cm	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:5	Err	vernunftzentrum.de	70
i+T:Scotland The Brave	Err	vernunftzentrum.de	70
i+T:Demonstrating the Bagpipe Mode and Output Formatting	Err	vernunftzentrum.de	70
i+%%titleleft	Err	vernunftzentrum.de	70
i+%%titlefont Helvetica-Bold 18	Err	vernunftzentrum.de	70
i+%%subtitlefont Helvetica-Bold 12	Err	vernunftzentrum.de	70
i+%%composerspace 0.4cm	Err	vernunftzentrum.de	70
i+%%composerfont Helvetica 10	Err	vernunftzentrum.de	70
i+%%staffwidth 5.5in	Err	vernunftzentrum.de	70
i+%%scale 0.75	Err	vernunftzentrum.de	70
i+%%staffsep 55	Err	vernunftzentrum.de	70
i+C:Trad.	Err	vernunftzentrum.de	70
i+C:from PS file by Alan S. Watt	Err	vernunftzentrum.de	70
i+P:March	Err	vernunftzentrum.de	70
i+L:1/8	Err	vernunftzentrum.de	70
i+M:4/4	Err	vernunftzentrum.de	70
i+K:HP	Err	vernunftzentrum.de	70
i+e|{g}A2 {GdGe}A>B {gcd}c{e}A {gcd}ce| {ag}a2{g}a2 {GdG}ae {gcd}c{e}A|	Err	vernunftzentrum.de	70
i+   {Gdc}d2 {g}f>d {gcd}ce {gcd}c{e}A|{GdG}B2{gef}e2{A}e>f {g}e/>d/{g}c/>B/|	Err	vernunftzentrum.de	70
i+{g}A2 {GdGe}A>B {gcd}c{e}A {gcd}ce| {ag}a2{g}a2 {GdG}ae {gcd}c{e}A|	Err	vernunftzentrum.de	70
i+   {Gdc}d2 {g}f>d {gcd}ce {gcd}c{e}A|{GdG}B2{g}A>B {G}A2 {gcd}ce||	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+%%vskip 1cm	Err	vernunftzentrum.de	70
i+%%textfont Times-Roman 12	Err	vernunftzentrum.de	70
i+%%begintext	Err	vernunftzentrum.de	70
i+Summary of changes:	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+- Bass and alto clefs.	Err	vernunftzentrum.de	70
i+- Vocals.	Err	vernunftzentrum.de	70
i+- Double-backslash in music makes staff break.	Err	vernunftzentrum.de	70
i+- In-line info fields can be coded using [...].	Err	vernunftzentrum.de	70
i+- Subtitles now printed without "or:".	Err	vernunftzentrum.de	70
i+- Can be more than one composer field.	Err	vernunftzentrum.de	70
i+- Predefined formats: standard, pretty, pretty2 (flag -p, -P).	Err	vernunftzentrum.de	70
i+- Format page layout by .fmt file selected with flag -F.	Err	vernunftzentrum.de	70
i+- Format page layout by %%-pseudocomments in abc file.	Err	vernunftzentrum.de	70
i+- Other pseudocomments: %%sep, %%vskip, %%newpage.	Err	vernunftzentrum.de	70
i+- Text output using %%text, %%center, and %%begintext .. %%endtext.	Err	vernunftzentrum.de	70
i+- "X" functions like a rest but is invisible on the page.	Err	vernunftzentrum.de	70
i+- Bagpipe mode for K:HP.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+%%endtext	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
1diff --git a/parse.h b/parse.h	/ckeen/repos/abc2ps/file/parse.h.gph	vernunftzentrum.de	70
i@@ -0,0 +1,2460 @@	Err	vernunftzentrum.de	70
i+/*  	Err	vernunftzentrum.de	70
i+ *  This file is part of abc2ps, 	Err	vernunftzentrum.de	70
i+ *  Copyright (C) 1996,1997,1998  Michael Methfessel	Err	vernunftzentrum.de	70
i+ *  See file abc2ps.c for details.	Err	vernunftzentrum.de	70
i+ */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*  subroutines connected with parsing the input file  */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- sytax: print message for syntax errror -------- */	Err	vernunftzentrum.de	70
i+void syntax (msg, q)	Err	vernunftzentrum.de	70
i+char msg[];	Err	vernunftzentrum.de	70
i+char *q;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,n,len,m1,m2,pp,qq,maxcol=65;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (verbose<=2) printf ("\n");  	Err	vernunftzentrum.de	70
i+  qq=q-p0+1;	Err	vernunftzentrum.de	70
i+  if (qq<0) qq=0;	Err	vernunftzentrum.de	70
i+  printf ("+++ %s in line %d.%d \n", msg, linenum, qq);	Err	vernunftzentrum.de	70
i+  m1=0;	Err	vernunftzentrum.de	70
i+  m2=len=strlen(p0);	Err	vernunftzentrum.de	70
i+  n=q-p0;	Err	vernunftzentrum.de	70
i+  if (m2>maxcol) {	Err	vernunftzentrum.de	70
i+    if (n<maxcol) 	Err	vernunftzentrum.de	70
i+      m2=maxcol;	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      m1=n-10;	Err	vernunftzentrum.de	70
i+      m2=m1+maxcol;	Err	vernunftzentrum.de	70
i+      if (m2>len) m2=len;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  printf ("%4d ", linenum);	Err	vernunftzentrum.de	70
i+  pp=5;	Err	vernunftzentrum.de	70
i+  if (m1>0) { printf ("..."); pp+=3; }	Err	vernunftzentrum.de	70
i+  for (i=m1;i<m2;i++) printf ("%c", p0[i]);	Err	vernunftzentrum.de	70
i+  if (m2<len) printf ("...");	Err	vernunftzentrum.de	70
i+  printf ("\n"); 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (n>=0 && n<200) {	Err	vernunftzentrum.de	70
i+    for (i=0;i<n+pp-m1;i++) printf(" ");	Err	vernunftzentrum.de	70
i+    printf ("^\n"); 	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- isnote: checks char for valid note symbol ----- */	Err	vernunftzentrum.de	70
i+int isnote (c)	Err	vernunftzentrum.de	70
i+char c;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  if (c == '\0') return 0;	Err	vernunftzentrum.de	70
i+  if (strchr("CDEFGABcdefgab^=_",c)) return 1;	Err	vernunftzentrum.de	70
i+  return 0;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- zero_sym: init global zero SYMBOL struct ----- */	Err	vernunftzentrum.de	70
i+void zero_sym ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int j;	Err	vernunftzentrum.de	70
i+  zsym.type      = 0;	Err	vernunftzentrum.de	70
i+  zsym.npitch    = 0;	Err	vernunftzentrum.de	70
i+  zsym.word_st   = 0;	Err	vernunftzentrum.de	70
i+  zsym.word_end  = 0;	Err	vernunftzentrum.de	70
i+  zsym.slur_st   = 0;	Err	vernunftzentrum.de	70
i+  zsym.slur_end  = 0;	Err	vernunftzentrum.de	70
i+  zsym.len       = 0;	Err	vernunftzentrum.de	70
i+  zsym.fullmes   = 0;	Err	vernunftzentrum.de	70
i+  zsym.yadd      = 0;	Err	vernunftzentrum.de	70
i+  zsym.xs        = 0;	Err	vernunftzentrum.de	70
i+  zsym.ys        = 0;	Err	vernunftzentrum.de	70
i+  zsym.stem      = 0;	Err	vernunftzentrum.de	70
i+  zsym.eoln      = 0;	Err	vernunftzentrum.de	70
i+  zsym.ylo       = 12;	Err	vernunftzentrum.de	70
i+  zsym.yhi       = 12;	Err	vernunftzentrum.de	70
i+  zsym.u         = 0;	Err	vernunftzentrum.de	70
i+  zsym.v         = 0;	Err	vernunftzentrum.de	70
i+  zsym.w         = 0;	Err	vernunftzentrum.de	70
i+  zsym.t         = 0;	Err	vernunftzentrum.de	70
i+  zsym.q         = 0;	Err	vernunftzentrum.de	70
i+  zsym.invis     = 0;	Err	vernunftzentrum.de	70
i+  zsym.wl        = 0;	Err	vernunftzentrum.de	70
i+  zsym.wr        = 0;	Err	vernunftzentrum.de	70
i+  zsym.pr        = 0;	Err	vernunftzentrum.de	70
i+  zsym.pl        = 0;	Err	vernunftzentrum.de	70
i+  zsym.p_plet    = 0;	Err	vernunftzentrum.de	70
i+  zsym.q_plet    = 0;	Err	vernunftzentrum.de	70
i+  zsym.r_plet    = 0;	Err	vernunftzentrum.de	70
i+  zsym.gchy      = 0;	Err	vernunftzentrum.de	70
i+  zsym.gr.n      = 0;	Err	vernunftzentrum.de	70
i+  zsym.dc.n      = 0;	Err	vernunftzentrum.de	70
i+  zsym.dc.top    = 0;	Err	vernunftzentrum.de	70
i+  zsym.p         = -1;	Err	vernunftzentrum.de	70
i+  strcpy (zsym.text, "");	Err	vernunftzentrum.de	70
i+  for (j=0;j<MAXHD;j++) zsym.sl1[j]=zsym.sl2[j]=0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (j=0;j<NWLINE;j++) zsym.wordp[j] = 0;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- add_sym: returns index for new symbol at end of list ---- */	Err	vernunftzentrum.de	70
i+int add_sym (type)	Err	vernunftzentrum.de	70
i+int type;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int k;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  k=voice[ivc].nsym;	Err	vernunftzentrum.de	70
i+  if (k>=maxSyms) rxi("Too many symbols; increase maxSyms, now ",maxSyms);	Err	vernunftzentrum.de	70
i+  voice[ivc].nsym++;	Err	vernunftzentrum.de	70
i+  symv[ivc][k]=zsym;	Err	vernunftzentrum.de	70
i+  symv[ivc][k].type = type;	Err	vernunftzentrum.de	70
i+  return k;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- insert_sym: returns index for new symbol inserted at k --- */	Err	vernunftzentrum.de	70
i+int insert_sym (type,k)	Err	vernunftzentrum.de	70
i+int type,k;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,n;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  n=voice[ivc].nsym;	Err	vernunftzentrum.de	70
i+  if (n>=maxSyms) rxi("insert_sym: maxSyms exceeded: ",maxSyms);	Err	vernunftzentrum.de	70
i+  for (i=n;i>k;i--) symv[ivc][i]=symv[ivc][i-1];	Err	vernunftzentrum.de	70
i+  n++;	Err	vernunftzentrum.de	70
i+  symv[ivc][k]=zsym;	Err	vernunftzentrum.de	70
i+  symv[ivc][k].type = type;	Err	vernunftzentrum.de	70
i+  voice[ivc].nsym=n;	Err	vernunftzentrum.de	70
i+  return k;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- get_xref: get xref from string ----- */	Err	vernunftzentrum.de	70
i+int get_xref (str)	Err	vernunftzentrum.de	70
i+char str[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  int a,ok;	Err	vernunftzentrum.de	70
i+  char *q;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (strlen(str)==0) {	Err	vernunftzentrum.de	70
i+    wng ("xref string is empty", "");	Err	vernunftzentrum.de	70
i+    return 0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  q=str;	Err	vernunftzentrum.de	70
i+  ok=1;	Err	vernunftzentrum.de	70
i+  while (*q != '\0') {	Err	vernunftzentrum.de	70
i+    if (!isdig(*q)) ok=0;	Err	vernunftzentrum.de	70
i+    q++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  if (!ok) {	Err	vernunftzentrum.de	70
i+    wng ("xref string has invalid symbols: ", str);	Err	vernunftzentrum.de	70
i+    return 0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  sscanf (str, "%d", &a);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return a;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_meter: interpret meter string, store in struct ---- */	Err	vernunftzentrum.de	70
i+void set_meter (str,meter)	Err	vernunftzentrum.de	70
i+char str[];	Err	vernunftzentrum.de	70
i+struct METERSTR *meter;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  int m1,m2,m1a,m1b,m1c,d,l;	Err	vernunftzentrum.de	70
i+  char *q;	Err	vernunftzentrum.de	70
i+  int meter1,meter2,dlen,mflag,lflag;	Err	vernunftzentrum.de	70
i+  char meter_top[31];	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  l=strlen(str);	Err	vernunftzentrum.de	70
i+  if (l==0) { wng("Empty meter string", ""); return; }	Err	vernunftzentrum.de	70
i+  if (str[0]=='C') {	Err	vernunftzentrum.de	70
i+    if (str[1]=='|') {	Err	vernunftzentrum.de	70
i+      meter1=4;	Err	vernunftzentrum.de	70
i+      meter2=4;	Err	vernunftzentrum.de	70
i+      dlen=EIGHTH;	Err	vernunftzentrum.de	70
i+      mflag=2;	Err	vernunftzentrum.de	70
i+      strcpy(meter_top,"C");	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      meter1=4;	Err	vernunftzentrum.de	70
i+      meter2=4;	Err	vernunftzentrum.de	70
i+      dlen=EIGHTH;	Err	vernunftzentrum.de	70
i+      mflag=1;	Err	vernunftzentrum.de	70
i+      strcpy(meter_top,"C");	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    m1=m2=m1a=m1b=m1c=0;	Err	vernunftzentrum.de	70
i+    strcpy (meter_top, str);	Err	vernunftzentrum.de	70
i+    q=strchr(meter_top,'/');	Err	vernunftzentrum.de	70
i+    if (!q) {	Err	vernunftzentrum.de	70
i+      wng("Cannot identify meter, missing /: ", str); 	Err	vernunftzentrum.de	70
i+      m1=m2=1;	Err	vernunftzentrum.de	70
i+      return;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    *q='\0';	Err	vernunftzentrum.de	70
i+    if (strchr(meter_top,'+')) {	Err	vernunftzentrum.de	70
i+      sscanf(str,"%d+%d+%d/", &m1a, &m1b, &m1c);	Err	vernunftzentrum.de	70
i+      m1=m1a+m1b+m1c;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      sscanf(str,"%d %d %d/", &m1a, &m1b, &m1c);	Err	vernunftzentrum.de	70
i+      m1=m1a; if (m1b>m1) m1=m1b; if (m1c>m1) m1=m1c;	Err	vernunftzentrum.de	70
i+      if (m1>30) {            /* handle things like 78/8 */	Err	vernunftzentrum.de	70
i+        m1a=m1/100;	Err	vernunftzentrum.de	70
i+        m1c=m1-100*m1a;	Err	vernunftzentrum.de	70
i+        m1b=m1c/10;	Err	vernunftzentrum.de	70
i+        m1c=m1c-10*m1b;	Err	vernunftzentrum.de	70
i+        m1=m1a; if (m1b>m1) m1=m1b; if (m1c>m1) m1=m1c;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    q++;	Err	vernunftzentrum.de	70
i+    sscanf (q, "%d", &m2);	Err	vernunftzentrum.de	70
i+    if (m1*m2 == 0) wng("Cannot identify meter: ", str); 	Err	vernunftzentrum.de	70
i+    d=BASE/m2;	Err	vernunftzentrum.de	70
i+    if (d*m2 != BASE) wng("Meter not recognized: ", str);	Err	vernunftzentrum.de	70
i+    meter1=m1;	Err	vernunftzentrum.de	70
i+    meter2=m2;	Err	vernunftzentrum.de	70
i+    dlen=EIGHTH;	Err	vernunftzentrum.de	70
i+    if (4*meter1 < 3*meter2) dlen=SIXTEENTH;	Err	vernunftzentrum.de	70
i+    mflag=0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (verbose>=4) 	Err	vernunftzentrum.de	70
i+    printf ("Meter <%s> is %d over %d with default length 1/%d\n", 	Err	vernunftzentrum.de	70
i+            str, meter1, meter2, BASE/dlen);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* handle old-style change of default length */	Err	vernunftzentrum.de	70
i+  lflag=0;	Err	vernunftzentrum.de	70
i+  if (str[l-1]=='s') { dlen=dlen*2; lflag=1; }	Err	vernunftzentrum.de	70
i+  if (str[l-1]=='l') { dlen=dlen/2; lflag=-1; }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* store parsed data in struct */	Err	vernunftzentrum.de	70
i+  meter->meter1 = meter1;	Err	vernunftzentrum.de	70
i+  meter->meter2 = meter2;	Err	vernunftzentrum.de	70
i+  meter->mflag  = mflag;	Err	vernunftzentrum.de	70
i+  meter->dlen   = dlen;	Err	vernunftzentrum.de	70
i+  meter->lflag  = lflag;	Err	vernunftzentrum.de	70
i+  strcpy(meter->top, meter_top);	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_dlen: set default length for parsed notes ---- */	Err	vernunftzentrum.de	70
i+void set_dlen (str,meter)	Err	vernunftzentrum.de	70
i+char str[];	Err	vernunftzentrum.de	70
i+struct METERSTR *meter;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int l1,l2,d,dlen;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  l1=0;	Err	vernunftzentrum.de	70
i+  l2=1;	Err	vernunftzentrum.de	70
i+  sscanf(str,"%d/%d ", &l1, &l2);	Err	vernunftzentrum.de	70
i+  if (l1 == 0) return;       /* empty string.. don't change default length */	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    d=BASE/l2;	Err	vernunftzentrum.de	70
i+    if (d*l2 != BASE) {	Err	vernunftzentrum.de	70
i+      wng("Length incompatible with BASE, using 1/8: ",str);	Err	vernunftzentrum.de	70
i+      dlen=BASE/8;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else 	Err	vernunftzentrum.de	70
i+      dlen = d*l1;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  if (verbose>=4)	Err	vernunftzentrum.de	70
i+    printf ("Dlen  <%s> sets default note length to %d/%d = 1/%d\n", 	Err	vernunftzentrum.de	70
i+            str, dlen, BASE, BASE/dlen); 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  meter->dlen=dlen;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_keysig: interpret keysig string, store in struct ---- */	Err	vernunftzentrum.de	70
i+/* This part was adapted from abc2mtex by Chris Walshaw */	Err	vernunftzentrum.de	70
i+/* updated 03 Oct 1997 Wil Macaulay - support all modes */	Err	vernunftzentrum.de	70
i+/* Returns 1 if key was actually specified, because then we want	Err	vernunftzentrum.de	70
i+   to transpose. Returns zero if this is just a clef change. */	Err	vernunftzentrum.de	70
i+int set_keysig(s,ks,init)	Err	vernunftzentrum.de	70
i+char s[];	Err	vernunftzentrum.de	70
i+struct KEYSTR *ks;	Err	vernunftzentrum.de	70
i+int init;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int c,sf,j,ok;	Err	vernunftzentrum.de	70
i+  char w[81];	Err	vernunftzentrum.de	70
i+  int ktype,add_pitch,root,root_acc;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* maybe initialize with key C (used for K field in header) */	Err	vernunftzentrum.de	70
i+  if (init) {	Err	vernunftzentrum.de	70
i+    ks->sf         = 0;	Err	vernunftzentrum.de	70
i+    ks->ktype      = TREBLE;	Err	vernunftzentrum.de	70
i+    ks->add_pitch  = 0;	Err	vernunftzentrum.de	70
i+    ks->root       = 2;	Err	vernunftzentrum.de	70
i+    ks->root_acc   = A_NT;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* check for "treble" "bass" "alto" with no other information */	Err	vernunftzentrum.de	70
i+  ktype=ks->ktype;	Err	vernunftzentrum.de	70
i+  add_pitch=0;	Err	vernunftzentrum.de	70
i+  if (!strcmp(s,"bass"))   {ks->ktype=BASS;   return 0; }	Err	vernunftzentrum.de	70
i+  if (!strcmp(s,"treble")) {ks->ktype=TREBLE; return 0; }	Err	vernunftzentrum.de	70
i+  if (!strcmp(s,"alto"))   {ks->ktype=ALTO;   return 0; }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (!strcmp(s,"bass+8"))   {ks->ktype=BASS;   ks->add_pitch=8; return 0; }	Err	vernunftzentrum.de	70
i+  if (!strcmp(s,"treble+8")) {ks->ktype=TREBLE; ks->add_pitch=8; return 0; }	Err	vernunftzentrum.de	70
i+  if (!strcmp(s,"alto+8"))   {ks->ktype=ALTO;   ks->add_pitch=8; return 0; }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (!strcmp(s,"bass-8"))   {ks->ktype=BASS;   ks->add_pitch=-8; return 0; }	Err	vernunftzentrum.de	70
i+  if (!strcmp(s,"treble-8")) {ks->ktype=TREBLE; ks->add_pitch=-8; return 0; }	Err	vernunftzentrum.de	70
i+  if (!strcmp(s,"alto-8"))   {ks->ktype=ALTO;   ks->add_pitch=-8; return 0; }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  c=0;	Err	vernunftzentrum.de	70
i+  bagpipe=0;	Err	vernunftzentrum.de	70
i+  switch (s[c]) {	Err	vernunftzentrum.de	70
i+  case 'F':	Err	vernunftzentrum.de	70
i+    sf = -1; root=5;	Err	vernunftzentrum.de	70
i+    break;	Err	vernunftzentrum.de	70
i+  case 'C':	Err	vernunftzentrum.de	70
i+    sf = 0; root=2;	Err	vernunftzentrum.de	70
i+    break;	Err	vernunftzentrum.de	70
i+  case 'G':	Err	vernunftzentrum.de	70
i+    sf = 1; root=6;	Err	vernunftzentrum.de	70
i+    break;	Err	vernunftzentrum.de	70
i+  case 'D':	Err	vernunftzentrum.de	70
i+    sf = 2; root=3;	Err	vernunftzentrum.de	70
i+    break;	Err	vernunftzentrum.de	70
i+  case 'A':	Err	vernunftzentrum.de	70
i+    sf = 3; root=0;	Err	vernunftzentrum.de	70
i+    break;	Err	vernunftzentrum.de	70
i+  case 'E': 	Err	vernunftzentrum.de	70
i+    sf = 4; root=4;	Err	vernunftzentrum.de	70
i+    break;	Err	vernunftzentrum.de	70
i+  case 'B':	Err	vernunftzentrum.de	70
i+    sf = 5; root=1;	Err	vernunftzentrum.de	70
i+    break;	Err	vernunftzentrum.de	70
i+  case 'H':	Err	vernunftzentrum.de	70
i+    bagpipe=1;	Err	vernunftzentrum.de	70
i+    c++;	Err	vernunftzentrum.de	70
i+    if      (s[c] == 'P') { sf=0; root=2; }	Err	vernunftzentrum.de	70
i+    else if (s[c] == 'p') { sf=2; root=3; }	Err	vernunftzentrum.de	70
i+    else wng("unknown bagpipe-like key: ",s);	Err	vernunftzentrum.de	70
i+    break;	Err	vernunftzentrum.de	70
i+  default:	Err	vernunftzentrum.de	70
i+    wng ("Using C because key not recognised: ", s);	Err	vernunftzentrum.de	70
i+    sf = 0; root=2;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  c++;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  root_acc=A_NT;	Err	vernunftzentrum.de	70
i+  if (s[c] == '#') {	Err	vernunftzentrum.de	70
i+    sf += 7;	Err	vernunftzentrum.de	70
i+    c += 1;	Err	vernunftzentrum.de	70
i+    root_acc=A_SH;	Err	vernunftzentrum.de	70
i+  } else if (s[c] == 'b') {	Err	vernunftzentrum.de	70
i+    sf -= 7;	Err	vernunftzentrum.de	70
i+    c += 1;	Err	vernunftzentrum.de	70
i+    root_acc=A_FT;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* loop over blank-delimited words: get the next token in lower case */	Err	vernunftzentrum.de	70
i+  for (;;) { 	Err	vernunftzentrum.de	70
i+    while (s[c] == ' ') c++;	Err	vernunftzentrum.de	70
i+    if (s[c]=='\0') break;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    j=0;	Err	vernunftzentrum.de	70
i+    while ((s[c]!=' ') && (s[c]!='\0')) { w[j]=tolower(s[c]); c++; j++; }	Err	vernunftzentrum.de	70
i+    w[j]='\0';	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    /* now identify this word */	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    /* first check for mode specifier */	Err	vernunftzentrum.de	70
i+    if ((strncmp(w,"mix",3)) == 0) {	Err	vernunftzentrum.de	70
i+      sf -= 1;	Err	vernunftzentrum.de	70
i+      ok = 1;	Err	vernunftzentrum.de	70
i+      /* dorian mode on the second note (D in C scale) */	Err	vernunftzentrum.de	70
i+    } else if ((strncmp(w,"dor",3)) == 0) {	Err	vernunftzentrum.de	70
i+      sf -= 2;	Err	vernunftzentrum.de	70
i+      ok = 1;	Err	vernunftzentrum.de	70
i+      /* phrygian mode on the third note (E in C scale) */	Err	vernunftzentrum.de	70
i+    } else if ((strncmp(w,"phr",3)) == 0) {	Err	vernunftzentrum.de	70
i+      sf -= 4;	Err	vernunftzentrum.de	70
i+      ok = 1;	Err	vernunftzentrum.de	70
i+      /* lydian mode on the fourth note (F in C scale) */	Err	vernunftzentrum.de	70
i+    } else if ((strncmp(w,"lyd",3)) == 0) {	Err	vernunftzentrum.de	70
i+      sf += 1;	Err	vernunftzentrum.de	70
i+      ok = 1;	Err	vernunftzentrum.de	70
i+      /* locrian mode on the seventh note (B in C scale) */	Err	vernunftzentrum.de	70
i+    } else if ((strncmp(w,"loc",3)) == 0) {	Err	vernunftzentrum.de	70
i+      sf -= 5;	Err	vernunftzentrum.de	70
i+      ok = 1;	Err	vernunftzentrum.de	70
i+      /* major and ionian are the same ks */	Err	vernunftzentrum.de	70
i+    } else if ((strncmp(w,"maj",3)) == 0) {	Err	vernunftzentrum.de	70
i+      ok = 1;	Err	vernunftzentrum.de	70
i+    } else if ((strncmp(w,"ion",3)) == 0) {	Err	vernunftzentrum.de	70
i+      ok = 1;	Err	vernunftzentrum.de	70
i+      /* aeolian, m, minor are the same ks - sixth note (A in C scale) */	Err	vernunftzentrum.de	70
i+    } else if ((strncmp(w,"aeo",3)) == 0) {	Err	vernunftzentrum.de	70
i+      sf -= 3;	Err	vernunftzentrum.de	70
i+      ok = 1;	Err	vernunftzentrum.de	70
i+    } else if ((strncmp(w,"min",3)) == 0) {	Err	vernunftzentrum.de	70
i+      sf -= 3;	Err	vernunftzentrum.de	70
i+      ok = 1;	Err	vernunftzentrum.de	70
i+    } else if ((strcmp(w,"m")) == 0) {	Err	vernunftzentrum.de	70
i+      sf -= 3;	Err	vernunftzentrum.de	70
i+      ok = 1;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    /* check for trailing "bass" "treble" "alto" */	Err	vernunftzentrum.de	70
i+    else if (!strcmp(w,"bass")) {	Err	vernunftzentrum.de	70
i+      ktype=BASS;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else if (!strcmp(w,"treble")) {	Err	vernunftzentrum.de	70
i+      ktype=TREBLE;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else if (!strcmp(w,"alto")) {	Err	vernunftzentrum.de	70
i+      ktype=ALTO;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    /* check for "+8" or "-8" */	Err	vernunftzentrum.de	70
i+    else if (!strcmp(w,"+8")) {	Err	vernunftzentrum.de	70
i+      add_pitch=7;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else if (!strcmp(w,"-8")) {	Err	vernunftzentrum.de	70
i+      add_pitch=-7;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else wng("Unknown token in key specifier: ",w);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  }  /* end of loop over blank-delimted words */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (verbose>=4) printf ("Key   <%s> gives sharpsflats %d, type %d\n", 	Err	vernunftzentrum.de	70
i+                          s, sf, ktype);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* copy to struct */	Err	vernunftzentrum.de	70
i+  ks->sf         = sf;	Err	vernunftzentrum.de	70
i+  ks->ktype      = ktype;	Err	vernunftzentrum.de	70
i+  ks->add_pitch  = add_pitch;	Err	vernunftzentrum.de	70
i+  ks->root       = root;	Err	vernunftzentrum.de	70
i+  ks->root_acc   = root_acc;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return 1;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- get_halftones: figure out how by many halftones to transpose --- */	Err	vernunftzentrum.de	70
i+/*  In the transposing routines: pitches A..G are coded as with 0..7 */	Err	vernunftzentrum.de	70
i+int get_halftones (key, transpose)	Err	vernunftzentrum.de	70
i+struct KEYSTR key;	Err	vernunftzentrum.de	70
i+char transpose[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int pit_old,pit_new,direction,stype,root_new,racc_new,nht;	Err	vernunftzentrum.de	70
i+  int root_old, racc_old;	Err	vernunftzentrum.de	70
i+  char *q;	Err	vernunftzentrum.de	70
i+  /* pit_tab associates true pitches 0-11 with letters A-G */ 	Err	vernunftzentrum.de	70
i+  int pit_tab[] = {0,2,3,5,7,8,10};	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (strlen(transpose)==0) return 0;	Err	vernunftzentrum.de	70
i+  root_old=key.root;	Err	vernunftzentrum.de	70
i+  racc_old=key.root_acc;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* parse specification for target key */	Err	vernunftzentrum.de	70
i+  q=transpose;	Err	vernunftzentrum.de	70
i+  direction=0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (*q=='^') { 	Err	vernunftzentrum.de	70
i+    direction=1; q++;	Err	vernunftzentrum.de	70
i+  } else if (*q=='_') {	Err	vernunftzentrum.de	70
i+    direction=-1; q++; 	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  stype=1;	Err	vernunftzentrum.de	70
i+  if (strchr("ABCDEFG",*q)) {	Err	vernunftzentrum.de	70
i+    root_new=*q-'A'; q++; stype=2;	Err	vernunftzentrum.de	70
i+  } else if (strchr("abcdefg",*q)) {	Err	vernunftzentrum.de	70
i+    root_new=*q-'a'; q++;  stype=2;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* first case: offset was given directly as numeric argument */	Err	vernunftzentrum.de	70
i+  if (stype==1) {	Err	vernunftzentrum.de	70
i+    sscanf(q,"%d", &nht);	Err	vernunftzentrum.de	70
i+    if (direction<0) nht=-nht;	Err	vernunftzentrum.de	70
i+    if (nht==0) {	Err	vernunftzentrum.de	70
i+      if (direction<0) nht=-12;	Err	vernunftzentrum.de	70
i+      if (direction>0) nht=+12;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    return nht;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* second case: root of target key was specified explicitly */	Err	vernunftzentrum.de	70
i+  racc_new=0;	Err	vernunftzentrum.de	70
i+  if (*q=='b') {	Err	vernunftzentrum.de	70
i+    racc_new=A_FT; q++;	Err	vernunftzentrum.de	70
i+  } else if (*q=='#') {	Err	vernunftzentrum.de	70
i+    racc_new=A_SH; q++;	Err	vernunftzentrum.de	70
i+  } else if (*q!='\0')	Err	vernunftzentrum.de	70
i+    wng ("expecting accidental in transpose spec: ", transpose);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* get pitch as number from 0-11 for root of old key */	Err	vernunftzentrum.de	70
i+  pit_old=pit_tab[root_old];	Err	vernunftzentrum.de	70
i+  if (racc_old==A_FT) pit_old--;	Err	vernunftzentrum.de	70
i+  if (racc_old==A_SH) pit_old++;	Err	vernunftzentrum.de	70
i+  if (pit_old<0)  pit_old+=12;	Err	vernunftzentrum.de	70
i+  if (pit_old>11) pit_old-=12;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* get pitch as number from 0-11 for root of new key */	Err	vernunftzentrum.de	70
i+  pit_new=pit_tab[root_new];	Err	vernunftzentrum.de	70
i+  if (racc_new==A_FT) pit_new--;	Err	vernunftzentrum.de	70
i+  if (racc_new==A_SH) pit_new++;	Err	vernunftzentrum.de	70
i+  if (pit_new<0)  pit_new+=12;	Err	vernunftzentrum.de	70
i+  if (pit_new>11) pit_new-=12;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* number of halftones is difference */	Err	vernunftzentrum.de	70
i+  nht=pit_new-pit_old;	Err	vernunftzentrum.de	70
i+  if (direction==0) {	Err	vernunftzentrum.de	70
i+    if (nht>6)  nht-=12;	Err	vernunftzentrum.de	70
i+    if (nht<-5) nht+=12;	Err	vernunftzentrum.de	70
i+  } 	Err	vernunftzentrum.de	70
i+  if (direction>0 && nht<=0) nht+=12;	Err	vernunftzentrum.de	70
i+  if (direction<0 && nht>=0) nht-=12;	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+  return nht;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- shift_key: make new key by shifting nht halftones --- */	Err	vernunftzentrum.de	70
i+void shift_key (sf_old,nht,sfnew,addt)	Err	vernunftzentrum.de	70
i+int sf_old,nht,*sfnew,*addt;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int sf_new,r_old,r_new,add_t,  dh,dr;	Err	vernunftzentrum.de	70
i+  int skey_tab[] = {2,6,3,0,4,1,5,2};	Err	vernunftzentrum.de	70
i+  int fkey_tab[] = {2,5,1,4,0,3,6,2};	Err	vernunftzentrum.de	70
i+  char root_tab[]={'A','B','C','D','E','F','G'};	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* get sf_new by adding 7 for each halftone, then reduce mod 12 */	Err	vernunftzentrum.de	70
i+  sf_new=sf_old+nht*7;	Err	vernunftzentrum.de	70
i+  sf_new=(sf_new+240)%12;	Err	vernunftzentrum.de	70
i+  if (sf_new>=6) sf_new=sf_new-12;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* get old and new root in ionian mode, shift is difference */	Err	vernunftzentrum.de	70
i+  r_old=2;	Err	vernunftzentrum.de	70
i+  if (sf_old>0) r_old=skey_tab[sf_old];	Err	vernunftzentrum.de	70
i+  if (sf_old<0) r_old=fkey_tab[-sf_old];	Err	vernunftzentrum.de	70
i+  r_new=2;	Err	vernunftzentrum.de	70
i+  if (sf_new>0) r_new=skey_tab[sf_new];	Err	vernunftzentrum.de	70
i+  if (sf_new<0) r_new=fkey_tab[-sf_new];	Err	vernunftzentrum.de	70
i+  add_t=r_new-r_old;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* fix up add_t to get same "decade" as nht */	Err	vernunftzentrum.de	70
i+  dh=(nht+120)/12; dh=dh-10;	Err	vernunftzentrum.de	70
i+  dr=(add_t+70)/7; dr=dr-10;	Err	vernunftzentrum.de	70
i+  add_t=add_t+7*(dh-dr);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (verbose>=8) 	Err	vernunftzentrum.de	70
i+    printf ("shift_key: sf_old=%d new %d   root: old %c new %c  shift by %d\n",  	Err	vernunftzentrum.de	70
i+            sf_old, sf_new, root_tab[r_old], root_tab[r_new], add_t); 	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  *sfnew=sf_new;	Err	vernunftzentrum.de	70
i+  *addt=add_t;	Err	vernunftzentrum.de	70
i+ 	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_transtab: setup for transposition by nht halftones --- */	Err	vernunftzentrum.de	70
i+void set_transtab (nht,key)	Err	vernunftzentrum.de	70
i+int nht;	Err	vernunftzentrum.de	70
i+struct KEYSTR *key;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int a,b,sf_old,sf_new,add_t,i,j,acc_old,acc_new,root_old,root_acc;	Err	vernunftzentrum.de	70
i+  /* for each note A..G, these tables tell how many sharps (resp. flats)	Err	vernunftzentrum.de	70
i+     the keysig must have to get the accidental on this note. Phew. */	Err	vernunftzentrum.de	70
i+  int sh_tab[] = {5,7,2,4,6,1,3};	Err	vernunftzentrum.de	70
i+  int fl_tab[] = {3,1,6,4,2,7,5};	Err	vernunftzentrum.de	70
i+  /* tables for pretty printout only */	Err	vernunftzentrum.de	70
i+  char root_tab[]={'A','B','C','D','E','F','G'};	Err	vernunftzentrum.de	70
i+  char acc_tab[][3] ={"bb","b ","  ","# ","x "};	Err	vernunftzentrum.de	70
i+  char c1[6],c2[6],c3[6];	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* nop if no transposition is wanted */	Err	vernunftzentrum.de	70
i+  if (nht==0) {	Err	vernunftzentrum.de	70
i+    key->add_transp=0;	Err	vernunftzentrum.de	70
i+    for (i=0;i<7;i++) key->add_acc[i]=0;	Err	vernunftzentrum.de	70
i+    return;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* get new sharps_flats and shift of numeric pitch; copy to key */	Err	vernunftzentrum.de	70
i+  sf_old   = key->sf;	Err	vernunftzentrum.de	70
i+  root_old = key->root;	Err	vernunftzentrum.de	70
i+  root_acc = key->root_acc;	Err	vernunftzentrum.de	70
i+  shift_key (sf_old, nht, &sf_new, &add_t);	Err	vernunftzentrum.de	70
i+  key->sf = sf_new;	Err	vernunftzentrum.de	70
i+  key->add_transp = add_t;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* set up table for conversion of accidentals */	Err	vernunftzentrum.de	70
i+  for (i=0;i<7;i++) {	Err	vernunftzentrum.de	70
i+    j=i+add_t;	Err	vernunftzentrum.de	70
i+    j=(j+70)%7;	Err	vernunftzentrum.de	70
i+    acc_old=0;	Err	vernunftzentrum.de	70
i+    if ( sf_old >= sh_tab[i]) acc_old=1;	Err	vernunftzentrum.de	70
i+    if (-sf_old >= fl_tab[i]) acc_old=-1;	Err	vernunftzentrum.de	70
i+    acc_new=0;	Err	vernunftzentrum.de	70
i+    if ( sf_new >= sh_tab[j]) acc_new=1;	Err	vernunftzentrum.de	70
i+    if (-sf_new >= fl_tab[j]) acc_new=-1;	Err	vernunftzentrum.de	70
i+    key->add_acc[i]=acc_new-acc_old;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* printout keysig change */	Err	vernunftzentrum.de	70
i+  if (verbose>=3) {	Err	vernunftzentrum.de	70
i+    i=root_old;	Err	vernunftzentrum.de	70
i+    j=i+add_t;	Err	vernunftzentrum.de	70
i+    j=(j+70)%7;	Err	vernunftzentrum.de	70
i+    acc_old=0;	Err	vernunftzentrum.de	70
i+    if ( sf_old >= sh_tab[i]) acc_old=1;	Err	vernunftzentrum.de	70
i+    if (-sf_old >= fl_tab[i]) acc_old=-1;	Err	vernunftzentrum.de	70
i+    acc_new=0;	Err	vernunftzentrum.de	70
i+    if ( sf_new >= sh_tab[j]) acc_new=1;	Err	vernunftzentrum.de	70
i+    if (-sf_new >= fl_tab[j]) acc_new=-1;	Err	vernunftzentrum.de	70
i+    strcpy(c3,"s"); if (nht==1 || nht==-1) strcpy(c3,"");	Err	vernunftzentrum.de	70
i+    strcpy(c1,""); strcpy(c2,""); 	Err	vernunftzentrum.de	70
i+    if (acc_old==-1) strcpy(c1,"b"); if (acc_old==1) strcpy(c1,"#");	Err	vernunftzentrum.de	70
i+    if (acc_new==-1) strcpy(c2,"b"); if (acc_new==1) strcpy(c2,"#");	Err	vernunftzentrum.de	70
i+    printf ("Transpose root from %c%s to %c%s (shift by %d halftone%s)\n",	Err	vernunftzentrum.de	70
i+            root_tab[i],c1,root_tab[j],c2,nht,c3);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* printout full table of transformations */	Err	vernunftzentrum.de	70
i+  if (verbose>=4) {	Err	vernunftzentrum.de	70
i+    printf ("old & new keysig    conversions\n");	Err	vernunftzentrum.de	70
i+    for (i=0;i<7;i++) {	Err	vernunftzentrum.de	70
i+      j=i+add_t;	Err	vernunftzentrum.de	70
i+      j=(j+70)%7;	Err	vernunftzentrum.de	70
i+      acc_old=0;	Err	vernunftzentrum.de	70
i+      if ( sf_old >= sh_tab[i]) acc_old=1;	Err	vernunftzentrum.de	70
i+      if (-sf_old >= fl_tab[i]) acc_old=-1;	Err	vernunftzentrum.de	70
i+      acc_new=0;	Err	vernunftzentrum.de	70
i+      if ( sf_new >= sh_tab[j]) acc_new=1;	Err	vernunftzentrum.de	70
i+      if (-sf_new >= fl_tab[j]) acc_new=-1;	Err	vernunftzentrum.de	70
i+      printf("%c%s-> %c%s           ", root_tab[i],acc_tab[acc_old+2],	Err	vernunftzentrum.de	70
i+             root_tab[j],acc_tab[acc_new+2]);	Err	vernunftzentrum.de	70
i+      for (a=-1;a<=1;a++) {	Err	vernunftzentrum.de	70
i+        b=a+key->add_acc[i];	Err	vernunftzentrum.de	70
i+        printf ("%c%s-> %c%s  ", root_tab[i],acc_tab[a+2],	Err	vernunftzentrum.de	70
i+                root_tab[j],acc_tab[b+2]);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      printf ("\n");	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}   	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- do_transpose: transpose numeric pitch and accidental --- */	Err	vernunftzentrum.de	70
i+void do_transpose (key,pitch,acc)	Err	vernunftzentrum.de	70
i+struct KEYSTR key;	Err	vernunftzentrum.de	70
i+int *pitch, *acc;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int pitch_old,pitch_new,sf_old,sf_new,acc_old,acc_new,i,j;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  pitch_old = *pitch;	Err	vernunftzentrum.de	70
i+  acc_old   = *acc;	Err	vernunftzentrum.de	70
i+  pitch_new=pitch_old+key.add_transp;	Err	vernunftzentrum.de	70
i+  i=(pitch_old+70)%7;	Err	vernunftzentrum.de	70
i+  j=(pitch_new+70)%7;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (acc_old) {	Err	vernunftzentrum.de	70
i+    if (acc_old==A_DF) sf_old=-2;	Err	vernunftzentrum.de	70
i+    if (acc_old==A_FT) sf_old=-1;	Err	vernunftzentrum.de	70
i+    if (acc_old==A_NT) sf_old=0 ;	Err	vernunftzentrum.de	70
i+    if (acc_old==A_SH) sf_old=1;	Err	vernunftzentrum.de	70
i+    if (acc_old==A_DS) sf_old=2;	Err	vernunftzentrum.de	70
i+    sf_new=sf_old+key.add_acc[i];	Err	vernunftzentrum.de	70
i+    if (sf_new==-2) acc_new=A_DF;	Err	vernunftzentrum.de	70
i+    if (sf_new==-1) acc_new=A_FT;	Err	vernunftzentrum.de	70
i+    if (sf_new== 0) acc_new=A_NT;	Err	vernunftzentrum.de	70
i+    if (sf_new== 1) acc_new=A_SH;	Err	vernunftzentrum.de	70
i+    if (sf_new== 2) acc_new=A_DS;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    acc_new=0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  *pitch = pitch_new;	Err	vernunftzentrum.de	70
i+  *acc   = acc_new;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- gch_transpose: transpose guitar chord string in gch --- */	Err	vernunftzentrum.de	70
i+void gch_transpose (key)	Err	vernunftzentrum.de	70
i+struct KEYSTR key;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char *q,*r;	Err	vernunftzentrum.de	70
i+  char str[201];	Err	vernunftzentrum.de	70
i+  int root_old,root_new,sf_old,sf_new,ok;	Err	vernunftzentrum.de	70
i+  char root_tab[]={'A','B','C','D','E','F','G'};	Err	vernunftzentrum.de	70
i+  char root_tub[]={'a','b','c','d','e','f','g'};	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (halftones==0) return;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* try to avoid some common abuses of gchord string */	Err	vernunftzentrum.de	70
i+  if (strstr(gch,"capo")) return;	Err	vernunftzentrum.de	70
i+  if (strstr(gch,"Capo")) return;	Err	vernunftzentrum.de	70
i+  if (strstr(gch,"Fine")) return;	Err	vernunftzentrum.de	70
i+  if (strstr(gch,"fine")) return;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  q=gch;	Err	vernunftzentrum.de	70
i+  r=str;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    while (*q==' ' || *q=='(') { *r=*q; q++; r++; }	Err	vernunftzentrum.de	70
i+    if (*q=='\0') break;	Err	vernunftzentrum.de	70
i+    ok=0;	Err	vernunftzentrum.de	70
i+    if (strchr("ABCDEFG",*q)) {	Err	vernunftzentrum.de	70
i+      root_old=*q-'A'; q++; ok=1;	Err	vernunftzentrum.de	70
i+    } else if (strchr("abcdefg",*q)) {	Err	vernunftzentrum.de	70
i+      root_old=*q-'a'; q++; ok=2;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    if (ok) {	Err	vernunftzentrum.de	70
i+      sf_old=0;	Err	vernunftzentrum.de	70
i+      if (*q=='b') { sf_old=-1; q++; }	Err	vernunftzentrum.de	70
i+      if (*q=='#') { sf_old= 1; q++; }	Err	vernunftzentrum.de	70
i+      root_new=root_old+key.add_transp;	Err	vernunftzentrum.de	70
i+      root_new=(root_new+28)%7;	Err	vernunftzentrum.de	70
i+      sf_new=sf_old+key.add_acc[root_old];	Err	vernunftzentrum.de	70
i+      if (ok==1) { *r=root_tab[root_new]; r++; }	Err	vernunftzentrum.de	70
i+      if (ok==2) { *r=root_tub[root_new]; r++; }	Err	vernunftzentrum.de	70
i+      if (sf_new==-1) { *r='b'; r++; }	Err	vernunftzentrum.de	70
i+      if (sf_new== 1) { *r='#'; r++; }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    while (*q!=' ' && *q!='/' && *q!='\0') {*r=*q; q++; r++; }	Err	vernunftzentrum.de	70
i+    if (*q=='/') {*r=*q; q++; r++; }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  }  	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  *r='\0';	Err	vernunftzentrum.de	70
i+/*|   printf("tr_ch: <%s>  <%s>\n", gch, str);   |*/	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  strcpy (gch,str);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- init_parse_params: initialize variables for parsing --- */	Err	vernunftzentrum.de	70
i+void init_parse_params ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  slur=0;	Err	vernunftzentrum.de	70
i+  voice[0].end_slur=0;	Err	vernunftzentrum.de	70
i+  nwpool=nwline=0;	Err	vernunftzentrum.de	70
i+  ntinext=0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* for continuation after output: reset nsym, switch to first voice */	Err	vernunftzentrum.de	70
i+  for (i=0;i<nvoice;i++) {	Err	vernunftzentrum.de	70
i+    voice[i].nsym=0;	Err	vernunftzentrum.de	70
i+    voice[i].insert_btype=0;	Err	vernunftzentrum.de	70
i+    voice[i].end_slur=0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  ivc=0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  word=0;	Err	vernunftzentrum.de	70
i+  carryover=0;	Err	vernunftzentrum.de	70
i+  last_note=last_real_note=-1;	Err	vernunftzentrum.de	70
i+  pplet=qplet=rplet=0;	Err	vernunftzentrum.de	70
i+  num_ending=0;	Err	vernunftzentrum.de	70
i+  mes1=mes2=0;	Err	vernunftzentrum.de	70
i+  strcpy (gch, "");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- add_text ---- */	Err	vernunftzentrum.de	70
i+void add_text (str,type)	Err	vernunftzentrum.de	70
i+char str[];	Err	vernunftzentrum.de	70
i+int type;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  if (do_mode!=DO_OUTPUT) return;	Err	vernunftzentrum.de	70
i+  if (ntext>=NTEXT) {	Err	vernunftzentrum.de	70
i+    wng ("No more room for text line <%s>", str);	Err	vernunftzentrum.de	70
i+    return;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  strcpy (text[ntext], str);	Err	vernunftzentrum.de	70
i+  text_type[ntext]=type;	Err	vernunftzentrum.de	70
i+  ntext++;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- reset_info ---- */	Err	vernunftzentrum.de	70
i+void reset_info (inf)	Err	vernunftzentrum.de	70
i+struct ISTRUCT *inf;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* reset all info fields except info.xref */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  strcpy(inf->parts,  "");   	Err	vernunftzentrum.de	70
i+  strcpy(inf->area,   "");   	Err	vernunftzentrum.de	70
i+  strcpy(inf->book,   "");   	Err	vernunftzentrum.de	70
i+  inf->ncomp=0;	Err	vernunftzentrum.de	70
i+  strcpy(inf->disc,   "");   	Err	vernunftzentrum.de	70
i+  strcpy(inf->group,  "");  	Err	vernunftzentrum.de	70
i+  strcpy(inf->hist,   "");   	Err	vernunftzentrum.de	70
i+  strcpy(inf->info,   "");   	Err	vernunftzentrum.de	70
i+  strcpy(inf->key,    "C");    	Err	vernunftzentrum.de	70
i+  strcpy(inf->meter,  "4/4");  	Err	vernunftzentrum.de	70
i+  strcpy(inf->notes,  "");  	Err	vernunftzentrum.de	70
i+  strcpy(inf->orig,   "");   	Err	vernunftzentrum.de	70
i+  strcpy(inf->rhyth,  "");  	Err	vernunftzentrum.de	70
i+  strcpy(inf->src,    "");    	Err	vernunftzentrum.de	70
i+/*  strcpy(inf->title,  "(untitled)");  */	Err	vernunftzentrum.de	70
i+  strcpy(inf->title,  "");  	Err	vernunftzentrum.de	70
i+  strcpy(inf->title2, "");  	Err	vernunftzentrum.de	70
i+  strcpy(inf->title3, "");  	Err	vernunftzentrum.de	70
i+  strcpy(inf->trans,  "");  	Err	vernunftzentrum.de	70
i+  strcpy(inf->tempo,  "");  	Err	vernunftzentrum.de	70
i+} 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- get_default_info: set info to default, except xref field --- */	Err	vernunftzentrum.de	70
i+void get_default_info ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char savestr[STRL];	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  strcpy (savestr, info.xref);	Err	vernunftzentrum.de	70
i+  info=default_info;	Err	vernunftzentrum.de	70
i+  strcpy (info.xref, savestr);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- is_info_field: identify any type of info field ---- */	Err	vernunftzentrum.de	70
i+int is_info_field (str)	Err	vernunftzentrum.de	70
i+char str[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  if (strlen(str)<2) return 0;	Err	vernunftzentrum.de	70
i+  if (str[1]!=':')   return 0;	Err	vernunftzentrum.de	70
i+  if (str[0]=='|')   return 0;   /* |: at start of music line */	Err	vernunftzentrum.de	70
i+  return 1;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- is_end_line: identify eof ----- */	Err	vernunftzentrum.de	70
i+int is_end_line (str)	Err	vernunftzentrum.de	70
i+char str[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  if (strlen(str)<3) return 0;	Err	vernunftzentrum.de	70
i+  if (str[0]=='E' && str[1]=='N' && str[2]=='D') return 1;	Err	vernunftzentrum.de	70
i+  return 0;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- is_pseudocomment ----- */	Err	vernunftzentrum.de	70
i+int is_pseudocomment (str)	Err	vernunftzentrum.de	70
i+char str[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  if (strlen(str)<2) return 0;	Err	vernunftzentrum.de	70
i+  if ((str[0]=='%')&&(str[1]=='%'))  return 1;	Err	vernunftzentrum.de	70
i+  return 0;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- is_comment ----- */	Err	vernunftzentrum.de	70
i+int is_comment (str)	Err	vernunftzentrum.de	70
i+char str[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  if (strlen(str)<1) return 0;	Err	vernunftzentrum.de	70
i+  if (str[0]=='%')  return 1;	Err	vernunftzentrum.de	70
i+  if (str[0]=='\\') return 1;	Err	vernunftzentrum.de	70
i+  return 0;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- trim_title: move trailing "The" to front ------------ */	Err	vernunftzentrum.de	70
i+void trim_title (s,s0)	Err	vernunftzentrum.de	70
i+char s[],s0[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char *q;	Err	vernunftzentrum.de	70
i+  char rest[81],str[301];	Err	vernunftzentrum.de	70
i+  int done;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  strcpy (str, s0);	Err	vernunftzentrum.de	70
i+  done=0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if ((q=strchr(str,','))) {	Err	vernunftzentrum.de	70
i+    if (*q != '\0') {	Err	vernunftzentrum.de	70
i+      strip (rest,q+1);	Err	vernunftzentrum.de	70
i+      if (!strcmp(rest,"The")) {	Err	vernunftzentrum.de	70
i+        strcpy (s, rest);	Err	vernunftzentrum.de	70
i+        *q = '\0';	Err	vernunftzentrum.de	70
i+        strcat (s, " ");	Err	vernunftzentrum.de	70
i+        strcat (s, str);	Err	vernunftzentrum.de	70
i+        done=1;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (!done) strcpy (s,s0);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- find_voice ----- */	Err	vernunftzentrum.de	70
i+int find_voice (vid,new)	Err	vernunftzentrum.de	70
i+char vid[];	Err	vernunftzentrum.de	70
i+int *new;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  for (i=0;i<nvoice;i++) 	Err	vernunftzentrum.de	70
i+    if (!strcmp(vid,voice[i].id)) {	Err	vernunftzentrum.de	70
i+      *new=0;	Err	vernunftzentrum.de	70
i+      return i;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  i=nvoice;	Err	vernunftzentrum.de	70
i+  if (i>=maxVc) 	Err	vernunftzentrum.de	70
i+    rxi("Too many voices; use -maxv to increase limit, now ",maxVc);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  strcpy(voice[i].id,    vid);	Err	vernunftzentrum.de	70
i+  strcpy(voice[i].name,  "");	Err	vernunftzentrum.de	70
i+  strcpy(voice[i].sname, "");	Err	vernunftzentrum.de	70
i+  voice[i].stems    = 0;	Err	vernunftzentrum.de	70
i+  voice[i].staves   = 0;	Err	vernunftzentrum.de	70
i+  voice[i].brace    = 0;	Err	vernunftzentrum.de	70
i+  voice[i].bracket  = 0;	Err	vernunftzentrum.de	70
i+  voice[i].do_gch   = 1;	Err	vernunftzentrum.de	70
i+  voice[i].select   = 1;	Err	vernunftzentrum.de	70
i+  voice[i].sep=0.0;	Err	vernunftzentrum.de	70
i+  voice[i].meter = default_meter;	Err	vernunftzentrum.de	70
i+  voice[i].key   = default_key;	Err	vernunftzentrum.de	70
i+  voice[i].nsym   = 0;	Err	vernunftzentrum.de	70
i+  nvoice++;	Err	vernunftzentrum.de	70
i+  if (verbose>5) 	Err	vernunftzentrum.de	70
i+    printf ("Make new voice %d with id \"%s\"\n", i,voice[i].id); 	Err	vernunftzentrum.de	70
i+  *new=1;	Err	vernunftzentrum.de	70
i+  return i;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- switch_voice: read spec for a voice, return voice number ----- */	Err	vernunftzentrum.de	70
i+int switch_voice (str)	Err	vernunftzentrum.de	70
i+char str[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int j,np,new,ap;	Err	vernunftzentrum.de	70
i+  char *r,*q;	Err	vernunftzentrum.de	70
i+  char t1[201],t2[201];	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (!do_this_tune) return 0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  j=-1;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* start loop over vioce options: parse t1=t2 */	Err	vernunftzentrum.de	70
i+  r=str;	Err	vernunftzentrum.de	70
i+  np=0;	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    while (*r == ' ') r++;	Err	vernunftzentrum.de	70
i+    if (*r=='\0') break;	Err	vernunftzentrum.de	70
i+    strcpy(t1,"");	Err	vernunftzentrum.de	70
i+    strcpy(t2,"");	Err	vernunftzentrum.de	70
i+    q=t1;	Err	vernunftzentrum.de	70
i+    while (*r!=' ' && *r!='\0' && *r!='=') { *q=*r; r++; q++; }	Err	vernunftzentrum.de	70
i+    *q='\0';	Err	vernunftzentrum.de	70
i+    if (*r=='=') {	Err	vernunftzentrum.de	70
i+      r++;	Err	vernunftzentrum.de	70
i+      q=t2;	Err	vernunftzentrum.de	70
i+      if (*r=='"') {	Err	vernunftzentrum.de	70
i+        r++;	Err	vernunftzentrum.de	70
i+        while (*r!='"' && *r!='\0') { *q=*r; r++; q++; }	Err	vernunftzentrum.de	70
i+        if (*r=='"') r++;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else {	Err	vernunftzentrum.de	70
i+        while (*r!=' ' && *r!='\0') { *q=*r; r++; q++; }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      *q='\0';	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    np++;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    /* interpret the parsed option. First case is identifier. */	Err	vernunftzentrum.de	70
i+    if (np==1) j=find_voice (t1,&new);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    else {                         /* interpret option */	Err	vernunftzentrum.de	70
i+      if (j<0) bug("j invalid in switch_voice",1);	Err	vernunftzentrum.de	70
i+      if      (!strcmp(t1,"name")    || !strcmp(t1,"nm"))   	Err	vernunftzentrum.de	70
i+        strcpy(voice[j].name,  t2);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      else if (!strcmp(t1,"sname")   || !strcmp(t1,"snm"))  	Err	vernunftzentrum.de	70
i+        strcpy(voice[j].sname, t2);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      else if (!strcmp(t1,"staves")  || !strcmp(t1,"stv"))  	Err	vernunftzentrum.de	70
i+        voice[j].staves  = atoi(t2);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      else if (!strcmp(t1,"brace")   || !strcmp(t1,"brc")) 	Err	vernunftzentrum.de	70
i+        voice[j].brace   = atoi(t2);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      else if (!strcmp(t1,"bracket") || !strcmp(t1,"brk")) 	Err	vernunftzentrum.de	70
i+        voice[j].bracket = atoi(t2);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      else if (!strcmp(t1,"gchords") || !strcmp(t1,"gch"))	Err	vernunftzentrum.de	70
i+        g_logv (str,t2,&voice[j].do_gch);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      /* for sspace: add 2000 as flag if not incremental */ 	Err	vernunftzentrum.de	70
i+      else if (!strcmp(t1,"space")   || !strcmp(t1,"spc")) {  	Err	vernunftzentrum.de	70
i+        g_unum (str,t2,&voice[j].sep);	Err	vernunftzentrum.de	70
i+        if (t2[0]!='+' && t2[0]!='-') voice[j].sep += 2000.0;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+      else if (!strcmp(t1,"clef")    || !strcmp(t1,"cl")) {	Err	vernunftzentrum.de	70
i+        ap=0;	Err	vernunftzentrum.de	70
i+        if      (!strcmp(t2,"treble"))    voice[j].key.ktype=TREBLE;	Err	vernunftzentrum.de	70
i+        else if (!strcmp(t2,"treble+8"))  {voice[j].key.ktype=TREBLE; ap=+7;}	Err	vernunftzentrum.de	70
i+        else if (!strcmp(t2,"treble-8"))  {voice[j].key.ktype=TREBLE; ap=-7;}	Err	vernunftzentrum.de	70
i+        else if (!strcmp(t2,"treble+16")) {voice[j].key.ktype=TREBLE; ap=+14;}	Err	vernunftzentrum.de	70
i+        else if (!strcmp(t2,"treble-16")) {voice[j].key.ktype=TREBLE; ap=-14;}	Err	vernunftzentrum.de	70
i+        else if (!strcmp(t2,"bass"))      voice[j].key.ktype=BASS;	Err	vernunftzentrum.de	70
i+        else if (!strcmp(t2,"bass+8"))    {voice[j].key.ktype=BASS; ap=+7;}	Err	vernunftzentrum.de	70
i+        else if (!strcmp(t2,"bass-8"))    {voice[j].key.ktype=BASS; ap=-7;}	Err	vernunftzentrum.de	70
i+        else if (!strcmp(t2,"bass+16"))   {voice[j].key.ktype=BASS; ap=+14;}	Err	vernunftzentrum.de	70
i+        else if (!strcmp(t2,"bass-16"))   {voice[j].key.ktype=BASS; ap=-14;}	Err	vernunftzentrum.de	70
i+        else if (!strcmp(t2,"alto"))       voice[j].key.ktype=ALTO;	Err	vernunftzentrum.de	70
i+        else if (!strcmp(t2,"alto+8"))    {voice[j].key.ktype=ALTO; ap=+7;}	Err	vernunftzentrum.de	70
i+        else if (!strcmp(t2,"alto-8"))    {voice[j].key.ktype=ALTO; ap=-7;}	Err	vernunftzentrum.de	70
i+        else if (!strcmp(t2,"alto+16"))   {voice[j].key.ktype=ALTO; ap=+14;}	Err	vernunftzentrum.de	70
i+        else if (!strcmp(t2,"alto-16"))   {voice[j].key.ktype=ALTO; ap=-14;}	Err	vernunftzentrum.de	70
i+        else wng("Unknown clef in voice spec: ",t2);	Err	vernunftzentrum.de	70
i+        voice[j].key.add_pitch=ap;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else if (!strcmp(t1,"stems") || !strcmp(t1,"stm")) {	Err	vernunftzentrum.de	70
i+        if      (!strcmp(t2,"up"))    voice[j].stems=1;	Err	vernunftzentrum.de	70
i+        else if (!strcmp(t2,"down"))  voice[j].stems=-1;	Err	vernunftzentrum.de	70
i+        else if (!strcmp(t2,"free"))  voice[j].stems=0;	Err	vernunftzentrum.de	70
i+        else wng("Unknown stem setting in voice spec: ",t2);	Err	vernunftzentrum.de	70
i+      }        	Err	vernunftzentrum.de	70
i+      else wng("Unknown option in voice spec: ",t1);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* if new voice was initialized, save settings im meter0, key0 */	Err	vernunftzentrum.de	70
i+  if (new) {	Err	vernunftzentrum.de	70
i+    voice[j].meter0 = voice[j].meter;	Err	vernunftzentrum.de	70
i+    voice[j].key0   = voice[j].key;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (verbose>7) 	Err	vernunftzentrum.de	70
i+    printf ("Switch to voice %d  <%s> <%s> <%s>  clef=%d\n", 	Err	vernunftzentrum.de	70
i+            j,voice[j].id,voice[j].name,voice[j].sname, 	Err	vernunftzentrum.de	70
i+            voice[j].key.ktype); 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  nsym0=voice[j].nsym;  /* set nsym0 to decide about eoln later.. ugly */	Err	vernunftzentrum.de	70
i+  return j;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+} 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- info_field: identify info line, store in proper place  ---- */	Err	vernunftzentrum.de	70
i+/* switch within_block: either goes to default_info or info.	Err	vernunftzentrum.de	70
i+   Only xref ALWAYS goes to info. */	Err	vernunftzentrum.de	70
i+int info_field (str)	Err	vernunftzentrum.de	70
i+char str[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char t[STRL];	Err	vernunftzentrum.de	70
i+  struct ISTRUCT *inf;	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (i=0;i<strlen(str);i++) if (str[i]=='%') str[i]='\0';	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (within_block) {	Err	vernunftzentrum.de	70
i+    inf=&info;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    inf=&default_info;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (strlen(str)<2) return 0;	Err	vernunftzentrum.de	70
i+  if (str[1]!=':')   return 0;	Err	vernunftzentrum.de	70
i+  if (str[0]=='|')   return 0;   /* |: at start of music line */	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (str[0]=='X') {	Err	vernunftzentrum.de	70
i+    strip (info.xref,   &str[2]);	Err	vernunftzentrum.de	70
i+    xrefnum=get_xref(info.xref);	Err	vernunftzentrum.de	70
i+    return XREF;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  else if (str[0]=='A') strip (inf->area,   &str[2]);	Err	vernunftzentrum.de	70
i+  else if (str[0]=='B') strip (inf->book,   &str[2]);	Err	vernunftzentrum.de	70
i+  else if (str[0]=='C') {	Err	vernunftzentrum.de	70
i+    if (inf->ncomp>=NCOMP) 	Err	vernunftzentrum.de	70
i+      wng("Too many composer lines","");	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      strip (inf->comp[inf->ncomp],&str[2]);	Err	vernunftzentrum.de	70
i+      inf->ncomp++;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else if (str[0]=='D') {	Err	vernunftzentrum.de	70
i+    strip (inf->disc,   &str[2]);	Err	vernunftzentrum.de	70
i+    add_text (&str[2], TEXT_D);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  else if (str[0]=='G') strip (inf->group,  &str[2]);	Err	vernunftzentrum.de	70
i+  else if (str[0]=='H') {	Err	vernunftzentrum.de	70
i+    strip (inf->hist,   &str[2]);	Err	vernunftzentrum.de	70
i+    add_text (&str[2], TEXT_H);	Err	vernunftzentrum.de	70
i+    return HISTORY;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else if (str[0]=='W') {	Err	vernunftzentrum.de	70
i+    add_text (&str[2], TEXT_W);	Err	vernunftzentrum.de	70
i+    return WORDS;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else if (str[0]=='I') strip (inf->info,   &str[2]);	Err	vernunftzentrum.de	70
i+  else if (str[0]=='K') {	Err	vernunftzentrum.de	70
i+    strip (inf->key,    &str[2]);	Err	vernunftzentrum.de	70
i+    return KEY;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else if (str[0]=='L') {	Err	vernunftzentrum.de	70
i+    strip (inf->len,    &str[2]);	Err	vernunftzentrum.de	70
i+    return DLEN;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else if (str[0]=='M') {	Err	vernunftzentrum.de	70
i+    strip (inf->meter,  &str[2]);	Err	vernunftzentrum.de	70
i+    return METER;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else if (str[0]=='N') {	Err	vernunftzentrum.de	70
i+    strip (inf->notes,  &str[2]);	Err	vernunftzentrum.de	70
i+    add_text (&str[2], TEXT_N);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else if (str[0]=='O') strip (inf->orig,   &str[2]);	Err	vernunftzentrum.de	70
i+  else if (str[0]=='R') strip (inf->rhyth,  &str[2]);	Err	vernunftzentrum.de	70
i+  else if (str[0]=='P') {	Err	vernunftzentrum.de	70
i+    strip (inf->parts,  &str[2]);	Err	vernunftzentrum.de	70
i+    return PARTS;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else if (str[0]=='S') strip (inf->src,    &str[2]);	Err	vernunftzentrum.de	70
i+  else if (str[0]=='T') {	Err	vernunftzentrum.de	70
i+    strip (t, &str[2]);	Err	vernunftzentrum.de	70
i+    numtitle++;	Err	vernunftzentrum.de	70
i+    if (numtitle>3) numtitle=3;	Err	vernunftzentrum.de	70
i+    if (numtitle==1)      trim_title (inf->title,  t);	Err	vernunftzentrum.de	70
i+    else if (numtitle==2) trim_title (inf->title2, t);	Err	vernunftzentrum.de	70
i+    else if (numtitle==3) trim_title (inf->title3, t);	Err	vernunftzentrum.de	70
i+    return TITLE;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else if (str[0]=='V') {	Err	vernunftzentrum.de	70
i+    strip (lvoiceid,  &str[2]);	Err	vernunftzentrum.de	70
i+    return VOICE;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else if (str[0]=='Z') {	Err	vernunftzentrum.de	70
i+    strip (inf->trans,  &str[2]);	Err	vernunftzentrum.de	70
i+    add_text (&str[2], TEXT_Z);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else if (str[0]=='Q') {	Err	vernunftzentrum.de	70
i+    strip (inf->tempo,  &str[2]);	Err	vernunftzentrum.de	70
i+    return TEMPO;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  else if (str[0]=='E') ;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    return 0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return INFO;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- append_meter: add meter to list of symbols -------- */	Err	vernunftzentrum.de	70
i+void append_meter (meter)	Err	vernunftzentrum.de	70
i+struct METERSTR meter;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int kk;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  kk=add_sym(TIMESIG);	Err	vernunftzentrum.de	70
i+  symv[ivc][kk]=zsym;	Err	vernunftzentrum.de	70
i+  symv[ivc][kk].type = TIMESIG;	Err	vernunftzentrum.de	70
i+  symv[ivc][kk].u    = meter.meter1;	Err	vernunftzentrum.de	70
i+  symv[ivc][kk].v    = meter.meter2;	Err	vernunftzentrum.de	70
i+  symv[ivc][kk].w    = meter.mflag;	Err	vernunftzentrum.de	70
i+  strcpy(symv[ivc][kk].text,meter.top);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- append_key_change: append change of key to sym list ------ */	Err	vernunftzentrum.de	70
i+void append_key_change(oldkey,newkey)	Err	vernunftzentrum.de	70
i+struct KEYSTR oldkey,newkey;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int n1,n2,t1,t2,kk;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  n1=oldkey.sf;    	Err	vernunftzentrum.de	70
i+  t1=A_SH;	Err	vernunftzentrum.de	70
i+  if (n1<0) { n1=-n1; t1=A_FT; }	Err	vernunftzentrum.de	70
i+  n2=newkey.sf;    	Err	vernunftzentrum.de	70
i+  t2=A_SH;                    	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (newkey.ktype != oldkey.ktype) {      /* clef change */	Err	vernunftzentrum.de	70
i+    kk=add_sym(CLEF);	Err	vernunftzentrum.de	70
i+    symv[ivc][kk].u=newkey.ktype;	Err	vernunftzentrum.de	70
i+    symv[ivc][kk].v=1;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (n2<0) { n2=-n2; t2=A_FT; }	Err	vernunftzentrum.de	70
i+  if (t1==t2) {              /* here if old and new have same type */	Err	vernunftzentrum.de	70
i+    if (n2>n1) {                 /* more new symbols ..*/	Err	vernunftzentrum.de	70
i+      kk=add_sym(KEYSIG);        /* draw all of them */	Err	vernunftzentrum.de	70
i+      symv[ivc][kk].u=1;	Err	vernunftzentrum.de	70
i+      symv[ivc][kk].v=n2;	Err	vernunftzentrum.de	70
i+      symv[ivc][kk].w=100;	Err	vernunftzentrum.de	70
i+      symv[ivc][kk].t=t1;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else if (n2<n1) {            /* less new symbols .. */	Err	vernunftzentrum.de	70
i+      kk=add_sym(KEYSIG);          /* draw all new symbols and neutrals */	Err	vernunftzentrum.de	70
i+      symv[ivc][kk].u=1;	Err	vernunftzentrum.de	70
i+      symv[ivc][kk].v=n1;	Err	vernunftzentrum.de	70
i+      symv[ivc][kk].w=n2+1;	Err	vernunftzentrum.de	70
i+      symv[ivc][kk].t=t2;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else return;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else {                     /* here for change s->f or f->s */	Err	vernunftzentrum.de	70
i+    kk=add_sym(KEYSIG);          /* neutralize all old symbols */	Err	vernunftzentrum.de	70
i+    symv[ivc][kk].u=1;	Err	vernunftzentrum.de	70
i+    symv[ivc][kk].v=n1;	Err	vernunftzentrum.de	70
i+    symv[ivc][kk].w=1;	Err	vernunftzentrum.de	70
i+    symv[ivc][kk].t=t1;	Err	vernunftzentrum.de	70
i+    kk=add_sym(KEYSIG);          /* add all new symbols */	Err	vernunftzentrum.de	70
i+    symv[ivc][kk].u=1;	Err	vernunftzentrum.de	70
i+    symv[ivc][kk].v=n2;	Err	vernunftzentrum.de	70
i+    symv[ivc][kk].w=100;	Err	vernunftzentrum.de	70
i+    symv[ivc][kk].t=t2;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- numeric_pitch ------ */	Err	vernunftzentrum.de	70
i+/* adapted from abc2mtex by Chris Walshaw */	Err	vernunftzentrum.de	70
i+int numeric_pitch(note)	Err	vernunftzentrum.de	70
i+char note;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (note=='z') 	Err	vernunftzentrum.de	70
i+    return 14;	Err	vernunftzentrum.de	70
i+  if (note >= 'C' && note <= 'G')	Err	vernunftzentrum.de	70
i+    return(note-'C'+16+voice[ivc].key.add_pitch);	Err	vernunftzentrum.de	70
i+  else if (note >= 'A' && note <= 'B')	Err	vernunftzentrum.de	70
i+    return(note-'A'+21+voice[ivc].key.add_pitch);	Err	vernunftzentrum.de	70
i+  else if (note >= 'c' && note <= 'g')	Err	vernunftzentrum.de	70
i+    return(note-'c'+23+voice[ivc].key.add_pitch);	Err	vernunftzentrum.de	70
i+  else if (note >= 'a' && note <= 'b')	Err	vernunftzentrum.de	70
i+    return(note-'a'+28+voice[ivc].key.add_pitch);	Err	vernunftzentrum.de	70
i+  printf ("numeric_pitch: cannot identify <%c>\n", note);	Err	vernunftzentrum.de	70
i+  return(0);	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- symbolic_pitch: translate numeric pitch back to symbol ------ */	Err	vernunftzentrum.de	70
i+int symbolic_pitch(pit,str)	Err	vernunftzentrum.de	70
i+int pit;	Err	vernunftzentrum.de	70
i+char str[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int  p,r,s;	Err	vernunftzentrum.de	70
i+  char ltab1[7] = {'C','D','E','F','G','A','B'};	Err	vernunftzentrum.de	70
i+  char ltab2[7] = {'c','d','e','f','g','a','b'};	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  p=pit-16;	Err	vernunftzentrum.de	70
i+  r=(p+700)%7;	Err	vernunftzentrum.de	70
i+  s=(p-r)/7;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (p<7) {	Err	vernunftzentrum.de	70
i+    sprintf (str,"%c,,,,,",ltab1[r]);	Err	vernunftzentrum.de	70
i+    str[1-s]='\0';	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    sprintf (str,"%c'''''",ltab2[r]);	Err	vernunftzentrum.de	70
i+    str[s]='\0';	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- handle_inside_field: act on info field inside body of tune --- */	Err	vernunftzentrum.de	70
i+void handle_inside_field(type)	Err	vernunftzentrum.de	70
i+int type;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  struct KEYSTR oldkey;	Err	vernunftzentrum.de	70
i+  int rc;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (type==METER) {	Err	vernunftzentrum.de	70
i+    if (nvoice==0) ivc=switch_voice (DEFVOICE);	Err	vernunftzentrum.de	70
i+    set_meter (info.meter,&voice[ivc].meter);	Err	vernunftzentrum.de	70
i+    append_meter (voice[ivc].meter);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  else if (type==DLEN) {	Err	vernunftzentrum.de	70
i+    if (nvoice==0) ivc=switch_voice (DEFVOICE);	Err	vernunftzentrum.de	70
i+    set_dlen (info.len,  &voice[ivc].meter);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  else if (type==KEY) {	Err	vernunftzentrum.de	70
i+    if (nvoice==0) ivc=switch_voice (DEFVOICE);	Err	vernunftzentrum.de	70
i+    oldkey=voice[ivc].key;	Err	vernunftzentrum.de	70
i+    rc=set_keysig(info.key,&voice[ivc].key,0);	Err	vernunftzentrum.de	70
i+    if (rc) set_transtab (halftones,&voice[ivc].key);	Err	vernunftzentrum.de	70
i+    append_key_change(oldkey,voice[ivc].key);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  else if (type==VOICE) {	Err	vernunftzentrum.de	70
i+    ivc=switch_voice (lvoiceid);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- parse_uint: parse for unsigned integer ----- */	Err	vernunftzentrum.de	70
i+int parse_uint ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int number,ndig;	Err	vernunftzentrum.de	70
i+  char num[21];	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (!isdig(*p)) return 0;	Err	vernunftzentrum.de	70
i+  ndig=0;	Err	vernunftzentrum.de	70
i+  while (isdig(*p)) {                	Err	vernunftzentrum.de	70
i+    num[ndig]=*p; 	Err	vernunftzentrum.de	70
i+    ndig++; 	Err	vernunftzentrum.de	70
i+    num[ndig]=0;	Err	vernunftzentrum.de	70
i+    p++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  sscanf (num, "%d", &number);	Err	vernunftzentrum.de	70
i+  if (db>3) printf ("  parsed unsigned int %d\n", number);	Err	vernunftzentrum.de	70
i+  return number;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+/* ----- parse_bar: parse for some kind of bar ---- */	Err	vernunftzentrum.de	70
i+int parse_bar ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int k;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  parse_gchord ();	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* special cases: [1 or [2 without a preceeding bar, [| */	Err	vernunftzentrum.de	70
i+  if (*p=='[') {	Err	vernunftzentrum.de	70
i+    if ((*(p+1)=='1') || (*(p+1)=='2')) {	Err	vernunftzentrum.de	70
i+      k=add_sym (BAR);	Err	vernunftzentrum.de	70
i+      symv[ivc][k].u=B_INVIS;	Err	vernunftzentrum.de	70
i+      symv[ivc][k].v=1;	Err	vernunftzentrum.de	70
i+      if (*(p+1)=='2') symv[ivc][k].v=2;	Err	vernunftzentrum.de	70
i+      p=p+2;	Err	vernunftzentrum.de	70
i+      return 1;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* identify valid standard bar types */	Err	vernunftzentrum.de	70
i+  if (*p == '|') {	Err	vernunftzentrum.de	70
i+    p++;	Err	vernunftzentrum.de	70
i+    if (*p == '|') { 	Err	vernunftzentrum.de	70
i+      k=add_sym (BAR);	Err	vernunftzentrum.de	70
i+      symv[ivc][k].u=B_DBL;	Err	vernunftzentrum.de	70
i+      p++;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else if (*p == ':') { 	Err	vernunftzentrum.de	70
i+      k=add_sym(BAR);	Err	vernunftzentrum.de	70
i+      symv[ivc][k].u=B_LREP;	Err	vernunftzentrum.de	70
i+      p++; 	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else if (*p==']') {                  /* code |] for fat end bar */	Err	vernunftzentrum.de	70
i+      k=add_sym(BAR);	Err	vernunftzentrum.de	70
i+      symv[ivc][k].u=B_FAT2;	Err	vernunftzentrum.de	70
i+      p=p+1;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      k=add_sym(BAR);	Err	vernunftzentrum.de	70
i+      symv[ivc][k].u=B_SNGL;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else if (*p == ':') {	Err	vernunftzentrum.de	70
i+    p++;	Err	vernunftzentrum.de	70
i+    if (*p == '|') { 	Err	vernunftzentrum.de	70
i+      k=add_sym(BAR);	Err	vernunftzentrum.de	70
i+      symv[ivc][k].u=B_RREP;	Err	vernunftzentrum.de	70
i+      p++; 	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else if (*p == ':') {	Err	vernunftzentrum.de	70
i+      k=add_sym(BAR);	Err	vernunftzentrum.de	70
i+      symv[ivc][k].u=B_DREP;	Err	vernunftzentrum.de	70
i+      p++; }	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      syntax ("Syntax error parsing bar", p-1);	Err	vernunftzentrum.de	70
i+      return 0;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  else if ((*p=='[') && (*(p+1)=='|') && (*(p+2)==']')) {  /* code [|] invis */	Err	vernunftzentrum.de	70
i+    k=add_sym(BAR);	Err	vernunftzentrum.de	70
i+    symv[ivc][k].u=B_INVIS;	Err	vernunftzentrum.de	70
i+    p=p+3;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  else if ((*p=='[') && (*(p+1)=='|')) {    /* code [| for thick-thin bar */	Err	vernunftzentrum.de	70
i+    k=add_sym(BAR);	Err	vernunftzentrum.de	70
i+    symv[ivc][k].u=B_FAT1;	Err	vernunftzentrum.de	70
i+    p=p+2;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  else return 0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  strcpy(symv[ivc][k].text,"");	Err	vernunftzentrum.de	70
i+  if (strlen(gch)>0) {	Err	vernunftzentrum.de	70
i+    strcpy (symv[ivc][k].text, gch); 	Err	vernunftzentrum.de	70
i+    strcpy (gch, ""); 	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* see if valid bar is followed by specifier for first or second ending */	Err	vernunftzentrum.de	70
i+  if (*p=='1')      { symv[ivc][k].v=1; p++; }	Err	vernunftzentrum.de	70
i+  else if (*p=='2') { symv[ivc][k].v=2; p++; }	Err	vernunftzentrum.de	70
i+  else if ((*p=='[') && (*(p+1)=='1')) { symv[ivc][k].v=1; p=p+2; }	Err	vernunftzentrum.de	70
i+  else if ((*p=='[') && (*(p+1)=='2')) { symv[ivc][k].v=2; p=p+2; }	Err	vernunftzentrum.de	70
i+  else if ((*p==' ') && (*(p+1)=='[') && (*(p+2)=='1')) 	Err	vernunftzentrum.de	70
i+    { symv[ivc][k].v=1; p=p+3; }	Err	vernunftzentrum.de	70
i+  else if ((*p==' ') && (*(p+1)=='[') && (*(p+2)=='2')) 	Err	vernunftzentrum.de	70
i+    { symv[ivc][k].v=2; p=p+3; }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return 1;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+/* ----- parse_space: parse for whitespace ---- */	Err	vernunftzentrum.de	70
i+int parse_space ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int rc;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  rc=0;	Err	vernunftzentrum.de	70
i+  while ((*p==' ')||(*p=='\t')) {	Err	vernunftzentrum.de	70
i+    rc=1;	Err	vernunftzentrum.de	70
i+    p++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  if (db>3) if (rc) printf ("  parsed whitespace\n"); 	Err	vernunftzentrum.de	70
i+  return rc;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- parse_esc: parse for escape sequence ----- */	Err	vernunftzentrum.de	70
i+int parse_esc ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  int nseq;	Err	vernunftzentrum.de	70
i+  char *pp;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (*p == '\\') {                     /* try for \...\ sequence */	Err	vernunftzentrum.de	70
i+    p++;	Err	vernunftzentrum.de	70
i+    nseq=0;	Err	vernunftzentrum.de	70
i+    while ((*p!='\\') && (*p!=0)) {	Err	vernunftzentrum.de	70
i+      escseq[nseq]=*p;	Err	vernunftzentrum.de	70
i+      nseq++;	Err	vernunftzentrum.de	70
i+      p++;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (*p == '\\') {	Err	vernunftzentrum.de	70
i+      p++;	Err	vernunftzentrum.de	70
i+      escseq[nseq]=0;	Err	vernunftzentrum.de	70
i+      if (db>3) printf ("  parsed esc sequence <%s>\n", escseq);  	Err	vernunftzentrum.de	70
i+      return ESCSEQ;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      if (cfmt.breakall) return DUMMY;	Err	vernunftzentrum.de	70
i+      if (db>3) printf ("  parsed esc to EOL.. continuation\n");  	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    return CONTINUE;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* next, try for [..] sequence */	Err	vernunftzentrum.de	70
i+  if ((*p=='[') && (*(p+1)>='A') && (*(p+1)<='Z') && (*(p+2)==':')) {  	Err	vernunftzentrum.de	70
i+    pp=p;	Err	vernunftzentrum.de	70
i+    p++;	Err	vernunftzentrum.de	70
i+    nseq=0;	Err	vernunftzentrum.de	70
i+    while ((*p!=']') && (*p!=0)) {	Err	vernunftzentrum.de	70
i+      escseq[nseq]=*p;	Err	vernunftzentrum.de	70
i+      nseq++;	Err	vernunftzentrum.de	70
i+      p++;	Err	vernunftzentrum.de	70
i+    }           	Err	vernunftzentrum.de	70
i+    if (*p == ']') {	Err	vernunftzentrum.de	70
i+      p++;	Err	vernunftzentrum.de	70
i+      escseq[nseq]=0;	Err	vernunftzentrum.de	70
i+      if (db>3) printf ("  parsed esc sequence <%s>\n", escseq);  	Err	vernunftzentrum.de	70
i+      return ESCSEQ;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    syntax ("Escape sequence [..] not closed", pp);	Err	vernunftzentrum.de	70
i+    return ESCSEQ;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  return 0;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- parse_nl: parse for newline ----- */	Err	vernunftzentrum.de	70
i+int parse_nl ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if ((*p == '\\')&&(*(p+1)=='\\')) {	Err	vernunftzentrum.de	70
i+    p+=2;	Err	vernunftzentrum.de	70
i+    return 1;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else	Err	vernunftzentrum.de	70
i+    return 0;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- parse_gchord: parse guitar chord, save in buffer ----- */	Err	vernunftzentrum.de	70
i+int parse_gchord ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char *q;	Err	vernunftzentrum.de	70
i+  int n;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (*p != '"') return 0;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  q=p;	Err	vernunftzentrum.de	70
i+  p++;	Err	vernunftzentrum.de	70
i+  n=strlen(gch);	Err	vernunftzentrum.de	70
i+  if (n > 0) syntax ("Overwrite unused guitar chord", q);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  while ((*p != '"') && (*p != 0)) {	Err	vernunftzentrum.de	70
i+    gch[n]=*p;	Err	vernunftzentrum.de	70
i+    n++;	Err	vernunftzentrum.de	70
i+    if (n >= 200) {	Err	vernunftzentrum.de	70
i+      syntax ("String for guitar chord too long", q);	Err	vernunftzentrum.de	70
i+      return 1;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    p++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  if (*p == 0) {	Err	vernunftzentrum.de	70
i+    syntax ("EOL reached while parsing guitar chord", q);	Err	vernunftzentrum.de	70
i+    return 1;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  p++;	Err	vernunftzentrum.de	70
i+  gch[n]=0;	Err	vernunftzentrum.de	70
i+  if (db>3) printf("  parse guitar chord <%s>\n", gch);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+/*|   gch_transpose (voice[ivc].key); |*/	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return 1;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- parse_deco: parse for decoration on note ----- */	Err	vernunftzentrum.de	70
i+int parse_deco (dtype)	Err	vernunftzentrum.de	70
i+int dtype[10];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int deco,n;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  n=0;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    deco=0;	Err	vernunftzentrum.de	70
i+    if (*p == '~')  {	Err	vernunftzentrum.de	70
i+      if (DECO_IS_ROLL) deco=D_ROLL;	Err	vernunftzentrum.de	70
i+      else              deco=D_GRACE;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (*p == '.')  deco=D_STACC;	Err	vernunftzentrum.de	70
i+    if (*p == 'J')  deco=D_SLIDE;	Err	vernunftzentrum.de	70
i+    if (*p == 'M')  deco=D_EMBAR;	Err	vernunftzentrum.de	70
i+    if (*p == 'H')  deco=D_HOLD;	Err	vernunftzentrum.de	70
i+    if (*p == 'R')  deco=D_ROLL;	Err	vernunftzentrum.de	70
i+    if (*p == 'T')  deco=D_TRILL;	Err	vernunftzentrum.de	70
i+    if (*p == 'u')  deco=D_UPBOW;	Err	vernunftzentrum.de	70
i+    if (*p == 'v')  deco=D_DOWNBOW;	Err	vernunftzentrum.de	70
i+    if (*p == 'K')  deco=D_HAT;	Err	vernunftzentrum.de	70
i+    if (*p == 'k')  deco=D_ATT;	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    if (deco) {	Err	vernunftzentrum.de	70
i+      p++;	Err	vernunftzentrum.de	70
i+      dtype[n]=deco;	Err	vernunftzentrum.de	70
i+      n++;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else 	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return n;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- parse_length: parse length specifer for note or rest --- */	Err	vernunftzentrum.de	70
i+int parse_length ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int len,fac;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  len=voice[ivc].meter.dlen;          /* start with default length */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (len<=0) printf ("!!! parse_len:  got len=%d\n", len);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (isdig(*p)) {                 /* multiply note length */	Err	vernunftzentrum.de	70
i+    fac=parse_uint ();	Err	vernunftzentrum.de	70
i+    if (fac==0) fac=1;	Err	vernunftzentrum.de	70
i+    len *= fac;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (*p=='/') {                   /* divide note length */	Err	vernunftzentrum.de	70
i+    while (*p=='/') {	Err	vernunftzentrum.de	70
i+      p++;	Err	vernunftzentrum.de	70
i+      if (isdig(*p)) 	Err	vernunftzentrum.de	70
i+        fac=parse_uint();	Err	vernunftzentrum.de	70
i+      else 	Err	vernunftzentrum.de	70
i+        fac=2;	Err	vernunftzentrum.de	70
i+      if (len%fac) {	Err	vernunftzentrum.de	70
i+        syntax ("Bad length divisor", p-1);	Err	vernunftzentrum.de	70
i+        return len; 	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      len=len/fac;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  return len;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- parse_grace_sequence --------- */	Err	vernunftzentrum.de	70
i+int parse_grace_sequence (pgr,agr)	Err	vernunftzentrum.de	70
i+int pgr[],agr[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  char *p0;	Err	vernunftzentrum.de	70
i+  int n,len;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  p0=p;	Err	vernunftzentrum.de	70
i+  if (*p != '{') return 0;	Err	vernunftzentrum.de	70
i+  p++;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  n=0;	Err	vernunftzentrum.de	70
i+  while (*p != '}') {	Err	vernunftzentrum.de	70
i+    if (*p == '\0') {	Err	vernunftzentrum.de	70
i+      syntax ("Unbalanced grace note sequence", p0);	Err	vernunftzentrum.de	70
i+      return 0;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (!isnote(*p)) {	Err	vernunftzentrum.de	70
i+      syntax ("Unexpected symbol in grace note sequence", p);	Err	vernunftzentrum.de	70
i+      p++;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    agr[n]=0;  	Err	vernunftzentrum.de	70
i+    if (*p == '=') agr[n]=A_NT;	Err	vernunftzentrum.de	70
i+    if (*p == '^') {	Err	vernunftzentrum.de	70
i+      if (*(p+1)=='^') { agr[n]=A_DS; p++; }	Err	vernunftzentrum.de	70
i+      else agr[n]=A_SH;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (*p == '_') {	Err	vernunftzentrum.de	70
i+      if (*(p+1)=='_') { agr[n]=A_DF; p++; }	Err	vernunftzentrum.de	70
i+      else agr[n]=A_FT;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (agr[n]) p++;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    pgr[n] = numeric_pitch(*p);	Err	vernunftzentrum.de	70
i+    p++;	Err	vernunftzentrum.de	70
i+    while (*p == '\'') { pgr[n] += 7; p++; }	Err	vernunftzentrum.de	70
i+    while (*p == ',') {  pgr[n] -= 7; p++; }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    do_transpose (voice[ivc].key, &pgr[n], &agr[n]);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    len=parse_length ();      /* ignore any length specifier */	Err	vernunftzentrum.de	70
i+    n++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  p++;	Err	vernunftzentrum.de	70
i+  return n;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- idfy_note: set head type, dots, flags for one note --- */	Err	vernunftzentrum.de	70
i+int idfy_note (s)	Err	vernunftzentrum.de	70
i+struct SYMBOL *s;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int head,base,len,flags,dots;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (s->len==0) s->len=s->lens[0];	Err	vernunftzentrum.de	70
i+  len=s->len;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  base=WHOLE;	Err	vernunftzentrum.de	70
i+  if (len>=WHOLE)              base=WHOLE;	Err	vernunftzentrum.de	70
i+  else if (len>=HALF)          base=HALF;	Err	vernunftzentrum.de	70
i+  else if (len>=QUARTER)       base=QUARTER;	Err	vernunftzentrum.de	70
i+  else if (len>=EIGHTH)        base=EIGHTH;	Err	vernunftzentrum.de	70
i+  else if (len>=SIXTEENTH)     base=SIXTEENTH;	Err	vernunftzentrum.de	70
i+  else if (len>=THIRTYSECOND)  base=THIRTYSECOND;	Err	vernunftzentrum.de	70
i+  else if (len>=SIXTYFOURTH)   base=SIXTYFOURTH;	Err	vernunftzentrum.de	70
i+  else return 1;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (base==WHOLE)     head=H_OVAL;	Err	vernunftzentrum.de	70
i+  else if (base==HALF) head=H_EMPTY;	Err	vernunftzentrum.de	70
i+  else                 head=H_FULL;	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+  if (base==SIXTYFOURTH)        flags=4;	Err	vernunftzentrum.de	70
i+  else if (base==THIRTYSECOND)  flags=3;	Err	vernunftzentrum.de	70
i+  else if (base==SIXTEENTH)     flags=2;	Err	vernunftzentrum.de	70
i+  else if (base==EIGHTH)        flags=1;	Err	vernunftzentrum.de	70
i+  else                          flags=0;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  dots=0;	Err	vernunftzentrum.de	70
i+  if (len==base)            dots=0;	Err	vernunftzentrum.de	70
i+  else if (2*len==3*base)   dots=1;	Err	vernunftzentrum.de	70
i+  else if (4*len==7*base)   dots=2;	Err	vernunftzentrum.de	70
i+  else if (8*len==15*base)  dots=3;	Err	vernunftzentrum.de	70
i+  else return 2;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+/*|   printf ("idfy_note: length %d gives head %d, dots %d, flags %d\n", |*/	Err	vernunftzentrum.de	70
i+/*|           len,head,dots,flags);   |*/	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  s->head=head;	Err	vernunftzentrum.de	70
i+  s->dots=dots;	Err	vernunftzentrum.de	70
i+  s->flags=flags;	Err	vernunftzentrum.de	70
i+  return 0;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- identify_note ----- */	Err	vernunftzentrum.de	70
i+void identify_note (s,q)	Err	vernunftzentrum.de	70
i+struct SYMBOL *s;	Err	vernunftzentrum.de	70
i+char *q;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int rc;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  rc = idfy_note (s);	Err	vernunftzentrum.de	70
i+  if (rc==1) syntax("Cannot identify head for note",q);	Err	vernunftzentrum.de	70
i+  if (rc==2) syntax("Cannot handle note length for note",q);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* set flag if duration equals length of one measure */	Err	vernunftzentrum.de	70
i+  if (nvoice>0) {	Err	vernunftzentrum.de	70
i+    if (s->len==(WHOLE*voice[ivc].meter.meter1)/voice[ivc].meter.meter2)	Err	vernunftzentrum.de	70
i+      s->fullmes=1;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- double_note: change note length for > or < char --- */	Err	vernunftzentrum.de	70
i+/* Note: if symv[ivc][i] is a chord, the length shifted to the following	Err	vernunftzentrum.de	70
i+   note is taken from the first note head. Problem: the crazy syntax 	Err	vernunftzentrum.de	70
i+   permits different lengths within a chord. */	Err	vernunftzentrum.de	70
i+void double_note (i,num,sign,q)	Err	vernunftzentrum.de	70
i+int i,num,sign;	Err	vernunftzentrum.de	70
i+char *q;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int m,shift,j,len;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if ((symv[ivc][i].type!=NOTE) && (symv[ivc][i].type!=REST)) 	Err	vernunftzentrum.de	70
i+    bug("sym is not NOTE or REST in double_note", 1);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  shift=0;	Err	vernunftzentrum.de	70
i+  len=symv[ivc][i].lens[0];	Err	vernunftzentrum.de	70
i+  for (j=0;j<num;j++) {	Err	vernunftzentrum.de	70
i+    len=len/2;	Err	vernunftzentrum.de	70
i+    shift -= sign*len;	Err	vernunftzentrum.de	70
i+    symv[ivc][i].len += sign*len;	Err	vernunftzentrum.de	70
i+    for (m=0;m<symv[ivc][i].npitch;m++) symv[ivc][i].lens[m] += sign*len;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  identify_note (&symv[ivc][i],q);	Err	vernunftzentrum.de	70
i+  carryover += shift;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- parse_basic_note: parse note or rest with pitch and length --*/	Err	vernunftzentrum.de	70
i+int parse_basic_note (pitch,length,accidental)	Err	vernunftzentrum.de	70
i+int *pitch,*length,*accidental;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int pit,len,acc;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  acc=pit=0;                       /* look for accidental sign */	Err	vernunftzentrum.de	70
i+  if (*p == '=') acc=A_NT;	Err	vernunftzentrum.de	70
i+  if (*p == '^') {	Err	vernunftzentrum.de	70
i+    if (*(p+1)=='^') { acc=A_DS; p++; }	Err	vernunftzentrum.de	70
i+    else acc=A_SH;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  if (*p == '_') {	Err	vernunftzentrum.de	70
i+    if (*(p+1)=='_') { acc=A_DF; p++; }	Err	vernunftzentrum.de	70
i+    else acc=A_FT;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (acc) {	Err	vernunftzentrum.de	70
i+    p++;	Err	vernunftzentrum.de	70
i+    if (!strchr("CDEFGABcdefgab",*p)) {	Err	vernunftzentrum.de	70
i+      syntax("Missing note after accidental", p-1);	Err	vernunftzentrum.de	70
i+      return 0;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  if (!isnote(*p)) {	Err	vernunftzentrum.de	70
i+    syntax ("Expecting note", p);	Err	vernunftzentrum.de	70
i+    p++;	Err	vernunftzentrum.de	70
i+    return 0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  pit= numeric_pitch(*p);             /* basic pitch */	Err	vernunftzentrum.de	70
i+  p++;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  while (*p == '\'') {                /* eat up following ' chars */	Err	vernunftzentrum.de	70
i+    pit += 7;	Err	vernunftzentrum.de	70
i+    p++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  while (*p == ',') {                 /* eat up following , chars */	Err	vernunftzentrum.de	70
i+    pit -= 7;	Err	vernunftzentrum.de	70
i+    p++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  len=parse_length();	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  do_transpose (voice[ivc].key, &pit, &acc);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  *pitch=pit;	Err	vernunftzentrum.de	70
i+  *length=len;	Err	vernunftzentrum.de	70
i+  *accidental=acc;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (db>3) printf ("  parsed basic note,"	Err	vernunftzentrum.de	70
i+                    "length %d/%d = 1/%d, pitch %d\n", 	Err	vernunftzentrum.de	70
i+                    len,BASE,BASE/len,pit);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  return 1;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- parse_note: parse for one note or rest with all trimmings --- */	Err	vernunftzentrum.de	70
i+int parse_note ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int k,deco,i,chord,m,type,rc,sl1,sl2,j;	Err	vernunftzentrum.de	70
i+  int pitch,length,accidental,invis;	Err	vernunftzentrum.de	70
i+  int ngr,pgr[30],agr[30],dtype[30];	Err	vernunftzentrum.de	70
i+  char *q,*q0;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  ngr=parse_grace_sequence(pgr,agr);   /* grace notes */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  parse_gchord();                      /* permit chord after graces */	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  deco=parse_deco(dtype);              /* decorations */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  parse_gchord();                      /* permit chord after deco */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  chord=0;                             /* determine if chord */	Err	vernunftzentrum.de	70
i+  q=p;	Err	vernunftzentrum.de	70
i+  if ((*p=='+') || (*p=='[')) { chord=1; p++; }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  type=invis=0;	Err	vernunftzentrum.de	70
i+  if (isnote(*p)) type=NOTE;	Err	vernunftzentrum.de	70
i+  if (chord && (*p=='(')) type=NOTE;	Err	vernunftzentrum.de	70
i+  if (chord && (*p==')')) type=NOTE;   /* this just for better error msg */	Err	vernunftzentrum.de	70
i+  if ((*p=='z')||(*p=='Z')) type=REST;	Err	vernunftzentrum.de	70
i+  if ((*p=='x')||(*p=='X')) {type=REST; invis=1; }	Err	vernunftzentrum.de	70
i+  if (!type) return 0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  k=add_sym(type);                     /* add new symbol to list */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  symv[ivc][k].dc.n=deco;              /* copy over pre-parsed stuff */	Err	vernunftzentrum.de	70
i+  for (i=0;i<deco;i++) 	Err	vernunftzentrum.de	70
i+    symv[ivc][k].dc.t[i]=dtype[i];	Err	vernunftzentrum.de	70
i+  symv[ivc][k].gr.n=ngr;	Err	vernunftzentrum.de	70
i+  for (i=0;i<ngr;i++) {	Err	vernunftzentrum.de	70
i+    symv[ivc][k].gr.p[i]=pgr[i];	Err	vernunftzentrum.de	70
i+    symv[ivc][k].gr.a[i]=agr[i];	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  if (strlen(gch)>0) {	Err	vernunftzentrum.de	70
i+    gch_transpose (voice[ivc].key);	Err	vernunftzentrum.de	70
i+    strcpy (symv[ivc][k].text, gch);	Err	vernunftzentrum.de	70
i+    strcpy (gch, "");	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  q0=p;	Err	vernunftzentrum.de	70
i+  if (type==REST) {	Err	vernunftzentrum.de	70
i+    p++;	Err	vernunftzentrum.de	70
i+    symv[ivc][k].lens[0] = parse_length();	Err	vernunftzentrum.de	70
i+    symv[ivc][k].npitch=1;	Err	vernunftzentrum.de	70
i+    symv[ivc][k].invis=invis;	Err	vernunftzentrum.de	70
i+    if (db>3) printf ("  parsed rest, length %d/%d = 1/%d\n", 	Err	vernunftzentrum.de	70
i+                      symv[ivc][k].lens[0],BASE,BASE/symv[ivc][k].lens[0]); 	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    m=0;                                 /* get pitch and length */	Err	vernunftzentrum.de	70
i+    sl1=sl2=0;	Err	vernunftzentrum.de	70
i+    for (;;) {	Err	vernunftzentrum.de	70
i+      if (chord && (*p=='(')) {	Err	vernunftzentrum.de	70
i+        sl1++;	Err	vernunftzentrum.de	70
i+        symv[ivc][k].sl1[m]=sl1;	Err	vernunftzentrum.de	70
i+        p++;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      deco=parse_deco(dtype);     /* for extra decorations within chord */	Err	vernunftzentrum.de	70
i+      for (i=0;i<deco;i++) symv[ivc][k].dc.t[i+symv[ivc][k].dc.n]=dtype[i];	Err	vernunftzentrum.de	70
i+      symv[ivc][k].dc.n += deco;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      rc=parse_basic_note (&pitch,&length,&accidental);	Err	vernunftzentrum.de	70
i+      if (rc==0) { voice[ivc].nsym--; return 0; }	Err	vernunftzentrum.de	70
i+      symv[ivc][k].pits[m] = pitch;	Err	vernunftzentrum.de	70
i+      symv[ivc][k].lens[m] = length;	Err	vernunftzentrum.de	70
i+      symv[ivc][k].accs[m] = accidental;	Err	vernunftzentrum.de	70
i+      symv[ivc][k].ti1[m]  = symv[ivc][k].ti2[m] = 0;	Err	vernunftzentrum.de	70
i+      for (j=0;j<ntinext;j++) 	Err	vernunftzentrum.de	70
i+        if (tinext[j]==symv[ivc][k].pits[m]) symv[ivc][k].ti2[m]=1;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      if (chord && (*p=='-')) {symv[ivc][k].ti1[m]=1; p++;}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      if (chord && (*p==')')) {	Err	vernunftzentrum.de	70
i+        sl2++;	Err	vernunftzentrum.de	70
i+        symv[ivc][k].sl2[m]=sl2;	Err	vernunftzentrum.de	70
i+        p++;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      if (chord && (*p=='-')) {symv[ivc][k].ti1[m]=1; p++;}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      m++;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      if (!chord) break;	Err	vernunftzentrum.de	70
i+      if ((*p=='+')||(*p==']')) {	Err	vernunftzentrum.de	70
i+        p++;	Err	vernunftzentrum.de	70
i+        break;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      if (*p=='\0') {	Err	vernunftzentrum.de	70
i+        if (chord) syntax ("Chord not closed", q); 	Err	vernunftzentrum.de	70
i+        return type;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    ntinext=0;	Err	vernunftzentrum.de	70
i+    for (j=0;j<m;j++)	Err	vernunftzentrum.de	70
i+      if (symv[ivc][k].ti1[j]) {	Err	vernunftzentrum.de	70
i+        tinext[ntinext]=symv[ivc][k].pits[j];	Err	vernunftzentrum.de	70
i+        ntinext++;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    symv[ivc][k].npitch=m;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (m=0;m<symv[ivc][k].npitch;m++) {   /* add carryover from > or < */	Err	vernunftzentrum.de	70
i+    if (symv[ivc][k].lens[m]+carryover<=0) {	Err	vernunftzentrum.de	70
i+      syntax("> leads to zero or negative note length",q0);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else	Err	vernunftzentrum.de	70
i+      symv[ivc][k].lens[m] += carryover;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  carryover=0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (db>3) printf ("  parsed note, decos %d, text <%s>\n",	Err	vernunftzentrum.de	70
i+                    symv[ivc][k].dc.n, symv[ivc][k].text);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  symv[ivc][k].yadd=0;	Err	vernunftzentrum.de	70
i+  if (voice[ivc].key.ktype==BASS) symv[ivc][k].yadd=-6;	Err	vernunftzentrum.de	70
i+  if (voice[ivc].key.ktype==ALTO) symv[ivc][k].yadd=-3;	Err	vernunftzentrum.de	70
i+  identify_note (&symv[ivc][k],q0); 	Err	vernunftzentrum.de	70
i+  return type;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- parse_sym: parse a symbol and return its type -------- */	Err	vernunftzentrum.de	70
i+int parse_sym ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (parse_gchord())   return GCHORD;	Err	vernunftzentrum.de	70
i+  if (parse_bar())      return BAR;	Err	vernunftzentrum.de	70
i+  if (parse_space())    return SPACE;	Err	vernunftzentrum.de	70
i+  if (parse_nl())       return NEWLINE;	Err	vernunftzentrum.de	70
i+  if ((i=parse_esc()))  return i;	Err	vernunftzentrum.de	70
i+  if ((i=parse_note())) return i;	Err	vernunftzentrum.de	70
i+  if (parse_nl())       return NEWLINE;	Err	vernunftzentrum.de	70
i+  return 0;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- add_wd ----- */	Err	vernunftzentrum.de	70
i+char *add_wd(str)	Err	vernunftzentrum.de	70
i+char str[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char *rp;	Err	vernunftzentrum.de	70
i+  int l;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  l=strlen(str);	Err	vernunftzentrum.de	70
i+  if (l==0) return 0;	Err	vernunftzentrum.de	70
i+  if (nwpool+l+1>NWPOOL) 	Err	vernunftzentrum.de	70
i+    rx ("Overflow while parsing vocals; increase NWPOOL and recompile.","");	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  strcpy(wpool+nwpool, str);	Err	vernunftzentrum.de	70
i+  rp=wpool+nwpool;	Err	vernunftzentrum.de	70
i+  nwpool=nwpool+l+1;	Err	vernunftzentrum.de	70
i+  return rp;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- parse_vocals: parse words below a line of music ----- */	Err	vernunftzentrum.de	70
i+/* Use '^' to mark a '-' between syllables - hope nobody needs '^' ! */	Err	vernunftzentrum.de	70
i+int parse_vocals (line)	Err	vernunftzentrum.de	70
i+char line[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int isym;	Err	vernunftzentrum.de	70
i+  char *c,*c1,*w;	Err	vernunftzentrum.de	70
i+  char word[81];	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if ((line[0]!='w') || (line[1]!=':')) return 0;	Err	vernunftzentrum.de	70
i+  p0=line;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  isym=nsym0-1;	Err	vernunftzentrum.de	70
i+  c=line+2;	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    while(*c==' ') c++;	Err	vernunftzentrum.de	70
i+    if (*c=='\0') break;	Err	vernunftzentrum.de	70
i+    c1=c;	Err	vernunftzentrum.de	70
i+    if ((*c=='_') || (*c=='*') || (*c=='|') || (*c=='-')) {	Err	vernunftzentrum.de	70
i+      word[0]=*c; 	Err	vernunftzentrum.de	70
i+      if (*c=='-') word[0]='^';	Err	vernunftzentrum.de	70
i+      word[1]='\0';	Err	vernunftzentrum.de	70
i+      c++;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      w=word;	Err	vernunftzentrum.de	70
i+      *w='\0';	Err	vernunftzentrum.de	70
i+      while ((*c!=' ') && (*c!='\0')) { 	Err	vernunftzentrum.de	70
i+        if ((*c=='_') || (*c=='*') || (*c=='|')) break;	Err	vernunftzentrum.de	70
i+        if (*c=='-') {	Err	vernunftzentrum.de	70
i+          if (*(c-1) != '\\') break;	Err	vernunftzentrum.de	70
i+          w--;	Err	vernunftzentrum.de	70
i+          *w='-';	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        *w=*c; w++; c++; 	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      if (*c=='-') { *w='^' ; w++; c++; }	Err	vernunftzentrum.de	70
i+      *w='\0';	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    /* now word contains a word, possibly with trailing '^',	Err	vernunftzentrum.de	70
i+       or one of the special characters * | _ -               */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (!strcmp(word,"|")) {               /* skip forward to next bar */	Err	vernunftzentrum.de	70
i+      isym++;	Err	vernunftzentrum.de	70
i+      while ((symv[ivc][isym].type!=BAR) && (isym<voice[ivc].nsym)) isym++; 	Err	vernunftzentrum.de	70
i+      if (isym>=voice[ivc].nsym) 	Err	vernunftzentrum.de	70
i+        { syntax("Not enough bar lines for |",c1); break; }	Err	vernunftzentrum.de	70
i+    } 	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    else {                                 /* store word in next note */	Err	vernunftzentrum.de	70
i+      w=word;                            	Err	vernunftzentrum.de	70
i+      while (*w!='\0') {                   /* replace * and ~ by space */	Err	vernunftzentrum.de	70
i+        if ((*w=='*') || (*w=='~')) *w=' ';	Err	vernunftzentrum.de	70
i+        w++;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      isym++;	Err	vernunftzentrum.de	70
i+      while ((symv[ivc][isym].type!=NOTE) && (isym<voice[ivc].nsym)) isym++; 	Err	vernunftzentrum.de	70
i+      if (isym>=voice[ivc].nsym) 	Err	vernunftzentrum.de	70
i+        { syntax ("Not enough notes for words",c1); break; }	Err	vernunftzentrum.de	70
i+      symv[ivc][isym].wordp[nwline]=add_wd(word);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (*c=='\0') break;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  nwline++;	Err	vernunftzentrum.de	70
i+  return 1;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- parse_music_line: parse a music line into symbols ----- */	Err	vernunftzentrum.de	70
i+int parse_music_line (line)	Err	vernunftzentrum.de	70
i+char line[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int type,num,nbr,n,itype,i,nsym00;	Err	vernunftzentrum.de	70
i+  char msg[81];	Err	vernunftzentrum.de	70
i+  char *p1,*pmx;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (nvoice==0) ivc=switch_voice (DEFVOICE);	Err	vernunftzentrum.de	70
i+  if (ivc>=nvoice) bug ("Trying to parse undefined voice",1);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  nwline=0;                  	Err	vernunftzentrum.de	70
i+  nsym0=voice[ivc].nsym;	Err	vernunftzentrum.de	70
i+  nsym00=nsym0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  nbr=0;	Err	vernunftzentrum.de	70
i+  p=p0=line;	Err	vernunftzentrum.de	70
i+  pmx=p+strlen(p);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  while (*p != 0) {	Err	vernunftzentrum.de	70
i+    if (p>pmx) break;                /* emergency exit */	Err	vernunftzentrum.de	70
i+    type=parse_sym();	Err	vernunftzentrum.de	70
i+    n=voice[ivc].nsym;	Err	vernunftzentrum.de	70
i+    i=n-1;	Err	vernunftzentrum.de	70
i+    if ((db>4) && type)  	Err	vernunftzentrum.de	70
i+      printf ("   sym[%d] code (%d,%d)\n",	Err	vernunftzentrum.de	70
i+              n-1,symv[ivc][n-1].type,symv[ivc][n-1].u);	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    if (type==NEWLINE) {	Err	vernunftzentrum.de	70
i+      if ((n>0) && !cfmt.continueall && !cfmt.barsperstaff) {	Err	vernunftzentrum.de	70
i+        symv[ivc][i].eoln=1;	Err	vernunftzentrum.de	70
i+        if (word) {	Err	vernunftzentrum.de	70
i+          symv[ivc][last_note].word_end=1;	Err	vernunftzentrum.de	70
i+          word=0;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    if (type==ESCSEQ) {	Err	vernunftzentrum.de	70
i+      if (db>3)  	Err	vernunftzentrum.de	70
i+        printf ("Handle escape sequence <%s>\n", escseq); 	Err	vernunftzentrum.de	70
i+      itype=info_field (escseq);	Err	vernunftzentrum.de	70
i+      handle_inside_field (itype);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    if (type==REST) {	Err	vernunftzentrum.de	70
i+      if (pplet) {                   /* n-plet can start on rest */	Err	vernunftzentrum.de	70
i+        symv[ivc][i].p_plet=pplet;	Err	vernunftzentrum.de	70
i+        symv[ivc][i].q_plet=qplet;	Err	vernunftzentrum.de	70
i+        symv[ivc][i].r_plet=rplet;	Err	vernunftzentrum.de	70
i+        pplet=0;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      last_note=i;                 /* need this so > and < work */	Err	vernunftzentrum.de	70
i+      p1=p;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (type==NOTE) {	Err	vernunftzentrum.de	70
i+      if (!word) {	Err	vernunftzentrum.de	70
i+        symv[ivc][i].word_st=1;	Err	vernunftzentrum.de	70
i+        word=1;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      symv[ivc][i].slur_st+=nbr;	Err	vernunftzentrum.de	70
i+      nbr=0;	Err	vernunftzentrum.de	70
i+      if (voice[ivc].end_slur) symv[ivc][i].slur_end++;	Err	vernunftzentrum.de	70
i+      voice[ivc].end_slur=0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      if (pplet) {                   /* start of n-plet */	Err	vernunftzentrum.de	70
i+        symv[ivc][i].p_plet=pplet;	Err	vernunftzentrum.de	70
i+        symv[ivc][i].q_plet=qplet;	Err	vernunftzentrum.de	70
i+        symv[ivc][i].r_plet=rplet;	Err	vernunftzentrum.de	70
i+        pplet=0;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      last_note=last_real_note=i;	Err	vernunftzentrum.de	70
i+      p1=p;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    if (word && ((type==BAR)||(type==SPACE))) {	Err	vernunftzentrum.de	70
i+      if (last_real_note>=0) symv[ivc][last_real_note].word_end=1;	Err	vernunftzentrum.de	70
i+      word=0;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (!type) {	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      if (*p == '-') {                  /* a-b tie */	Err	vernunftzentrum.de	70
i+        symv[ivc][last_note].slur_st++;	Err	vernunftzentrum.de	70
i+        voice[ivc].end_slur=1;	Err	vernunftzentrum.de	70
i+        p++;	Err	vernunftzentrum.de	70
i+      }                              	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      else if (*p == '(') {	Err	vernunftzentrum.de	70
i+        p++;	Err	vernunftzentrum.de	70
i+        if (isdig(*p)) {	Err	vernunftzentrum.de	70
i+          pplet=*p-'0'; qplet=0; rplet=pplet;	Err	vernunftzentrum.de	70
i+          p++;	Err	vernunftzentrum.de	70
i+          if (*p == ':') {	Err	vernunftzentrum.de	70
i+            p++;	Err	vernunftzentrum.de	70
i+            if (isdig(*p)) { qplet=*p-'0';  p++; }	Err	vernunftzentrum.de	70
i+            if (*p == ':') {	Err	vernunftzentrum.de	70
i+              p++;	Err	vernunftzentrum.de	70
i+              if (isdig(*p)) { rplet=*p-'0';  p++; }	Err	vernunftzentrum.de	70
i+            }	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        else {	Err	vernunftzentrum.de	70
i+          nbr++;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else if (*p == ')') {	Err	vernunftzentrum.de	70
i+        if (last_note>0) 	Err	vernunftzentrum.de	70
i+          symv[ivc][last_note].slur_end++;	Err	vernunftzentrum.de	70
i+        else	Err	vernunftzentrum.de	70
i+          syntax ("Unexpected symbol",p);	Err	vernunftzentrum.de	70
i+        p++;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else if (*p == '>') {	Err	vernunftzentrum.de	70
i+        num=1;	Err	vernunftzentrum.de	70
i+        p++;	Err	vernunftzentrum.de	70
i+        while (*p == '>') { num++; p++; }	Err	vernunftzentrum.de	70
i+        if (last_note<0) 	Err	vernunftzentrum.de	70
i+          syntax ("No note before > sign", p);	Err	vernunftzentrum.de	70
i+        else 	Err	vernunftzentrum.de	70
i+          double_note (last_note, num, 1, p1);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else if (*p == '<') {	Err	vernunftzentrum.de	70
i+        num=1;	Err	vernunftzentrum.de	70
i+        p++;	Err	vernunftzentrum.de	70
i+        while (*p == '<') { num++; p++; }	Err	vernunftzentrum.de	70
i+        if (last_note<0) 	Err	vernunftzentrum.de	70
i+          syntax ("No note before < sign", p);	Err	vernunftzentrum.de	70
i+        else 	Err	vernunftzentrum.de	70
i+          double_note (last_note, num, -1, p1);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else if (*p == '*')     /* ignore stars for now  */	Err	vernunftzentrum.de	70
i+        p++;	Err	vernunftzentrum.de	70
i+      else if (*p == '!')     /* ditto for '!' */	Err	vernunftzentrum.de	70
i+        p++;	Err	vernunftzentrum.de	70
i+      else {	Err	vernunftzentrum.de	70
i+        if (*p != '\0') 	Err	vernunftzentrum.de	70
i+          sprintf (msg, "Unexpected symbol \'%c\'", *p);	Err	vernunftzentrum.de	70
i+        else 	Err	vernunftzentrum.de	70
i+          sprintf (msg, "Unexpected end of line");	Err	vernunftzentrum.de	70
i+        syntax (msg, p);	Err	vernunftzentrum.de	70
i+        p++;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* maybe set end-of-line marker, if symbols were added */	Err	vernunftzentrum.de	70
i+  n=voice[ivc].nsym;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (n>nsym0) {        	Err	vernunftzentrum.de	70
i+    symv[ivc][n-1].eoln=1;	Err	vernunftzentrum.de	70
i+    if (type==CONTINUE)     symv[ivc][n-1].eoln=0;	Err	vernunftzentrum.de	70
i+    if (cfmt.barsperstaff)  symv[ivc][n-1].eoln=0;	Err	vernunftzentrum.de	70
i+    if (cfmt.continueall)   symv[ivc][n-1].eoln=0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* break words at end of line */	Err	vernunftzentrum.de	70
i+  if (word && (symv[ivc][n-1].eoln==1)) {	Err	vernunftzentrum.de	70
i+    symv[ivc][last_note].word_end=1;	Err	vernunftzentrum.de	70
i+    word=0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (vb>9)  	Err	vernunftzentrum.de	70
i+    printf ("Parsed music symbols %d to %d for voice %d\n", 	Err	vernunftzentrum.de	70
i+            nsym00,voice[ivc].nsym-1,ivc);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  return MUSIC;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- is_selected: check selection for current info fields ---- */	Err	vernunftzentrum.de	70
i+int is_selected (xref_str,npat,pat,select_all,search_field)	Err	vernunftzentrum.de	70
i+int npat,select_all,search_field;	Err	vernunftzentrum.de	70
i+char xref_str[],pat[][STRL1];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,j,a,b,m;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* true if select_all or if no selectors given */	Err	vernunftzentrum.de	70
i+  if (select_all) return 1;	Err	vernunftzentrum.de	70
i+  if (isblank(xref_str) && (npat==0)) return 1;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (i=0;i<npat;i++) {             /*patterns */	Err	vernunftzentrum.de	70
i+    if (search_field==S_COMPOSER) {	Err	vernunftzentrum.de	70
i+      for (j=0;j<info.ncomp;j++) {	Err	vernunftzentrum.de	70
i+        if (!m) m=match(info.comp[j],pat[i]);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else if (search_field==S_SOURCE)	Err	vernunftzentrum.de	70
i+      m=match(info.src,pat[i]);	Err	vernunftzentrum.de	70
i+    else if (search_field==S_RHYTHM)	Err	vernunftzentrum.de	70
i+      m=match(info.rhyth,pat[i]);	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      m=match(info.title,pat[i]);	Err	vernunftzentrum.de	70
i+      if ((!m) && (numtitle>=2)) m=match(info.title2,pat[i]);	Err	vernunftzentrum.de	70
i+      if ((!m) && (numtitle>=3)) m=match(info.title3,pat[i]);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (m) return 1;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* check xref against string of numbers */	Err	vernunftzentrum.de	70
i+  p=xref_str;	Err	vernunftzentrum.de	70
i+  while (*p != 0) {	Err	vernunftzentrum.de	70
i+    parse_space();	Err	vernunftzentrum.de	70
i+    a=parse_uint();	Err	vernunftzentrum.de	70
i+    if (!a) return 0;          /* can happen if invalid chars in string */	Err	vernunftzentrum.de	70
i+    parse_space();	Err	vernunftzentrum.de	70
i+    if (*p == '-') {	Err	vernunftzentrum.de	70
i+      p++;	Err	vernunftzentrum.de	70
i+      parse_space();	Err	vernunftzentrum.de	70
i+      b=parse_uint();	Err	vernunftzentrum.de	70
i+      if (!b) {	Err	vernunftzentrum.de	70
i+        if (xrefnum>=a) return 1;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else	Err	vernunftzentrum.de	70
i+        for (i=a;i<=b;i++) if (xrefnum==i) return 1;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      if (xrefnum==a) return 1;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (*p == ',') p++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return 0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- rehash_selectors: split selectors into patterns and xrefs -- */	Err	vernunftzentrum.de	70
i+int rehash_selectors (sel_str, xref_str, pat)	Err	vernunftzentrum.de	70
i+char sel_str[], xref_str[];	Err	vernunftzentrum.de	70
i+char pat[][STRL1];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char *q;	Err	vernunftzentrum.de	70
i+  char arg[501];	Err	vernunftzentrum.de	70
i+  int i,npat;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  npat=0;	Err	vernunftzentrum.de	70
i+  strcpy (xref_str, "");	Err	vernunftzentrum.de	70
i+  q=sel_str;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  i=0;	Err	vernunftzentrum.de	70
i+  while (1) {	Err	vernunftzentrum.de	70
i+    if ((*q==' ') || (*q=='\0')) {	Err	vernunftzentrum.de	70
i+      arg[i]='\0';	Err	vernunftzentrum.de	70
i+      i=0;	Err	vernunftzentrum.de	70
i+      if (!isblank(arg)) {	Err	vernunftzentrum.de	70
i+        if (arg[0]=='-')               /* skip any flags */	Err	vernunftzentrum.de	70
i+          ;	Err	vernunftzentrum.de	70
i+        else if (is_xrefstr(arg)) {	Err	vernunftzentrum.de	70
i+          strcat(xref_str, arg);	Err	vernunftzentrum.de	70
i+          strcat(xref_str, " ");	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        else {                         /* pattern with * or + */	Err	vernunftzentrum.de	70
i+          if ((strchr(arg,'*')) || (strchr(arg,'+'))) {	Err	vernunftzentrum.de	70
i+            strcpy(pat[npat],arg);	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+          else {                       /* simple pattern */	Err	vernunftzentrum.de	70
i+            strcpy(pat[npat],"*");	Err	vernunftzentrum.de	70
i+            strcat(pat[npat],arg);	Err	vernunftzentrum.de	70
i+            strcat(pat[npat],"*");	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+          npat++;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      arg[i]=*q;	Err	vernunftzentrum.de	70
i+      i++;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (*q=='\0') break;	Err	vernunftzentrum.de	70
i+    q++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  return npat;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- decomment_line: cut off after % ----- */	Err	vernunftzentrum.de	70
i+void decomment_line (ln)	Err	vernunftzentrum.de	70
i+char ln[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (i=0;i<strlen(ln);i++) if (ln[i]=='%') ln[i]='\0';	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- get_line: read line, do first operations on it ----- */	Err	vernunftzentrum.de	70
i+int get_line (fp,ln)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+char ln[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int l;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  strcpy (ln, "");	Err	vernunftzentrum.de	70
i+  if (feof(fp)) return 0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  getline(ln, BSIZE, fp);	Err	vernunftzentrum.de	70
i+/*|   fgets(ln, BSIZE, fp); |*/	Err	vernunftzentrum.de	70
i+  linenum++;	Err	vernunftzentrum.de	70
i+  l=strlen(ln);	Err	vernunftzentrum.de	70
i+  if (l>STRL) {	Err	vernunftzentrum.de	70
i+    if (verbose<=2) printf ("\n"); 	Err	vernunftzentrum.de	70
i+    printf ("+++ Line %d too long, truncate from %d to %d chars\n",	Err	vernunftzentrum.de	70
i+            linenum, l, STRL);	Err	vernunftzentrum.de	70
i+    l=STRL-1;	Err	vernunftzentrum.de	70
i+    ln[l]='\0';	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  if (is_end_line(ln))  return 0;	Err	vernunftzentrum.de	70
i+  if (ln[l-1]=='\n') ln[l-1]='\0';	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if ((verbose>=7) || (vb>=10) ) printf ("%3d  %s \n", linenum, ln);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return 1;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- read_line: returns type of line scanned --- */	Err	vernunftzentrum.de	70
i+int read_line (fp,line)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+char line[BSIZE];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int type,nsym0;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (!get_line(fp,line)) return E_O_F;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (isblank(line))           return BLANK;	Err	vernunftzentrum.de	70
i+  if (is_pseudocomment(line))  return PSCOMMENT;	Err	vernunftzentrum.de	70
i+  if (is_comment(line))        return COMMENT;	Err	vernunftzentrum.de	70
i+  decomment_line (line);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if ((type=info_field(line))) {	Err	vernunftzentrum.de	70
i+    /* skip after history field. Nightmarish syntax, that. */	Err	vernunftzentrum.de	70
i+    if (type != HISTORY) 	Err	vernunftzentrum.de	70
i+      return type;	Err	vernunftzentrum.de	70
i+    else {          	Err	vernunftzentrum.de	70
i+      for (;;) {	Err	vernunftzentrum.de	70
i+        if (! get_line(fp,line)) return E_O_F;	Err	vernunftzentrum.de	70
i+        if (isblank(line)) return BLANK;	Err	vernunftzentrum.de	70
i+        if (is_info_field(line)) break;	Err	vernunftzentrum.de	70
i+        add_text (line, TEXT_H);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      type=info_field (line);	Err	vernunftzentrum.de	70
i+      return type;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (do_this_tune) {	Err	vernunftzentrum.de	70
i+    if (parse_vocals(line)) return MWORDS;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return MUSIC;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- do_index: print index of abc file ------ */	Err	vernunftzentrum.de	70
i+void do_index(fp,xref_str,npat,pat,select_all,search_field)	Err	vernunftzentrum.de	70
i+FILE *fp; 	Err	vernunftzentrum.de	70
i+int npat,select_all,search_field;	Err	vernunftzentrum.de	70
i+char xref_str[],pat[][STRL1];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int type,within_tune;	Err	vernunftzentrum.de	70
i+  char line[BSIZE];	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  linenum=0;	Err	vernunftzentrum.de	70
i+  verbose=vb;	Err	vernunftzentrum.de	70
i+  numtitle=0;	Err	vernunftzentrum.de	70
i+  write_history=0;	Err	vernunftzentrum.de	70
i+  within_tune=within_block=do_this_tune=0;	Err	vernunftzentrum.de	70
i+  reset_info (&default_info);	Err	vernunftzentrum.de	70
i+  info=default_info;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    if (!get_line(fp,line)) break;	Err	vernunftzentrum.de	70
i+    if (is_comment(line)) continue;	Err	vernunftzentrum.de	70
i+    decomment_line (line);	Err	vernunftzentrum.de	70
i+    type=info_field (line);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    switch (type) {	Err	vernunftzentrum.de	70
i+        	Err	vernunftzentrum.de	70
i+    case XREF:	Err	vernunftzentrum.de	70
i+      if (within_block) 	Err	vernunftzentrum.de	70
i+        printf ("+++ Tune %d not closed properly \n", xrefnum);	Err	vernunftzentrum.de	70
i+      numtitle=0;	Err	vernunftzentrum.de	70
i+      within_tune=0;	Err	vernunftzentrum.de	70
i+      within_block=1;	Err	vernunftzentrum.de	70
i+      ntext=0;	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+    case KEY:	Err	vernunftzentrum.de	70
i+      if (!within_block) break;	Err	vernunftzentrum.de	70
i+      if (!within_tune) {	Err	vernunftzentrum.de	70
i+        tnum2++;	Err	vernunftzentrum.de	70
i+        if (is_selected (xref_str,npat,pat,select_all,search_field)) {	Err	vernunftzentrum.de	70
i+          printf ("  %-4d %-5s %-4s", xrefnum, info.key, info.meter);	Err	vernunftzentrum.de	70
i+          if      (search_field==S_SOURCE)   printf ("  %-15s", info.src);	Err	vernunftzentrum.de	70
i+          else if (search_field==S_RHYTHM)   printf ("  %-8s",  info.rhyth);	Err	vernunftzentrum.de	70
i+          else if (search_field==S_COMPOSER) printf ("  %-15s", info.comp[0]);	Err	vernunftzentrum.de	70
i+          if (numtitle==3) 	Err	vernunftzentrum.de	70
i+            printf ("  %s - %s - %s", info.title,info.title2,info.title3);	Err	vernunftzentrum.de	70
i+          if (numtitle==2) printf ("  %s - %s", info.title, info.title2);	Err	vernunftzentrum.de	70
i+          if (numtitle==1) printf ("  %s", info.title);	Err	vernunftzentrum.de	70
i+          	Err	vernunftzentrum.de	70
i+          printf ("\n");	Err	vernunftzentrum.de	70
i+          tnum1++;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        within_tune=1;	Err	vernunftzentrum.de	70
i+      }  	Err	vernunftzentrum.de	70
i+      break;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    if (isblank(line)) {	Err	vernunftzentrum.de	70
i+      if (within_block && !within_tune) 	Err	vernunftzentrum.de	70
i+        printf ("+++ Header not closed in tune %d\n", xrefnum);	Err	vernunftzentrum.de	70
i+      within_tune=0;	Err	vernunftzentrum.de	70
i+      within_block=0;	Err	vernunftzentrum.de	70
i+      info=default_info;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  if (within_block && !within_tune) 	Err	vernunftzentrum.de	70
i+    printf ("+++ Header not closed in for tune %d\n", xrefnum);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
1diff --git a/pssubs.h b/pssubs.h	/ckeen/repos/abc2ps/file/pssubs.h.gph	vernunftzentrum.de	70
i@@ -0,0 +1,338 @@	Err	vernunftzentrum.de	70
i+/*  	Err	vernunftzentrum.de	70
i+ *  This file is part of abc2ps, 	Err	vernunftzentrum.de	70
i+ *  Copyright (C) 1996,1997,1998  Michael Methfessel	Err	vernunftzentrum.de	70
i+ *  See file abc2ps.c for details.	Err	vernunftzentrum.de	70
i+ */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*  subroutines for postscript output  */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- level1_fix: special defs for level 1 Postscript ------- */	Err	vernunftzentrum.de	70
i+void level1_fix (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, 	Err	vernunftzentrum.de	70
i+           "/selectfont { exch findfont exch dup   %% emulate level 2 op\n"	Err	vernunftzentrum.de	70
i+           "  type /arraytype eq {makefont}{scalefont} ifelse setfont\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n"	Err	vernunftzentrum.de	70
i+           );	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* fix to define ISOLatin1Encoding for ps level 1 (david weisman) */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, 	Err	vernunftzentrum.de	70
i+           "/ISOLatin1Encoding\n"	Err	vernunftzentrum.de	70
i+           "[ /.notdef    /.notdef    /.notdef    /.notdef\n"	Err	vernunftzentrum.de	70
i+           "/.notdef    /.notdef    /.notdef    /.notdef\n"	Err	vernunftzentrum.de	70
i+           "/.notdef    /.notdef    /.notdef    /.notdef\n"	Err	vernunftzentrum.de	70
i+           "/.notdef    /.notdef    /.notdef    /.notdef\n"	Err	vernunftzentrum.de	70
i+           "/.notdef    /.notdef    /.notdef    /.notdef\n"	Err	vernunftzentrum.de	70
i+           "/.notdef    /.notdef    /.notdef    /.notdef\n"	Err	vernunftzentrum.de	70
i+           "/.notdef    /.notdef    /.notdef    /.notdef\n"	Err	vernunftzentrum.de	70
i+           "/.notdef    /.notdef    /.notdef    /.notdef\n"	Err	vernunftzentrum.de	70
i+           "/space      /exclam     /quotedbl   /numbersign\n"	Err	vernunftzentrum.de	70
i+           "/dollar     /percent    /ampersand  /quoteright\n"	Err	vernunftzentrum.de	70
i+           "/parenleft  /parenright /asterisk   /plus\n"	Err	vernunftzentrum.de	70
i+           "/comma      /hyphen     /period     /slash\n"	Err	vernunftzentrum.de	70
i+           "/zero       /one        /two        /three\n"	Err	vernunftzentrum.de	70
i+           "/four       /five       /six        /seven\n"	Err	vernunftzentrum.de	70
i+           "/eight      /nine       /colon      /semicolon\n"	Err	vernunftzentrum.de	70
i+           "/less       /equal      /greater    /question\n"	Err	vernunftzentrum.de	70
i+           "/at         /A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z /bracketleft\n"	Err	vernunftzentrum.de	70
i+           "/backslash  /bracketright/asciicircum/underscore\n"	Err	vernunftzentrum.de	70
i+           "/quoteleft  /a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z /braceleft\n"	Err	vernunftzentrum.de	70
i+           "/bar        /braceright/asciitilde  /.notdef\n"	Err	vernunftzentrum.de	70
i+           "/.notdef    /.notdef    /.notdef    /.notdef\n"	Err	vernunftzentrum.de	70
i+           "/.notdef    /.notdef    /.notdef    /.notdef\n"	Err	vernunftzentrum.de	70
i+           "/.notdef    /.notdef    /.notdef    /.notdef\n"	Err	vernunftzentrum.de	70
i+           "/.notdef    /.notdef    /.notdef    /.notdef\n"	Err	vernunftzentrum.de	70
i+           "/dotlessi   /grave      /acute      /circumflex\n"	Err	vernunftzentrum.de	70
i+           "/tilde      /macron     /breve      /dotaccent\n"	Err	vernunftzentrum.de	70
i+           "/dieresis   /.notdef    /ring       /cedilla\n"	Err	vernunftzentrum.de	70
i+           "/.notdef    /hungarumlaut/ogonek    /caron\n"	Err	vernunftzentrum.de	70
i+           "/space      /exclamdown /cent       /sterling\n"	Err	vernunftzentrum.de	70
i+           "/currency   /yen        /brokenbar  /section\n"	Err	vernunftzentrum.de	70
i+           "/dieresis   /copyright  /ordfeminine/guillemotleft\n"	Err	vernunftzentrum.de	70
i+           "/logicalnot /hyphen     /registered /macron\n"	Err	vernunftzentrum.de	70
i+           "/degree     /plusminus  /twosuperior/threesuperior\n"	Err	vernunftzentrum.de	70
i+           "/acute      /mu         /paragraph  /periodcentered\n"	Err	vernunftzentrum.de	70
i+           "/cedilla    /onesuperior/ordmasculine/guillemotright\n"	Err	vernunftzentrum.de	70
i+           "/onequarter /onehalf    /threequarters/questiondown\n"	Err	vernunftzentrum.de	70
i+           "/Agrave     /Aacute     /Acircumflex/Atilde\n"	Err	vernunftzentrum.de	70
i+           "/Adieresis  /Aring      /AE         /Ccedilla\n"	Err	vernunftzentrum.de	70
i+           "/Egrave     /Eacute     /Ecircumflex/Edieresis\n"	Err	vernunftzentrum.de	70
i+           "/Igrave     /Iacute     /Icircumflex/Idieresis\n"	Err	vernunftzentrum.de	70
i+           "/Eth        /Ntilde     /Ograve     /Oacute\n"	Err	vernunftzentrum.de	70
i+           "/Ocircumflex/Otilde     /Odieresis  /multiply\n"	Err	vernunftzentrum.de	70
i+           "/Oslash     /Ugrave     /Uacute     /Ucircumflex\n"	Err	vernunftzentrum.de	70
i+           "/Udieresis  /Yacute     /Thorn      /germandbls\n"	Err	vernunftzentrum.de	70
i+           "/agrave     /aacute     /acircumflex/atilde\n"	Err	vernunftzentrum.de	70
i+           "/adieresis  /aring      /ae         /ccedilla\n"	Err	vernunftzentrum.de	70
i+           "/egrave     /eacute     /ecircumflex/edieresis\n"	Err	vernunftzentrum.de	70
i+           "/igrave     /iacute     /icircumflex/idieresis\n"	Err	vernunftzentrum.de	70
i+           "/eth        /ntilde     /ograve     /oacute\n"	Err	vernunftzentrum.de	70
i+           "/ocircumflex/otilde     /odieresis  /divide\n"	Err	vernunftzentrum.de	70
i+           "/oslash     /ugrave     /uacute     /ucircumflex\n"	Err	vernunftzentrum.de	70
i+           "/udieresis  /yacute     /thorn      /ydieresis\n"	Err	vernunftzentrum.de	70
i+           "] def\n\n"	Err	vernunftzentrum.de	70
i+           );	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* end fix to define ISOLatin1Encoding for ps level 1 */	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- init_ps ------- */	Err	vernunftzentrum.de	70
i+void init_ps (fp,str,is_epsf,bx1,by1,bx2,by2)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+char str[];	Err	vernunftzentrum.de	70
i+int  is_epsf;	Err	vernunftzentrum.de	70
i+float bx1,bx2,by1,by2;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  time_t  ltime;	Err	vernunftzentrum.de	70
i+  char    tstr[41];	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (is_epsf) {	Err	vernunftzentrum.de	70
i+    if (vb>=8) printf("Open EPS file with title \"%s\"\n", str);	Err	vernunftzentrum.de	70
i+    fprintf (fp, "%%!PS-Adobe-3.0 EPSF-3.0\n");	Err	vernunftzentrum.de	70
i+    fprintf (fp, "%%%%BoundingBox: %.0f %.0f %.0f %.0f\n",	Err	vernunftzentrum.de	70
i+             bx1,by1,bx2,by2);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    if (vb>=8) printf("Open PS file with title \"%s\"\n", str);	Err	vernunftzentrum.de	70
i+    fprintf (fp, "%%!PS-Adobe-3.0\n");	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* Title */	Err	vernunftzentrum.de	70
i+  fprintf (fp, "%%%%Title: %s\n", str);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* CreationDate */	Err	vernunftzentrum.de	70
i+  time(&ltime);              	Err	vernunftzentrum.de	70
i+  strcpy (tstr,  ctime(&ltime));	Err	vernunftzentrum.de	70
i+  tstr[24]='\0';	Err	vernunftzentrum.de	70
i+  tstr[16]='\0';	Err	vernunftzentrum.de	70
i+  fprintf (fp, "%%%%Creator: abc2ps %s.%s\n", VERSION, REVISION);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "%%%%CreationDate: %s %s\n", tstr+4,tstr+20);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (PS_LEVEL == 2) fprintf (fp, "%%%%LanguageLevel: 2\n");	Err	vernunftzentrum.de	70
i+  fprintf (fp, "%%%%EndComments\n\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (is_epsf) 	Err	vernunftzentrum.de	70
i+    fprintf (fp, "gsave /origstate save def mark\n100 dict begin\n\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, "%%%%BeginSetup\n");	Err	vernunftzentrum.de	70
i+  if (PS_LEVEL < 2) level1_fix (fp);	Err	vernunftzentrum.de	70
i+  if (vb>=7) printf ("\nDefining ISO fonts in file header:\n");	Err	vernunftzentrum.de	70
i+  for (i=0;i<nfontnames;i++) {	Err	vernunftzentrum.de	70
i+    define_font (fp,fontnames[i],i);	Err	vernunftzentrum.de	70
i+    if (vb>=7) printf ("   F%d   %s\n", i,fontnames[i]); 	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  define_symbols (fp);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n0 setlinecap 0 setlinejoin 0.8 setlinewidth\n");	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/T {translate} bind def\n/M {moveto} bind def\n");	Err	vernunftzentrum.de	70
i+  fprintf (fp, "%%%%EndSetup\n");	Err	vernunftzentrum.de	70
i+  file_initialized=1;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- close_ps ------- */	Err	vernunftzentrum.de	70
i+void close_ps (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  if(vb>=8) printf ("closing PS file\n");	Err	vernunftzentrum.de	70
i+  fprintf (fp, 	Err	vernunftzentrum.de	70
i+           "%%EOF\n\n"	Err	vernunftzentrum.de	70
i+           );	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- init_page: initialize postscript page ----- */	Err	vernunftzentrum.de	70
i+void init_page (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (vb>=10) printf ("init_page called; in_page=%d\n", in_page);	Err	vernunftzentrum.de	70
i+  if (in_page) return;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (!file_initialized) {	Err	vernunftzentrum.de	70
i+    if (vb>=10) printf ("file not yet initialized; do it now\n");	Err	vernunftzentrum.de	70
i+    init_ps (fp,infostr, 0,0.0,0.0,0.0,0.0);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  in_page=1;	Err	vernunftzentrum.de	70
i+  pagenum++;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (verbose==0) ;	Err	vernunftzentrum.de	70
i+  else if (verbose==1) printf ("[%d] ", pagenum);	Err	vernunftzentrum.de	70
i+  else if (verbose==2) printf ("[%d] ", pagenum);	Err	vernunftzentrum.de	70
i+  else                 printf ("[%d]\n", pagenum);	Err	vernunftzentrum.de	70
i+  fflush (stdout);	Err	vernunftzentrum.de	70
i+  fprintf (fp, 	Err	vernunftzentrum.de	70
i+           "\n%% --- page %d\n"	Err	vernunftzentrum.de	70
i+           "%%%%Page: %d %d\n"	Err	vernunftzentrum.de	70
i+           "%%%%BeginPageSetup\n",	Err	vernunftzentrum.de	70
i+           pagenum, pagenum, pagenum);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (cfmt.landscape) fprintf(fp,"%%%%PageOrientation: Landscape\n");	Err	vernunftzentrum.de	70
i+  fprintf(fp,"gsave ");	Err	vernunftzentrum.de	70
i+  if (cfmt.landscape) fprintf(fp,"90 rotate 0 %.1f translate ", 	Err	vernunftzentrum.de	70
i+                              -cfmt.pageheight);	Err	vernunftzentrum.de	70
i+  fprintf (fp,"%.2f %.2f translate\n", 	Err	vernunftzentrum.de	70
i+           cfmt.leftmargin, cfmt.pageheight-cfmt.topmargin);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "%%%%EndPageSetup\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* write page number */	Err	vernunftzentrum.de	70
i+  if (pagenumbers) {	Err	vernunftzentrum.de	70
i+    fprintf (fp, "/Times-Roman 12 selectfont ");	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    /* page numbers always at right */	Err	vernunftzentrum.de	70
i+    fprintf(fp, "%.1f %.1f moveto (%d) /bx false def lshow\n", 	Err	vernunftzentrum.de	70
i+            cfmt.staffwidth, cfmt.topmargin-30.0, pagenum); 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    /* page number right/left for odd/even pages */	Err	vernunftzentrum.de	70
i+/*|      if (pagenum%2==0)   |*/	Err	vernunftzentrum.de	70
i+/*|        fprintf(fp, "%.1f %.1f moveto (%d) show\n",  |*/	Err	vernunftzentrum.de	70
i+/*|                0.0, cfmt.topmargin-30.0, pagenum);  |*/	Err	vernunftzentrum.de	70
i+/*|      else  |*/	Err	vernunftzentrum.de	70
i+/*|        fprintf(fp, "%.1f %.1f moveto (%d) lshow\n",  |*/	Err	vernunftzentrum.de	70
i+/*|                cfmt.staffwidth, cfmt.topmargin-30.0, pagenum);  |*/	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- init_index_page ----- */	Err	vernunftzentrum.de	70
i+void init_index_page (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float hsize;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  index_pagenum++;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, 	Err	vernunftzentrum.de	70
i+           "\n%% --- page %d\n"	Err	vernunftzentrum.de	70
i+           "%%%%Page: %d %d\n"	Err	vernunftzentrum.de	70
i+           "%%%%BeginPageSetup\n",	Err	vernunftzentrum.de	70
i+           index_pagenum, index_pagenum, index_pagenum);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (cfmt.landscape) fprintf(fp,"%%%%PageOrientation: Landscape\n");	Err	vernunftzentrum.de	70
i+  if (cfmt.landscape) fprintf(fp,"90 rotate 0 %.1f translate ", 	Err	vernunftzentrum.de	70
i+                              -cfmt.pageheight);	Err	vernunftzentrum.de	70
i+  fprintf (findex, "gsave\n"); 	Err	vernunftzentrum.de	70
i+  fprintf (fp, "%%%%EndPageSetup\n\n");	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  index_posx=cfmt.leftmargin;	Err	vernunftzentrum.de	70
i+  index_posy=cfmt.pageheight-cfmt.topmargin;	Err	vernunftzentrum.de	70
i+  /* extra space at top.. */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  index_posy = index_posy - 2*cfmt.indexfont.size;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* write heading */	Err	vernunftzentrum.de	70
i+  if (index_pagenum == 1) {	Err	vernunftzentrum.de	70
i+    hsize = 1.5*cfmt.indexfont.size;	Err	vernunftzentrum.de	70
i+    index_posy = index_posy - hsize;	Err	vernunftzentrum.de	70
i+    fprintf (findex, "%.1f %d F1 \n", hsize,cfmt.indexfont.box);	Err	vernunftzentrum.de	70
i+    fprintf (findex, "%.2f %.2f M (Contents) S\n", index_posx, index_posy);	Err	vernunftzentrum.de	70
i+    index_posy = index_posy - cfmt.indexfont.size;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (findex, "%.1f %d F1 \n", 	Err	vernunftzentrum.de	70
i+           cfmt.indexfont.size, cfmt.indexfont.box);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- init_index_file ------- */	Err	vernunftzentrum.de	70
i+void init_index_file ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  time_t  ltime;	Err	vernunftzentrum.de	70
i+  char    tstr[41];	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  fprintf (findex, "%%!PS-Adobe-3.0\n");	Err	vernunftzentrum.de	70
i+  fprintf (findex, "%%%%Title: abc2ps index\n");	Err	vernunftzentrum.de	70
i+  time(&ltime);              	Err	vernunftzentrum.de	70
i+  strcpy (tstr,  ctime(&ltime));	Err	vernunftzentrum.de	70
i+  tstr[24]='\0';	Err	vernunftzentrum.de	70
i+  tstr[16]='\0';	Err	vernunftzentrum.de	70
i+  fprintf (findex, "%%%%Creator: abc2ps %s.%s\n", VERSION, REVISION);	Err	vernunftzentrum.de	70
i+  fprintf (findex, "%%%%CreationDate: %s %s\n", tstr+4,tstr+20);	Err	vernunftzentrum.de	70
i+  if (PS_LEVEL == 2) fprintf (findex, "%%%%LanguageLevel: 2\n");	Err	vernunftzentrum.de	70
i+  fprintf (findex, "%%%%EndComments\n\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (findex, "%%%%BeginSetup\n");	Err	vernunftzentrum.de	70
i+  if (PS_LEVEL < 2) level1_fix (findex);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  define_font (findex,cfmt.indexfont.name,1);	Err	vernunftzentrum.de	70
i+  fprintf (findex, "\n/T {translate} bind def\n/M {moveto} bind def\n");	Err	vernunftzentrum.de	70
i+  fprintf (findex, "/S {show} bind def\n");	Err	vernunftzentrum.de	70
i+  def_misc (findex);	Err	vernunftzentrum.de	70
i+  fprintf (findex, "%%%%EndSetup\n\n");	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  index_pagenum=0;	Err	vernunftzentrum.de	70
i+  init_index_page (findex);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  index_initialized=1;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- close_index_page-------- */	Err	vernunftzentrum.de	70
i+void close_index_page (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, 	Err	vernunftzentrum.de	70
i+           "\n%%%%PageTrailer\n"	Err	vernunftzentrum.de	70
i+           "grestore\n"	Err	vernunftzentrum.de	70
i+           "showpage\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- close_page-------- */	Err	vernunftzentrum.de	70
i+void close_page (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  if (vb>=10) printf ("close_page called; in_page=%d\n", in_page);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (! in_page) return;	Err	vernunftzentrum.de	70
i+  in_page=0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, 	Err	vernunftzentrum.de	70
i+           "\n%%%%PageTrailer\n"	Err	vernunftzentrum.de	70
i+           "grestore\n"	Err	vernunftzentrum.de	70
i+           "showpage\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- init_epsf: initialize epsf file ----- */	Err	vernunftzentrum.de	70
i+void init_epsf (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float px,py;	Err	vernunftzentrum.de	70
i+  px=cfmt.leftmargin;	Err	vernunftzentrum.de	70
i+  py=cfmt.pageheight-cfmt.topmargin;	Err	vernunftzentrum.de	70
i+  fprintf (fp, "%.2f %.2f translate\n", px, py);	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- close_epsf: close epsf file ----- */	Err	vernunftzentrum.de	70
i+void close_epsf (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  fprintf (fp, 	Err	vernunftzentrum.de	70
i+           "\nshowpage\nend\n"	Err	vernunftzentrum.de	70
i+           "cleartomark origstate restore grestore\n\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- write_pagebreak ----- */	Err	vernunftzentrum.de	70
i+void write_pagebreak (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  close_page (fp);	Err	vernunftzentrum.de	70
i+  init_page  (fp);	Err	vernunftzentrum.de	70
i+  if (strlen(page_init)>0) fprintf(fp,"%s\n", page_init);	Err	vernunftzentrum.de	70
i+  posy=cfmt.pageheight-cfmt.topmargin;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
1diff --git a/sample.abc b/sample.abc	/ckeen/repos/abc2ps/file/sample.abc.gph	vernunftzentrum.de	70
i@@ -0,0 +1,122 @@	Err	vernunftzentrum.de	70
i+% Sample file to test various features of abc2ps	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:1	Err	vernunftzentrum.de	70
i+T:Scale	Err	vernunftzentrum.de	70
i+T:Second Title	Err	vernunftzentrum.de	70
i+T:Third Title	Err	vernunftzentrum.de	70
i+M:C	Err	vernunftzentrum.de	70
i+K:C	Err	vernunftzentrum.de	70
i+L: 1/4	Err	vernunftzentrum.de	70
i+ "C,"C,"D,"D,"E,"E,"F,"F,  "G,"G,"A,"A,"B,"B,\	Err	vernunftzentrum.de	70
i+| "C"C"D"D"E"E"F"F  "G"G"A"A"B"B| "c"c "d"d"e"e"f"f  "g"g"a"a"b"b"c'"c' |	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:3	Err	vernunftzentrum.de	70
i+T:Short and Long Notes, Beams, N-tuplets	Err	vernunftzentrum.de	70
i+C:Trad	Err	vernunftzentrum.de	70
i+M:C	Err	vernunftzentrum.de	70
i+K:C	Err	vernunftzentrum.de	70
i+L: 1/8	Err	vernunftzentrum.de	70
i+ c8| d4 e2 fg | C c C/ c/ d/e/ d// C// C/D/E/F/ | d>e d>>e e<fe (3CDE (4fgab |	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:4	Err	vernunftzentrum.de	70
i+T:Key signature, Accidentals and Decorations	Err	vernunftzentrum.de	70
i+M:C	Err	vernunftzentrum.de	70
i+K:A	Err	vernunftzentrum.de	70
i+L: 1/4	Err	vernunftzentrum.de	70
i+ ^C=C_C ^G=G_G | .F/.G/.A/ Ma/Mg/Mf/ Jc J^c  J[c^f] J[c^g]  |\	Err	vernunftzentrum.de	70
i+ {f}e {C}D {cd}c {E^c}a2 {dedc}d|    	Err	vernunftzentrum.de	70
i+ uc vc'-c'/Mb/Mc'/Ma/ | (b4 | b/).a/.b/.c'/ | ~A ~g \	Err	vernunftzentrum.de	70
i+ RA Rg  MA Mg kA kg | KA Kg vf/-g/ (u.a/.b/)  | uR~M.c2  Hg4 ||	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:5	Err	vernunftzentrum.de	70
i+T:Bars and Rests	Err	vernunftzentrum.de	70
i+M:6/8	Err	vernunftzentrum.de	70
i+L: 1/4	Err	vernunftzentrum.de	70
i+K:D	Err	vernunftzentrum.de	70
i+[| z4  |] z2 |: z z/z// :| z2> :: z2 z>z |  f>z g>z  ||	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:6	Err	vernunftzentrum.de	70
i+T:Chords, Unions, First and Second Endings	Err	vernunftzentrum.de	70
i+M:9/8	Err	vernunftzentrum.de	70
i+K:D	Err	vernunftzentrum.de	70
i+L: 1/4	Err	vernunftzentrum.de	70
i+|: [D2FA] ~+d2fa+ | [c2e][df][eg]|\	Err	vernunftzentrum.de	70
i+ [cc] [dd] [F/A][G/B][D/F]>[C/E] [G/e][A/e] [G/e]>.[A/e][B/e]>.[c/e]\	Err	vernunftzentrum.de	70
i+|1 (3[A//df][A//ef][A//cg] [G3Ce] :|2 (3[A//=df][^A//dg][_A//_c^g] [e3gc] |]	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:7	Err	vernunftzentrum.de	70
i+T:Slurs and Ties	Err	vernunftzentrum.de	70
i+T: Title with funny chars like \cC\'e\~n\^o \`A\cc\"a\ss\"o \251	Err	vernunftzentrum.de	70
i+M:C|	Err	vernunftzentrum.de	70
i+K:Ebm	Err	vernunftzentrum.de	70
i+[| (CDEF) ((3efg) ((3gag)| (C2 EF) (ef(ga)) | ((c2 (3(d)ef) e2)\	Err	vernunftzentrum.de	70
i+ A2-|A4 (c4|(c4)(e4)|a8) |]	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:8	Err	vernunftzentrum.de	70
i+T:Changing Time or Key Signatures, Guitar Chords	Err	vernunftzentrum.de	70
i+M: 6/8	Err	vernunftzentrum.de	70
i+K: G	Err	vernunftzentrum.de	70
i+ "Em"ABc def |\	Err	vernunftzentrum.de	70
i+M: 9/8	Err	vernunftzentrum.de	70
i+"Am7"A,CC DFF GBB |\M:4/4\"G"a,2b,2"D"c2d2 ||\L:1/4\\K:Bb\"Eb"e4|	Err	vernunftzentrum.de	70
i+K: Gb	Err	vernunftzentrum.de	70
i+M: 6/8	Err	vernunftzentrum.de	70
i+| -"Gb"ede edc | def fed |1 "A"efg "D"gfe | e6 \	Err	vernunftzentrum.de	70
i+:|2 "G"gag "F"f"Em"e"D7"d | "C"c6 |]	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:9	Err	vernunftzentrum.de	70
i+T:Strange tuplet cases	Err	vernunftzentrum.de	70
i+M:C	Err	vernunftzentrum.de	70
i+K:C	Err	vernunftzentrum.de	70
i+L: 1/8	Err	vernunftzentrum.de	70
i+ (3cde c(3d/e/f/ |(3zcd (3z/c/d/ (3czc c(4d/e/f/z/ d2-(3def | \	Err	vernunftzentrum.de	70
i+   (3::2 c4d2  (3::4 cde/f/ (3gfe |	Err	vernunftzentrum.de	70
i+ (3z2G,2A,2 (3C2E2G2 |e-(5e//f//g//f//g// de- (5e//f//g//f//g// |\	Err	vernunftzentrum.de	70
i+  (6z/c/e/g/e/c/ (6z/c/e/g/e/c/  | (3d/e/f/g-(3g/f/e/d || 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:10	Err	vernunftzentrum.de	70
i+T:Chords with many accidentals	Err	vernunftzentrum.de	70
i+M: 6/8	Err	vernunftzentrum.de	70
i+K: G	Err	vernunftzentrum.de	70
i+[^c^d] [^c^e] [^c^f] [^c^g] [^c^a] [^c^b] |\	Err	vernunftzentrum.de	70
i+[^C^D] [^C^E] [^C^F] [^C^G] [^C^A] [^C^B] |\	Err	vernunftzentrum.de	70
i+[^c^d^e] [^c^d^f] [^c^f^g] [^c^f^a] [^c=d=f^g_a_b]  |]	Err	vernunftzentrum.de	70
i+[^c^f^a] [^c^f^b] [^c^f^c'] [^c^f^d'] [^c^f^e'] |\	Err	vernunftzentrum.de	70
i+[^c^e^f] [^c^f^g] [^c^g^a] [^c^g^b] |\	Err	vernunftzentrum.de	70
i+ [^c^d^c'] [^c^e^c'] [^A^e^c']   [^G^e^c']   \	Err	vernunftzentrum.de	70
i+ [^c^d^c'][^c^e^c'][^A^e^c'][^G^e^c']   ||	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:11	Err	vernunftzentrum.de	70
i+T:Horizontal beams	Err	vernunftzentrum.de	70
i+M:C	Err	vernunftzentrum.de	70
i+K:C	Err	vernunftzentrum.de	70
i+L: 1/8	Err	vernunftzentrum.de	70
i+ c,d,c, d,e,d, e,f,e, b,cb,   | c,/d,/c,/ d,/e,/d,/ e,/f,/e,/  |\	Err	vernunftzentrum.de	70
i+   c,//d,//c,// d,//e,//d,// e,//f,//e,//  |	Err	vernunftzentrum.de	70
i+ cdc ded efe b,a,b,| c/d/c/ d/e/d/ e/f/e/ | c//d//c// d//e//d// e//f//e// |	Err	vernunftzentrum.de	70
i+ c'd'c' d'e'd' e'f'e' f'g'f' | c'/d'/c'/ d'/e'/d'/ e'/f'/e'/ |\ 	Err	vernunftzentrum.de	70
i+   c'//d'//c'// d'//e'//d'// e'//f'//e'// |	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:12	Err	vernunftzentrum.de	70
i+T:Gracenotes	Err	vernunftzentrum.de	70
i+L:1/8	Err	vernunftzentrum.de	70
i+M:C	Err	vernunftzentrum.de	70
i+K:D	Err	vernunftzentrum.de	70
i+FA{c}AF DF{^dc}A f{A}df f{AGA}df |{B}D2 {A}D2 {G}D2 {F}D2 {E}D2 |\	Err	vernunftzentrum.de	70
i+ {E}c2 {F}c2 {G}c2 {A}c2 {B}c2 | 	Err	vernunftzentrum.de	70
i+   {A}^c2 {gcd}c2 {gAGAG}A2{g}c<{GdG}e  {Gdc}d>c {gBd}B<{e}G |\ 	Err	vernunftzentrum.de	70
i+  {G}[G4e4] {FGAB}[^c4A4] {ef}[e4c4]  {d'c'bagfedcB_AcBFGC}D4| 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X: 13	Err	vernunftzentrum.de	70
i+T: Vocals	Err	vernunftzentrum.de	70
i+M: C|	Err	vernunftzentrum.de	70
i+K: F	Err	vernunftzentrum.de	70
i+L: 1/4	Err	vernunftzentrum.de	70
i+BA |: "Gm"G2AB|"C7"cd2e|"F"f2fe|"Dm"dA2d|	Err	vernunftzentrum.de	70
i+w: Close your eyes and I'll kiss you, to-mor-row I'll miss you; re-	Err	vernunftzentrum.de	70
i+"Bb"d2dc|"Gm"B2GF|"Eb"G4-|G2 z2|	Err	vernunftzentrum.de	70
i+w:mem-ber I'll al-ways be true._ 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
1diff --git a/scotland.abc b/scotland.abc	/ckeen/repos/abc2ps/file/scotland.abc.gph	vernunftzentrum.de	70
i@@ -0,0 +1,22 @@	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+% Sample file for bagpipe mode (K:Hp)	Err	vernunftzentrum.de	70
i+% adapted from PS file by Alan S. Watt	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:1	Err	vernunftzentrum.de	70
i+T:Scotland The Brave	Err	vernunftzentrum.de	70
i+C:Trad.	Err	vernunftzentrum.de	70
i+P:March	Err	vernunftzentrum.de	70
i+E:7	Err	vernunftzentrum.de	70
i+L:1/8	Err	vernunftzentrum.de	70
i+M:4/4	Err	vernunftzentrum.de	70
i+K:HP	Err	vernunftzentrum.de	70
i+e|{g}A2 {GdGe}A>B {gcd}c{e}A {gcd}ce| {ag}a2{g}a2 {GdG}ae {gcd}c{e}A|\	Err	vernunftzentrum.de	70
i+   {Gdc}d2 {g}f>d {gcd}ce {gcd}c{e}A|{GdG}B2{gef}e2{A}e>f {g}e/>d/{g}c/>B/|	Err	vernunftzentrum.de	70
i+{g}A2 {GdGe}A>B {gcd}c{e}A {gcd}ce| {ag}a2{g}a2 {GdG}ae {gcd}c{e}A|\	Err	vernunftzentrum.de	70
i+   {Gdc}d2 {g}f>d {gcd}ce {gcd}c{e}A|{GdG}B2{g}A>B {G}A2 {gcd}ce||	Err	vernunftzentrum.de	70
i+|| {ag}a2 {g}a2 {GdG}ae {gcd}c{e}A| {ag}a2 {g}a2 {GdG}ae {gcd}ce|\	Err	vernunftzentrum.de	70
i+   {ag}a2 {g}a>g {a}f2{ag}a>g|{a}fa {f}gf {gef}ed {gcd}cB|	Err	vernunftzentrum.de	70
i+{g}A2 {GdGe}A>B {gcd}c{e}A {gcd}ce|{ag}a2 {g}a2 {GdG}ae {gcd}c{e}A|\	Err	vernunftzentrum.de	70
i+   {Gdc}d2 {g}f>d {gcd}ce {gcd}c{e}A|{CdC}B2 {g}A>B {G}A3||	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
1diff --git a/style.h b/style.h	/ckeen/repos/abc2ps/file/style.h.gph	vernunftzentrum.de	70
i@@ -0,0 +1,87 @@	Err	vernunftzentrum.de	70
i+/*  	Err	vernunftzentrum.de	70
i+ *  This file is part of abc2ps, 	Err	vernunftzentrum.de	70
i+ *  Copyright (C) 1996,1997,1998  Michael Methfessel	Err	vernunftzentrum.de	70
i+ *  See file abc2ps.c for details.	Err	vernunftzentrum.de	70
i+ */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*   Global style parameters for the note spacing and Knuthian glue. */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*   Parameters here are used to set spaces around notes.	Err	vernunftzentrum.de	70
i+     Names ending in p: prefered natural spacings	Err	vernunftzentrum.de	70
i+     Names ending in x: expanded spacings  	Err	vernunftzentrum.de	70
i+     Units: everything is based on a staff which is 24 points high	Err	vernunftzentrum.de	70
i+     (ie. 6 pt between two staff lines). */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* name for this set of parameters */	Err	vernunftzentrum.de	70
i+#define STYLE "std"	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_style_pars: set the parameters which control note spacing ---- */	Err	vernunftzentrum.de	70
i+void set_style_pars (strictness)	Err	vernunftzentrum.de	70
i+float strictness;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float y;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  f0p=0.10;     f0x=0.15; 	Err	vernunftzentrum.de	70
i+  f5p=0.60;     f5x=0.7;  	Err	vernunftzentrum.de	70
i+  f1p=1.0;      f1x=1.0;  	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  lnnp=40;      lnnx=90; 	Err	vernunftzentrum.de	70
i+  bnnp=1.0;     bnnx=1.0;	Err	vernunftzentrum.de	70
i+  fnnp=1.0;     fnnx=1.0;	Err	vernunftzentrum.de	70
i+                	Err	vernunftzentrum.de	70
i+  lbnp=30;      lbnx=50;   	Err	vernunftzentrum.de	70
i+  bbnp=0.2;     bbnx=0.2;  	Err	vernunftzentrum.de	70
i+  rbnp=0.12;    rbnx=0.10; 	Err	vernunftzentrum.de	70
i+                	Err	vernunftzentrum.de	70
i+  lnbp=30;      lnbx=55;     	Err	vernunftzentrum.de	70
i+  bnbp=0.9;     bnbx=0.9;    	Err	vernunftzentrum.de	70
i+  rnbp=0.10;    rnbx=0.1;   	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* set parameters f0p,f1p according to strictness */	Err	vernunftzentrum.de	70
i+  /* the y*y makes the scale a bit more intuitive .. */	Err	vernunftzentrum.de	70
i+  y=1-strictness;	Err	vernunftzentrum.de	70
i+  f0p=y*y*0.40;	Err	vernunftzentrum.de	70
i+  f0x=y*y*0.60;	Err	vernunftzentrum.de	70
i+  if (verbose>3) 	Err	vernunftzentrum.de	70
i+    printf ("Set style parameters, strictness %.2f (f0p=%.3f, f0x=%.3f)\n",	Err	vernunftzentrum.de	70
i+            strictness,f0p,f0x);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- Function of the spacing parameters ----- */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* Parameters for the length-to-width mapping:	Err	vernunftzentrum.de	70
i+   f0p, f5p, f1p are the return values for notes of zero duration, 	Err	vernunftzentrum.de	70
i+   half notes, and whole notes. A parabolic interpolation is 	Err	vernunftzentrum.de	70
i+   used for other note durations. The purpose is to allow a non-linear 	Err	vernunftzentrum.de	70
i+   relation between the note duration and the spacing on the paper.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   Parameters for the note-note spacing:	Err	vernunftzentrum.de	70
i+   (the internote spacing between two notes that follow 	Err	vernunftzentrum.de	70
i+   each other without a bar in between.)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   - lnn is an overall multiplier, i.e. the final note width in points	Err	vernunftzentrum.de	70
i+     is the return value of function nwid times lnn.	Err	vernunftzentrum.de	70
i+   - bnn determines how strongly the first note enters into the spacing.	Err	vernunftzentrum.de	70
i+     For bnn=1, the spacing is calculated using the first note.	Err	vernunftzentrum.de	70
i+     For bnn=0, the spacing is the average for the two notes. 	Err	vernunftzentrum.de	70
i+   - fnn multiplies the spacing under a beam, to compress the notes a bit 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   Parameters for the bar-note spacing:	Err	vernunftzentrum.de	70
i+   (the spacing between a bar and note at the measure start.)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   - lbn is the overall multiplier for the return values from nwid.	Err	vernunftzentrum.de	70
i+   - rbn is the note duration which defines the default spacing.	Err	vernunftzentrum.de	70
i+   - bbn determines how strongly the note duration enters into the spacing.	Err	vernunftzentrum.de	70
i+     For bbn=1, the spacing is lbn times the return value of nwid.	Err	vernunftzentrum.de	70
i+     For bbn=0, the spacing is lbn times the width of rbn times timesig. 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+     Parameters for the note-bar spacing:	Err	vernunftzentrum.de	70
i+     (the spacing between a note at the measure end and the bar.)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   - lnb is the overall multiplier for the return values from nwid.	Err	vernunftzentrum.de	70
i+   - rnb is the note duration which defines the default spacing.	Err	vernunftzentrum.de	70
i+   - bnb determines how strongly the note duration enters into the spacing.	Err	vernunftzentrum.de	70
i+     For bnb=1, the spacing is lnb times the return value of nwid.	Err	vernunftzentrum.de	70
i+     For bnb=0, the spacing is lnb times the width of rbn times timesig. */	Err	vernunftzentrum.de	70
1diff --git a/style.pure b/style.pure	/ckeen/repos/abc2ps/file/style.pure.gph	vernunftzentrum.de	70
i@@ -0,0 +1,104 @@	Err	vernunftzentrum.de	70
i+/*  	Err	vernunftzentrum.de	70
i+ *  This file is part of abc2ps, Copyright (C) 1996  Michael Methfessel	Err	vernunftzentrum.de	70
i+ *  See file abc2ps.c for details.	Err	vernunftzentrum.de	70
i+ */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*   Global style parameters for the note spacing and Knuthian glue. */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*   Parameters here are used to set spaces around notes.	Err	vernunftzentrum.de	70
i+     Names ending in p: prefered natural spacings	Err	vernunftzentrum.de	70
i+     Names ending in x: expanded spacings  	Err	vernunftzentrum.de	70
i+     Units: everything is based on a staff which is 24 points high	Err	vernunftzentrum.de	70
i+     (ie. 6 pt between two staff lines). */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* name for this set of parameters */	Err	vernunftzentrum.de	70
i+#define STYLE "pure"	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- Parameters for the length-to-width mapping ----- */	Err	vernunftzentrum.de	70
i+/* f0p, f5p, f1p are the return values for notes of zero duration, 	Err	vernunftzentrum.de	70
i+   half notes, and whole notes. A simple parabolic interpolation is 	Err	vernunftzentrum.de	70
i+   used for other note durations. The aim is to permit a non-linear 	Err	vernunftzentrum.de	70
i+   relation between the note duration and the spacing on the paper. */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+float f0p=0.0;	Err	vernunftzentrum.de	70
i+float f5p=0.5; 	Err	vernunftzentrum.de	70
i+float f1p=1.0;  	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+float f0x=0.0;    	Err	vernunftzentrum.de	70
i+float f5x=0.5;	Err	vernunftzentrum.de	70
i+float f1x=1.0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- Parameters for the note-note spacing ----- */	Err	vernunftzentrum.de	70
i+/* That is: the internote spacing between two notes that follow 	Err	vernunftzentrum.de	70
i+   each other without a bar in between.  	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -- lnn is an overall multiplier, i.e. the final note width in points	Err	vernunftzentrum.de	70
i+      is the return value of function nwidth times lnn.	Err	vernunftzentrum.de	70
i+   -- bnn determines how strongly the first note enters into the spacing.	Err	vernunftzentrum.de	70
i+      For bnn=1, the spacing is calculated using the first note.	Err	vernunftzentrum.de	70
i+      For bnn=0, the spacing is the average for the two notes. 	Err	vernunftzentrum.de	70
i+   -- fnn multiplies the spacing under a beam, to compress the notes a bit 	Err	vernunftzentrum.de	70
i+   -- gnn multiplies the spacing a second time within an n-tuplet */	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+float lnnp=30;        	Err	vernunftzentrum.de	70
i+float bnnp=1.0;	Err	vernunftzentrum.de	70
i+float fnnp=1.0;	Err	vernunftzentrum.de	70
i+float gnnp=1.0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+float lnnx=60;     	Err	vernunftzentrum.de	70
i+float bnnx=1.0;	Err	vernunftzentrum.de	70
i+float fnnx=1.0;	Err	vernunftzentrum.de	70
i+float gnnx=1.0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ---- Parameters for the bar-note spacing ----- */	Err	vernunftzentrum.de	70
i+/* That is: the spacing between a bar and note at the measure start.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -- lbn is the overall multiplier for the return values from nwidth.	Err	vernunftzentrum.de	70
i+   -- vbn is the note duration which defines the default spacing.	Err	vernunftzentrum.de	70
i+   -- bbn determines how strongly the note duration enters into the spacing.	Err	vernunftzentrum.de	70
i+      For bbn=1, the spacing is lbn times the return value of nwidth.	Err	vernunftzentrum.de	70
i+      For bbn=0, the spacing is lbn times the width of rbn times timesig. */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+float lbnp=30;   	Err	vernunftzentrum.de	70
i+float bbnp=0.0;	Err	vernunftzentrum.de	70
i+float rbnp=0.125;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+float lbnx=60;     	Err	vernunftzentrum.de	70
i+float bbnx=0.0;	Err	vernunftzentrum.de	70
i+float rbnx=0.125;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ---- Parameters for the note-bar spacing ----- */	Err	vernunftzentrum.de	70
i+/* That is: the spacing between a note at the measure end and the bar.	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -- lnb is the overall multiplier for the return values from nwidth.	Err	vernunftzentrum.de	70
i+   -- vnb is the note duration which defines the default spacing.	Err	vernunftzentrum.de	70
i+   -- bnb determines how strongly the note duration enters into the spacing.	Err	vernunftzentrum.de	70
i+      For bnb=1, the spacing is lnb times the return value of nwidth.	Err	vernunftzentrum.de	70
i+      For bnb=0, the spacing is lnb times the width of rbn times timesig. */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+float lnbp=30;    	Err	vernunftzentrum.de	70
i+float bnbp=1.0;	Err	vernunftzentrum.de	70
i+float rnbp=0.125;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+float lnbx=60;    	Err	vernunftzentrum.de	70
i+float bnbx=1.0;	Err	vernunftzentrum.de	70
i+float rnbx=0.125;  	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ---- Parameters for centered single note in a measure ----- */	Err	vernunftzentrum.de	70
i+/* That is: the total length = bar-note + note-bar spacings	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+   -- ln0 is the overall multiplier for the return values from nwidth.	Err	vernunftzentrum.de	70
i+   -- bn0 interpolates between two limiting cases	Err	vernunftzentrum.de	70
i+      For bn0=0, this case is treated like bar-note and note-bar cases	Err	vernunftzentrum.de	70
i+      For bn0=1, the note is centered in the measure.  */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+float ln0p=30;	Err	vernunftzentrum.de	70
i+float bn0p=0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+float ln0x=60;	Err	vernunftzentrum.de	70
i+float bn0x=0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
1diff --git a/subs.h b/subs.h	/ckeen/repos/abc2ps/file/subs.h.gph	vernunftzentrum.de	70
i@@ -0,0 +1,1372 @@	Err	vernunftzentrum.de	70
i+/*  	Err	vernunftzentrum.de	70
i+ *  This file is part of abc2ps, 	Err	vernunftzentrum.de	70
i+ *  Copyright (C) 1996,1997,1998  Michael Methfessel	Err	vernunftzentrum.de	70
i+ *  See file abc2ps.c for details.	Err	vernunftzentrum.de	70
i+ */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*  miscellaneous subroutines  */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- write_help ----- */	Err	vernunftzentrum.de	70
i+void write_help ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  printf ("abc2ps v%s.%s (%s, %s) compiled %s\n", 	Err	vernunftzentrum.de	70
i+          VERSION, REVISION, VDATE, STYLE, __DATE__);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  printf ("Usage: abc2ps files..  [-e nums-or-pats] [other flags]\n"	Err	vernunftzentrum.de	70
i+          "  - show index of abc files or typeset tunes in Postscript.\n"	Err	vernunftzentrum.de	70
i+          "where: files   input files in abc format\n"	Err	vernunftzentrum.de	70
i+          "       nums    tune xref numbers, i.e. 1 3 6-7,20-\n"	Err	vernunftzentrum.de	70
i+          "       pats    patterns for title search\n" 	Err	vernunftzentrum.de	70
i+          "Tunes are selected if they match a number or a pattern.\n"	Err	vernunftzentrum.de	70
i+          "Flags: -o      write output for selected tunes\n"	Err	vernunftzentrum.de	70
i+          "       -E      produce EPSF output, one tune per file\n"	Err	vernunftzentrum.de	70
i+          "       -O aa   set outfile name to aaa\n"	Err	vernunftzentrum.de	70
i+          "       -O =    make outfile name from infile/title\n" 	Err	vernunftzentrum.de	70
i+          "       -i      run in interactive mode\n"	Err	vernunftzentrum.de	70
i+          "       -v nn   set verbosity level to nn\n"	Err	vernunftzentrum.de	70
i+          "       -h      show this command summary\n"	Err	vernunftzentrum.de	70
i+          "  Selection:\n"	Err	vernunftzentrum.de	70
i+          "       -e      following arguments are selectors\n"	Err	vernunftzentrum.de	70
i+          "       -f      following arguments are file names\n"	Err	vernunftzentrum.de	70
i+          "       -T      search  Title   field (default)\n"	Err	vernunftzentrum.de	70
i+          "       -C      search Composer field instead of title\n"	Err	vernunftzentrum.de	70
i+          "       -R      search  Rhythm  field instead of title\n"	Err	vernunftzentrum.de	70
i+          "       -S      search  Source  field instead of title\n"	Err	vernunftzentrum.de	70
i+          "       -V str  select voices, eg. -V 1,4-5\n"	Err	vernunftzentrum.de	70
i+          "  Formatting:\n"	Err	vernunftzentrum.de	70
i+          "       -H      show the format parameters\n"	Err	vernunftzentrum.de	70
i+          "       -p      pretty output (looks better, needs more space)\n"	Err	vernunftzentrum.de	70
i+          "       -P      select second predefined pretty output style\n"	Err	vernunftzentrum.de	70
i+          "       -s xx   set scale factor for symbol size to xx\n" 	Err	vernunftzentrum.de	70
i+          "       -w xx   set staff width (cm/in/pt)\n"	Err	vernunftzentrum.de	70
i+          "       -m xx   set left margin (cm/in/pt)\n"	Err	vernunftzentrum.de	70
i+          "       -d xx   set staff separation (cm/in/pt)\n"	Err	vernunftzentrum.de	70
i+          "       -x      include xref numbers in output\n"	Err	vernunftzentrum.de	70
i+          "       -k nn   number every nn bars; 0 for first in staff\n"	Err	vernunftzentrum.de	70
i+          "       -n      include notes and history in output\n"	Err	vernunftzentrum.de	70
i+          "       -N      write page numbers\n"	Err	vernunftzentrum.de	70
i+          "       -I      write index to Ind.ps\n"	Err	vernunftzentrum.de	70
i+          "       -1      write one tune per page\n"	Err	vernunftzentrum.de	70
i+          "       -l      landscape mode\n"	Err	vernunftzentrum.de	70
i+          "       -g xx   set glue mode to shrink|space|stretch|fill\n"	Err	vernunftzentrum.de	70
i+          "       -F foo  read format from \"foo.fmt\"\n"	Err	vernunftzentrum.de	70
i+          "       -D bar  look for format files in directory \"bar\"\n"	Err	vernunftzentrum.de	70
i+          "       -X x    set strictness for note spacing, 0<x<1 \n"	Err	vernunftzentrum.de	70
i+          "  Transposing:\n"	Err	vernunftzentrum.de	70
i+          "       -t n    transpose by n halftones (_n for negative number)\n"	Err	vernunftzentrum.de	70
i+          "       -t XX   transpose root up/down to note XX (eg. C A# ^Bb _Bb)\n"	Err	vernunftzentrum.de	70
i+          "  Line breaks:\n"	Err	vernunftzentrum.de	70
i+          "       -a xx   set max shrinkage to xx (between 0 and 1)\n"	Err	vernunftzentrum.de	70
i+          "       -b      break at all line ends (ignore continuations)\n"	Err	vernunftzentrum.de	70
i+          "       -c      continue all line ends (append '\\')\n"	Err	vernunftzentrum.de	70
i+          "       -B bb   put line break every bb bars\n"	Err	vernunftzentrum.de	70
i+          "  Alloc options:\n"	Err	vernunftzentrum.de	70
i+          "     -maxs n   set maximal number of symbols (default %d)\n"	Err	vernunftzentrum.de	70
i+          "     -maxv n   set maximal number of voices (default %d)\n"	Err	vernunftzentrum.de	70
i+          , maxSyms, maxVc);	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- write_version ----- */	Err	vernunftzentrum.de	70
i+void write_version ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*  printf ("abc2ps v%s (%s, %s) compiled %s\n", 	Err	vernunftzentrum.de	70
i+          VERSION, VDATE, STYLE, __DATE__); */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  printf ("abc2ps v%s.%s (%s, %s) compiled %s\n", 	Err	vernunftzentrum.de	70
i+          VERSION, REVISION, VDATE, STYLE, __DATE__);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (strlen(DEFAULT_FDIR)>0) 	Err	vernunftzentrum.de	70
i+    printf ("Default format directory %s\n", DEFAULT_FDIR);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- is_xrefstr: check if string ok for xref selection ---- */	Err	vernunftzentrum.de	70
i+int is_xrefstr (str)	Err	vernunftzentrum.de	70
i+char str[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  char *c;	Err	vernunftzentrum.de	70
i+  c=str;	Err	vernunftzentrum.de	70
i+  while (*c != '\0') {	Err	vernunftzentrum.de	70
i+    if ((!isdig(*c)) && (*c!='-') && (*c!=',') && (*c!=' ')) return 0;	Err	vernunftzentrum.de	70
i+    c++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  return 1;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- make_arglist: splits one string into list or arguments ---- */	Err	vernunftzentrum.de	70
i+int make_arglist (str, av)	Err	vernunftzentrum.de	70
i+char str[];	Err	vernunftzentrum.de	70
i+char *av[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char *q;	Err	vernunftzentrum.de	70
i+  int n;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  q=str;	Err	vernunftzentrum.de	70
i+  n=1;                     /* first real arg is 1, as in argv */	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    while (*q==' ') q++;	Err	vernunftzentrum.de	70
i+    if (*q=='\0') break;	Err	vernunftzentrum.de	70
i+    av[n]=q;	Err	vernunftzentrum.de	70
i+    n++;	Err	vernunftzentrum.de	70
i+    while ((*q!=' ') && (*q!='\0')) q++;	Err	vernunftzentrum.de	70
i+    if (*q=='\0') break;	Err	vernunftzentrum.de	70
i+    *q='\0';	Err	vernunftzentrum.de	70
i+    q++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  return n;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- init_ops ----- */	Err	vernunftzentrum.de	70
i+void init_ops (job)	Err	vernunftzentrum.de	70
i+int job;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  one_per_page         = -1;	Err	vernunftzentrum.de	70
i+  landscape            = -1;	Err	vernunftzentrum.de	70
i+  scalefac             = -1.0;	Err	vernunftzentrum.de	70
i+  lmargin              = -1.0;	Err	vernunftzentrum.de	70
i+  swidth               = -1.0;	Err	vernunftzentrum.de	70
i+  write_history        = -1;	Err	vernunftzentrum.de	70
i+  staffsep             = -1;	Err	vernunftzentrum.de	70
i+  dstaffsep            =  0;	Err	vernunftzentrum.de	70
i+  break_continues      = -1;	Err	vernunftzentrum.de	70
i+  continue_lines       = -1;	Err	vernunftzentrum.de	70
i+  include_xrefs        = -1;	Err	vernunftzentrum.de	70
i+  alfa_c               = -1.0;	Err	vernunftzentrum.de	70
i+  strict1              = -1.0;	Err	vernunftzentrum.de	70
i+  strict2              = -1.0;	Err	vernunftzentrum.de	70
i+  barnums              = -1;	Err	vernunftzentrum.de	70
i+  make_index           =  0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  select_all           = 0;	Err	vernunftzentrum.de	70
i+  do_mode              = DO_INDEX;	Err	vernunftzentrum.de	70
i+  pagenumbers          = 0;	Err	vernunftzentrum.de	70
i+  strcpy (styf, "");	Err	vernunftzentrum.de	70
i+  strcpy (transpose, "");	Err	vernunftzentrum.de	70
i+  strcpy (vcselstr, "");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (job) {	Err	vernunftzentrum.de	70
i+    strcpy (styd, DEFAULT_FDIR);	Err	vernunftzentrum.de	70
i+    strcpy (outf, OUTPUTFILE);	Err	vernunftzentrum.de	70
i+    interactive          = 0;	Err	vernunftzentrum.de	70
i+    pretty               = 0;	Err	vernunftzentrum.de	70
i+    epsf                 = 0;	Err	vernunftzentrum.de	70
i+    choose_outname       = 0;	Err	vernunftzentrum.de	70
i+    gmode                = G_FILL;	Err	vernunftzentrum.de	70
i+    vb                   = VERBOSE0;	Err	vernunftzentrum.de	70
i+    search_field0        = S_TITLE;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- ops_into_fmt ----- */	Err	vernunftzentrum.de	70
i+void ops_into_fmt (fmt)	Err	vernunftzentrum.de	70
i+struct FORMAT *fmt;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  if (landscape >= 0)        fmt->landscape=landscape;	Err	vernunftzentrum.de	70
i+  if (scalefac >= 0)         fmt->scale=scalefac;	Err	vernunftzentrum.de	70
i+  if (lmargin >= 0)          fmt->leftmargin=lmargin;	Err	vernunftzentrum.de	70
i+  if (swidth >= 0)           fmt->staffwidth=swidth;	Err	vernunftzentrum.de	70
i+  if (continue_lines >= 0)   fmt->continueall=continue_lines;	Err	vernunftzentrum.de	70
i+  if (break_continues >= 0)  fmt->breakall=break_continues;	Err	vernunftzentrum.de	70
i+  if (write_history >= 0)    fmt->writehistory=write_history;	Err	vernunftzentrum.de	70
i+  if (bars_per_line > 0)     fmt->barsperstaff=bars_per_line;	Err	vernunftzentrum.de	70
i+  if (include_xrefs >= 0)    fmt->withxrefs=include_xrefs;	Err	vernunftzentrum.de	70
i+  if (one_per_page >= 0)     fmt->oneperpage=one_per_page;	Err	vernunftzentrum.de	70
i+  if (alfa_c >= 0)           fmt->maxshrink=alfa_c;	Err	vernunftzentrum.de	70
i+  if (staffsep >= 0)         fmt->staffsep=staffsep;	Err	vernunftzentrum.de	70
i+  if (strict1 >= 0)          fmt->strict1=strict1;	Err	vernunftzentrum.de	70
i+  if (strict2 >= 0)          fmt->strict2=strict2;	Err	vernunftzentrum.de	70
i+  if (barnums >= 0)          fmt->barnums=barnums;	Err	vernunftzentrum.de	70
i+  fmt->staffsep    = fmt->staffsep    + dstaffsep;	Err	vernunftzentrum.de	70
i+  fmt->sysstaffsep = fmt->sysstaffsep + dstaffsep;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- parse_args: parse list of arguments, interpret flags ----- */	Err	vernunftzentrum.de	70
i+int parse_args (ac, av)	Err	vernunftzentrum.de	70
i+int ac;	Err	vernunftzentrum.de	70
i+char *av[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,m,k,nsel,sel_arg,j,ok,f_pos,got_value;	Err	vernunftzentrum.de	70
i+  char c,aaa[201],ext[41];	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  help_me=0;	Err	vernunftzentrum.de	70
i+  ninf=0;	Err	vernunftzentrum.de	70
i+  nsel=0;	Err	vernunftzentrum.de	70
i+  sel_arg=0;	Err	vernunftzentrum.de	70
i+  f_pos=-1;	Err	vernunftzentrum.de	70
i+  strcpy (sel_str[0], "");	Err	vernunftzentrum.de	70
i+  s_field[0]=search_field0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  i=1;	Err	vernunftzentrum.de	70
i+  while (i<ac) {	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (av[i][0]=='+') {        /* switch off flags with '+' */	Err	vernunftzentrum.de	70
i+      m=1;	Err	vernunftzentrum.de	70
i+      k=strlen(av[i]);	Err	vernunftzentrum.de	70
i+      while (m<k) {	Err	vernunftzentrum.de	70
i+        c=av[i][m];	Err	vernunftzentrum.de	70
i+        if      (c=='b')  break_continues=0; 	Err	vernunftzentrum.de	70
i+        else if (c=='c')  continue_lines=0;	Err	vernunftzentrum.de	70
i+        else if (c=='x')  include_xrefs=0;	Err	vernunftzentrum.de	70
i+        else if (c=='1')  one_per_page=0;	Err	vernunftzentrum.de	70
i+        else if (c=='B')  bars_per_line=0;	Err	vernunftzentrum.de	70
i+        else if (c=='i')  interactive=0;	Err	vernunftzentrum.de	70
i+        else if (c=='n')  write_history=0;	Err	vernunftzentrum.de	70
i+        else if (c=='l')  landscape=0;	Err	vernunftzentrum.de	70
i+        else if (c=='p')  pretty=0;	Err	vernunftzentrum.de	70
i+        else if (c=='E')  epsf=0;	Err	vernunftzentrum.de	70
i+        else if (c=='F')  strcpy (styf, "");	Err	vernunftzentrum.de	70
i+        else if (c=='N')  pagenumbers=0;	Err	vernunftzentrum.de	70
i+        else if (c=='O')  { choose_outname=0; strcpy (outf, OUTPUTFILE); }	Err	vernunftzentrum.de	70
i+        else {	Err	vernunftzentrum.de	70
i+          printf ("+++ Cannot switch off flag: +%c\n", c);	Err	vernunftzentrum.de	70
i+          return 1; 	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        m++;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    else if (av[i][0]=='-') {         /* interpret a flag with '-'*/	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+                                      /* identify fullword options first */	Err	vernunftzentrum.de	70
i+      if (!strcmp(av[i],"-maxv")) {	Err	vernunftzentrum.de	70
i+        if ((i==ac-1)||(av[i+1][0]=='-')) rx("missing parameter for ",av[i]);	Err	vernunftzentrum.de	70
i+        sscanf(av[++i],"%d",&maxVc);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else if (!strcmp(av[i],"-maxs")) {	Err	vernunftzentrum.de	70
i+        if ((i==ac-1)||(av[i+1][0]=='-')) rx("missing parameter for ",av[i]);	Err	vernunftzentrum.de	70
i+        sscanf(av[++i],"%d",&maxSyms);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+      else {	Err	vernunftzentrum.de	70
i+        m=1;	Err	vernunftzentrum.de	70
i+        k=strlen(av[i]);	Err	vernunftzentrum.de	70
i+        while (m<k) {	Err	vernunftzentrum.de	70
i+          c=av[i][m];	Err	vernunftzentrum.de	70
i+          if      (c=='h')  help_me=1;                 /* simple flags */	Err	vernunftzentrum.de	70
i+          else if (c=='H')  help_me=2;     	Err	vernunftzentrum.de	70
i+          else if (c=='e')  sel_arg=1;	Err	vernunftzentrum.de	70
i+          else if (c=='f')  {	Err	vernunftzentrum.de	70
i+            nsel++;	Err	vernunftzentrum.de	70
i+            strcpy (sel_str[nsel], "");	Err	vernunftzentrum.de	70
i+            if (ninf==0) {                /* selector before first file */	Err	vernunftzentrum.de	70
i+              strcpy(sel_str[nsel],sel_str[nsel-1]);	Err	vernunftzentrum.de	70
i+              s_field[nsel]=s_field[nsel-1];	Err	vernunftzentrum.de	70
i+            }	Err	vernunftzentrum.de	70
i+            s_field[nsel]=search_field0;	Err	vernunftzentrum.de	70
i+            sel_arg=0;	Err	vernunftzentrum.de	70
i+            f_pos=i;	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+          else if (c=='b')  {break_continues=1; continue_lines=0;}	Err	vernunftzentrum.de	70
i+          else if (c=='c')  {continue_lines=1; break_continues=0;}	Err	vernunftzentrum.de	70
i+          else if (c=='x')  include_xrefs=1;	Err	vernunftzentrum.de	70
i+          else if (c=='1')  one_per_page=1;	Err	vernunftzentrum.de	70
i+          else if (c=='i')  interactive=1;	Err	vernunftzentrum.de	70
i+          else if (c=='n')  write_history=1;	Err	vernunftzentrum.de	70
i+          else if (c=='l')  landscape=1;	Err	vernunftzentrum.de	70
i+          else if (c=='p')  pretty=1;	Err	vernunftzentrum.de	70
i+          else if (c=='P')  pretty=2;	Err	vernunftzentrum.de	70
i+          else if (c=='E')  epsf=1;	Err	vernunftzentrum.de	70
i+          else if (c=='o')  do_mode=DO_OUTPUT;	Err	vernunftzentrum.de	70
i+          else if (c=='N')  pagenumbers=1;	Err	vernunftzentrum.de	70
i+          else if (c=='I')  make_index=1;	Err	vernunftzentrum.de	70
i+          else if (strchr("TCRS",c)) {           	Err	vernunftzentrum.de	70
i+            if (c=='T') s_field[nsel]=S_TITLE; 	Err	vernunftzentrum.de	70
i+            if (c=='C') s_field[nsel]=S_COMPOSER;	Err	vernunftzentrum.de	70
i+            if (c=='R') s_field[nsel]=S_RHYTHM; 	Err	vernunftzentrum.de	70
i+            if (c=='S') s_field[nsel]=S_SOURCE; 	Err	vernunftzentrum.de	70
i+            sel_arg=1; 	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+          	Err	vernunftzentrum.de	70
i+          else if (strchr("vsdwmgtkDFYBVXaO",c)) {  /* flags with parameter.. */	Err	vernunftzentrum.de	70
i+            strcpy (aaa, &av[i][m+1]);	Err	vernunftzentrum.de	70
i+            if ((strlen(aaa)>0) && strchr("glO",c)) {     /* no sticky arg */	Err	vernunftzentrum.de	70
i+              printf ("+++ Incorrect usage of flag -%c\n", c);	Err	vernunftzentrum.de	70
i+              return 1; 	Err	vernunftzentrum.de	70
i+            }	Err	vernunftzentrum.de	70
i+            	Err	vernunftzentrum.de	70
i+            got_value=1;                              /* check for value */	Err	vernunftzentrum.de	70
i+            if (strlen(aaa)==0) {	Err	vernunftzentrum.de	70
i+              got_value=0;	Err	vernunftzentrum.de	70
i+              i++; 	Err	vernunftzentrum.de	70
i+              if ((i>=ac) || (av[i][0]=='-')) 	Err	vernunftzentrum.de	70
i+                i--;	Err	vernunftzentrum.de	70
i+              else {	Err	vernunftzentrum.de	70
i+                strcpy (aaa,av[i]);	Err	vernunftzentrum.de	70
i+                got_value=1;	Err	vernunftzentrum.de	70
i+              }	Err	vernunftzentrum.de	70
i+            }	Err	vernunftzentrum.de	70
i+            	Err	vernunftzentrum.de	70
i+            if (got_value && strchr("vskYB",c)) {      /* check num args */	Err	vernunftzentrum.de	70
i+              ok=1;	Err	vernunftzentrum.de	70
i+              for (j=0;j<strlen(aaa);j++)	Err	vernunftzentrum.de	70
i+                if (!strchr("0123456789.",aaa[j])) ok=0;	Err	vernunftzentrum.de	70
i+              if (!ok) {	Err	vernunftzentrum.de	70
i+                printf ("+++ Invalid parameter <%s> for flag -%c\n",aaa,c);	Err	vernunftzentrum.de	70
i+                return 1;	Err	vernunftzentrum.de	70
i+              }	Err	vernunftzentrum.de	70
i+            }	Err	vernunftzentrum.de	70
i+            	Err	vernunftzentrum.de	70
i+            /* --- next ops require a value --- */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+            if (!got_value) {                   /* check value was given */	Err	vernunftzentrum.de	70
i+              printf ("+++ Missing parameter after flag -%c\n", c);	Err	vernunftzentrum.de	70
i+              return 1; 	Err	vernunftzentrum.de	70
i+            }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+            if (c=='k') {	Err	vernunftzentrum.de	70
i+              sscanf(aaa,"%d",&barnums); 	Err	vernunftzentrum.de	70
i+              break;	Err	vernunftzentrum.de	70
i+            }	Err	vernunftzentrum.de	70
i+            	Err	vernunftzentrum.de	70
i+            if (c=='V') {                               /* -V flag */	Err	vernunftzentrum.de	70
i+              ok=1;	Err	vernunftzentrum.de	70
i+              strcpy (vcselstr, aaa);	Err	vernunftzentrum.de	70
i+            }	Err	vernunftzentrum.de	70
i+            	Err	vernunftzentrum.de	70
i+            if (c=='X') {                               /* -X flag */	Err	vernunftzentrum.de	70
i+              ok=1;	Err	vernunftzentrum.de	70
i+              if (aaa[0]==',') {	Err	vernunftzentrum.de	70
i+                sscanf(aaa,",%f",&strict2);	Err	vernunftzentrum.de	70
i+                if (strict2<-0.001 || strict2>1.001) ok=0;	Err	vernunftzentrum.de	70
i+              }            	Err	vernunftzentrum.de	70
i+              else if (strchr(aaa,',')) {	Err	vernunftzentrum.de	70
i+                sscanf (aaa,"%f,%f",&strict1,&strict2);	Err	vernunftzentrum.de	70
i+                if (strict1<-0.001 || strict1>1.001) ok=0;	Err	vernunftzentrum.de	70
i+                if (strict2<-0.001 || strict2>1.001) ok=0;	Err	vernunftzentrum.de	70
i+              }	Err	vernunftzentrum.de	70
i+              else {	Err	vernunftzentrum.de	70
i+                sscanf(aaa,"%f",&strict1);	Err	vernunftzentrum.de	70
i+                if (strict1<-0.001 || strict1>1.001) ok=0;	Err	vernunftzentrum.de	70
i+                strict2=strict1;	Err	vernunftzentrum.de	70
i+              }	Err	vernunftzentrum.de	70
i+              if (!ok) {	Err	vernunftzentrum.de	70
i+                printf ("+++ Invalid parameter <%s> for flag -%c\n",aaa,c);	Err	vernunftzentrum.de	70
i+                return 1;	Err	vernunftzentrum.de	70
i+              }	Err	vernunftzentrum.de	70
i+            }	Err	vernunftzentrum.de	70
i+            	Err	vernunftzentrum.de	70
i+            if (c=='O') {                               /* -O flag  */	Err	vernunftzentrum.de	70
i+              if (!strcmp(aaa,"=")) {	Err	vernunftzentrum.de	70
i+                choose_outname=1;	Err	vernunftzentrum.de	70
i+              }	Err	vernunftzentrum.de	70
i+              else {	Err	vernunftzentrum.de	70
i+                getext (aaa,ext);	Err	vernunftzentrum.de	70
i+                if (strcmp(ext,"ps") && strcmp(ext,"eps") && strcmp(ext,"")) {	Err	vernunftzentrum.de	70
i+                  printf ("Wrong extension for output file: %s\n", aaa);	Err	vernunftzentrum.de	70
i+                  return 1;	Err	vernunftzentrum.de	70
i+                }	Err	vernunftzentrum.de	70
i+                strext (outf, aaa, "ps", 1);	Err	vernunftzentrum.de	70
i+                choose_outname=0;	Err	vernunftzentrum.de	70
i+              }	Err	vernunftzentrum.de	70
i+            }	Err	vernunftzentrum.de	70
i+            	Err	vernunftzentrum.de	70
i+            if (c=='a') {              	Err	vernunftzentrum.de	70
i+              sscanf (aaa, "%f", &alfa_c);	Err	vernunftzentrum.de	70
i+              if ((alfa_c>1.05)||(alfa_c<-0.01)) {	Err	vernunftzentrum.de	70
i+                printf ("+++ Bad parameter for flag -a: %s\n",aaa);	Err	vernunftzentrum.de	70
i+                return 1;	Err	vernunftzentrum.de	70
i+              }	Err	vernunftzentrum.de	70
i+            }	Err	vernunftzentrum.de	70
i+            	Err	vernunftzentrum.de	70
i+            if (c=='B') {	Err	vernunftzentrum.de	70
i+              sscanf(aaa,"%d",&bars_per_line); 	Err	vernunftzentrum.de	70
i+              continue_lines=0;	Err	vernunftzentrum.de	70
i+            }	Err	vernunftzentrum.de	70
i+            if (c=='t') strcpy(transpose,aaa);	Err	vernunftzentrum.de	70
i+            if (c=='v') sscanf(aaa,"%d",&vb); 	Err	vernunftzentrum.de	70
i+            if (c=='s') sscanf(aaa,"%f",&scalefac);	Err	vernunftzentrum.de	70
i+            if (c=='d') {	Err	vernunftzentrum.de	70
i+              if (aaa[0]=='+' || aaa[0]=='-') dstaffsep = scan_u(aaa);	Err	vernunftzentrum.de	70
i+              else staffsep = scan_u(aaa);	Err	vernunftzentrum.de	70
i+            }	Err	vernunftzentrum.de	70
i+            if (c=='w') swidth   = scan_u(aaa);	Err	vernunftzentrum.de	70
i+            if (c=='m') lmargin  = scan_u(aaa);	Err	vernunftzentrum.de	70
i+            if (c=='F') strcpy(styf,aaa);	Err	vernunftzentrum.de	70
i+            if (c=='D') strcpy (styd,aaa);	Err	vernunftzentrum.de	70
i+            if (c=='g') {	Err	vernunftzentrum.de	70
i+              if      (abbrev(aaa,"shrink", 2)) gmode=G_SHRINK;	Err	vernunftzentrum.de	70
i+              else if (abbrev(aaa,"stretch",2)) gmode=G_STRETCH;	Err	vernunftzentrum.de	70
i+              else if (abbrev(aaa,"space",  2)) gmode=G_SPACE;	Err	vernunftzentrum.de	70
i+              else if (abbrev(aaa,"fill",   2)) gmode=G_FILL;	Err	vernunftzentrum.de	70
i+              else {	Err	vernunftzentrum.de	70
i+                printf ("+++ Bad parameter for flag -g: %s\n",aaa);	Err	vernunftzentrum.de	70
i+                return 1;	Err	vernunftzentrum.de	70
i+              }	Err	vernunftzentrum.de	70
i+            }	Err	vernunftzentrum.de	70
i+            break; 	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+          else {	Err	vernunftzentrum.de	70
i+            printf ("+++ Unknown flag: -%c\n", c);	Err	vernunftzentrum.de	70
i+            return 1;	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+          m++;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      if (strstr(av[i],".fmt")) {     /* implict -F */ 	Err	vernunftzentrum.de	70
i+        strcpy(styf, av[i]);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      else {	Err	vernunftzentrum.de	70
i+        if (strstr(av[i],".abc") && sel_arg) {     /* file if .abc */	Err	vernunftzentrum.de	70
i+          nsel++;	Err	vernunftzentrum.de	70
i+          strcpy (sel_str[nsel], "");	Err	vernunftzentrum.de	70
i+          s_field[nsel]=S_TITLE;	Err	vernunftzentrum.de	70
i+          if (ninf==0) {                /* selector before first file */	Err	vernunftzentrum.de	70
i+            strcpy(sel_str[nsel],sel_str[nsel-1]);	Err	vernunftzentrum.de	70
i+            s_field[nsel]=s_field[nsel-1];	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+          sel_arg=0;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        if (is_xrefstr(av[i]) && (!sel_arg)) {    /* sel if xref numbers */	Err	vernunftzentrum.de	70
i+          if (i-1 != f_pos) sel_arg=1;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        	Err	vernunftzentrum.de	70
i+        if (!sel_arg) {             /* this arg is a file name */	Err	vernunftzentrum.de	70
i+          if (ninf>=MAXINF) {	Err	vernunftzentrum.de	70
i+            printf ("+++ Too many input files, max is %d\n", MAXINF);	Err	vernunftzentrum.de	70
i+            return 1;	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+          strcpy (in_file[ninf], av[i]); 	Err	vernunftzentrum.de	70
i+          psel[ninf]=nsel;	Err	vernunftzentrum.de	70
i+          ninf++;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        else {                             /* this arg is a selector */	Err	vernunftzentrum.de	70
i+          strcat(sel_str[nsel], av[i]);	Err	vernunftzentrum.de	70
i+          strcat(sel_str[nsel], " ");	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    i++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  return 0;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- alloc_structs ----- */	Err	vernunftzentrum.de	70
i+/* Thanks to Henrik Norbeck for this */	Err	vernunftzentrum.de	70
i+void alloc_structs ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int j;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  sym = (struct SYMBOL *)calloc(maxSyms, sizeof(struct SYMBOL));	Err	vernunftzentrum.de	70
i+  if (sym==NULL) rx("Out of memory","");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  symv = (struct SYMBOL **)calloc(maxVc, sizeof(struct SYMBOL *));	Err	vernunftzentrum.de	70
i+  if (symv==NULL) rx("Out of memory","");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (j=0;j<maxVc;j++) {	Err	vernunftzentrum.de	70
i+    symv[j] = (struct SYMBOL *)calloc(maxSyms, sizeof(struct SYMBOL));	Err	vernunftzentrum.de	70
i+    if (symv[j]==NULL) rx("Out of memory","");	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  xp = (struct XPOS *)calloc(maxSyms+1, sizeof(struct XPOS));	Err	vernunftzentrum.de	70
i+  if (xp==NULL) rx("Out of memory","");	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  for (j=0;j<maxSyms+1;j++) {	Err	vernunftzentrum.de	70
i+    xp[j].p = (int *)calloc(maxVc, sizeof(int));	Err	vernunftzentrum.de	70
i+    if (xp[j].p==NULL) rx("Out of memory","");	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  voice=(struct VCESPEC *)calloc(maxVc, sizeof(struct VCESPEC));	Err	vernunftzentrum.de	70
i+  if (voice==NULL) rx("Out of memory","");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  sym_st = (struct SYMBOL **)calloc(maxVc, sizeof(struct SYMBOL *));	Err	vernunftzentrum.de	70
i+  if (sym_st==NULL) rx("Out of memory","");	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  for (j=0;j<maxVc;j++) {	Err	vernunftzentrum.de	70
i+    sym_st[j] = (struct SYMBOL *)calloc(MAXSYMST, sizeof(struct SYMBOL));	Err	vernunftzentrum.de	70
i+    if (sym_st[j]==NULL) rx("Out of memory","");	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  nsym_st = (int *)calloc(maxVc, sizeof(int));	Err	vernunftzentrum.de	70
i+  if (nsym_st==NULL) rx("Out of memory","");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_page_format ----- */	Err	vernunftzentrum.de	70
i+int set_page_format ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,j;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (pretty==1)	Err	vernunftzentrum.de	70
i+    set_pretty_format (&cfmt);	Err	vernunftzentrum.de	70
i+  else if (pretty==2)	Err	vernunftzentrum.de	70
i+    set_pretty2_format (&cfmt);	Err	vernunftzentrum.de	70
i+  else 	Err	vernunftzentrum.de	70
i+    set_standard_format (&cfmt);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  i=read_fmt_file ("fonts.fmt", styd, &cfmt);	Err	vernunftzentrum.de	70
i+  j=0;	Err	vernunftzentrum.de	70
i+  if (strlen(styf)>0) {	Err	vernunftzentrum.de	70
i+    strext(styf,styf,"fmt",1);	Err	vernunftzentrum.de	70
i+    j=read_fmt_file (styf, styd, &cfmt);	Err	vernunftzentrum.de	70
i+    if (j==0)  {	Err	vernunftzentrum.de	70
i+      printf ("\n+++ Cannot open file: %s\n", styf);	Err	vernunftzentrum.de	70
i+      return 0;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    strcpy(cfmt.name, styf);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  if (i || j) printf("\n");	Err	vernunftzentrum.de	70
i+  ops_into_fmt (&cfmt);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  make_font_list (&cfmt);	Err	vernunftzentrum.de	70
i+  sfmt=cfmt;	Err	vernunftzentrum.de	70
i+  dfmt=cfmt;	Err	vernunftzentrum.de	70
i+  return 1;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- tex_str: change string to take care of some tex-style codes --- */	Err	vernunftzentrum.de	70
i+/* Puts \ in front of ( and ) in case brackets are not balanced,	Err	vernunftzentrum.de	70
i+   interprets some TeX-type strings using ISOLatin1 encodings.	Err	vernunftzentrum.de	70
i+   Returns the length of the string as finally given out on paper. 	Err	vernunftzentrum.de	70
i+   Also returns an estimate of the string width... */	Err	vernunftzentrum.de	70
i+int tex_str (str,s,wid)	Err	vernunftzentrum.de	70
i+char *str;	Err	vernunftzentrum.de	70
i+char s[];	Err	vernunftzentrum.de	70
i+float *wid;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char *c;	Err	vernunftzentrum.de	70
i+  int base,add,n;	Err	vernunftzentrum.de	70
i+  char t[21];	Err	vernunftzentrum.de	70
i+  float w;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  c=str;	Err	vernunftzentrum.de	70
i+  strcpy(s,"");	Err	vernunftzentrum.de	70
i+  n=0;	Err	vernunftzentrum.de	70
i+  w=0;	Err	vernunftzentrum.de	70
i+  while (*c != '\0') {	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if ((*c=='(') || (*c==')'))           /* ( ) becomes \( \) */	Err	vernunftzentrum.de	70
i+      {sprintf(t, "\\%c", *c); strcat(s,t); w+=cwid('('); n++; }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    else if (*c=='\\') {                  /* backslash sequences */	Err	vernunftzentrum.de	70
i+      c++;	Err	vernunftzentrum.de	70
i+      if (*c=='\0') break;	Err	vernunftzentrum.de	70
i+      add=0;                              /* accented vowels */ 	Err	vernunftzentrum.de	70
i+      if (*c=='`')  add=1;    	Err	vernunftzentrum.de	70
i+      if (*c=='\'') add=2;	Err	vernunftzentrum.de	70
i+      if (*c=='^')  add=3;	Err	vernunftzentrum.de	70
i+      if (*c=='"')  add=4;	Err	vernunftzentrum.de	70
i+      if (add) {	Err	vernunftzentrum.de	70
i+        c++;	Err	vernunftzentrum.de	70
i+        base=0;	Err	vernunftzentrum.de	70
i+        if (*c=='a') { base=340; if (add==4) add=5; }	Err	vernunftzentrum.de	70
i+        if (*c=='e')   base=350;	Err	vernunftzentrum.de	70
i+        if (*c=='i')   base=354;	Err	vernunftzentrum.de	70
i+        if (*c=='o') { base=362; if (add==4) add=5; }	Err	vernunftzentrum.de	70
i+        if (*c=='u')   base=371;	Err	vernunftzentrum.de	70
i+        if (*c=='A') { base=300; if (add==4) add=5; }	Err	vernunftzentrum.de	70
i+        if (*c=='E')   base=310;	Err	vernunftzentrum.de	70
i+        if (*c=='I')   base=314;	Err	vernunftzentrum.de	70
i+        if (*c=='O') { base=322; if (add==4) add=5; }	Err	vernunftzentrum.de	70
i+        if (*c=='U')   base=331;	Err	vernunftzentrum.de	70
i+        w+=cwid(*c);	Err	vernunftzentrum.de	70
i+        if (base) 	Err	vernunftzentrum.de	70
i+          {sprintf(t,"\\%d",base+add-1); strcat(s,t); n+=1; }	Err	vernunftzentrum.de	70
i+        else	Err	vernunftzentrum.de	70
i+          {sprintf(t,"%c",*c); strcat(s,t); n+=1; }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      else if (*c==' ')                               /* \-space */	Err	vernunftzentrum.de	70
i+        { strcat(s," "); w+=cwid(' '); n++; }  	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      else if (*c=='O')                               /* O-slash */	Err	vernunftzentrum.de	70
i+        { strcat(s,"\\330"); w+=cwid('O'); n++; } 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      else if (*c=='o')                               /* o-slash */	Err	vernunftzentrum.de	70
i+        { strcat(s,"\\370"); w+=cwid('O'); n++; } 	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+      else if((*c=='s')&&(*(c+1)=='s'))               /* sz */	Err	vernunftzentrum.de	70
i+        { c++; strcat(s,"\\337"); w+=cwid('s'); n++; } 	Err	vernunftzentrum.de	70
i+      else if((*c=='a')&&(*(c+1)=='a'))               /* a-ring */	Err	vernunftzentrum.de	70
i+        { c++; strcat(s,"\\345"); w+=cwid('a'); n++; } 	Err	vernunftzentrum.de	70
i+      else if((*c=='A')&&(*(c+1)=='A'))               /* A-ring */	Err	vernunftzentrum.de	70
i+        { c++; strcat(s,"\\305"); w+=cwid('A'); n++; }  	Err	vernunftzentrum.de	70
i+      else if((*c=='a')&&(*(c+1)=='e'))               /* ae */	Err	vernunftzentrum.de	70
i+        { c++; strcat(s,"\\346"); w+=1.5*cwid('a'); n++; }  	Err	vernunftzentrum.de	70
i+      else if((*c=='A')&&(*(c+1)=='E'))               /* AE */	Err	vernunftzentrum.de	70
i+        { c++; strcat(s,"\\306"); w+=1.5*cwid('A'); n++; }  	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      else if (*c=='c') {                           /* c-cedilla */ 	Err	vernunftzentrum.de	70
i+        c++;	Err	vernunftzentrum.de	70
i+        w+=cwid(*c);	Err	vernunftzentrum.de	70
i+        if      (*c=='C') { strcat(s,"\\307"); n++; }	Err	vernunftzentrum.de	70
i+        else if (*c=='c') { strcat(s,"\\347"); n++; }	Err	vernunftzentrum.de	70
i+        else              {sprintf(t,"%c",*c); strcat(s,t); n++; } 	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      else if (*c=='~') {                           /* n-twiddle */ 	Err	vernunftzentrum.de	70
i+        c++;	Err	vernunftzentrum.de	70
i+        w+=cwid(*c);	Err	vernunftzentrum.de	70
i+        if      (*c=='N') { strcat(s,"\\321"); n++; }	Err	vernunftzentrum.de	70
i+        else if (*c=='n') { strcat(s,"\\361"); n++; }	Err	vernunftzentrum.de	70
i+        else              { sprintf(t,"%c",*c); strcat(s,t); n++; } 	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+      else                           /* \-something-else; pass through */	Err	vernunftzentrum.de	70
i+        {sprintf(t,"\\%c",*c); strcat(s,t); w+=cwid('A'); n++; }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    else if (*c=='{')	Err	vernunftzentrum.de	70
i+      ;	Err	vernunftzentrum.de	70
i+    else if (*c=='}') 	Err	vernunftzentrum.de	70
i+      ;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    else                             /* other characters: pass though */	Err	vernunftzentrum.de	70
i+      { 	Err	vernunftzentrum.de	70
i+        sprintf(t,"%c",*c); 	Err	vernunftzentrum.de	70
i+        strcat(s,t); n++; 	Err	vernunftzentrum.de	70
i+        w+=cwid(*c);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+   	Err	vernunftzentrum.de	70
i+    c++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  *wid = w;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  return n;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- put_str: output a string in postscript ----- */	Err	vernunftzentrum.de	70
i+void put_str (str)	Err	vernunftzentrum.de	70
i+char *str;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char s[801];	Err	vernunftzentrum.de	70
i+  float w;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  tex_str (str,s,&w);	Err	vernunftzentrum.de	70
i+  PUT1 ("%s", s);	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_font ----- */	Err	vernunftzentrum.de	70
i+void set_font (fp,font,add_bracket)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+struct FONTSPEC font;	Err	vernunftzentrum.de	70
i+int add_bracket;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,fnum;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fnum=-1;	Err	vernunftzentrum.de	70
i+  for (i=0;i<nfontnames;i++) {	Err	vernunftzentrum.de	70
i+    if (!strcmp(font.name,fontnames[i])) fnum=i; 	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  if (fnum<0) {	Err	vernunftzentrum.de	70
i+    printf ("\n+++ Font \"%s\" not predefined; using first in list\n",	Err	vernunftzentrum.de	70
i+            font.name); 	Err	vernunftzentrum.de	70
i+    fnum=0;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  PUT3("%.1f %d F%d ", font.size, font.box, fnum)	Err	vernunftzentrum.de	70
i+  if (add_bracket) PUT0("(")	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- set_font_str ----- */	Err	vernunftzentrum.de	70
i+void set_font_str (str,font)	Err	vernunftzentrum.de	70
i+char str[];	Err	vernunftzentrum.de	70
i+struct FONTSPEC font;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,fnum;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fnum=-1;	Err	vernunftzentrum.de	70
i+  for (i=0;i<nfontnames;i++) {	Err	vernunftzentrum.de	70
i+    if (!strcmp(font.name,fontnames[i])) fnum=i; 	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  sprintf (str,"%.1f %d F%d ", font.size, font.box, fnum);	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- check_margin: do horizontal shift if needed ---- */	Err	vernunftzentrum.de	70
i+void check_margin (new_posx)	Err	vernunftzentrum.de	70
i+float new_posx;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float dif;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  dif=new_posx-posx;	Err	vernunftzentrum.de	70
i+  if (dif*dif<0.001) return;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  PUT1("%.2f 0 T\n", dif)	Err	vernunftzentrum.de	70
i+  posx=new_posx;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- epsf_title ------ */	Err	vernunftzentrum.de	70
i+void epsf_title (title,fnm)	Err	vernunftzentrum.de	70
i+char title[],fnm[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char *p,*q;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  p=title; q=fnm;	Err	vernunftzentrum.de	70
i+  while (*p != '\0') {	Err	vernunftzentrum.de	70
i+    if (*p == ' ') 	Err	vernunftzentrum.de	70
i+      *q = '_';	Err	vernunftzentrum.de	70
i+    else	Err	vernunftzentrum.de	70
i+      *q = *p;	Err	vernunftzentrum.de	70
i+    p++; q++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  *q = '\0';	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- close_output_file ------ */	Err	vernunftzentrum.de	70
i+void close_output_file ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int m;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (!file_open) return;	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+  if (interactive) printf ("(close %s)\n", outfnam);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  close_page(fout); 	Err	vernunftzentrum.de	70
i+  close_ps (fout);	Err	vernunftzentrum.de	70
i+  fclose (fout);	Err	vernunftzentrum.de	70
i+  if (tunenum==0) 	Err	vernunftzentrum.de	70
i+    printf ("+++ Warning: no tunes written to output file\n");	Err	vernunftzentrum.de	70
i+  m=get_file_size (outfnam);	Err	vernunftzentrum.de	70
i+  printf ("Output written on %s (%d page%s, %d title%s, %d byte%s)\n", 	Err	vernunftzentrum.de	70
i+          outfnam, 	Err	vernunftzentrum.de	70
i+          pagenum, pagenum==1 ? "" : "s", 	Err	vernunftzentrum.de	70
i+          tunenum, tunenum==1 ? "" : "s",	Err	vernunftzentrum.de	70
i+          m, m==1 ? "" : "s");	Err	vernunftzentrum.de	70
i+  file_open=0;	Err	vernunftzentrum.de	70
i+  file_initialized=0;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- open_output_file ------ */	Err	vernunftzentrum.de	70
i+void open_output_file (fnam,tstr)	Err	vernunftzentrum.de	70
i+char fnam[],tstr[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (!strcmp(fnam,outfnam)) return;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (file_open) close_output_file ();	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (interactive) printf ("(open %s)\n", fnam);	Err	vernunftzentrum.de	70
i+  strcpy (outfnam, fnam);	Err	vernunftzentrum.de	70
i+  if ((fout = fopen (outfnam,"w")) == NULL) 	Err	vernunftzentrum.de	70
i+    rx ("Cannot open output file ", outf);	Err	vernunftzentrum.de	70
i+  pagenum=0;	Err	vernunftzentrum.de	70
i+  tunenum=tnum1=tnum2=0;	Err	vernunftzentrum.de	70
i+  file_open=1;	Err	vernunftzentrum.de	70
i+  file_initialized=0;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- open_index_file ------- */	Err	vernunftzentrum.de	70
i+void open_index_file (fnam)	Err	vernunftzentrum.de	70
i+char fnam[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  if (vb>=8) printf("Open index file \"%s\"\n", fnam);	Err	vernunftzentrum.de	70
i+  if ((findex = fopen (fnam,"w")) == NULL) 	Err	vernunftzentrum.de	70
i+    rx ("Cannot open index file: ", fnam);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  index_initialized=0;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- close_index_file ------- */	Err	vernunftzentrum.de	70
i+void close_index_file ()	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (vb>=8) printf("Close index file\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  close_index_page (findex);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fclose (findex);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- add_to_text_block ----- */	Err	vernunftzentrum.de	70
i+void add_to_text_block (ln,add_final_nl)	Err	vernunftzentrum.de	70
i+char ln[];	Err	vernunftzentrum.de	70
i+int add_final_nl;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char *c,*a;	Err	vernunftzentrum.de	70
i+  char word[81];	Err	vernunftzentrum.de	70
i+  int nt,nl;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  nt=ntxt;	Err	vernunftzentrum.de	70
i+  c=ln;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+    while (*c==' ') c++;	Err	vernunftzentrum.de	70
i+    if (*c=='\0') break;	Err	vernunftzentrum.de	70
i+    a=word;	Err	vernunftzentrum.de	70
i+    while ((*c!=' ')&&(*c!='\0')&&(*c!='\n')) {	Err	vernunftzentrum.de	70
i+      nl=0;	Err	vernunftzentrum.de	70
i+      if ((*c=='\\')&&(*(c+1)=='\\')) {	Err	vernunftzentrum.de	70
i+        nl=1;	Err	vernunftzentrum.de	70
i+        c+=2;	Err	vernunftzentrum.de	70
i+        break;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      *a=*c;	Err	vernunftzentrum.de	70
i+      c++;	Err	vernunftzentrum.de	70
i+      a++;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    *a='\0';	Err	vernunftzentrum.de	70
i+    if (strlen(word)>MAXWLEN) {	Err	vernunftzentrum.de	70
i+      word[MAXWLEN-1]='\0';	Err	vernunftzentrum.de	70
i+      printf ("+++ Insanely long word truncated to %d chars: %s\n", 	Err	vernunftzentrum.de	70
i+              MAXWLEN-1,word);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (nt>=MAXNTEXT) {	Err	vernunftzentrum.de	70
i+      printf ("\n+++ Line %d: %s\n", linenum,ln);	Err	vernunftzentrum.de	70
i+      rx("Text overflow; increase MAXNTEXT and recompile.","");	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (strlen(word)>0) {	Err	vernunftzentrum.de	70
i+      strcpy(txt[nt],word);	Err	vernunftzentrum.de	70
i+      nt++;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    if (nl) {	Err	vernunftzentrum.de	70
i+      strcpy(txt[nt],"$$NL$$");	Err	vernunftzentrum.de	70
i+      nt++;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  if (add_final_nl) {	Err	vernunftzentrum.de	70
i+    strcpy(txt[nt],"$$NL$$");	Err	vernunftzentrum.de	70
i+    nt++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  ntxt=nt;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- write_text_block ----- */	Err	vernunftzentrum.de	70
i+void write_text_block (fp,job)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+int  job;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,i1,i2,ntline,nc,mc,nbreak;	Err	vernunftzentrum.de	70
i+  float textwidth,ftline,ftline0,swfac,baseskip,parskip;	Err	vernunftzentrum.de	70
i+  float wwidth,wtot,spw;	Err	vernunftzentrum.de	70
i+  char str[81];	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (ntxt<=0) return;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  baseskip = cfmt.textfont.size * cfmt.lineskipfac;	Err	vernunftzentrum.de	70
i+  parskip      = cfmt.textfont.size * cfmt.parskipfac;	Err	vernunftzentrum.de	70
i+  set_font_str (page_init,cfmt.textfont);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* estimate text widths.. ok for T-R, wild guess for other fonts */	Err	vernunftzentrum.de	70
i+  swfac=1.0;	Err	vernunftzentrum.de	70
i+  if (strstr(cfmt.textfont.name,"Times-Roman"))    swfac=1.00;	Err	vernunftzentrum.de	70
i+  if (strstr(cfmt.textfont.name,"Times-Bold"))     swfac=1.05;	Err	vernunftzentrum.de	70
i+  if (strstr(cfmt.textfont.name,"Helvetica"))      swfac=1.10;	Err	vernunftzentrum.de	70
i+  if (strstr(cfmt.textfont.name,"Helvetica-Bold")) swfac=1.15;	Err	vernunftzentrum.de	70
i+  if (strstr(cfmt.textfont.name,"Palatino"))       swfac=1.10;	Err	vernunftzentrum.de	70
i+  swfac=1.0;	Err	vernunftzentrum.de	70
i+  spw=cwid(' ');	Err	vernunftzentrum.de	70
i+  PUT1("/LF {0 %.1f rmoveto} bind def\n",-baseskip)	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* output by pieces, separate at newline token */	Err	vernunftzentrum.de	70
i+  i1=0;	Err	vernunftzentrum.de	70
i+  while (i1<ntxt) {	Err	vernunftzentrum.de	70
i+    i2=-1;	Err	vernunftzentrum.de	70
i+    for (i=i1;i<ntxt;i++) if(!strcmp(txt[i],"$$NL$$")) {i2=i; break; }	Err	vernunftzentrum.de	70
i+    if (i2==-1) i2=ntxt;	Err	vernunftzentrum.de	70
i+    bskip(baseskip);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (job==OBEYLINES) {	Err	vernunftzentrum.de	70
i+      PUT0("0 0 M (")	Err	vernunftzentrum.de	70
i+      for (i=i1;i<i2;i++) {	Err	vernunftzentrum.de	70
i+        tex_str(txt[i],str,&wwidth);	Err	vernunftzentrum.de	70
i+        PUT1("%s ",str);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      PUT0(") rshow\n")	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    else if (job==OBEYCENTER) {	Err	vernunftzentrum.de	70
i+      PUT1("%.1f 0 M (",cfmt.staffwidth/2)	Err	vernunftzentrum.de	70
i+      for (i=i1;i<i2;i++) {	Err	vernunftzentrum.de	70
i+        tex_str(txt[i],str,&wwidth);	Err	vernunftzentrum.de	70
i+        PUT1("%s",str)	Err	vernunftzentrum.de	70
i+        if (i<i2-1) PUT0(" ")	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      PUT0(") cshow\n")	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    else {	Err	vernunftzentrum.de	70
i+      PUT0("0 0 M mark\n")	Err	vernunftzentrum.de	70
i+      nc=0;	Err	vernunftzentrum.de	70
i+      mc=-1;	Err	vernunftzentrum.de	70
i+      wtot=-spw;	Err	vernunftzentrum.de	70
i+      for (i=i2-1;i>=i1;i--) {	Err	vernunftzentrum.de	70
i+        mc+=tex_str(txt[i],str,&wwidth)+1;	Err	vernunftzentrum.de	70
i+        wtot+=wwidth+spw;	Err	vernunftzentrum.de	70
i+        nc+=strlen(str)+2;	Err	vernunftzentrum.de	70
i+        if (nc>=72) {nc=0; PUT0("\n") }	Err	vernunftzentrum.de	70
i+        PUT1 ("(%s)",str);	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      if (job==RAGGED)	Err	vernunftzentrum.de	70
i+        PUT1(" %.1f P1\n",cfmt.staffwidth)	Err	vernunftzentrum.de	70
i+      else 	Err	vernunftzentrum.de	70
i+        PUT1(" %.1f P2\n",cfmt.staffwidth)	Err	vernunftzentrum.de	70
i+          /* first estimate: (total textwidth)/(available width) */	Err	vernunftzentrum.de	70
i+          textwidth=wtot*swfac*cfmt.textfont.size;	Err	vernunftzentrum.de	70
i+      if (strstr(cfmt.textfont.name,"Courier")) 	Err	vernunftzentrum.de	70
i+        textwidth=0.60*mc*cfmt.textfont.size;	Err	vernunftzentrum.de	70
i+      ftline0=textwidth/cfmt.staffwidth;	Err	vernunftzentrum.de	70
i+      /* revised estimate: assume some chars lost at each line end */	Err	vernunftzentrum.de	70
i+      nbreak=ftline0;	Err	vernunftzentrum.de	70
i+      textwidth=textwidth+5*nbreak*cwid('a')*swfac*cfmt.textfont.size;	Err	vernunftzentrum.de	70
i+      ftline=textwidth/cfmt.staffwidth;	Err	vernunftzentrum.de	70
i+      ntline=ftline+1.0;	Err	vernunftzentrum.de	70
i+      if (vb>=10)	Err	vernunftzentrum.de	70
i+        printf("first estimate %.2f, revised %.2f\n", ftline0,ftline);	Err	vernunftzentrum.de	70
i+      if (vb>=10) 	Err	vernunftzentrum.de	70
i+        printf("Output %d word%s, about %.2f lines (fac %.2f)\n",	Err	vernunftzentrum.de	70
i+               i2-i1, i2-i1==1?"":"s", ftline,swfac);	Err	vernunftzentrum.de	70
i+      bskip((ntline-1)*baseskip);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    buffer_eob (fp);  	Err	vernunftzentrum.de	70
i+    /* next line to allow pagebreak after each text "line" */	Err	vernunftzentrum.de	70
i+    /* if (!epsf && !within_tune) write_buffer(fp); */	Err	vernunftzentrum.de	70
i+    i1=i2+1;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  bskip(parskip);	Err	vernunftzentrum.de	70
i+  buffer_eob (fp); 	Err	vernunftzentrum.de	70
i+  /* next line to allow pagebreak after each paragraph */	Err	vernunftzentrum.de	70
i+  if (!epsf && !within_tune) write_buffer(fp);	Err	vernunftzentrum.de	70
i+  strcpy (page_init,"");	Err	vernunftzentrum.de	70
i+  return;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- put_words ------- */	Err	vernunftzentrum.de	70
i+void put_words (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,nw,n;	Err	vernunftzentrum.de	70
i+  char str[81];	Err	vernunftzentrum.de	70
i+  char *p,*q;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  set_font (fp,cfmt.wordsfont, 0);	Err	vernunftzentrum.de	70
i+  set_font_str (page_init,cfmt.wordsfont);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  n=0;	Err	vernunftzentrum.de	70
i+  for (i=0;i<ntext;i++) if (text_type[i]==TEXT_W) n++;	Err	vernunftzentrum.de	70
i+  if (n==0) return;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  bskip(cfmt.wordsspace);	Err	vernunftzentrum.de	70
i+  for (i=0;i<ntext;i++) {	Err	vernunftzentrum.de	70
i+    if (text_type[i]==TEXT_W) {	Err	vernunftzentrum.de	70
i+      bskip(cfmt.lineskipfac*cfmt.wordsfont.size);	Err	vernunftzentrum.de	70
i+      p=&text[i][0];	Err	vernunftzentrum.de	70
i+      q=&str[0];	Err	vernunftzentrum.de	70
i+      if (isdig(text[i][0])) {	Err	vernunftzentrum.de	70
i+        while (*p != '\0') {	Err	vernunftzentrum.de	70
i+          *q=*p;	Err	vernunftzentrum.de	70
i+          q++;	Err	vernunftzentrum.de	70
i+          p++;	Err	vernunftzentrum.de	70
i+          if (*p==' ') break;	Err	vernunftzentrum.de	70
i+          if (*(p-1)==':') break;	Err	vernunftzentrum.de	70
i+          if (*(p-1)=='.') break;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        if (*p==' ') p++;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      *q='\0';	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+      /* permit page break at empty lines or stanza start */	Err	vernunftzentrum.de	70
i+      nw=nwords(text[i]);	Err	vernunftzentrum.de	70
i+      if ((nw==0) || (strlen(str)>0)) buffer_eob(fp);	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+      if (nw>0) {	Err	vernunftzentrum.de	70
i+        if (strlen(str)>0) {	Err	vernunftzentrum.de	70
i+          PUT0("45 0 M (")	Err	vernunftzentrum.de	70
i+          put_str (str);	Err	vernunftzentrum.de	70
i+          PUT0(") lshow\n")	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        if (strlen(p)>0) {	Err	vernunftzentrum.de	70
i+          PUT0("50 0 M (")	Err	vernunftzentrum.de	70
i+          put_str (p);	Err	vernunftzentrum.de	70
i+          PUT0(") rshow\n")	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  buffer_eob (fp);	Err	vernunftzentrum.de	70
i+  strcpy (page_init,"");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- put_text ------- */	Err	vernunftzentrum.de	70
i+void put_text (fp, type, str)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+int type;	Err	vernunftzentrum.de	70
i+char str[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,n;	Err	vernunftzentrum.de	70
i+  float baseskip,parskip;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  n=0;	Err	vernunftzentrum.de	70
i+  for (i=0;i<ntext;i++) if (text_type[i]==type) n++;	Err	vernunftzentrum.de	70
i+  if (n==0) return;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  baseskip = cfmt.textfont.size * cfmt.lineskipfac;	Err	vernunftzentrum.de	70
i+  parskip  = cfmt.textfont.size * cfmt.parskipfac;	Err	vernunftzentrum.de	70
i+  PUT0("0 0 M\n")	Err	vernunftzentrum.de	70
i+  ntxt=0;	Err	vernunftzentrum.de	70
i+  add_to_text_block(str,0);	Err	vernunftzentrum.de	70
i+  for (i=0;i<ntext;i++) {	Err	vernunftzentrum.de	70
i+    if (text_type[i]==type) add_to_text_block(text[i],1);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  write_text_block (fp,RAGGED);	Err	vernunftzentrum.de	70
i+  buffer_eob (fp); 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}    	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- put_history ------- */	Err	vernunftzentrum.de	70
i+void put_history (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,ok;	Err	vernunftzentrum.de	70
i+  float baseskip,parskip;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  set_font (fp, cfmt.textfont,0);	Err	vernunftzentrum.de	70
i+  set_font_str (page_init,cfmt.textfont);	Err	vernunftzentrum.de	70
i+  baseskip = cfmt.textfont.size * cfmt.lineskipfac;	Err	vernunftzentrum.de	70
i+  parskip  = cfmt.textfont.size * cfmt.parskipfac;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  bskip(cfmt.textspace);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (strlen(info.rhyth)>0) {	Err	vernunftzentrum.de	70
i+    bskip(baseskip); 	Err	vernunftzentrum.de	70
i+    PUT0("0 0 M (Rhythm: ")	Err	vernunftzentrum.de	70
i+    put_str (info.rhyth);	Err	vernunftzentrum.de	70
i+    PUT0(") show\n")	Err	vernunftzentrum.de	70
i+    bskip(parskip);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if (strlen(info.book)>0) {	Err	vernunftzentrum.de	70
i+    bskip(0.5*CM); 	Err	vernunftzentrum.de	70
i+    PUT0("0 0 M (Book: ")	Err	vernunftzentrum.de	70
i+    put_str (info.book);	Err	vernunftzentrum.de	70
i+    PUT0(") show\n")	Err	vernunftzentrum.de	70
i+    bskip(parskip);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (strlen(info.src)>0) {	Err	vernunftzentrum.de	70
i+    bskip(0.5*CM); 	Err	vernunftzentrum.de	70
i+    PUT0("0 0 M (Source: ")	Err	vernunftzentrum.de	70
i+    put_str (info.src);	Err	vernunftzentrum.de	70
i+    PUT0(") show\n")	Err	vernunftzentrum.de	70
i+    bskip(parskip);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  put_text (fp, TEXT_D, "Discography: ");	Err	vernunftzentrum.de	70
i+  put_text (fp, TEXT_N, "Notes: ");	Err	vernunftzentrum.de	70
i+  put_text (fp, TEXT_Z, "Transcription: ");	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  ok=0;	Err	vernunftzentrum.de	70
i+  for (i=0;i<ntext;i++) {	Err	vernunftzentrum.de	70
i+    if (text_type[i]==TEXT_H) {	Err	vernunftzentrum.de	70
i+      bskip(0.5*CM); 	Err	vernunftzentrum.de	70
i+      PUT0("0 0 M (")	Err	vernunftzentrum.de	70
i+      put_str (text[i]);	Err	vernunftzentrum.de	70
i+      PUT0(") show\n")	Err	vernunftzentrum.de	70
i+      ok=1;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  if (ok) bskip(parskip);	Err	vernunftzentrum.de	70
i+  buffer_eob (fp);	Err	vernunftzentrum.de	70
i+  strcpy (page_init,"");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- write_inside_title  ----- */	Err	vernunftzentrum.de	70
i+void write_inside_title (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char t[201];	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if      (numtitle==1) strcpy (t,info.title);	Err	vernunftzentrum.de	70
i+  else if (numtitle==2) strcpy (t,info.title2);	Err	vernunftzentrum.de	70
i+  else if (numtitle==3) strcpy (t,info.title3);	Err	vernunftzentrum.de	70
i+  if (vb>15) printf ("write inside title <%s>\n", t);	Err	vernunftzentrum.de	70
i+  if (strlen(t)==0) return;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  bskip (cfmt.subtitlefont.size+0.2*CM);	Err	vernunftzentrum.de	70
i+  set_font (fp, cfmt.subtitlefont, 0);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (cfmt.titlecaps) cap_str(t);	Err	vernunftzentrum.de	70
i+  PUT0(" (")	Err	vernunftzentrum.de	70
i+  put_str (t);	Err	vernunftzentrum.de	70
i+  if (cfmt.titleleft) PUT0(") 0 0 M rshow\n")	Err	vernunftzentrum.de	70
i+  else PUT1(") %.1f 0 M cshow\n", cfmt.staffwidth/2)  	Err	vernunftzentrum.de	70
i+  bskip (cfmt.musicspace+0.2*CM);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}  	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- write_tunetop ----- */	Err	vernunftzentrum.de	70
i+void write_tunetop(fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  PUT2("\n\n%% --- tune %d %s\n", tunenum+1, info.title)	Err	vernunftzentrum.de	70
i+  if (!epsf) bskip (cfmt.topspace);	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- write_tempo ----- */	Err	vernunftzentrum.de	70
i+void write_tempo(fp,tempo,meter)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+char tempo[];	Err	vernunftzentrum.de	70
i+struct METERSTR meter;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char *r, *q;	Err	vernunftzentrum.de	70
i+  char text[STRL];	Err	vernunftzentrum.de	70
i+  int top,bot,value,len,i,err,fac,dig,div,rc;	Err	vernunftzentrum.de	70
i+  struct SYMBOL s;	Err	vernunftzentrum.de	70
i+  float stem,dotx,doty,sc,dx;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (vb>15) printf ("write tempo <%s>\n", info.tempo);	Err	vernunftzentrum.de	70
i+  r=tempo;	Err	vernunftzentrum.de	70
i+  p0=tempo;	Err	vernunftzentrum.de	70
i+  set_font (fp,cfmt.tempofont,0);	Err	vernunftzentrum.de	70
i+  PUT0(" 18 0 M\n")	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (;;) {	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    while (*r==' ') r++;                    /* skip blanks */	Err	vernunftzentrum.de	70
i+    if (*r=='\0') break;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (*r=='"') {                          /* write string */	Err	vernunftzentrum.de	70
i+      r++;	Err	vernunftzentrum.de	70
i+      q=text;	Err	vernunftzentrum.de	70
i+      while (*r!='"' && *r!='\0') { *q=*r; r++; q++; }	Err	vernunftzentrum.de	70
i+      if (*r=='"') r++;	Err	vernunftzentrum.de	70
i+      *q='\0';	Err	vernunftzentrum.de	70
i+      if (strlen(text)>0) {     	Err	vernunftzentrum.de	70
i+        PUT0("6 0 rmoveto (")	Err	vernunftzentrum.de	70
i+        put_str (text);	Err	vernunftzentrum.de	70
i+        PUT0(") rshow 12 0 \n")	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    else {                                  /* write tempo denotation */	Err	vernunftzentrum.de	70
i+      q=text;	Err	vernunftzentrum.de	70
i+      while (*r!=' ' && *r!='\0') { *q=*r; r++; q++; }	Err	vernunftzentrum.de	70
i+      *q='\0';	Err	vernunftzentrum.de	70
i+      q=text;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+      len=QUARTER;	Err	vernunftzentrum.de	70
i+      value=0;	Err	vernunftzentrum.de	70
i+      err=0;	Err	vernunftzentrum.de	70
i+      if (strchr(q,'=')) {	Err	vernunftzentrum.de	70
i+        if ((*q=='C') || (*q=='c')) {	Err	vernunftzentrum.de	70
i+          q++;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+          len=meter.dlen;  	Err	vernunftzentrum.de	70
i+          div=0;	Err	vernunftzentrum.de	70
i+          if (*q=='/') { div=1; q++; }	Err	vernunftzentrum.de	70
i+          fac=0;	Err	vernunftzentrum.de	70
i+          while (isdig(*q)) { dig=*q-'0'; fac=10*fac+dig; q++; }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+          if (div) {	Err	vernunftzentrum.de	70
i+            if (fac==0) fac=2;	Err	vernunftzentrum.de	70
i+            if (len%fac) printf ("Bad length divisor in tempo: %s", text);	Err	vernunftzentrum.de	70
i+            len=len/fac;	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+          else  	Err	vernunftzentrum.de	70
i+            if (fac>0) len=len*fac;	Err	vernunftzentrum.de	70
i+          if (*q!='=') err=1;	Err	vernunftzentrum.de	70
i+          q++;	Err	vernunftzentrum.de	70
i+          if (!isdig(*q)) err=1;	Err	vernunftzentrum.de	70
i+          sscanf(q,"%d", &value);	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        else if (isdig(*q)) {	Err	vernunftzentrum.de	70
i+          sscanf(q,"%d/%d=%d", &top,&bot,&value);	Err	vernunftzentrum.de	70
i+          len=(BASE*top)/bot;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        else err=1;	Err	vernunftzentrum.de	70
i+      } 	Err	vernunftzentrum.de	70
i+      else {	Err	vernunftzentrum.de	70
i+        if (isdig(*q))	Err	vernunftzentrum.de	70
i+          sscanf(q,"%d", &value);	Err	vernunftzentrum.de	70
i+        else err=1;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      	Err	vernunftzentrum.de	70
i+      s.len=len;	Err	vernunftzentrum.de	70
i+      rc = idfy_note (&s);	Err	vernunftzentrum.de	70
i+      if (rc) err=1;	Err	vernunftzentrum.de	70
i+      if (err)                              /* draw note=value */	Err	vernunftzentrum.de	70
i+        printf("\n+++ invalid tempo specifier: %s\n", text);	Err	vernunftzentrum.de	70
i+      else {	Err	vernunftzentrum.de	70
i+        sc=0.55*cfmt.tempofont.size/10.0;	Err	vernunftzentrum.de	70
i+        PUT2("gsave %.2f %.2f scale 15 3 rmoveto currentpoint\n", sc,sc)	Err	vernunftzentrum.de	70
i+        if (s.head==H_OVAL)  PUT0("HD")	Err	vernunftzentrum.de	70
i+        if (s.head==H_EMPTY) PUT0("Hd")	Err	vernunftzentrum.de	70
i+        if (s.head==H_FULL)  PUT0("hd")	Err	vernunftzentrum.de	70
i+        dx=4.0;	Err	vernunftzentrum.de	70
i+        if (s.dots) {      	Err	vernunftzentrum.de	70
i+          dotx=8; doty=0;	Err	vernunftzentrum.de	70
i+          if (s.flags>0) dotx=dotx+4;	Err	vernunftzentrum.de	70
i+          if (s.head==H_EMPTY) dotx=dotx+1;	Err	vernunftzentrum.de	70
i+          if (s.head==H_OVAL)  dotx=dotx+2;	Err	vernunftzentrum.de	70
i+          for (i=0;i<s.dots;i++) {	Err	vernunftzentrum.de	70
i+            PUT2(" %.1f %.1f dt", dotx, doty)	Err	vernunftzentrum.de	70
i+            dx=dotx;	Err	vernunftzentrum.de	70
i+            dotx=dotx+3.5;	Err	vernunftzentrum.de	70
i+          }	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        stem=16.0;	Err	vernunftzentrum.de	70
i+        if (s.flags>1) stem=stem+3*(s.flags-1);	Err	vernunftzentrum.de	70
i+        if (s.len<WHOLE) PUT1(" %.1f su",stem) 	Err	vernunftzentrum.de	70
i+        if (s.flags>0) PUT2(" %.1f f%du",stem,s.flags)	Err	vernunftzentrum.de	70
i+        if ((s.flags>0) && (dx<6.0)) dx=6.0;	Err	vernunftzentrum.de	70
i+        dx=(dx+18)*sc;	Err	vernunftzentrum.de	70
i+        PUT2(" grestore %.2f 0 rmoveto ( = %d) rshow\n", dx,value)	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- write_inside_tempo  ----- */	Err	vernunftzentrum.de	70
i+void write_inside_tempo (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  bskip (cfmt.partsfont.size);	Err	vernunftzentrum.de	70
i+  write_tempo(fp,info.tempo,default_meter);	Err	vernunftzentrum.de	70
i+  bskip (0.1*CM);	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- write_heading  ----- */	Err	vernunftzentrum.de	70
i+void write_heading (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float lwidth,down1,down2;	Err	vernunftzentrum.de	70
i+  int i,ncl;	Err	vernunftzentrum.de	70
i+  char t[201];	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  lwidth=cfmt.staffwidth;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* write the main title */	Err	vernunftzentrum.de	70
i+  bskip (cfmt.titlefont.size+cfmt.titlespace);	Err	vernunftzentrum.de	70
i+  set_font (fp,cfmt.titlefont,1);	Err	vernunftzentrum.de	70
i+  if (cfmt.withxrefs) PUT1("%d. ", xrefnum)	Err	vernunftzentrum.de	70
i+  strcpy (t,info.title);	Err	vernunftzentrum.de	70
i+  if (cfmt.titlecaps) cap_str(t);	Err	vernunftzentrum.de	70
i+  put_str (t);	Err	vernunftzentrum.de	70
i+  if (cfmt.titleleft) PUT0(") 0 0 M rshow\n")	Err	vernunftzentrum.de	70
i+  else PUT1(") %.1f 0 M cshow\n", lwidth/2)  	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* write second title */	Err	vernunftzentrum.de	70
i+  if (numtitle>=2) {	Err	vernunftzentrum.de	70
i+    bskip (cfmt.subtitlespace+cfmt.subtitlefont.size);	Err	vernunftzentrum.de	70
i+    set_font (fp,cfmt.subtitlefont,1);	Err	vernunftzentrum.de	70
i+    strcpy (t,info.title2);	Err	vernunftzentrum.de	70
i+    if (cfmt.titlecaps) cap_str(t);	Err	vernunftzentrum.de	70
i+    put_str (t);	Err	vernunftzentrum.de	70
i+    if (cfmt.titleleft) PUT0(") 0 0 M rshow\n")	Err	vernunftzentrum.de	70
i+    else PUT1(") %.1f 0 M cshow\n", lwidth/2)  	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* write third title */	Err	vernunftzentrum.de	70
i+  if (numtitle>=3) {	Err	vernunftzentrum.de	70
i+    bskip (cfmt.subtitlespace+cfmt.subtitlefont.size);	Err	vernunftzentrum.de	70
i+    set_font (fp,cfmt.subtitlefont,1);	Err	vernunftzentrum.de	70
i+    strcpy (t,info.title3);	Err	vernunftzentrum.de	70
i+    if (cfmt.titlecaps) cap_str(t);	Err	vernunftzentrum.de	70
i+    put_str (t);	Err	vernunftzentrum.de	70
i+    if (cfmt.titleleft) PUT0(") 0 0 M rshow\n")	Err	vernunftzentrum.de	70
i+    else PUT1(") %.1f 0 M cshow\n", lwidth/2)  	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* write composer, origin */	Err	vernunftzentrum.de	70
i+  if ((info.ncomp>0) || (strlen(info.orig)>0)) {	Err	vernunftzentrum.de	70
i+    set_font (fp,cfmt.composerfont,0);	Err	vernunftzentrum.de	70
i+    bskip(cfmt.composerspace);	Err	vernunftzentrum.de	70
i+    ncl=info.ncomp;	Err	vernunftzentrum.de	70
i+    if ((strlen(info.orig)>0) && (ncl<1)) ncl=1;	Err	vernunftzentrum.de	70
i+    for (i=0;i<ncl;i++) {	Err	vernunftzentrum.de	70
i+      bskip(cfmt.composerfont.size);	Err	vernunftzentrum.de	70
i+      PUT1("%.1f 0 M (", lwidth)	Err	vernunftzentrum.de	70
i+      put_str (info.comp[i]);	Err	vernunftzentrum.de	70
i+      if ((i==ncl-1)&&(strlen(info.orig)>0)) {	Err	vernunftzentrum.de	70
i+        put_str (" (");	Err	vernunftzentrum.de	70
i+        put_str (info.orig);	Err	vernunftzentrum.de	70
i+        put_str (")");	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+      PUT0 (") lshow\n");	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    down1=cfmt.composerspace+cfmt.musicspace+ncl*cfmt.composerfont.size;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    bskip(cfmt.composerfont.size+cfmt.composerspace);	Err	vernunftzentrum.de	70
i+    down1=cfmt.composerspace+cfmt.musicspace+cfmt.composerfont.size;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  bskip (cfmt.musicspace);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* decide whether we need extra shift for parts and tempo */	Err	vernunftzentrum.de	70
i+  down2=cfmt.composerspace+cfmt.musicspace;	Err	vernunftzentrum.de	70
i+  if (strlen(info.parts)>0) down2=down2+cfmt.partsspace+cfmt.partsfont.size;	Err	vernunftzentrum.de	70
i+  if (strlen(info.tempo)>0) down2=down2+cfmt.partsspace+cfmt.partsfont.size;	Err	vernunftzentrum.de	70
i+  if (down2>down1) bskip (down2-down1);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* write tempo and parts */	Err	vernunftzentrum.de	70
i+  if (strlen(info.parts)>0 || strlen(info.tempo)>0) {	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    if (strlen(info.tempo)>0) {	Err	vernunftzentrum.de	70
i+      bskip (-0.2*CM);	Err	vernunftzentrum.de	70
i+      PUT1 (" %.2f 0 T ", cfmt.indent*cfmt.scale)	Err	vernunftzentrum.de	70
i+      write_tempo(fp, info.tempo, default_meter);	Err	vernunftzentrum.de	70
i+      PUT1 (" %.2f 0 T ", -cfmt.indent*cfmt.scale)	Err	vernunftzentrum.de	70
i+      bskip (-cfmt.tempofont.size);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    if (strlen(info.parts)>0) {	Err	vernunftzentrum.de	70
i+      bskip (-cfmt.partsspace);	Err	vernunftzentrum.de	70
i+      set_font (fp,cfmt.partsfont,0);	Err	vernunftzentrum.de	70
i+      PUT0("0 0 M (")	Err	vernunftzentrum.de	70
i+      put_str (info.parts);	Err	vernunftzentrum.de	70
i+      PUT0(") rshow\n")	Err	vernunftzentrum.de	70
i+      bskip (cfmt.partsspace);	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (strlen(info.tempo)>0) bskip (cfmt.tempofont.size+0.3*CM);	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- write_parts  ----- */	Err	vernunftzentrum.de	70
i+void write_parts (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  if (strlen(info.parts)>0) {	Err	vernunftzentrum.de	70
i+    bskip (cfmt.partsfont.size);	Err	vernunftzentrum.de	70
i+    set_font (fp, cfmt.partsfont,0);	Err	vernunftzentrum.de	70
i+    PUT0("0 0 M (")	Err	vernunftzentrum.de	70
i+    put_str (info.parts);	Err	vernunftzentrum.de	70
i+    PUT0(") rshow\n")	Err	vernunftzentrum.de	70
i+    bskip(cfmt.partsspace);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+}   	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
1diff --git a/syms.h b/syms.h	/ckeen/repos/abc2ps/file/syms.h.gph	vernunftzentrum.de	70
i@@ -0,0 +1,1226 @@	Err	vernunftzentrum.de	70
i+/*  	Err	vernunftzentrum.de	70
i+ *  This file is part of abc2ps, 	Err	vernunftzentrum.de	70
i+ *  Copyright (C) 1996,1997,1998  Michael Methfessel	Err	vernunftzentrum.de	70
i+ *  See file abc2ps.c for details.	Err	vernunftzentrum.de	70
i+ */	Err	vernunftzentrum.de	70
i+ 	Err	vernunftzentrum.de	70
i+/*  subroutines to define postscript macros which draw symbols  */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_misc ------- */	Err	vernunftzentrum.de	70
i+void def_misc (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  fprintf (fp,	Err	vernunftzentrum.de	70
i+           "\n/cshow { %% usage: string cshow  - center at current pt\n"	Err	vernunftzentrum.de	70
i+           "   dup stringwidth pop 2 div neg 0 rmoveto\n"	Err	vernunftzentrum.de	70
i+           "   bx {box} if show\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n"	Err	vernunftzentrum.de	70
i+           "\n/lshow { %% usage: string lshow - show left-aligned\n"	Err	vernunftzentrum.de	70
i+           "   dup stringwidth pop neg 0 rmoveto bx {box} if show\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n"	Err	vernunftzentrum.de	70
i+           "\n/rshow { %% usage: string rshow - show right-aligned\n"	Err	vernunftzentrum.de	70
i+           "   bx {box} if show\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n"	Err	vernunftzentrum.de	70
i+           );	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  fprintf (fp,	Err	vernunftzentrum.de	70
i+           "\n/box {  %% usage: str box  - draw box around string\n"	Err	vernunftzentrum.de	70
i+           "  gsave 0.5 setlinewidth dup stringwidth pop\n"	Err	vernunftzentrum.de	70
i+           "  -2 -2 rmoveto 4 add fh 4 add 2 copy\n"	Err	vernunftzentrum.de	70
i+           "  0 exch rlineto 0 rlineto neg 0 exch rlineto neg 0 rlineto\n"	Err	vernunftzentrum.de	70
i+           "  stroke grestore\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, 	Err	vernunftzentrum.de	70
i+           "\n/wd { moveto bx {box} if show } bind def\n"	Err	vernunftzentrum.de	70
i+           "/wln {\n"	Err	vernunftzentrum.de	70
i+           "dup 3 1 roll moveto gsave 0.6 setlinewidth lineto stroke grestore\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp,	Err	vernunftzentrum.de	70
i+           "/whf {moveto gsave 0.5 1.2 scale (-) show grestore} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_typset ------- */	Err	vernunftzentrum.de	70
i+void def_typeset(fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp,	Err	vernunftzentrum.de	70
i+           "\n/WS {   %%usage:  w nspaces str WS\n"	Err	vernunftzentrum.de	70
i+           "   dup stringwidth pop 4 -1 roll\n"	Err	vernunftzentrum.de	70
i+           "   sub neg 3 -1 roll div 0 8#040 4 -1 roll\n"	Err	vernunftzentrum.de	70
i+           "   widthshow\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, 	Err	vernunftzentrum.de	70
i+           "\n/W1 { show pop pop } bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, 	Err	vernunftzentrum.de	70
i+           "\n/str 50 string def\n"	Err	vernunftzentrum.de	70
i+           "/W0 {\n"	Err	vernunftzentrum.de	70
i+           "   dup stringwidth pop str cvs exch show (  ) show show pop pop\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp,	Err	vernunftzentrum.de	70
i+           "\n/WC { counttomark 1 sub dup 0 eq { 0 }\n"	Err	vernunftzentrum.de	70
i+           "  {  ( ) stringwidth pop neg 0 3 -1 roll\n"	Err	vernunftzentrum.de	70
i+           "  {  dup 3 add index stringwidth pop ( ) stringwidth pop add\n"	Err	vernunftzentrum.de	70
i+           "  dup 3 index add 4 index lt 2 index 1 lt or\n"	Err	vernunftzentrum.de	70
i+           "  {3 -1 roll add exch 1 add} {pop exit} ifelse\n"	Err	vernunftzentrum.de	70
i+           "  } repeat } ifelse\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp,	Err	vernunftzentrum.de	70
i+           "\n/P1 {\n"	Err	vernunftzentrum.de	70
i+           "  {  WC dup 0 le {exit} if\n"	Err	vernunftzentrum.de	70
i+           "      exch pop gsave { exch show ( ) show } repeat grestore LF\n"	Err	vernunftzentrum.de	70
i+           "   } loop pop pop pop pop\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp,	Err	vernunftzentrum.de	70
i+           "\n/P2 {\n"	Err	vernunftzentrum.de	70
i+           "   {  WC dup 0 le {exit} if\n"	Err	vernunftzentrum.de	70
i+           "      dup 1 sub dup 0 eq\n"	Err	vernunftzentrum.de	70
i+           "      { pop exch pop 0.0 }\n"	Err	vernunftzentrum.de	70
i+           "      { 3 2 roll 3 index exch sub exch div } ifelse\n"	Err	vernunftzentrum.de	70
i+           "      counttomark 3 sub 2 index eq { pop 0 } if exch gsave\n"	Err	vernunftzentrum.de	70
i+           "      {  3 2 roll show ( ) show dup 0 rmoveto } repeat\n"	Err	vernunftzentrum.de	70
i+           "      grestore LF pop\n"	Err	vernunftzentrum.de	70
i+           "   } loop pop pop pop pop\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- define_font ------- */	Err	vernunftzentrum.de	70
i+void define_font (fp,name,num)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+char name[];	Err	vernunftzentrum.de	70
i+int  num;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (!strcmp(name,"Symbol")) {	Err	vernunftzentrum.de	70
i+    fprintf (fp, 	Err	vernunftzentrum.de	70
i+             "/F%d { 1 eq {/bx true def} { /bx false def} ifelse\n"	Err	vernunftzentrum.de	70
i+             "  dup 0.72 mul  /fh exch def\n"	Err	vernunftzentrum.de	70
i+             "  /%s exch selectfont } bind def\n", 	Err	vernunftzentrum.de	70
i+             num, name); 	Err	vernunftzentrum.de	70
i+    return;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp,	Err	vernunftzentrum.de	70
i+           "\n/%s findfont\n"	Err	vernunftzentrum.de	70
i+           "dup length dict begin\n"	Err	vernunftzentrum.de	70
i+           "   {1 index /FID ne {def} {pop pop} ifelse} forall\n"	Err	vernunftzentrum.de	70
i+           "   /Encoding ISOLatin1Encoding def\n"	Err	vernunftzentrum.de	70
i+           "   currentdict\n"	Err	vernunftzentrum.de	70
i+           "end\n"	Err	vernunftzentrum.de	70
i+           "/%s-ISO exch definefont pop\n",	Err	vernunftzentrum.de	70
i+           name, name);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+   fprintf (fp, 	Err	vernunftzentrum.de	70
i+            "/F%d { 1 eq {/bx true def} { /bx false def} ifelse\n"	Err	vernunftzentrum.de	70
i+            "  dup 0.72 mul  /fh exch def\n"	Err	vernunftzentrum.de	70
i+            "  /%s-ISO exch selectfont } bind def\n", 	Err	vernunftzentrum.de	70
i+            num, name); 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_tsig ------- */	Err	vernunftzentrum.de	70
i+void def_tsig (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  fprintf (fp,	Err	vernunftzentrum.de	70
i+           "\n/tsig { %% usage: x (top) (bot) tsig -- draw time signature\n"	Err	vernunftzentrum.de	70
i+           "   3 -1 roll 0 moveto /bx false def\n"	Err	vernunftzentrum.de	70
i+           "   gsave /Times-Bold 16 selectfont 1.2 1 scale\n"	Err	vernunftzentrum.de	70
i+           "   0 1.0 rmoveto currentpoint 3 -1 roll cshow\n"	Err	vernunftzentrum.de	70
i+           "   moveto 0 12 rmoveto cshow grestore\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n"	Err	vernunftzentrum.de	70
i+           );	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- add_cv ------- */	Err	vernunftzentrum.de	70
i+void add_cv (fp,f1,f2,p,i0,ncv)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+float p[][2],f1,f2;	Err	vernunftzentrum.de	70
i+int i0,ncv;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,i1,m;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  i1=i0;	Err	vernunftzentrum.de	70
i+  for (m=0; m<ncv; m++) {	Err	vernunftzentrum.de	70
i+    fprintf (fp, " ");	Err	vernunftzentrum.de	70
i+    for (i=0; i<3; i++) 	Err	vernunftzentrum.de	70
i+      fprintf (fp, " %.2f %.2f", 	Err	vernunftzentrum.de	70
i+               f1*(p[i1+i][0]-p[i1-1][0]), 	Err	vernunftzentrum.de	70
i+               f2*(p[i1+i][1]-p[i1-1][1]));	Err	vernunftzentrum.de	70
i+    fprintf (fp, " rcurveto\n");	Err	vernunftzentrum.de	70
i+    i1=i1+3;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- add_sg ------- */	Err	vernunftzentrum.de	70
i+void add_sg (fp,f1,f2,p,i0,nseg)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+float p[][2],f1,f2;	Err	vernunftzentrum.de	70
i+int i0,nseg;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+  for (i=0; i<nseg; i++)	Err	vernunftzentrum.de	70
i+    fprintf (fp, "  %.2f %.2f rlineto\n",	Err	vernunftzentrum.de	70
i+             f1*(p[i0+i][0]-p[i0+i-1][0]),	Err	vernunftzentrum.de	70
i+             f2*(p[i0+i][1]-p[i0+i-1][1]));	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- add_mv ------- */	Err	vernunftzentrum.de	70
i+void add_mv (fp,f1,f2,p,i0)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+float p[][2],f1,f2;	Err	vernunftzentrum.de	70
i+int i0;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  if (i0==0) 	Err	vernunftzentrum.de	70
i+    fprintf (fp, "  %.2f %.2f rmoveto\n", 	Err	vernunftzentrum.de	70
i+             f1*p[i0][0], f2*p[i0][1]);	Err	vernunftzentrum.de	70
i+  else	Err	vernunftzentrum.de	70
i+    fprintf (fp, "  %.2f %.2f rmoveto\n", 	Err	vernunftzentrum.de	70
i+             f1*(p[i0][0]-p[i0-1][0]), 	Err	vernunftzentrum.de	70
i+             f2*(p[i0][1]-p[i0-1][1]));	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_stems ------- */	Err	vernunftzentrum.de	70
i+void def_stems (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  fprintf (fp, 	Err	vernunftzentrum.de	70
i+           "\n/su {  %% usage: len su   - up stem\n"	Err	vernunftzentrum.de	70
i+           "  x y moveto %.1f %.1f rmoveto %.1f sub 0 exch rlineto stroke\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n", 	Err	vernunftzentrum.de	70
i+           STEM_XOFF, STEM_YOFF, STEM_YOFF );	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  fprintf(fp, 	Err	vernunftzentrum.de	70
i+          "\n/sd {  %% usage: len td   - down stem\n"	Err	vernunftzentrum.de	70
i+          "  x y moveto %.1f %.1f rmoveto neg %.1f add 0 exch rlineto stroke\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n", 	Err	vernunftzentrum.de	70
i+          -STEM_XOFF, -STEM_YOFF, STEM_YOFF);	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_dot ------- */	Err	vernunftzentrum.de	70
i+void def_dot (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  fprintf(fp, 	Err	vernunftzentrum.de	70
i+          "\n/dt {  %% usage: dx dy dt  - dot shifted by dx,dy\n"	Err	vernunftzentrum.de	70
i+          "  y add exch x add exch 1.2 0 360 arc fill\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_deco ------- */	Err	vernunftzentrum.de	70
i+void def_deco (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float p[7][2] = {	Err	vernunftzentrum.de	70
i+    {-10,-2},{0,15},{1,-11},{10,2},{0,-15},{-1,11},{-10,-2} };	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*  float q[7][2] = {	Err	vernunftzentrum.de	70
i+    {-13,0},{-2,9},{2,9},{13,0},{3,5},{-3,5},{-13,-0} }; */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*  float q[7][2] = {	Err	vernunftzentrum.de	70
i+    {-11,0},{-9,10},{9,10},{11,0},{5,7},{-5,7},{-11,-0} }; */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  /* Walsh suggestion, scale 1.8 in y */ 	Err	vernunftzentrum.de	70
i+  float q[7][2] = {	Err	vernunftzentrum.de	70
i+    {-13,0},{-12,9},{12,9},{13,0},{10,7.4},{-10,7.4},{-13,-0} };	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float s[7][2] = {	Err	vernunftzentrum.de	70
i+    {-8,-4.8},{-6,-5.5},{-3,-4.6},{0,0},{-2.3,-5},{-6,-6.8},{-8.5,-6} };	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float f1,f2;	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  f1=0.5;	Err	vernunftzentrum.de	70
i+  f2=0.5;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/grm {  %% usage:  y grm  - gracing mark\n"	Err	vernunftzentrum.de	70
i+           "  x exch moveto\n"); 	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,1,2);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "   fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/stc {  %% usage:  y stc  - staccato mark\n"	Err	vernunftzentrum.de	70
i+           "  x exch 1.2 0 360 arc fill } bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/hat {  %% usage:  y hat\n"	Err	vernunftzentrum.de	70
i+           "  x exch moveto\n"	Err	vernunftzentrum.de	70
i+           "  -4 -2 rmoveto 4 6 rlineto currentpoint stroke moveto\n"	Err	vernunftzentrum.de	70
i+           "  4 -6 rlineto -2 0 rlineto -3 4.5 rlineto fill\n"	Err	vernunftzentrum.de	70
i+           " } bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/att {  %% usage:  y att\n"	Err	vernunftzentrum.de	70
i+           "  x exch moveto\n"	Err	vernunftzentrum.de	70
i+           "  -4 -3 rmoveto 8 3 rlineto -8 3 rlineto stroke\n"	Err	vernunftzentrum.de	70
i+           " } bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  f2=f2*1.8;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (temp_switch==3) { f1=0.8*f1; f2=0.8*f2; }	Err	vernunftzentrum.de	70
i+  else                { f1=0.9*f1; f2=0.9*f2; }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/cpu {  %% usage:  y cpu  - roll sign above head\n"	Err	vernunftzentrum.de	70
i+           "  x exch moveto\n"); 	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,q,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,q,1,2);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "   fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (i=0;i<7;i++) q[i][1]=-q[i][1];	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/cpd {  %% usage:  y cpd  - roll sign below head\n"	Err	vernunftzentrum.de	70
i+           "  x exch moveto\n"); 	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,q,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,q,1,2);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "   fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  f1=0.9;	Err	vernunftzentrum.de	70
i+  f2=1.0;	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/sld {  %% usage:  y dx sld  - slide\n"	Err	vernunftzentrum.de	70
i+           "  x exch sub exch moveto\n"); 	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,s,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,s,1,2);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "   fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/emb {  %% usage:  y emb  - empahsis bar\n"	Err	vernunftzentrum.de	70
i+           "  gsave 1.4 setlinewidth 1 setlinecap x exch moveto \n"	Err	vernunftzentrum.de	70
i+           " -3.5 0 rmoveto 7 0 rlineto stroke grestore\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/trl {  %% usage:  y trl  - trill sign\n"	Err	vernunftzentrum.de	70
i+           "  gsave /Times-BoldItalic 14 selectfont\n"	Err	vernunftzentrum.de	70
i+           "  x 4 sub exch moveto (tr) show grestore\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_deco1 ------- */	Err	vernunftzentrum.de	70
i+void def_deco1 (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float p[8][2] = {     /* for hold sign */	Err	vernunftzentrum.de	70
i+    {-15,0},{-15,23},{15,23},{15,0},	Err	vernunftzentrum.de	70
i+    {14.5,0},{12,18},{-12,18},{-14.5,0} };	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float q[8][2] = {    /* for down bow sign */	Err	vernunftzentrum.de	70
i+    {-4,0},{-4,9},{4,9},{4,0},	Err	vernunftzentrum.de	70
i+    {-4,6},{-4,9},{4,9},{4,6} };	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float r[3][2] = {    /* for up bow sign */	Err	vernunftzentrum.de	70
i+    {-3.2,11},{0,0},{3.2,11} };	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float f1,f2;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  f1=f2=0.5;	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/hld {  %% usage:  y hld  - hold sign\n"	Err	vernunftzentrum.de	70
i+           "  x exch 2 copy 1.5 add 1.3 0 360 arc moveto\n");	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,1,1);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,p,4,1);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,5,1);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "   fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  f1=f2=0.8;	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/dnb {  %% usage:  y dnb  - down bow\n"	Err	vernunftzentrum.de	70
i+           "  x exch moveto\n");	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,q,0);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,q,1,3);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "   currentpoint stroke moveto\n");	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,q,4);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,q,5,3);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "   fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/upb {  %% usage:  y upb  - up bow\n"	Err	vernunftzentrum.de	70
i+           "  x exch moveto\n");	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,r,0);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,r,1,2);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "   stroke\n} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_hl ------- */	Err	vernunftzentrum.de	70
i+void def_hl (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  fprintf(fp, 	Err	vernunftzentrum.de	70
i+          "\n/hl {  %% usage: y hl  - helper line at height y\n"	Err	vernunftzentrum.de	70
i+          "   gsave 1 setlinewidth x exch moveto \n"	Err	vernunftzentrum.de	70
i+          "   -5.5 0 rmoveto 11 0 rlineto stroke grestore\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf(fp, 	Err	vernunftzentrum.de	70
i+          "\n/hl1 {  %% usage: y hl1  - longer helper line\n"	Err	vernunftzentrum.de	70
i+          "   gsave 1 setlinewidth x exch moveto \n"	Err	vernunftzentrum.de	70
i+          "   -7 0 rmoveto 14 0 rlineto stroke grestore\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_beam ------- */	Err	vernunftzentrum.de	70
i+void def_beam (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  fprintf(fp, 	Err	vernunftzentrum.de	70
i+          "\n/bm {  %% usage: x1 y1 x2 y2 t bm  - beam, depth t\n"	Err	vernunftzentrum.de	70
i+          "  3 1 roll moveto dup 0 exch neg rlineto\n"	Err	vernunftzentrum.de	70
i+          "  dup 4 1 roll sub lineto 0 exch rlineto fill\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf(fp, 	Err	vernunftzentrum.de	70
i+          "\n/bnum {  %% usage: x y (str) bnum  - number on beam\n"	Err	vernunftzentrum.de	70
i+          "  3 1 roll moveto gsave /Times-Italic 12 selectfont\n"	Err	vernunftzentrum.de	70
i+          "  /bx false def cshow grestore\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n");	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf(fp, 	Err	vernunftzentrum.de	70
i+          "\n/hbr {  %% usage: x1 y1 x2 y2 hbr  - half bracket\n"	Err	vernunftzentrum.de	70
i+          "  moveto lineto 0 -3 rlineto stroke\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_flags1 ------- */	Err	vernunftzentrum.de	70
i+void def_flags1 (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float p[13][2] = {	Err	vernunftzentrum.de	70
i+    {0.0, 0.0},  {1.5, -3.0},  {1.0, -2.5},  {4.0, -6.0},  {9.0, -10.0},  	Err	vernunftzentrum.de	70
i+    {9.0, -16.0},  {8.0, -20.0},  {7.0, -24.0},  {4.0, -26.0},  	Err	vernunftzentrum.de	70
i+    {6.5, -21.5},  {9.0, -15.0},  {4.0, -9.0},  {0.0, -8.0} } ;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float f1,f2;	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  f1=f2=6.0/9.0;	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/f1u {  %% usage:  len f1u  - single flag up\n"	Err	vernunftzentrum.de	70
i+           "  y add x %.1f add exch moveto\n", STEM_XOFF); 	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,1,4);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "   fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  f1=1.2*f1;	Err	vernunftzentrum.de	70
i+  for (i=0;i<13;i++) p[i][1]=-p[i][1];	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/f1d {  %% usage:  len f1d  - single flag down\n"	Err	vernunftzentrum.de	70
i+           "  neg y add x %.1f sub exch moveto\n", STEM_XOFF); 	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,1,4);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "   fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_flags2 ------- */	Err	vernunftzentrum.de	70
i+void def_flags2 (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float p[13][2] = {	Err	vernunftzentrum.de	70
i+    {0.0, 0.0},  	Err	vernunftzentrum.de	70
i+    {2.0, -5.0},  {9.0, -6.0},  {7.5, -18.0},  	Err	vernunftzentrum.de	70
i+    {7.5, -9.0},  {1.5, -6.5},  {0.0, -6.5},  	Err	vernunftzentrum.de	70
i+    {2.0, -14.0},  {9.0, -14.0}, {7.5, -26.0}, 	Err	vernunftzentrum.de	70
i+    {7.5, -17.0},  {1.5, -14.5},  {0.0, -14.0},	Err	vernunftzentrum.de	70
i+  };	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float f1,f2;	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  f1=f2=6.0/9.0;                       /* up flags */	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/f2u {  %% usage:  len f2u  - double flag up\n"	Err	vernunftzentrum.de	70
i+           "  y add x %.1f add exch moveto\n", STEM_XOFF); 	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,1,4);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "   fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  f1=1.2*f1;                           /* down flags */	Err	vernunftzentrum.de	70
i+  for (i=0;i<13;i++) p[i][1]=-p[i][1];	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/f2d {  %% usage:  len f2d  - double flag down\n"	Err	vernunftzentrum.de	70
i+           "  neg y add x %.1f sub exch moveto\n", STEM_XOFF); 	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,1,4);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "   fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}  	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_xflags ------- */	Err	vernunftzentrum.de	70
i+void def_xflags (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float p[7][2] = {	Err	vernunftzentrum.de	70
i+    {0.0, 0.0},  	Err	vernunftzentrum.de	70
i+    {2.0, -7.5},  {9.0, -7.5}, {7.5, -19.5}, 	Err	vernunftzentrum.de	70
i+    {7.5, -10.5},  {1.5, -8.0},  {0.0, -7.5}	Err	vernunftzentrum.de	70
i+  };	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float f1,f2;	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  f1=f2=6.0/9.0;                       /* extra up flag */	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/xfu {  %% usage:  len xfu  - extra flag up\n"	Err	vernunftzentrum.de	70
i+           "  y add x %.1f add exch moveto\n", STEM_XOFF); 	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,1,2);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "   fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  f1=1.2*f1;                           /* extra down flag */	Err	vernunftzentrum.de	70
i+  for (i=0;i<7;i++) p[i][1]=-p[i][1];	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/xfd {  %% usage:  len xfd  - extra flag down\n"	Err	vernunftzentrum.de	70
i+           "  neg y add x %.1f sub exch moveto\n", STEM_XOFF); 	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,1,2);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "   fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, 	Err	vernunftzentrum.de	70
i+           "\n/f3d {dup f2d 9.5 sub xfd} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, 	Err	vernunftzentrum.de	70
i+           "\n/f4d {dup dup f2d 9.5 sub xfd 14.7 sub xfd} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, 	Err	vernunftzentrum.de	70
i+           "\n/f3u {dup f2u 9.5 sub xfu} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, 	Err	vernunftzentrum.de	70
i+           "\n/f4u {dup dup f2u 9.5 sub xfu 14.7 sub xfu} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}  	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_acc ------- */	Err	vernunftzentrum.de	70
i+void def_acc (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float p[12][2]={  	Err	vernunftzentrum.de	70
i+    {-2,3},{6,6.5},{6,-1},{-2,-4.5},{4,0},{4,4},{-2,2},{-2,10},{-2,-4}};  	Err	vernunftzentrum.de	70
i+  float q[14][2]={  	Err	vernunftzentrum.de	70
i+    {4,4},{4,7},{-4,5},{-4,2},{4,4},{4,-5},{4,-2},{-4,-4},{-4,-7},{4,-5}, 	Err	vernunftzentrum.de	70
i+    {2,-10},{2,11.5},{-2,-11.5},{-2,10} };	Err	vernunftzentrum.de	70
i+  float r[14][2]={  	Err	vernunftzentrum.de	70
i+    {-2.5,-6}, {2.5,-5}, {2.5,-2}, {-2.5,-3}, {-2.5,6},  	Err	vernunftzentrum.de	70
i+    {-2.5,2}, {2.5,3}, {2.5,6}, {-2.5,5}, {-2.5,2},	Err	vernunftzentrum.de	70
i+    {-2.5,11}, {-2.5,-5.5},  	Err	vernunftzentrum.de	70
i+    {2.5,5.5}, {2.5,-11} };	Err	vernunftzentrum.de	70
i+  float s[25][2]={	Err	vernunftzentrum.de	70
i+    {0.7,0},{3.9,3},{6,3},{6.2,6.2},{3,6},{3,3.9},	Err	vernunftzentrum.de	70
i+    {0,0.7},{-3,3.9},{-3,6},{-6.2,6.2},{-6,3},{-3.9,3},	Err	vernunftzentrum.de	70
i+    {-0.7,0},{-3.9,-3},{-6,-3},{-6.2,-6.2},{-3,-6},{-3,-3.9},	Err	vernunftzentrum.de	70
i+    {0,-0.7},{3,-3.9},{3,-6},{6.2,-6.2},{6,-3},{3.9,-3},	Err	vernunftzentrum.de	70
i+    {0.7,0} };	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float f1,f2;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  f2=8.0/9.0;	Err	vernunftzentrum.de	70
i+  f1=f2*0.9;	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/ft0 { %% usage:  x y ft0  - flat sign\n"	Err	vernunftzentrum.de	70
i+           "  moveto\n"); 	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,1,2);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "  currentpoint fill moveto\n");	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,7);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,p,8,1);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "  stroke\n } bind def\n");	Err	vernunftzentrum.de	70
i+  fprintf (fp, "/ft { %% usage: dx ft  - flat relative to head\n"	Err	vernunftzentrum.de	70
i+           " neg x add y ft0 } bind def\n");	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  f2=8.0/9.0;    /* more narrow flat sign for double flat */	Err	vernunftzentrum.de	70
i+  f1=f2*0.8;	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/ftx { %% usage:  x y ftx  - narrow flat sign\n"	Err	vernunftzentrum.de	70
i+           "  moveto\n"); 	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,1,2);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "  currentpoint fill moveto\n");	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,7);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,p,8,1);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "  stroke\n } bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, "/dft0 { %% usage: x y dft0 ft  - double flat sign\n"	Err	vernunftzentrum.de	70
i+           "  2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bind def\n"	Err	vernunftzentrum.de	70
i+           "/dft { %% usage: dx dft  - double flat relative to head\n"	Err	vernunftzentrum.de	70
i+           "  neg x add y dft0 } bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  f2=6.5/9.0;	Err	vernunftzentrum.de	70
i+  f1=f2*0.9;	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/sh0 {  %% usage:  x y sh0  - sharp sign\n"	Err	vernunftzentrum.de	70
i+           "  moveto\n"); 	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,q,0);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,q,1,4);	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,q,5);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,q,6,4);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "  currentpoint fill moveto\n");	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,q,10);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,q,11,1);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "  currentpoint stroke moveto\n");	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,q,12);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,q,13,1);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "  stroke\n } bind def\n");	Err	vernunftzentrum.de	70
i+  fprintf (fp, "/sh { %% usage: dx sh  - sharp relative to head\n"	Err	vernunftzentrum.de	70
i+           " neg x add y sh0 } bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  f2=6.5/9.0;	Err	vernunftzentrum.de	70
i+  f1=f2*0.9;	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/nt0 {  %% usage:  x y nt0  - neutral sign\n"	Err	vernunftzentrum.de	70
i+           "  moveto\n"); 	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,r,0);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,r,1,4);	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,r,5);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,r,6,4);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "  currentpoint fill moveto\n");	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,r,10);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,r,11,1);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "  currentpoint stroke moveto\n");	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,r,12);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,r,13,1);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "  stroke\n } bind def\n");	Err	vernunftzentrum.de	70
i+  fprintf (fp, "/nt { %% usage: dx nt  - neutral relative to head\n"	Err	vernunftzentrum.de	70
i+           " neg x add y nt0 } bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  f1=5.0/9.0;	Err	vernunftzentrum.de	70
i+  f2=f1;	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/dsh0 {  %% usage:  x y dsh0  - double sharp \n"	Err	vernunftzentrum.de	70
i+           "  moveto\n"); 	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,s,0);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,s,1,24);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "  fill\n } bind def\n");	Err	vernunftzentrum.de	70
i+  fprintf (fp, "/dsh { %% usage: dx dsh  - double sharp relative to head\n"	Err	vernunftzentrum.de	70
i+           " neg x add y dsh0 } bind def\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_rests ------- */	Err	vernunftzentrum.de	70
i+void def_rests (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float p[14][2]={  	Err	vernunftzentrum.de	70
i+    {-1,17}, {15,4}, {-6,8}, {6.5,-5}, {-2,-2}, {-5,-11}, {1,-15},	Err	vernunftzentrum.de	70
i+    {-9,-11}, {-6,0}, {1,-1},   {-9,7}, {7,5}, {-1,17} };	Err	vernunftzentrum.de	70
i+  float q[16][2]={  	Err	vernunftzentrum.de	70
i+    {8,14}, {5,9}, {3,5}, {-1.5,4},	Err	vernunftzentrum.de	70
i+    {4,11}, {-9,14}, {-9,7},	Err	vernunftzentrum.de	70
i+    {-9,4}, {-6,2}, {-3,2},	Err	vernunftzentrum.de	70
i+    {4,2}, {5,7}, {7,11},	Err	vernunftzentrum.de	70
i+    {-1.8,-20},  {-0.5,-20}, {8.5,14}};	Err	vernunftzentrum.de	70
i+  float r[29][2]={  	Err	vernunftzentrum.de	70
i+    {8,14}, {5,9}, {3,5}, {-1.5,4},	Err	vernunftzentrum.de	70
i+    {4,11}, {-9,14}, {-9,7},	Err	vernunftzentrum.de	70
i+    {-9,4}, {-6,2}, {-3,2},	Err	vernunftzentrum.de	70
i+    {4,2}, {5,7}, {7,11},	Err	vernunftzentrum.de	70
i+    {8,14}, {5,9}, {3,5}, {-1.5,4},	Err	vernunftzentrum.de	70
i+    {4,11}, {-9,14}, {-9,7},	Err	vernunftzentrum.de	70
i+    {-9,4}, {-6,2}, {-3,2},	Err	vernunftzentrum.de	70
i+    {4,2}, {5,7}, {7.3,11},	Err	vernunftzentrum.de	70
i+    {-1.8,-21},  {-0.5,-21}, {8.5,14} };	Err	vernunftzentrum.de	70
i+  float f1,f2;	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/r4 {  %% usage:  x y r4  -  quarter rest\n"	Err	vernunftzentrum.de	70
i+           "   dup /y exch def exch dup /x exch def exch moveto\n");	Err	vernunftzentrum.de	70
i+  f1=f2=6.0/11.5;	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,1,4);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "  fill\n } bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/r8 {  %% usage:  x y r8  -  eighth rest\n"	Err	vernunftzentrum.de	70
i+           "   dup /y exch def exch dup /x exch def exch moveto\n");	Err	vernunftzentrum.de	70
i+  f1=f2=7/18.0;	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,q,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,q,1,4);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,q,13,3);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "  fill\n } bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (i=13;i<26;i++) { r[i][0]-=4.2; r[i][1]-=14; }	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/r16 {  %% usage:  x y r16  -  16th rest\n"	Err	vernunftzentrum.de	70
i+           "   dup /y exch def exch dup /x exch def exch moveto\n");	Err	vernunftzentrum.de	70
i+  f1=f2=7/18.0;	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,r,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,r,1,4);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,r,13,1);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,r,14,4);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,r,26,3);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "  fill\n } bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  fprintf (fp, 	Err	vernunftzentrum.de	70
i+           "\n/r1 {  %% usage:  x y r1  -  whole rest\n"	Err	vernunftzentrum.de	70
i+           "  dup /y exch def exch dup /x exch def exch moveto\n"	Err	vernunftzentrum.de	70
i+           "  -3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, 	Err	vernunftzentrum.de	70
i+           "\n/r2 {  %% usage:  x y r2  -  half rest\n"	Err	vernunftzentrum.de	70
i+           "  dup /y exch def exch dup /x exch def exch moveto\n"	Err	vernunftzentrum.de	70
i+           "  -3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n"	Err	vernunftzentrum.de	70
i+           );	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  /* get 32nd, 64th rest by overwriting 8th and 16th rests */	Err	vernunftzentrum.de	70
i+  fprintf (fp,	Err	vernunftzentrum.de	70
i+           "\n/r32 {\n"	Err	vernunftzentrum.de	70
i+           "2 copy r16 5.5 add exch 1.6 add exch r8\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n");	Err	vernunftzentrum.de	70
i+  fprintf (fp,	Err	vernunftzentrum.de	70
i+           "\n/r64 {\n"	Err	vernunftzentrum.de	70
i+           "2 copy 5.5 add exch 1.6 add exch r16\n"	Err	vernunftzentrum.de	70
i+           "5.5 sub exch 1.5 sub exch r16\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_bars ------ */	Err	vernunftzentrum.de	70
i+void def_bars (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf(fp, "\n/bar {  %% usage: x bar  - single bar\n"	Err	vernunftzentrum.de	70
i+          "  0 moveto  0 24 rlineto stroke\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n"	Err	vernunftzentrum.de	70
i+          	Err	vernunftzentrum.de	70
i+          "\n/dbar {  %% usage: x dbar  - thin double bar\n"	Err	vernunftzentrum.de	70
i+          "   0 moveto 0 24 rlineto -3 -24 rmoveto\n"	Err	vernunftzentrum.de	70
i+          "   0 24 rlineto stroke\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n"	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+          "\n/fbar1 {  %% usage: x fbar1  - fat double bar at start\n"	Err	vernunftzentrum.de	70
i+          "  0 moveto  0 24 rlineto 3 0 rlineto 0 -24 rlineto \n"	Err	vernunftzentrum.de	70
i+          "  currentpoint fill moveto\n"	Err	vernunftzentrum.de	70
i+          "  3 0 rmoveto 0 24 rlineto stroke\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n"	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+          "\n/fbar2 {  %% usage: x fbar2  - fat double bar at end\n"	Err	vernunftzentrum.de	70
i+          "  0 moveto  0 24 rlineto -3 0 rlineto 0 -24 rlineto \n"	Err	vernunftzentrum.de	70
i+          "  currentpoint fill moveto\n"	Err	vernunftzentrum.de	70
i+          "  -3 0 rmoveto 0 24 rlineto stroke\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n"	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+          "\n/rdots {  %% usage: x rdots  - repeat dots \n"	Err	vernunftzentrum.de	70
i+          "  0 moveto 0 9 rmoveto currentpoint 2 copy 1.2 0 360 arc \n"	Err	vernunftzentrum.de	70
i+          "  moveto 0 6 rmoveto  currentpoint 1.2 0 360 arc fill\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_ends ------ */	Err	vernunftzentrum.de	70
i+void def_ends (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  /* use dy=20 for tall boxes */	Err	vernunftzentrum.de	70
i+  int y=50,dy=6;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf(fp, "\n/end1 {  %% usage: x1 x2 (str) end1  - mark first ending\n"	Err	vernunftzentrum.de	70
i+          "  3 1 roll %d moveto 0 %d rlineto dup %d lineto 0 %d rlineto stroke\n"	Err	vernunftzentrum.de	70
i+          "  4 add %d moveto gsave /Times-Roman 13 selectfont 1.2 0.95 scale\n"	Err	vernunftzentrum.de	70
i+          "  show grestore\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n",	Err	vernunftzentrum.de	70
i+          y-dy,  dy, y, -dy,  y-10);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf(fp, "\n/end2 {  %% usage: x1 x2 (str) end2  - mark second ending\n"	Err	vernunftzentrum.de	70
i+          "  3 1 roll %d moveto dup %d lineto 0 %d rlineto stroke\n"	Err	vernunftzentrum.de	70
i+          "  4 add %d moveto gsave /Times-Roman 13 selectfont 1.2 0.95 scale\n"	Err	vernunftzentrum.de	70
i+          "  show grestore\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n",	Err	vernunftzentrum.de	70
i+          y, y, -dy,  y-10);	Err	vernunftzentrum.de	70
i+}  	Err	vernunftzentrum.de	70
i+       	Err	vernunftzentrum.de	70
i+/* ----- def_gchord ------ */	Err	vernunftzentrum.de	70
i+void def_gchord (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  fprintf(fp,"\n/gc { %% usage: x y (str) gc  -- draw guitar chord string\n"	Err	vernunftzentrum.de	70
i+          "  3 1 roll moveto rshow\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_sl ------ */	Err	vernunftzentrum.de	70
i+void def_sl (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+/*  fprintf(fp, "\n/sl {  %% usage: x1 y2 x2 y2 x3 y3 x0 y0 sl\n"	Err	vernunftzentrum.de	70
i+          "  gsave %.1f setlinewidth moveto curveto stroke grestore\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n", SLURWIDTH); */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf(fp, "\n/SL {  %% usage: pp2x pp1x p1 pp1 pp2 p2 p1 sl\n"	Err	vernunftzentrum.de	70
i+          "  moveto curveto rlineto curveto fill\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_hd1 ------- */	Err	vernunftzentrum.de	70
i+void def_hd1 (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float p[7][2] = {	Err	vernunftzentrum.de	70
i+    {8.0, 0.0},  {8.0, 8.0},  {-8.0, 8.0},  {-8.0, 0.0},  {-8.0, -8.0},  	Err	vernunftzentrum.de	70
i+    {8.0, -8.0},  {8.0, 0.0} };	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float c,s,xx,yy,f1,f2;	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+/*float phi; */	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+/*phi=0.6;	Err	vernunftzentrum.de	70
i+  c=cos(phi);	Err	vernunftzentrum.de	70
i+  s=sin(phi); */	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  c=0.825; s=0.565;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (i=0;i<7;i++) {	Err	vernunftzentrum.de	70
i+    xx = c*p[i][0] - s*p[i][1];	Err	vernunftzentrum.de	70
i+    yy = s*p[i][0] + c*p[i][1];	Err	vernunftzentrum.de	70
i+    p[i][0]=xx;	Err	vernunftzentrum.de	70
i+    p[i][1]=yy;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  f1=f2=6.0/12.0;	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/hd {  %% usage: x y hd  - full head\n"	Err	vernunftzentrum.de	70
i+           "  dup /y exch def exch dup /x exch def exch moveto\n");	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,1,2);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "   fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_hd2 ------- */	Err	vernunftzentrum.de	70
i+void def_hd2 (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float p[14][2] = {	Err	vernunftzentrum.de	70
i+    {8.0, 0.0},  {8.0, 8.5},  {-8.0, 8.5},  {-8.0, 0.0},  {-8.0, -8.5},  	Err	vernunftzentrum.de	70
i+    {8.0, -8.5},  {8.0, 0.0},  {7.0, 0.0},  {7.0, -4.0},  {-7.0, -4.0}, 	Err	vernunftzentrum.de	70
i+    {-7.0, 0.0},  {-7.0, 4.0},  {7.0, 4.0},  {7.0, 0.0} };	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*  float phi; */	Err	vernunftzentrum.de	70
i+  float c,s,xx,yy,f1,f2;	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*phi=0.5;	Err	vernunftzentrum.de	70
i+  c=cos(phi);	Err	vernunftzentrum.de	70
i+  s=sin(phi); */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  c=0.878; s=0.479;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (i=0;i<14;i++) {	Err	vernunftzentrum.de	70
i+    xx = c*p[i][0] - s*p[i][1];	Err	vernunftzentrum.de	70
i+    yy = s*p[i][0] + c*p[i][1];	Err	vernunftzentrum.de	70
i+    p[i][0]=xx;	Err	vernunftzentrum.de	70
i+    p[i][1]=yy;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  f1=f2=6.0/12.0;	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/Hd {  %% usage: x y Hd  - open head for half\n"	Err	vernunftzentrum.de	70
i+           "  dup /y exch def exch dup /x exch def exch moveto\n");	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,1,2);	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,7);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,8,2);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "   fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_hd3 ------- */	Err	vernunftzentrum.de	70
i+void def_hd3 (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float p[13][2] = {	Err	vernunftzentrum.de	70
i+    {11.0, 0.0}, {11.0, 2.0},  {6.0, 6.5},  {0.0, 6.5},  {-6.0, 6.5}, 	Err	vernunftzentrum.de	70
i+    {-11.0, 2.0},  {-11.0, 0.0},  {-11.0, -2.0},  {-6.0, -6.5}, 	Err	vernunftzentrum.de	70
i+    {0.0, -6.5},  {6.0, -6.5},  {11.0, -2.0},  {11.0, 0.0}  };	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float q[8][2] = {	Err	vernunftzentrum.de	70
i+    {11.0, 0.0},  {5.0, 0.0},  {5.0, -5.0},  {-5.0, -5.0},  {-5.0, 0.0},  	Err	vernunftzentrum.de	70
i+    {-5.0, 5.0},  {5.0, 5.0},  {5.0, 0.0}};	Err	vernunftzentrum.de	70
i+           	Err	vernunftzentrum.de	70
i+/*  float phi; */	Err	vernunftzentrum.de	70
i+  float c,s,xx,yy,f1,f2;	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*phi=2.5;	Err	vernunftzentrum.de	70
i+  c=cos(phi);	Err	vernunftzentrum.de	70
i+  s=sin(phi); */	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  c=-0.801; s=0.598;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (i=1;i<8;i++) {	Err	vernunftzentrum.de	70
i+    xx = c*q[i][0] - s*q[i][1];	Err	vernunftzentrum.de	70
i+    yy = s*q[i][0] + c*q[i][1];	Err	vernunftzentrum.de	70
i+    q[i][0]=xx;	Err	vernunftzentrum.de	70
i+    q[i][1]=yy;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  f1=f2=6.5/12.0;	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/HD { %% usage: x y HD  - open head for whole\n"	Err	vernunftzentrum.de	70
i+           "  dup /y exch def exch dup /x exch def exch moveto\n");	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,1,4);	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,q,1);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,q,2,2);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "   fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_gnote ------- */	Err	vernunftzentrum.de	70
i+void def_gnote (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float p[7][2] = {	Err	vernunftzentrum.de	70
i+    {0,10}, {16,10}, {16,-10}, {0,-10}, {-16,-10}, {-16,10}, {0,10} };	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*  float phi; */	Err	vernunftzentrum.de	70
i+  float c,s,xx,yy,f1,f2;	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+/*phi=0.7;	Err	vernunftzentrum.de	70
i+  c=cos(phi);	Err	vernunftzentrum.de	70
i+  s=sin(phi); */	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  c=0.765; s=0.644;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (i=0;i<7;i++) {	Err	vernunftzentrum.de	70
i+    xx = c*p[i][0] - s*p[i][1];	Err	vernunftzentrum.de	70
i+    yy = s*p[i][0] + c*p[i][1];	Err	vernunftzentrum.de	70
i+    p[i][0]=xx;	Err	vernunftzentrum.de	70
i+    p[i][1]=yy;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  f1=f2=2./10.0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/gn1 {  %% usage: x y l gnt  - grace note w. tail\n"	Err	vernunftzentrum.de	70
i+           "  3 1 roll 2 copy moveto\n");	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,1,2);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "  fill moveto %.2f 0 rmoveto 0 exch rlineto\n"	Err	vernunftzentrum.de	70
i+           "3 -4 4 -5 2 -8 rcurveto -5 2 rmoveto 7 4 rlineto   \n"	Err	vernunftzentrum.de	70
i+           "stroke\n",	Err	vernunftzentrum.de	70
i+           GSTEM_XOFF);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/gnt {  %% usage: x y l gnt  - grace note\n"	Err	vernunftzentrum.de	70
i+           "  3 1 roll 2 copy moveto\n");	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,1,2);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "  fill moveto %.2f 0 rmoveto 0 exch rlineto stroke\n",	Err	vernunftzentrum.de	70
i+           GSTEM_XOFF);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf(fp, "\n/gbm2 {  %% usage: x1 y1 x2 y2 gbm2  - double note beam\n"	Err	vernunftzentrum.de	70
i+          "  gsave 1.4 setlinewidth\n"	Err	vernunftzentrum.de	70
i+          "  4 copy 0.5 sub moveto 0.5 sub lineto stroke\n"	Err	vernunftzentrum.de	70
i+          "  3.4 sub moveto 3.4 sub lineto stroke grestore\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf(fp, "\n/gbm3 {  %% usage: x1 y1 x2 y2 gbm3  - triple gnote beam\n"	Err	vernunftzentrum.de	70
i+          "  gsave 1.2 setlinewidth\n"	Err	vernunftzentrum.de	70
i+          "  4 copy 0.3 sub moveto 0.3 sub lineto stroke\n"	Err	vernunftzentrum.de	70
i+          "  4 copy 2.5 sub moveto 2.5 sub lineto stroke\n"	Err	vernunftzentrum.de	70
i+          "  4.7 sub moveto 4.7 sub lineto stroke grestore\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf(fp, "\n/ghl {  %% usage: x y ghl  - grace note helper line\n"	Err	vernunftzentrum.de	70
i+          "   gsave 0.7 setlinewidth moveto \n"	Err	vernunftzentrum.de	70
i+          "   -3 0 rmoveto 6 0 rlineto stroke grestore\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf(fp, "\n/gsl {  %% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl\n"	Err	vernunftzentrum.de	70
i+          "  moveto curveto stroke\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf(fp, "\n/gsh0 {  %% usage: x y gsh0\n"	Err	vernunftzentrum.de	70
i+          "gsave translate 0.7 0.7 scale 0 0 sh0 grestore\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf(fp, "\n/gft0 {  %% usage: x y gft0\n"	Err	vernunftzentrum.de	70
i+          "gsave translate 0.7 0.7 scale 0 0 ft0 grestore\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf(fp, "\n/gnt0 {  %% usage: x y gnt0\n"	Err	vernunftzentrum.de	70
i+          "gsave translate 0.7 0.7 scale 0 0 nt0 grestore\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf(fp, "\n/gdf0 {  %% usage: x y gdf0\n"	Err	vernunftzentrum.de	70
i+          "gsave translate 0.7 0.6 scale 0 0 dft0 grestore\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf(fp, "\n/gds0 {  %% usage: x y gds0\n"	Err	vernunftzentrum.de	70
i+          "gsave translate 0.7 0.7 scale 0 0 dsh0 grestore\n"	Err	vernunftzentrum.de	70
i+          "} bind def\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_csig ------- */	Err	vernunftzentrum.de	70
i+void def_csg (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float p[25][2]={	Err	vernunftzentrum.de	70
i+  {0,26},  	Err	vernunftzentrum.de	70
i+  {4,26}, {11,23},  {11,14}, 	Err	vernunftzentrum.de	70
i+  {11,20},  {5,19}, {5,14}, 	Err	vernunftzentrum.de	70
i+  {5,9}, {12,9}, {12,15}, 	Err	vernunftzentrum.de	70
i+  {12,25}, {6,28},  {0,28}, 	Err	vernunftzentrum.de	70
i+  {-15,28}, {-25,17}, {-25,2}, 	Err	vernunftzentrum.de	70
i+  {-25,-10}, {-10,-28}, {11,-8}, 	Err	vernunftzentrum.de	70
i+  {-6,-20}, {-18,-11}, {-18,2}, 	Err	vernunftzentrum.de	70
i+  {-18,14}, {-14,26}, {0,26} };	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float f1,f2;	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  for (i=0;i<25;i++) {	Err	vernunftzentrum.de	70
i+    p[i][0]=p[i][0]+4;	Err	vernunftzentrum.de	70
i+    p[i][1]=p[i][1]+43;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  f1 = f2 = 0.25;	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/csig {  %% usage:  x csig  - C timesig \n"	Err	vernunftzentrum.de	70
i+           "  0 moveto\n"); 	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,1,8);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "   fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/ctsig {  %% usage:  x ctsig  - C| timesig \n"	Err	vernunftzentrum.de	70
i+           "  dup csig 4 moveto 0 16 rlineto stroke\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_tclef ------- */	Err	vernunftzentrum.de	70
i+void def_tclef (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float p[71][2]={	Err	vernunftzentrum.de	70
i+    {-6, 16},  {-8, 13},  {-14, 19},  {-10, 35},  {2, 35},  {8, 37},  	Err	vernunftzentrum.de	70
i+    {21, 30},  {21, 17},  {21, 5},  {10, -1},  {0, -1},  {-12, -1},  	Err	vernunftzentrum.de	70
i+    {-23, 5},  {-23, 22},  {-23, 29},  {-22, 37},  {-7, 49},  {10, 61},  	Err	vernunftzentrum.de	70
i+    {10, 68},  {10, 73},  {10, 78},  {9, 82},  {7, 82},  {2, 78},  	Err	vernunftzentrum.de	70
i+    {-2, 68},  {-2, 62},  {-2, 25},  {10, 18},  {11, -8},  {11, -18}, 	Err	vernunftzentrum.de	70
i+    {5, -23},  {-4, -23},  {-10, -23},  {-15, -18},  {-15, -13},  	Err	vernunftzentrum.de	70
i+    {-15, -8},  {-12, -4},  {-7, -4},  {3, -4},  {3, -20},  {-6, -17},	Err	vernunftzentrum.de	70
i+    {-5, -23},  {9, -20},  {9, -9},  {7, 24},  {-5, 30},  {-5, 67}, 	Err	vernunftzentrum.de	70
i+    {-5, 78},  {-2, 87},  {7, 91},  {13, 87},  {18, 80},  {17, 73},  	Err	vernunftzentrum.de	70
i+    {17, 62},  {10, 54},  {1, 45},  {-5, 38},  {-15, 33},  {-15, 19}, 	Err	vernunftzentrum.de	70
i+    {-15, 7},  {-8, 1},  {0, 1},  {8, 1},  {15, 6},  {15, 14},  {15, 23},	Err	vernunftzentrum.de	70
i+    {7, 26},  {2, 26},  {-5, 26},  {-9, 21},  {-6, 16} };	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float f1,f2;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  f1 = f2 = 24.0/65.0;	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/tclef {  %% usage:  x tclef  - treble clef \n"	Err	vernunftzentrum.de	70
i+           "  0 moveto\n"); 	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,p,1,1);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,2,23);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "   fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/stclef {\n"	Err	vernunftzentrum.de	70
i+           "  0.85 div gsave 0.85 0.85 scale tclef grestore\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_bclef ------- */	Err	vernunftzentrum.de	70
i+void def_bclef (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float p[42][2]={	Err	vernunftzentrum.de	70
i+    {-2.3,3}, {6,7}, {10.5,12}, {10.5,16},	Err	vernunftzentrum.de	70
i+    {10.5,20.5}, {8.5,23.5}, {6.2,23.3},	Err	vernunftzentrum.de	70
i+    {5.2,23.5}, {2,23.5}, {0.5,19.5},	Err	vernunftzentrum.de	70
i+    {2,20}, {4,19.5}, {4,18},	Err	vernunftzentrum.de	70
i+    {4,17}, {3.5,16}, {2,16},	Err	vernunftzentrum.de	70
i+    {1,16}, {0,16.9}, {0,18.5},	Err	vernunftzentrum.de	70
i+    {0,21}, {2.1,24}, {6,24}, 	Err	vernunftzentrum.de	70
i+    {10,24}, {13.5,21.5}, {13.5,16.5},	Err	vernunftzentrum.de	70
i+    {13.5,11}, {7,5.5}, {-2.0,2.8},	Err	vernunftzentrum.de	70
i+    {14.9,21}, 	Err	vernunftzentrum.de	70
i+    {14.9,22.5}, {16.9,22.5}, {16.9,21},	Err	vernunftzentrum.de	70
i+    {16.9,19.5}, {14.9,19.5}, {14.9,21},	Err	vernunftzentrum.de	70
i+    {14.9,15},	Err	vernunftzentrum.de	70
i+    {14.9,16.5}, {16.9,16.5}, {16.9,15},	Err	vernunftzentrum.de	70
i+    {16.9,13.5}, {14.9,13.5}, {14.9,15} };	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+  float f1,f2;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (i=0;i<42;i++) {p[i][0]-=7.5; p[i][1]-=0.5; }	Err	vernunftzentrum.de	70
i+  f1 = f2 = 1.0;	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/bclef {  %% usage:  x bclef  - bass clef \n"	Err	vernunftzentrum.de	70
i+           "  0 moveto\n"); 	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,1,9);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,1,9);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,28);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,29,2);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,25);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,36,2);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, "fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/sbclef {\n"	Err	vernunftzentrum.de	70
i+           "  0.85 div gsave 0.85 0.85 scale 0 4 translate bclef grestore\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_cclef ------- */	Err	vernunftzentrum.de	70
i+void def_cclef (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float p[30][2]={	Err	vernunftzentrum.de	70
i+    {0,0}, {2,5.5}, 	Err	vernunftzentrum.de	70
i+    {9,4.5}, {12,10}, {12,15.5},	Err	vernunftzentrum.de	70
i+    {12,19.5}, {11,23.3}, {6.5,23.5},	Err	vernunftzentrum.de	70
i+    {5.2,23.5}, {2,23.5}, {0.5,19.5},	Err	vernunftzentrum.de	70
i+    {2,20}, {4,19.5}, {4,18},	Err	vernunftzentrum.de	70
i+    {4,17}, {3.5,16}, {2,16},	Err	vernunftzentrum.de	70
i+    {1,16}, {0,16.9}, {0,18.5},	Err	vernunftzentrum.de	70
i+    {0,21}, {2.1,24}, {6,24},	Err	vernunftzentrum.de	70
i+    {12,24}, {15,21.5}, {15,16.5},	Err	vernunftzentrum.de	70
i+    {15,10}, {10,4.5}, {4,5},	Err	vernunftzentrum.de	70
i+    {3,0} };	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+  float f1,f2;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  for (i=0;i<30;i++) p[i][1]+=24;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  f1 = 0.6;	Err	vernunftzentrum.de	70
i+  f2 = 0.5;	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/cchalf {\n"	Err	vernunftzentrum.de	70
i+           "  0 moveto\n"); 	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,p,1,1);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,2,9);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,p,29,1);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp,	Err	vernunftzentrum.de	70
i+           "\n/cclef {   %% usage: x cclef\n"	Err	vernunftzentrum.de	70
i+           "   dup dup dup\n"	Err	vernunftzentrum.de	70
i+           "   cchalf gsave 0 24 translate 1 -1 scale cchalf\n"	Err	vernunftzentrum.de	70
i+           "   6.5 sub 0 moveto 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill\n"	Err	vernunftzentrum.de	70
i+           "   1.8 sub 0 moveto 0 24 rlineto 0.8 setlinewidth stroke grestore \n"	Err	vernunftzentrum.de	70
i+           "} bind def\n");	Err	vernunftzentrum.de	70
i+           	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/scclef { cclef } bind def\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_brace ------- */	Err	vernunftzentrum.de	70
i+void def_brace (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float p[8][2]={	Err	vernunftzentrum.de	70
i+    {7.2,60}, {-7,39}, {17,17}, {-1,0}, 	Err	vernunftzentrum.de	70
i+    {-1.4,0}, {13,13}, {-11,39}, {7,60} };	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float q[8][2]={	Err	vernunftzentrum.de	70
i+    {-3,0}, {2,0}, {4,1}, {5.5,5}, 	Err	vernunftzentrum.de	70
i+    {5.9,4.7}, {4.7,1.2}, {3.2,-.4}, {-1,-1.2} };	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  float f1,f2;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  f1 = 0.9;	Err	vernunftzentrum.de	70
i+  f2 = 1.0;	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/bracehalf {\n");	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,p,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,1,1);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,p,4,1);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,p,5,1);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "  fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp,	Err	vernunftzentrum.de	70
i+           "\n/brace {   %% usage: scale x0 y0 brace\n"	Err	vernunftzentrum.de	70
i+           "   3 copy moveto gsave 1 exch scale bracehalf grestore\n"	Err	vernunftzentrum.de	70
i+           "   moveto gsave neg 1 exch scale bracehalf grestore\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  f1 = 1.0;	Err	vernunftzentrum.de	70
i+  f2 = 1.0;	Err	vernunftzentrum.de	70
i+  fprintf (fp, "\n/brackhead {\n");	Err	vernunftzentrum.de	70
i+  add_mv (fp,f1,f2,q,0);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,q,1,1);	Err	vernunftzentrum.de	70
i+  add_sg (fp,f1,f2,q,4,1);	Err	vernunftzentrum.de	70
i+  add_cv (fp,f1,f2,q,5,1);	Err	vernunftzentrum.de	70
i+  fprintf (fp, "  fill\n} bind def\n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  fprintf (fp,	Err	vernunftzentrum.de	70
i+           "\n/bracket {   %% usage: h x0 y0 bracket\n"	Err	vernunftzentrum.de	70
i+           "   3 copy moveto 0 exch rmoveto brackhead\n"	Err	vernunftzentrum.de	70
i+           "   3 copy moveto pop gsave 1 -1 scale brackhead grestore \n"	Err	vernunftzentrum.de	70
i+           "   moveto -3 0 rlineto 0 exch rlineto 3 0 rlineto fill\n"	Err	vernunftzentrum.de	70
i+           "} bind def \n");	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_staff ------- */	Err	vernunftzentrum.de	70
i+void def_staff (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  fprintf (fp,	Err	vernunftzentrum.de	70
i+           "\n/staff {  %% usage: l staff  - draw staff\n"	Err	vernunftzentrum.de	70
i+           "  gsave 0.5 setlinewidth 0 0 moveto\n"	Err	vernunftzentrum.de	70
i+           "  dup 0 rlineto dup neg 6 rmoveto\n"	Err	vernunftzentrum.de	70
i+           "  dup 0 rlineto dup neg 6 rmoveto\n"	Err	vernunftzentrum.de	70
i+           "  dup 0 rlineto dup neg 6 rmoveto\n"	Err	vernunftzentrum.de	70
i+           "  dup 0 rlineto dup neg 6 rmoveto\n"	Err	vernunftzentrum.de	70
i+           "  dup 0 rlineto dup neg 6 rmoveto\n"	Err	vernunftzentrum.de	70
i+           "  pop stroke grestore\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- def_sep ------- */	Err	vernunftzentrum.de	70
i+void def_sep (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  fprintf (fp,	Err	vernunftzentrum.de	70
i+           "\n/sep0 { %% usage: x1 x2 sep0  - hline separator \n"	Err	vernunftzentrum.de	70
i+           "   0 moveto 0 lineto stroke\n"	Err	vernunftzentrum.de	70
i+           "} bind def\n");	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- define_symbols: write postscript macros to file ------ */	Err	vernunftzentrum.de	70
i+void define_symbols (fp)	Err	vernunftzentrum.de	70
i+FILE *fp;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  def_misc (fp);	Err	vernunftzentrum.de	70
i+  def_tclef (fp);	Err	vernunftzentrum.de	70
i+  def_bclef (fp);	Err	vernunftzentrum.de	70
i+  def_cclef (fp);	Err	vernunftzentrum.de	70
i+  def_hd1 (fp);	Err	vernunftzentrum.de	70
i+  def_hd2 (fp); 	Err	vernunftzentrum.de	70
i+  def_hd3 (fp); 	Err	vernunftzentrum.de	70
i+  def_stems (fp);	Err	vernunftzentrum.de	70
i+  def_beam (fp);	Err	vernunftzentrum.de	70
i+  def_sl (fp);	Err	vernunftzentrum.de	70
i+  def_dot (fp);	Err	vernunftzentrum.de	70
i+  def_deco (fp);	Err	vernunftzentrum.de	70
i+  def_deco1 (fp);	Err	vernunftzentrum.de	70
i+  def_hl (fp);	Err	vernunftzentrum.de	70
i+  def_flags1 (fp);	Err	vernunftzentrum.de	70
i+  def_flags2 (fp);	Err	vernunftzentrum.de	70
i+  def_xflags (fp);	Err	vernunftzentrum.de	70
i+  def_acc (fp);	Err	vernunftzentrum.de	70
i+  def_gchord (fp);	Err	vernunftzentrum.de	70
i+  def_rests (fp);	Err	vernunftzentrum.de	70
i+  def_bars (fp);	Err	vernunftzentrum.de	70
i+  def_ends (fp);	Err	vernunftzentrum.de	70
i+  def_gnote (fp);	Err	vernunftzentrum.de	70
i+  def_csg (fp);	Err	vernunftzentrum.de	70
i+  def_sep (fp);	Err	vernunftzentrum.de	70
i+  def_tsig (fp);	Err	vernunftzentrum.de	70
i+  def_staff (fp);	Err	vernunftzentrum.de	70
i+  def_brace (fp);	Err	vernunftzentrum.de	70
i+  def_typeset(fp);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
1diff --git a/trio.abc b/trio.abc	/ckeen/repos/abc2ps/file/trio.abc.gph	vernunftzentrum.de	70
i@@ -0,0 +1,44 @@	Err	vernunftzentrum.de	70
i+%%indent 45pt	Err	vernunftzentrum.de	70
i+%%leftmargin 1.8cm	Err	vernunftzentrum.de	70
i+%%voicefont  Times-Roman 12	Err	vernunftzentrum.de	70
i+%%titlecaps	Err	vernunftzentrum.de	70
i+%%titlefont Times-Roman 24	Err	vernunftzentrum.de	70
i+%%composerfont Times-Roman 12	Err	vernunftzentrum.de	70
i+%%staffwidth 18.5cm	Err	vernunftzentrum.de	70
i+% scale 0.65	Err	vernunftzentrum.de	70
i+%%musicspace 0.5cm	Err	vernunftzentrum.de	70
i+%%tempofont Times-Roman	Err	vernunftzentrum.de	70
i+%%staves 1 2 3	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:1	Err	vernunftzentrum.de	70
i+T: Sonata I	Err	vernunftzentrum.de	70
i+C: J.S. Bach	Err	vernunftzentrum.de	70
i+M: C	Err	vernunftzentrum.de	70
i+Q:"Adagio"	Err	vernunftzentrum.de	70
i+L: 1/8	Err	vernunftzentrum.de	70
i+K:C	Err	vernunftzentrum.de	70
i+V:1 clef=treble name="Violino I"      sname="Vl. I"  	Err	vernunftzentrum.de	70
i+V:2 clef=treble name="Violino II"     sname="Vl. II"  space=+10	Err	vernunftzentrum.de	70
i+V:3 clef=bass   name="Violoncello\\<Vla. da Gamba>" sname="Vc."	Err	vernunftzentrum.de	70
i+[V:1]  g8-|gf/e/ {e}f>g (a/f/d/f/) (A//=B//A//B//TB3//A///B///)| 	Err	vernunftzentrum.de	70
i+[V:2] z8 | z8 |	Err	vernunftzentrum.de	70
i+[V:3] z cec gGBG | Aa- a/_b/a/g/ f3 g/f/ |	Err	vernunftzentrum.de	70
i+%	Err	vernunftzentrum.de	70
i+[V:1] c/gf/ E/ed/ c/c'b/ A/ag/ | ^f/e/d- d/(c/B/A/) G/(e/c/e/) Aa| d2-d/g/_b/a/ a3 g/=f/|	Err	vernunftzentrum.de	70
i+[V:2] c8- | cB/A/ {A}B>c (e/c/A/c/) (E//^F//E//F//TF3//E///F///) | G/(D/G/A/) _B/G/g/e/ ^cA d2-|	Err	vernunftzentrum.de	70
i+[V:3] edcB AG^FE | D^FGg c3d/c/| _BG g2-gf/e/ f>g|	Err	vernunftzentrum.de	70
i+%	Err	vernunftzentrum.de	70
i+[V:1] Te/>d/e- e/(a/f/d/) TB/>A/B- B/(A//B//c/)d/| TG/>F/G- G/(c/A/F/) DTd/>c/ d/g/B/d/|Tc/>B/c2 B A/ag/ fA| 	Err	vernunftzentrum.de	70
i+[V:2] dT=c/>=B/ c>f d>e AF-| FTE/>D/ Ec'/-a/ Tf/>e/f- f/d/g/f/ | Te/>d/e/g/- g/fe/ d^c d/FE/|	Err	vernunftzentrum.de	70
i+[V:3] aA a2-a^g a>b| c'c c'2-c'b/>a/ b2-| b>e ag fed=c-|	Err	vernunftzentrum.de	70
i+%	Err	vernunftzentrum.de	70
i+[V:1] G/gf/ E/ed/ c/c'b/ A/ag/|^f/a/g/f/ g2-g>e' f2-|f/e^d/ e2-e>c' =d2-|	Err	vernunftzentrum.de	70
i+[V:2] DG, G/gf/ E/ed/ =c/c'B/|ad'- d'/c'/d'/e'/ Ta/>g/a- a/c'/b/^f/|(g//a//g//a//Ta3//g///a///) b/a/b/c'/ T^f/>g/f- f/a/g/d/|	Err	vernunftzentrum.de	70
i+[V:3] cB/G/ cC zgac- |cb/>a/ b>c' d'c'd'd| e^fga babB|	Err	vernunftzentrum.de	70
i+%	Err	vernunftzentrum.de	70
i+P:	Err	vernunftzentrum.de	70
i+Q:"Alla breve"	Err	vernunftzentrum.de	70
i+[V:1] [L:1/4] c4|B4|_B4|A2zd|=BGc2-|cd/e/ f/a/g/f/|e/d/c2B|e3^f|gG/A/Bc|	Err	vernunftzentrum.de	70
i+[V:2] [L:1/4] zC/D/EF|GDG2-|GF/E/DE|FCF2-|FE/D/EF/G/|AFDB|cgG2-|GA/B/ c/e/d/c/|Bd2e|	Err	vernunftzentrum.de	70
i+[V:3] [L:1/4] z4|z4|z4|z4|z4|z4|z4|z4|g4|	Err	vernunftzentrum.de	70
1diff --git a/util.h b/util.h	/ckeen/repos/abc2ps/file/util.h.gph	vernunftzentrum.de	70
i@@ -0,0 +1,494 @@	Err	vernunftzentrum.de	70
i+/*  	Err	vernunftzentrum.de	70
i+ *  This file is part of abc2ps, 	Err	vernunftzentrum.de	70
i+ *  Copyright (C) 1996,1997,1998  Michael Methfessel	Err	vernunftzentrum.de	70
i+ *  See file abc2ps.c for details.	Err	vernunftzentrum.de	70
i+ */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/*  low-level utilities  */	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- error warning ----- */	Err	vernunftzentrum.de	70
i+void wng (msg, str)	Err	vernunftzentrum.de	70
i+char msg[],str[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  printf ("+++ %s%s\n", msg, str);	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- error exit ----- */	Err	vernunftzentrum.de	70
i+void rx (msg, str)	Err	vernunftzentrum.de	70
i+char msg[],str[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  printf ("\n+++ %s%s\n", msg, str);	Err	vernunftzentrum.de	70
i+  exit (1);	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+void rx1 (msg, c)	Err	vernunftzentrum.de	70
i+char msg[];	Err	vernunftzentrum.de	70
i+char c;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  printf ("\n+++ %s%c\n", msg, c);	Err	vernunftzentrum.de	70
i+  exit (1);	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+void rxi (msg, i)	Err	vernunftzentrum.de	70
i+char msg[];	Err	vernunftzentrum.de	70
i+int i;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  printf ("\n+++ %s%d\n", msg, i);	Err	vernunftzentrum.de	70
i+  exit (1);	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- bug: print message for internal error and maybe stop -----  */	Err	vernunftzentrum.de	70
i+void bug (msg,fatal)	Err	vernunftzentrum.de	70
i+char msg[];	Err	vernunftzentrum.de	70
i+int fatal;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  printf ("\n\nThis cannot happen!");	Err	vernunftzentrum.de	70
i+  if (strlen(msg)>0) printf ("\nInternal error: %s.\n", msg);	Err	vernunftzentrum.de	70
i+  if (fatal) {	Err	vernunftzentrum.de	70
i+    printf ("Emergency stop.\n\n");	Err	vernunftzentrum.de	70
i+    exit (1);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    printf ("Trying to continue...\n\n");	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- ranf(x1,x2): return random float between x1 and x2 --- */	Err	vernunftzentrum.de	70
i+float ranf(x1,x2)	Err	vernunftzentrum.de	70
i+float x1,x2;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  static int m=259200;   /* generator constants */	Err	vernunftzentrum.de	70
i+  static int a=421;	Err	vernunftzentrum.de	70
i+  static int c=54773;	Err	vernunftzentrum.de	70
i+  static int j=1;        /* seed */	Err	vernunftzentrum.de	70
i+  float r;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  j=(j*a+c)%m;	Err	vernunftzentrum.de	70
i+  r=x1+(x2-x1)*(double)j/(double)m;	Err	vernunftzentrum.de	70
i+  return r;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- getline ----- */	Err	vernunftzentrum.de	70
i+/*	Err	vernunftzentrum.de	70
i+* Added by jc:	Err	vernunftzentrum.de	70
i+* This routine reads a line from fp into  buf,  and  trims  away  any	Err	vernunftzentrum.de	70
i+* trailing  whitespace.   We  are  paranoid  about whether isspace(c)	Err	vernunftzentrum.de	70
i+* returns true for CR, so this routine should work even if the  input	Err	vernunftzentrum.de	70
i+* came from a DOS system.	Err	vernunftzentrum.de	70
i+*/	Err	vernunftzentrum.de	70
i+char * getline(buf,len,fp)	Err	vernunftzentrum.de	70
i+        char* buf;	Err	vernunftzentrum.de	70
i+        int   len;	Err	vernunftzentrum.de	70
i+        FILE* fp;	Err	vernunftzentrum.de	70
i+{        char* rp;	Err	vernunftzentrum.de	70
i+        int   c, l;	Err	vernunftzentrum.de	70
i+        if (rp = fgets(buf,len,fp)) {	Err	vernunftzentrum.de	70
i+                l = strlen(buf);	Err	vernunftzentrum.de	70
i+                while ((l > 0) && ((c = buf[l-1]) && isspace(c) || (c == '\r'))) 	Err	vernunftzentrum.de	70
i+                        buf[--l] = 0;	Err	vernunftzentrum.de	70
i+        }	Err	vernunftzentrum.de	70
i+        return rp;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- strip: remove leading and trailing blanks ----- */	Err	vernunftzentrum.de	70
i+void strip (str1,str)	Err	vernunftzentrum.de	70
i+char str[],str1[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int l,i,i1,i2;	Err	vernunftzentrum.de	70
i+  l=strlen(str);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  i1=0;	Err	vernunftzentrum.de	70
i+  for (i=0; i<l; i++) 	Err	vernunftzentrum.de	70
i+    if ((str[i]!=' ') && (str[i]!='\n')) { i1=i; break; }	Err	vernunftzentrum.de	70
i+  i2=0;	Err	vernunftzentrum.de	70
i+  for (i=l-1; i>=0; i--) 	Err	vernunftzentrum.de	70
i+    if ((str[i]!=' ') && (str[i]!='\n')) { i2=i+1; break; }	Err	vernunftzentrum.de	70
i+  for (i=i1;i<i2;i++) str1[i-i1]=str[i];	Err	vernunftzentrum.de	70
i+  str1[i2-i1]=0;	Err	vernunftzentrum.de	70
i+/*  printf (" l=%d i1=%d i2=%d <%s> <%s>\n", l, i1, i2, str, str1);*/	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- nwords: count words in string ----- */	Err	vernunftzentrum.de	70
i+int nwords (str)      	Err	vernunftzentrum.de	70
i+char *str;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int w,k;	Err	vernunftzentrum.de	70
i+  char *c;	Err	vernunftzentrum.de	70
i+  c=str;	Err	vernunftzentrum.de	70
i+  w=0;	Err	vernunftzentrum.de	70
i+  for(k=0;k<=50;k++) {	Err	vernunftzentrum.de	70
i+    while (*c==' ') c++;	Err	vernunftzentrum.de	70
i+    if (*c=='\0') break;	Err	vernunftzentrum.de	70
i+    w++;	Err	vernunftzentrum.de	70
i+    while ((*c!=' ') && (*c!='\0')) c++;	Err	vernunftzentrum.de	70
i+    if (*c=='\0') break;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  return w;	Err	vernunftzentrum.de	70
i+}    	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- getword: return n-th word from string ---- */	Err	vernunftzentrum.de	70
i+int getword (iw,str,str1)      	Err	vernunftzentrum.de	70
i+int iw;	Err	vernunftzentrum.de	70
i+char *str,*str1;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int w,k;	Err	vernunftzentrum.de	70
i+  char *c,*cc;	Err	vernunftzentrum.de	70
i+  if (iw<0) { *str1='\0'; return 0;}	Err	vernunftzentrum.de	70
i+  c=str;	Err	vernunftzentrum.de	70
i+  w=0;	Err	vernunftzentrum.de	70
i+  for(k=0;k<=50;k++) {	Err	vernunftzentrum.de	70
i+    while (*c==' ') c++;	Err	vernunftzentrum.de	70
i+    if (*c=='\0') break;	Err	vernunftzentrum.de	70
i+    if (w==iw) {	Err	vernunftzentrum.de	70
i+      cc=str1;	Err	vernunftzentrum.de	70
i+      while ((*c!=' ')&&(*c!='\0')) { *cc=*c; c++; cc++; }	Err	vernunftzentrum.de	70
i+      *cc='\0';	Err	vernunftzentrum.de	70
i+      return 1;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    w++;	Err	vernunftzentrum.de	70
i+    while ((*c!=' ') && (*c!='\0')) c++;	Err	vernunftzentrum.de	70
i+    if (*c=='\0') break;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  *str1='\0';	Err	vernunftzentrum.de	70
i+  return 0;	Err	vernunftzentrum.de	70
i+}    	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- abbrev: check for valid abbreviation ----- */	Err	vernunftzentrum.de	70
i+int abbrev (str,ab,nchar)	Err	vernunftzentrum.de	70
i+char str[],ab[];	Err	vernunftzentrum.de	70
i+int nchar;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,nc;	Err	vernunftzentrum.de	70
i+  if (strlen(str) > strlen(ab)) return 0;	Err	vernunftzentrum.de	70
i+  nc=strlen(str);	Err	vernunftzentrum.de	70
i+  if (nc<nchar) nc=nchar;	Err	vernunftzentrum.de	70
i+  for (i=0;i<nc;i++) if (str[i] != ab[i]) return 0;	Err	vernunftzentrum.de	70
i+  return 1;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- isdig: checks char for digit ----- */	Err	vernunftzentrum.de	70
i+int isdig (c)	Err	vernunftzentrum.de	70
i+char c;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  if (c == '\0') return 0;	Err	vernunftzentrum.de	70
i+  if (strchr("0123456789",c)) return 1;	Err	vernunftzentrum.de	70
i+  return 0;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- strext: set extension on a file identifier ----- */	Err	vernunftzentrum.de	70
i+/*  force=1 forces change even if fid already has an extension */	Err	vernunftzentrum.de	70
i+/*  force=0 does not change the extension if there already is one */	Err	vernunftzentrum.de	70
i+void strext (fid1, fid, ext, force)	Err	vernunftzentrum.de	70
i+char fid[],ext[],fid1[];	Err	vernunftzentrum.de	70
i+int force;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,l;	Err	vernunftzentrum.de	70
i+  char *p,*q;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  strcpy (fid1, fid);	Err	vernunftzentrum.de	70
i+  l=strlen(fid1);	Err	vernunftzentrum.de	70
i+  p=fid1;	Err	vernunftzentrum.de	70
i+  for (i=0;i<l;i++) 	Err	vernunftzentrum.de	70
i+    if (fid1[i]=='/') p=fid1+i;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (!force) {	Err	vernunftzentrum.de	70
i+    q=strchr(p,'.');	Err	vernunftzentrum.de	70
i+    if (q && (q!=fid1+strlen(fid1)-1)) return;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  if (!strchr(p,'.')) strcat (fid1,".");	Err	vernunftzentrum.de	70
i+  q=strchr(p,'.'); 	Err	vernunftzentrum.de	70
i+  if (strlen(ext)>0) q++;	Err	vernunftzentrum.de	70
i+  *q = 0;	Err	vernunftzentrum.de	70
i+  strcat(fid1,ext);	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- cutext: cut off extension on a file identifier ----- */	Err	vernunftzentrum.de	70
i+void cutext (fid)	Err	vernunftzentrum.de	70
i+char fid[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,l;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  l=strlen(fid);	Err	vernunftzentrum.de	70
i+  for (i=0;i<l;i++) 	Err	vernunftzentrum.de	70
i+    if (fid[i]=='.') fid[i]='\0';	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- getext: get extension on a file identifier ----- */	Err	vernunftzentrum.de	70
i+void getext (fid,ext)	Err	vernunftzentrum.de	70
i+char fid[],ext[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i,l,k;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  l=strlen(fid);	Err	vernunftzentrum.de	70
i+  k=l-1;	Err	vernunftzentrum.de	70
i+  for (i=0;i<l;i++) 	Err	vernunftzentrum.de	70
i+    if (fid[i]=='.') k=i;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  for (i=k+1;i<l;i++)	Err	vernunftzentrum.de	70
i+    ext[i-k-1]=fid[i];	Err	vernunftzentrum.de	70
i+  ext[l-k-1]='\0';	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- sscanu ----- */	Err	vernunftzentrum.de	70
i+float scan_u(str)	Err	vernunftzentrum.de	70
i+char str[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char unit[81];	Err	vernunftzentrum.de	70
i+  float a,b;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  strcpy(unit,"pt");	Err	vernunftzentrum.de	70
i+  sscanf(str,"%f%s", &a, unit);	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if      (!strcmp(unit,"cm")) b=a*CM;	Err	vernunftzentrum.de	70
i+  else if (!strcmp(unit,"in")) b=a*IN;	Err	vernunftzentrum.de	70
i+  else if (!strcmp(unit,"pt")) b=a*PT;	Err	vernunftzentrum.de	70
i+  else {	Err	vernunftzentrum.de	70
i+    printf ("+++ Unknown unit \"%s\" in: %s\n",unit,str); 	Err	vernunftzentrum.de	70
i+    exit (3);	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+  return b;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- match ------- */	Err	vernunftzentrum.de	70
i+int match (str, pat)	Err	vernunftzentrum.de	70
i+char str[], pat[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char *p,*s;	Err	vernunftzentrum.de	70
i+  p=pat;	Err	vernunftzentrum.de	70
i+  s=str; 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (strlen(pat)==0) return 1;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  while (*p != 0) {	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+    if (*p == '*') {           /* found wildcard '*' in pattern */	Err	vernunftzentrum.de	70
i+      p++;	Err	vernunftzentrum.de	70
i+      while (*p == '*') p++;	Err	vernunftzentrum.de	70
i+      if (*p == 0) return 1;   /* trailing '*' matches all */	Err	vernunftzentrum.de	70
i+      for (;;) {               /* find match to char after '*' */	Err	vernunftzentrum.de	70
i+        if (*s == 0) return 0;	Err	vernunftzentrum.de	70
i+        if ((*s == *p) || (*p == '+')) 	Err	vernunftzentrum.de	70
i+          if (match(s+1,p+1)) return 1;   /* ok if rest matches */	Err	vernunftzentrum.de	70
i+        s++;	Err	vernunftzentrum.de	70
i+      }	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+    else {                     /* no wildcard -- char must match */   	Err	vernunftzentrum.de	70
i+      if (*s == 0) return 0;	Err	vernunftzentrum.de	70
i+      if ((*p != *s) && (*p != '+')) return 0;	Err	vernunftzentrum.de	70
i+      s++;	Err	vernunftzentrum.de	70
i+    }	Err	vernunftzentrum.de	70
i+    p++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  if (*s != 0) return 0;       /* pattern but not string exhausted */	Err	vernunftzentrum.de	70
i+  return 1;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- isblank: check for blank string ---- */	Err	vernunftzentrum.de	70
i+int isblank (str)	Err	vernunftzentrum.de	70
i+char str[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int i;	Err	vernunftzentrum.de	70
i+  for (i=0;i<strlen(str);i++) if (str[i] != ' ') return 0;	Err	vernunftzentrum.de	70
i+  return 1;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- cap_str: capitalize a string ----- */	Err	vernunftzentrum.de	70
i+void cap_str(str)	Err	vernunftzentrum.de	70
i+char str[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  char *c;	Err	vernunftzentrum.de	70
i+  c=str;	Err	vernunftzentrum.de	70
i+  while (*c!='\0') {	Err	vernunftzentrum.de	70
i+    if      (*c=='a') *c='A';	Err	vernunftzentrum.de	70
i+    else if (*c=='b') *c='B';	Err	vernunftzentrum.de	70
i+    else if (*c=='c') *c='C';	Err	vernunftzentrum.de	70
i+    else if (*c=='d') *c='D';	Err	vernunftzentrum.de	70
i+    else if (*c=='e') *c='E';	Err	vernunftzentrum.de	70
i+    else if (*c=='f') *c='F';	Err	vernunftzentrum.de	70
i+    else if (*c=='g') *c='G';	Err	vernunftzentrum.de	70
i+    else if (*c=='h') *c='H';	Err	vernunftzentrum.de	70
i+    else if (*c=='i') *c='I';	Err	vernunftzentrum.de	70
i+    else if (*c=='j') *c='J';	Err	vernunftzentrum.de	70
i+    else if (*c=='k') *c='K';	Err	vernunftzentrum.de	70
i+    else if (*c=='l') *c='L';	Err	vernunftzentrum.de	70
i+    else if (*c=='m') *c='M';	Err	vernunftzentrum.de	70
i+    else if (*c=='n') *c='N';	Err	vernunftzentrum.de	70
i+    else if (*c=='o') *c='O';	Err	vernunftzentrum.de	70
i+    else if (*c=='p') *c='P';	Err	vernunftzentrum.de	70
i+    else if (*c=='q') *c='Q';	Err	vernunftzentrum.de	70
i+    else if (*c=='r') *c='R';	Err	vernunftzentrum.de	70
i+    else if (*c=='s') *c='S';	Err	vernunftzentrum.de	70
i+    else if (*c=='t') *c='T';	Err	vernunftzentrum.de	70
i+    else if (*c=='u') *c='U';	Err	vernunftzentrum.de	70
i+    else if (*c=='v') *c='V';	Err	vernunftzentrum.de	70
i+    else if (*c=='w') *c='W';	Err	vernunftzentrum.de	70
i+    else if (*c=='x') *c='X';	Err	vernunftzentrum.de	70
i+    else if (*c=='y') *c='Y';	Err	vernunftzentrum.de	70
i+    else if (*c=='z') *c='Z';	Err	vernunftzentrum.de	70
i+    c++;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+    	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- cwid ----- */	Err	vernunftzentrum.de	70
i+/*  These are char widths for Times-Roman */	Err	vernunftzentrum.de	70
i+float cwid(c)	Err	vernunftzentrum.de	70
i+char c;	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  float w;	Err	vernunftzentrum.de	70
i+  if      (c=='a') w=44.4;	Err	vernunftzentrum.de	70
i+  else if (c=='b') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='c') w=44.4;	Err	vernunftzentrum.de	70
i+  else if (c=='d') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='e') w=44.4;	Err	vernunftzentrum.de	70
i+  else if (c=='f') w=33.3;	Err	vernunftzentrum.de	70
i+  else if (c=='g') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='h') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='i') w=27.8;	Err	vernunftzentrum.de	70
i+  else if (c=='j') w=27.8;	Err	vernunftzentrum.de	70
i+  else if (c=='k') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='l') w=27.8;	Err	vernunftzentrum.de	70
i+  else if (c=='m') w=77.8;	Err	vernunftzentrum.de	70
i+  else if (c=='n') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='o') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='p') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='q') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='r') w=33.3;	Err	vernunftzentrum.de	70
i+  else if (c=='s') w=38.9;	Err	vernunftzentrum.de	70
i+  else if (c=='t') w=27.8;	Err	vernunftzentrum.de	70
i+  else if (c=='u') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='v') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='w') w=72.2;	Err	vernunftzentrum.de	70
i+  else if (c=='x') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='y') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='z') w=44.4;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  else if (c=='A') w=72.2;	Err	vernunftzentrum.de	70
i+  else if (c=='B') w=66.7;	Err	vernunftzentrum.de	70
i+  else if (c=='C') w=66.7;	Err	vernunftzentrum.de	70
i+  else if (c=='D') w=72.2;	Err	vernunftzentrum.de	70
i+  else if (c=='E') w=61.1;	Err	vernunftzentrum.de	70
i+  else if (c=='F') w=55.6;	Err	vernunftzentrum.de	70
i+  else if (c=='G') w=72.2;	Err	vernunftzentrum.de	70
i+  else if (c=='H') w=72.2;	Err	vernunftzentrum.de	70
i+  else if (c=='I') w=33.3;	Err	vernunftzentrum.de	70
i+  else if (c=='J') w=38.9;	Err	vernunftzentrum.de	70
i+  else if (c=='K') w=72.2;	Err	vernunftzentrum.de	70
i+  else if (c=='L') w=61.1;	Err	vernunftzentrum.de	70
i+  else if (c=='M') w=88.9;	Err	vernunftzentrum.de	70
i+  else if (c=='N') w=72.2;	Err	vernunftzentrum.de	70
i+  else if (c=='O') w=72.2;	Err	vernunftzentrum.de	70
i+  else if (c=='P') w=55.6;	Err	vernunftzentrum.de	70
i+  else if (c=='Q') w=72.2;	Err	vernunftzentrum.de	70
i+  else if (c=='R') w=66.7;	Err	vernunftzentrum.de	70
i+  else if (c=='S') w=55.6;	Err	vernunftzentrum.de	70
i+  else if (c=='T') w=61.1;	Err	vernunftzentrum.de	70
i+  else if (c=='U') w=72.2;	Err	vernunftzentrum.de	70
i+  else if (c=='V') w=72.2;	Err	vernunftzentrum.de	70
i+  else if (c=='W') w=94.4;	Err	vernunftzentrum.de	70
i+  else if (c=='X') w=72.2;	Err	vernunftzentrum.de	70
i+  else if (c=='Y') w=72.2;	Err	vernunftzentrum.de	70
i+  else if (c=='Z') w=61.1;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  else if (c=='0') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='1') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='2') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='3') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='4') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='5') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='6') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='7') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='8') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='9') w=50.0;	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  else if (c=='~') w=54.1;	Err	vernunftzentrum.de	70
i+  else if (c=='!') w=33.3;	Err	vernunftzentrum.de	70
i+  else if (c=='@') w=92.1;	Err	vernunftzentrum.de	70
i+  else if (c=='#') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='$') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='%') w=83.3;	Err	vernunftzentrum.de	70
i+  else if (c=='^') w=46.9;	Err	vernunftzentrum.de	70
i+  else if (c=='&') w=77.8;	Err	vernunftzentrum.de	70
i+  else if (c=='*') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='(') w=33.3;	Err	vernunftzentrum.de	70
i+  else if (c==')') w=33.3;	Err	vernunftzentrum.de	70
i+/*|   else if (c=='-') w=33.3; |*/	Err	vernunftzentrum.de	70
i+  else if (c=='-') w=40.0;	Err	vernunftzentrum.de	70
i+  else if (c=='_') w=50.0;	Err	vernunftzentrum.de	70
i+  else if (c=='+') w=56.4;	Err	vernunftzentrum.de	70
i+  else if (c=='=') w=55.0;	Err	vernunftzentrum.de	70
i+  else if (c=='[') w=33.3;	Err	vernunftzentrum.de	70
i+  else if (c==']') w=33.3;	Err	vernunftzentrum.de	70
i+  else if (c=='{') w=48.0;	Err	vernunftzentrum.de	70
i+  else if (c=='}') w=48.0;	Err	vernunftzentrum.de	70
i+  else if (c=='|') w=20.0;	Err	vernunftzentrum.de	70
i+  else if (c==':') w=27.8;	Err	vernunftzentrum.de	70
i+  else if (c==';') w=27.8;	Err	vernunftzentrum.de	70
i+  else if (c=='.') w=27.8;	Err	vernunftzentrum.de	70
i+  else if (c==',') w=27.8;	Err	vernunftzentrum.de	70
i+  else if (c=='\\') w=27.8;	Err	vernunftzentrum.de	70
i+  else if (c=='\'') w=33.3;	Err	vernunftzentrum.de	70
i+  else if (c=='\"') w=40.8;	Err	vernunftzentrum.de	70
i+  else if (c=='<') w=56.4;	Err	vernunftzentrum.de	70
i+  else if (c=='>') w=56.4;	Err	vernunftzentrum.de	70
i+  else if (c=='?') w=44.4;	Err	vernunftzentrum.de	70
i+  else if (c=='/') w=27.8;	Err	vernunftzentrum.de	70
i+  else if (c=='`') w=33.3;	Err	vernunftzentrum.de	70
i+  else if (c==' ') w=25.0;	Err	vernunftzentrum.de	70
i+  else             w=50.0;	Err	vernunftzentrum.de	70
i+  return w/100.0;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* ----- get_file_size ------- */	Err	vernunftzentrum.de	70
i+/* version using standard function stat */	Err	vernunftzentrum.de	70
i+#include <sys/stat.h>	Err	vernunftzentrum.de	70
i+int get_file_size (fname)	Err	vernunftzentrum.de	70
i+char fname[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int m,rc;	Err	vernunftzentrum.de	70
i+  struct stat statbuf; 	Err	vernunftzentrum.de	70
i+  rc = stat(fname,&statbuf); 	Err	vernunftzentrum.de	70
i+  if (rc == -1) {	Err	vernunftzentrum.de	70
i+    printf ("Unsuccessful call to stat for file %s\n", fname);	Err	vernunftzentrum.de	70
i+    return -1;	Err	vernunftzentrum.de	70
i+  } 	Err	vernunftzentrum.de	70
i+  m=statbuf.st_size; 	Err	vernunftzentrum.de	70
i+  return m;	Err	vernunftzentrum.de	70
i+} 	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+/* version which counts bytes by hand */	Err	vernunftzentrum.de	70
i+int get_file_size1 (fname)	Err	vernunftzentrum.de	70
i+char fname[];	Err	vernunftzentrum.de	70
i+{	Err	vernunftzentrum.de	70
i+  int m,i;	Err	vernunftzentrum.de	70
i+  FILE *fp;	Err	vernunftzentrum.de	70
i+  	Err	vernunftzentrum.de	70
i+  if ((fp = fopen (fname,"r")) == NULL) {	Err	vernunftzentrum.de	70
i+    printf ("Cannot open file to determine size: %s", fname);	Err	vernunftzentrum.de	70
i+    return -1;	Err	vernunftzentrum.de	70
i+  }	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+  m=0;	Err	vernunftzentrum.de	70
i+  i=getc(fp);	Err	vernunftzentrum.de	70
i+  while (i != EOF) {	Err	vernunftzentrum.de	70
i+    m++;	Err	vernunftzentrum.de	70
i+    i=getc(fp);	Err	vernunftzentrum.de	70
i+  } 	Err	vernunftzentrum.de	70
i+  fclose (fp);	Err	vernunftzentrum.de	70
i+  return m;	Err	vernunftzentrum.de	70
i+}	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
1diff --git a/voices.abc b/voices.abc	/ckeen/repos/abc2ps/file/voices.abc.gph	vernunftzentrum.de	70
i@@ -0,0 +1,151 @@	Err	vernunftzentrum.de	70
i+%%indent 1cm	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:1	Err	vernunftzentrum.de	70
i+T: Fairfield Fancy    % -----	Err	vernunftzentrum.de	70
i+C: Trad.	Err	vernunftzentrum.de	70
i+M: 2/4	Err	vernunftzentrum.de	70
i+%%sysstaffsep 35	Err	vernunftzentrum.de	70
i+K:Am	Err	vernunftzentrum.de	70
i+V:1 name="Intro" snm="In" 	Err	vernunftzentrum.de	70
i+ME2>.E2 .A2.A2 | .c2.c2 e4 | edef edcB | A2E2 {Ec}+E2c2a2+ EE |	Err	vernunftzentrum.de	70
i+T:       % note: force new indentation with empty title field	Err	vernunftzentrum.de	70
i+V:1 name="Melody" snm="Mel."	Err	vernunftzentrum.de	70
i+|: "Am"EAA^G A2 AB | c2e2 f2e2 | "G"DGGF G2 GA | B2d2 e2d2|	Err	vernunftzentrum.de	70
i+"Am"EAA^G A2 AB | cBAc edce | "C"gage "Am"dcAc |1 ecdB A2 EE :|2ecdB A2 ee| 	Err	vernunftzentrum.de	70
i+|:   "Am"ea^gb a2 ab | c'aba c'aba | "G"dgfa g2 ga | bgag bgag |	Err	vernunftzentrum.de	70
i+"Am"ea^gb a2 ab | c'aba c'aba | "C"gage "Am"dcAc |1 ecdB A2 ee :|2 ecdB A2 EE||	Err	vernunftzentrum.de	70
i+V:acc_1 name="Accomp I" snm="Acc. II"	Err	vernunftzentrum.de	70
i+L:1/4	Err	vernunftzentrum.de	70
i+|: (A,C | EA) | (GD | B,G,) | (A, C | E A) | c/G/ A/E/- |1 E/D/ C :|2 E/D/ C | 	Err	vernunftzentrum.de	70
i+|: A2-  | A z  | G2- | G z  |A2-   | A z  | c/G/ A/E/- |1 E/D/ C :|2 E/D/ C || 	Err	vernunftzentrum.de	70
i+V:acc_2 name="Accomp II"  snm="Acc. II"	Err	vernunftzentrum.de	70
i+L:1/4	Err	vernunftzentrum.de	70
i+|: A z |(A/c/ d/c/ |B) z |(G/B/ c/B/ |A) z|A c| e/e/ A|1(E A):|2 (E A)|  	Err	vernunftzentrum.de	70
i+|: (Ac | ea) | (gd | BG) | (Ac | ea) | (ge |1 cA) :|2 cA) ||	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:2	Err	vernunftzentrum.de	70
i+T: Tzadik Katamar  % -----	Err	vernunftzentrum.de	70
i+%%indent 0	Err	vernunftzentrum.de	70
i+C: from Israel	Err	vernunftzentrum.de	70
i+M: C|	Err	vernunftzentrum.de	70
i+L: 1/4	Err	vernunftzentrum.de	70
i+K: C	Err	vernunftzentrum.de	70
i+V:1  brk=2	Err	vernunftzentrum.de	70
i+C | "C"E<GG>A | "Am"E<DC>E | "Dm7"FFF<G | "G"D4 | "C"E<GG>A | "Em"B<EE>E |	Err	vernunftzentrum.de	70
i+ "F"FGA<B | "G"G4 | "F"ABcA | "Em"B<GB>E | "Dm"FGA<B | "C"G4 |	Err	vernunftzentrum.de	70
i+ "Dm"DEFD | "Em"E<G B2 | "F"ABcA | "G7"B3 G || "C"c3 c | "E7"B3 B | 	Err	vernunftzentrum.de	70
i+ "F"AAA<B | "C"G2 "Am"E2 | "F"FFFG | "C"E<D "Am"C>E | "Dm"FFFD | "G"G<A B>G |	Err	vernunftzentrum.de	70
i+ "C"c3 c | "E7"B3 B | "F"AAAB | "C"G2 "Am"E2 | "Dm7"FFFG | "C"E<D "Am"C>E |\	Err	vernunftzentrum.de	70
i+      "Dm"DF "G"A<B | "C"c4 ||	Err	vernunftzentrum.de	70
i+V:2 gch=0	Err	vernunftzentrum.de	70
i+C | "C"C<EE>E | "Am"E<FE>E | "Dm7"D2A,2 | "G"B,> G,A,B, |\	Err	vernunftzentrum.de	70
i+   "C"C<EE>E | "Em"E<B,B,>B, |	Err	vernunftzentrum.de	70
i+"F"C4 | "G"B,>G,A,B, | "F"FGGF | "Em"E<GG>G | "Dm"FGGF | "C"E4 |	Err	vernunftzentrum.de	70
i+"Dm"A2FD | "Em"G2E2 | "F"C2F2 | "G7"D2ED || "C"E4 | "E7"D4 | 	Err	vernunftzentrum.de	70
i+"F"C2B,A, | "C"G,2 "Am"C2 | "F"A,C2C | "C"G, "     Am"C2C |\	Err	vernunftzentrum.de	70
i+   "Dm"A,C2C | "G"B,2 CD |	Err	vernunftzentrum.de	70
i+"C"E4 | "E7"D4 | "F"C2B,A, | "C"G,2 "Am"C2 | "Dm7"A,C2C |\	Err	vernunftzentrum.de	70
i+   "C"G, "    Am"C2C |"Dm"A,2 "G"B,D | "C"E4 ||	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X:3	Err	vernunftzentrum.de	70
i+T: Erev Ba  % ---	Err	vernunftzentrum.de	70
i+C: from Israel	Err	vernunftzentrum.de	70
i+M: C|	Err	vernunftzentrum.de	70
i+L: 1/4	Err	vernunftzentrum.de	70
i+K:G	Err	vernunftzentrum.de	70
i+V:1	Err	vernunftzentrum.de	70
i+"G"dgf g/b/ | "Am"a3z | "D7"ab c'/d'/ b | "G"b3z | dgf g/b/ | "Am"a3z |	Err	vernunftzentrum.de	70
i+"D7"ab c'/d'/ b | "B7"b3z | "C"ceg>g | f/g/f/e/ e2 | "Am"Ace>e | "D"d>c B/A/G/F/ |	Err	vernunftzentrum.de	70
i+"Em"G2 E2 | "Am"A2 "D7"A/B/ G | ("G"G4|G2) z2 |  dgf g/b/ | "Am"a3z |	Err	vernunftzentrum.de	70
i+"D7"ab c'/d'/ b | "G"b3z | dgf g/b/ | "Am"a3z | "D7"ab c'/d'/ b | "B7"b3z | 	Err	vernunftzentrum.de	70
i+"C"ceg>g | f/g/ f/e/ e2 | "Am"Ace>e | "D"d>c B/A/G/F/ | "Em"G2 E2 | "Am"A2 "D7"A/B/ G |	Err	vernunftzentrum.de	70
i+"G"G>A B c/A/ | "G7"d>e =f/d/B/A/ [K:C] ||"C"G2z2| "Dm7"d/e/f/e/ d/c/B/A/ |\	Err	vernunftzentrum.de	70
i+   "G7"G2z2 | "C"z/ G/c/B/ c/d/e/f/ | 	Err	vernunftzentrum.de	70
i+g g/a/ g2 | "Dm7"f/g/a/g/ f/e/d/c/ | "G7"B/c/d/c/ B/A/ G| "E"^G>B e/d/c/B/|\	Err	vernunftzentrum.de	70
i+   "F"c2 a>a | g/a/g/f/ .f .e |	Err	vernunftzentrum.de	70
i+"Dm"d2f>f | "G"e>d c/B/A/B/ | "Am"c/d/c/B/ A/G/F/E/ | "Dm"D/E/F/D/ "G7"G A/B/ |\	Err	vernunftzentrum.de	70
i+    "C"c3 e| .g.a.g e/d/ |	Err	vernunftzentrum.de	70
i+GcBc/e/ | "Dm7"d3z | "G7"def/g/e| "C"e3z | GcBc/e/ | "Dm7"d3z |	Err	vernunftzentrum.de	70
i+"G7"def/g/e| "E"e3z | "F"FAc>c| B/c/B/A/ A2| "Dm"DFA>A| "G"G>F E/D/C/E/ |	Err	vernunftzentrum.de	70
i+"Am"c2A2 | "Dm"d2 "G7"d/e/c | ("C"c4|"Dm"c2) "G7"d/e/c| ("C"c4| c2) z2  |] 	Err	vernunftzentrum.de	70
i+%	Err	vernunftzentrum.de	70
i+V:2  gch=0	Err	vernunftzentrum.de	70
i+"G"z4 | "Am"z4 | "D7"z4 | "G"z4 | z4 | "Am"z4 |	Err	vernunftzentrum.de	70
i+"D7"z4 | "B7"z4 | "C"z4 | z4 | "Am"z4 | "D"z4 |	Err	vernunftzentrum.de	70
i+"Em"G2Bd | "Am"c2 "D7"c/d/ B | "G"B>ABd | B>A G/A/ B| d2 z2 | "Am"A/B/c/B/ A/G/F/E/ |	Err	vernunftzentrum.de	70
i+"D7"D2 z2 | "G"z/D/G/F/ G/A/B/c/ | d d/e/ d2| "Am"c/d/e/d/ c/B/A/G/ |\	Err	vernunftzentrum.de	70
i+    "D7"F/G/A/G/ F/E/D/C/ | "B7"^D/B,/D/F/ B/A/G/F/ | 	Err	vernunftzentrum.de	70
i+"C"c2 e>e | d/e/d/c/ cB| "Am"A2 c>c| "D"B>A G/F/E/F/ |\	Err	vernunftzentrum.de	70
i+     "Em"G/A/G/F/ E/D/C/E/ | "Am"A/B/c/^c/ "D7"d e/f/ |	Err	vernunftzentrum.de	70
i+("G"g4|"G7"g2)z2 [K:C] || "C"GcB c/e/ | "Dm7"d3z | "G7"de f/g/ e| "C"e3z |	Err	vernunftzentrum.de	70
i+GcB c/e/ | "Dm7"d3z | "G7"de f/g/ e| "E"e3z | "F"FAc>c | B/c/B/A/ Az |	Err	vernunftzentrum.de	70
i+"Dm"DFA>A | "G"G>F E/D/C/D/ | "Am"c2 A2 | "Dm"d2 "G7"d/e/c | ("C"c4|c2) z2 |	Err	vernunftzentrum.de	70
i+Gede/g/ | "Dm7"f>e f/e/d/c/ | "G7"Bcd/e/c| "C"c  c/B/ c/B/c/d/ |\	Err	vernunftzentrum.de	70
i+     e e/f/ ee | "Dm7"f>e f/e/d/c/ |	Err	vernunftzentrum.de	70
i+"G7"Bc d/e/ c | "E"B>A ^G/A/B/G/ | "F"F2 A2 | c2 FE | "Dm"D2 F2 | "G"B2 e2|	Err	vernunftzentrum.de	70
i+"Am"e2c2 | "Dm"f2 "G7"f/g/ e | ("C"e4| "Dm"e2) "G7"f/g/ e | ("C"e4|e2) z2 |]	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+X: 1	Err	vernunftzentrum.de	70
i+T: Helle Wasser   % --- we squeeze this onto one page	Err	vernunftzentrum.de	70
i+%%musicspace 0cm	Err	vernunftzentrum.de	70
i+%%topmargin  0.5cm	Err	vernunftzentrum.de	70
i+%%sysstaffsep    35.0pt	Err	vernunftzentrum.de	70
i+%%systemsep      55.0pt	Err	vernunftzentrum.de	70
i+%%titlefont    Helvetica 16	Err	vernunftzentrum.de	70
i+%%subtitlefont Helvetica 12	Err	vernunftzentrum.de	70
i+%%composerfont Helvetica 10	Err	vernunftzentrum.de	70
i+%%scale 0.65	Err	vernunftzentrum.de	70
i+O: Finnland	Err	vernunftzentrum.de	70
i+M: 6/8	Err	vernunftzentrum.de	70
i+L: 1/8	Err	vernunftzentrum.de	70
i+K: Am	Err	vernunftzentrum.de	70
i+%V:sop name="Sopran" sname="S." bracket=3	Err	vernunftzentrum.de	70
i+V:sop nm="Sopran" snm="S." brk=3	Err	vernunftzentrum.de	70
i+"Am"e3-e2 f|e2 c B2 c |"Dm"d3 d3- |d3z3| \	Err	vernunftzentrum.de	70
i+w: Hel - le Was-ser dun-kle W\"al-der	Err	vernunftzentrum.de	70
i+"G7"d e2-e3|d-BG A2 B| \\ "Am"A6- |A3z3| \	Err	vernunftzentrum.de	70
i+w: und die* Sehn - sucht sind mein Haus _	Err	vernunftzentrum.de	70
i+"F"g a2-a3|"C"g2 e d2 e|"Dm"f3 f3-|f3z3| \\	Err	vernunftzentrum.de	70
i+w: Komm zu* mir und tei-le mit mir_	Err	vernunftzentrum.de	70
i+"G7"f g2-g3|f2 d c2 d|  "C"e6|"E7"-e3 z2z| \	Err	vernunftzentrum.de	70
i+w: Tag und* W\"ar-me, K\"al-te auch._ 	Err	vernunftzentrum.de	70
i+"Am"a3-a2 g|g g2 e2 d|  "Dm"f6| \\ z3 a3| \	Err	vernunftzentrum.de	70
i+w: Wo* wir ge-hen bl\"uht das Laub, sind |	Err	vernunftzentrum.de	70
i+"G7"g3-g2 g|e2 d c2 d|"C" e6|"C7"-e3 z2 e|   \	Err	vernunftzentrum.de	70
i+w: We - ge k\"ur-zer Win-ter gr\"un._ In 	Err	vernunftzentrum.de	70
i+"F"f3-f2 g| \\  "Fm"f2 f c2 d|"C"e3-d3|"A7"^c3 z2z| \	Err	vernunftzentrum.de	70
i+w: dei - nen Au-gen w\"achst mein Le - ben,	Err	vernunftzentrum.de	70
i+"Dm"d3-d2 e|"G7"e f2 e2 d|"C"c6-|"E7"B3z3 :|	Err	vernunftzentrum.de	70
i+w: Dein* Ge\- sicht darf nie ver\- gehn. 	Err	vernunftzentrum.de	70
i+%	Err	vernunftzentrum.de	70
i+V:alto  staves=1 name="Alto" sname="A."	Err	vernunftzentrum.de	70
i+z6 | z6|f3-f2 f|f2 g f2 d|	Err	vernunftzentrum.de	70
i+B3 B3|z dd cdd|ccc-c3-|c3z3|	Err	vernunftzentrum.de	70
i+e f2-f3|e2 c B2 c|d3 d3-|d3z3|	Err	vernunftzentrum.de	70
i+d e2-e3|d2 B A2 B|c6|B6|	Err	vernunftzentrum.de	70
i+z6|z3 A2 A|d d2 d2 d|d3 f3|	Err	vernunftzentrum.de	70
i+f3-f2 d| c2 B A2 B|c3-c2 c|B3 _B3|	Err	vernunftzentrum.de	70
i+A c2-c3|c6|c2 B _B3|A3 z2z|	Err	vernunftzentrum.de	70
i+z3 c2 c|B B2 G2 G|G6-|^G3z3 :|	Err	vernunftzentrum.de	70
i+%	Err	vernunftzentrum.de	70
i+V:tenor name="Tenor" sname="T."	Err	vernunftzentrum.de	70
i+z6 | z6 |z3 A3|-A3-A2 G|	Err	vernunftzentrum.de	70
i+G3 G3|-G3 F2 E|E3 E3|z AA A2 B|	Err	vernunftzentrum.de	70
i+ccc-c3|-c3 z cc|c3 z cc|c3 c3|	Err	vernunftzentrum.de	70
i+B3 z2z|z GG G2 G|A2 G G3|^G6|	Err	vernunftzentrum.de	70
i+z6|z6|z3 A2 A|A A2 c2 c|	Err	vernunftzentrum.de	70
i+B3-B2 G|G2 G G2 G|A2 G G3|-G3 G3|	Err	vernunftzentrum.de	70
i+A3-A2 A|_A2 A A2 A|G6|G6|	Err	vernunftzentrum.de	70
i+F3-F2 G|G A2 G2 F|E6-|E3z3 :|	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
i+	Err	vernunftzentrum.de	70
.