summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/musixtex/musixps.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/musixtex/musixps.tex')
-rw-r--r--Master/texmf-dist/tex/generic/musixtex/musixps.tex119
1 files changed, 60 insertions, 59 deletions
diff --git a/Master/texmf-dist/tex/generic/musixtex/musixps.tex b/Master/texmf-dist/tex/generic/musixtex/musixps.tex
index c2a392c80be..cf62ea618d2 100644
--- a/Master/texmf-dist/tex/generic/musixtex/musixps.tex
+++ b/Master/texmf-dist/tex/generic/musixtex/musixps.tex
@@ -3,7 +3,7 @@
\ifx\undefined\liftcresc\else\endinput\fi
-\immediate\write16{MusiXPS PostScript slurs, ties and crescendos 0.92 (12.5.2002)}%
+\immediate\write16{MusiXPS PostScript slurs, ties and crescendos 0.93 (17.2.2015)}%
\catcode`\@=11
@@ -201,9 +201,9 @@
\ifdim#2\internote<\z@\@upfalse\else\@uptrue\fi
\advance\y@i#2\internote\raise\y@i\rlap{\hskip #3\internote
\special{ps: slur@Dict begin CP /S#1y1 ED /S#1x1 ED
- /S#1hgt (\the\y@i) GD N /S#1brk S#1hgt (\the\internote) GD
+ /S#1hgt (\the\y@i) psxGD N /S#1brk S#1hgt (\the\internote) psxGD
\ifslopebrkslurs 3 \else 1 \fi\if@up 1 \else -1 \fi M M A N /S#1lift 0 N
- /S#1alt (\the\altportee) GDAR N /S#1dir \if@up1\else-1\fi\space N
+ /S#1alt (\the\altportee) psxGDAR N /S#1dir \if@up1\else-1\fi\space N
/S#1dash \d@sh\space N /S#1adj \s@adj\space N end}}%
\ifnum#1>\fourt@@n
\ifnum#1=99\relax\else
@@ -243,17 +243,17 @@
\multiply\n@ii65536\relax\n@iii\th@slift\advance\n@iii-\n@ii
\advance\n@iii-16384\y@iii=\n@iii\internote\advance\y@iii\th@shgt
\raise\y@i\rlap{\hskip #3\internote\special{ps: slur@Dict begin
- CP S (\the\y@ii) GDAR SB /S#1x1 ED
- (\the\y@i) GD (\the\y@iii) GD SB 4 AR M A /S#1y1 ED
- (\the\internote) GD (\the\th@shgt) GD (\the\y@i) GD
+ CP S (\the\y@ii) psxGDAR SB /S#1x1 ED
+ (\the\y@i) psxGD (\the\y@iii) psxGD SB 4 psxAR M A /S#1y1 ED
+ (\the\internote) psxGD (\the\th@shgt) psxGD (\the\y@i) psxGD
S#1x1 S#1y1 CP #4 \if@up\else neg \fi #5 30
\if@dash1\else0\fi\space \s@adj\space 90 DS end}}%
\else
\raise\y@i\rlap{\hskip #3\internote\special{ps: slur@Dict begin
- CP S (\the\y@ii) GDAR SB /S#1x1 ED
- S#1hgt S#1lift (\the\internote) GD M A 4 AR M
- (\the\y@i) GDAR SB SB /S#1y1 ED
- (\the\internote) GD S#1hgt (\the\y@i) GD
+ CP S (\the\y@ii) psxGDAR SB /S#1x1 ED
+ S#1hgt S#1lift (\the\internote) psxGD M A 4 psxAR M
+ (\the\y@i) psxGDAR SB SB /S#1y1 ED
+ (\the\internote) psxGD S#1hgt (\the\y@i) psxGD
S#1x1 S#1y1 CP #4 \if@up\else neg \fi #5 30
S#1dash \s@adj\space 90 DS end}}%
\fi\n@ii\z@
@@ -262,11 +262,11 @@
\fi
\ifcase\n@ii\else\y@ii=#2\internote\setbox\z@=\hbox{\s@tx}%
\y@i=\n@vii\internote\raise\y@i\rlap{\hskip #3\internote
- \special{ps: slur@Dict begin (\the\internote) GD S#1hgt (\the\y@i) GD
- #2 (\the\internote) GD M S#1dir M A
- S#1x1 S#1y1 CP (\the\y@ii) GDAR S#1dir M SB
+ \special{ps: slur@Dict begin (\the\internote) psxGD S#1hgt (\the\y@i) psxGD
+ #2 (\the\internote) psxGD M S#1dir M A
+ S#1x1 S#1y1 CP (\the\y@ii) psxGDAR S#1dir M SB
#4 S#1dir M #5 \psslurmaxhgt\space S#1dash S#1adj 90 DS
- /ay1 ay1 (\the\ht\z@) GDAR -10 AR add dir mul add def}%
+ /ay1 ay1 (\the\ht\z@) psxGDAR -10 psxAR add dir mul add def}%
\lr@lap{\box\z@}\special{ps: end}}%
\fi\@clr\s@tx}
@@ -276,7 +276,7 @@
\advance\th@slift#2\relax\fi}
\def\breakslur#1#2{\inhgetn@i#2\relax\y@i=\n@i\internote\special
- {ps: slur@Dict begin /S#1brk (\the\y@i) GD N end}%
+ {ps: slur@Dict begin /S#1brk (\the\y@i) psxGD N end}%
\ifnum#1<\t@n\s@l@slur{#1}\n@ii\th@slift\divide\n@ii65536\relax
\multiply\n@ii65536 \advance\th@slift-\n@ii\advance\n@i16384\relax
\multiply\n@i65536 \global\advance\th@slift\n@i\fi}
@@ -290,7 +290,7 @@
\def\i@cresc#1#2#3#4{\y@i=#3\internote\raise\y@i\rlap
{\hskip#4\internote\advance\y@i\altportee\special{ps: slur@Dict begin
- CP /C#2y1 ED /C#2x1 ED /C#2alt (\the\y@i) GD N
+ CP /C#2y1 ED /C#2x1 ED /C#2alt (\the\y@i) psxGD N
/C#2dir #1 N end}}%
\ifnum#2>\fourt@@n
\ifdangermessages\message{Danger! [De]crescendo with ID >14.}\fi
@@ -314,7 +314,7 @@
\y@ii=\lin@pos\advance\y@ii\locx@skip\advance\y@ii#3\internote
\advance\y@ii\sl@space
\zchar{#2}{\hskip #3\internote\special{ps: slur@Dict begin
- CP S (\the\y@ii) GDAR SB S CP 4 \the\n@vi\space R
+ CP S (\the\y@ii) psxGDAR SB S CP 4 \the\n@vi\space R
\the\n@vi\space 0 eq { DHC } { DC } ifelse end}}%
\global\n@ii\z@\fi
\fi\fi
@@ -323,7 +323,7 @@
\def\liftcresc#1#2{\y@i=#2\internote\ifnum#1<\max@slurs\s@l@cresc{#1}%
\global\advance\th@salt\y@i\else\special{ps: slur@Dict begin
- /C#1alt (\the\y@i) GDAR C#1alt A N end}\fi}
+ /C#1alt (\the\y@i) psxGDAR C#1alt A N end}\fi}
%%%% ties %%%%%%%%%%%%%%%%%%%%%%
@@ -335,8 +335,8 @@
\def\i@tie#1#2#3#4{\inhgetn@i#3\relax\y@i=\pstieraise\internote
\multiply\y@i#1\relax\advance\y@i\n@i\internote\raise\y@i\rlap
{\hskip #4\internote\special{ps: slur@Dict begin
- /S#1alt (\the\altportee) GDAR N
- CP /T#2y1 ED /T#2x1 ED /T#2hgt (\the\y@i) GD N
+ /S#1alt (\the\altportee) psxGDAR N
+ CP /T#2y1 ED /T#2x1 ED /T#2hgt (\the\y@i) psxGD N
/T#2dir #1 N /T#2dash \d@sh\space N
/T#2adj \t@adj\space N end}}%
\ifnum #2>\fourt@@n
@@ -375,16 +375,16 @@
\mxsk\char\n@i}%
\else
\rlap{\hskip #2\internote\special{ps: slur@Dict begin
- (\the\internote) GD (\the\th@shgt) GD DP
- CP S (\the\y@ii) GDAR SB S (\the\th@shgt)
- GDAR SB DP CP P S \if@up \pstiehgt\space
+ (\the\internote) psxGD (\the\th@shgt) psxGD DP
+ CP S (\the\y@ii) psxGDAR SB S (\the\th@shgt)
+ psxGDAR SB DP CP P S \if@up \pstiehgt\space
\else -\pstiehgt\space \fi \pstieangul\space \pstiemaxhgt\space
\if@dash 1 \else 0 \fi \t@adj\space 40 DS end}}%
\fi
\else
\rlap{\hskip #2\internote\special{ps: slur@Dict begin
- (\the\internote) GD T#1hgt GD DP
- CP S (\the\y@ii) GDAR SB S T#1hgt GDAR SB DP CP P S
+ (\the\internote) psxGD T#1hgt psxGD DP
+ CP S (\the\y@ii) psxGDAR SB S T#1hgt psxGDAR SB DP CP P S
\if@up -\pstiehgt\space \else \pstiehgt\space \fi
\pstieangul\space \pstiemaxhgt\space \if@dash 1 \else 0 \fi
\t@adj\space 40 DS end}}%
@@ -395,7 +395,7 @@
\fi
\ifcase\n@ii\else
\rlap{\hskip#2\internote
- \special{ps: slur@Dict begin (\the\internote) GD T#1hgt DP
+ \special{ps: slur@Dict begin (\the\internote) psxGD T#1hgt DP
T#1x1 T#1y1 CP P T#1y1
\pstiehgt\space T#1dir M \pstieangul\space \pstiemaxhgt\space T#1dash T#1adj 40 DS end}}%
\fi}
@@ -415,13 +415,13 @@
\y@ii=\n@i\internote\advance\y@ii\s@vy\setbox\z@=\hbox{\s@tx}%
\ifx\s@tx\empty\def\tx@sp{1}\else\ifdim\y@v<\tw@nty\internote\def\tx@sp{1.5}%
\else\ifdim\y@v<\@l\internote\def\tx@sp{1.2}\else\def\tx@sp{1}\fi\fi\fi
- \special{ps: slur@Dict begin (\the\internote) GD
- (\the\y@i) GD (\the\y@ii) GD CP (\the\y@i) GDAR swub
- CP exch (\the\y@v) GDAR add exch (\the\y@ii) GDAR sub
+ \special{ps: slur@Dict begin (\the\internote) psxGD
+ (\the\y@i) psxGD (\the\y@ii) psxGD CP (\the\y@i) psxGDAR swub
+ CP exch (\the\y@v) psxGDAR add exch (\the\y@ii) psxGDAR sub
\if d#3 -1 \else 1 \fi \tx@sp\space mul \psslurangul\space
\psslurmaxhgt\space \d@sh\space \s@adj\space 90 DS
- /ax1 ax1 (\the\y@v) GDAR add def /ay1 ay1 (\the\y@ii) GDAR sub
- (\the\ht\z@) GDAR dir mul add def}\lr@lap{\unhbox\z@}\special{ps: end}}%
+ /ax1 ax1 (\the\y@v) psxGDAR add def /ay1 ay1 (\the\y@ii) psxGDAR sub
+ (\the\ht\z@) psxGDAR dir mul add def}\lr@lap{\unhbox\z@}\special{ps: end}}%
\@clr\s@tx\gdef\d@sh{\D@sh}\gdef\s@adj{\S@adj}}
@@ -437,25 +437,25 @@
\advance\n@ii-16384\y@ii=\n@ii\internote\advance\y@ii\th@shgt
\ifnum\n@vi>\@ne\@upfalse\else\@uptrue\fi
\raise\th@salt\rlap{\hskip -2pt\special
- {ps: slur@Dict begin /in (\the\internote) GD N
- in (\the\y@ii) GD (\the\y@iii) GD CP S (\the\y@i) GD
- 4 AR M SB S (\the\y@ii) GDAR SB
- CP (\the\y@iii) GDAR SB \if@up1\else-1\fi\space
+ {ps: slur@Dict begin /in (\the\internote) psxGD N
+ in (\the\y@ii) psxGD (\the\y@iii) psxGD CP S (\the\y@i) psxGD
+ 4 psxAR M SB S (\the\y@ii) psxGDAR SB
+ CP (\the\y@iii) psxGDAR SB \if@up1\else-1\fi\space
0.13 30 \ifodd\n@vi 1 \else 0 \fi \s@adj\space 90 DS end}}%
\else
\rlap{\hskip -2pt\special{ps: slur@Dict begin
- /in (\the\internote) GD N in S\the\n@iv hgt
+ /in (\the\internote) psxGD N in S\the\n@iv hgt
S\the\n@iv lift in M A S\the\n@iv brk
- CP S (\the\y@i) GDAR SB in 10 AR M A S
- S\the\n@iv hgt S\the\n@iv lift in M A 4 AR M SB
- S\the\n@iv alt 4 AR M SB CP S\the\n@iv brk
- S\the\n@iv alt A 4 AR M SB S\the\n@iv dir
+ CP S (\the\y@i) psxGDAR SB in 10 psxAR M A S
+ S\the\n@iv hgt S\the\n@iv lift in M A 4 psxAR M SB
+ S\the\n@iv alt 4 psxAR M SB CP S\the\n@iv brk
+ S\the\n@iv alt A 4 psxAR M SB S\the\n@iv dir
0.13 30 S\the\n@iv dash S\the\n@iv adj 90 DS end}}%
\fi
\else % the slur was breaked the first time
- \rlap{\hskip-2pt\special{ps: slur@Dict begin (\the\internote) GD
+ \rlap{\hskip-2pt\special{ps: slur@Dict begin (\the\internote) psxGD
S\the\n@iv hgt S\the\n@iv brk S\the\n@iv x1 S\the\n@iv y1 CP P
- S\the\n@iv y1 S\the\n@iv hgt S\the\n@iv brk SB 4 AR M A
+ S\the\n@iv y1 S\the\n@iv hgt S\the\n@iv brk SB 4 psxAR M A
S\the\n@iv dir 0.17 \psslurmaxhgt\space S\the\n@iv dash S\the\n@iv adj 90 DS end}}%
\get@bits\n@iv\pss@rega
\multiply\n@ii\tw@\global\advance\pss@rega\n@ii\fi}
@@ -467,12 +467,12 @@
\advance\y@i\sl@space
\ifnum\n@iv<\max@slurs\s@l@cresc\n@iv
\rlap{\hskip-2pt\divide\n@vi\tw@\special{ps: slur@Dict begin CP S
- (\the\y@i) GDAR SB S (\the\th@salt) GDAR SB DP CP P S
+ (\the\y@i) psxGDAR SB S (\the\th@salt) psxGDAR SB DP CP P S
4 \ifodd\n@vi 2 \else 0 \fi R DHC end}}%
\else
\rlap{\hskip-2pt\divide\n@vi\tw@\special{ps: slur@Dict begin CP S
- (\the\y@i) GDAR SB (\the\internote) GD 10 AR M A S
- C\the\n@iv alt GDAR SB DP CP P S
+ (\the\y@i) psxGDAR SB (\the\internote) psxGD 10 psxAR M A S
+ C\the\n@iv alt psxGDAR SB DP CP P S
4 C\the\n@iv dir R DHC end}}\fi
\else % the crescendo was breaked the first time
\rlap{\hskip-2pt\special{ps: slur@Dict begin
@@ -491,19 +491,19 @@
\ifnum\n@vi>\@ne\@upfalse\else\@uptrue\fi
\y@ii\th@salt\advance\y@ii\th@shgt
\raise\y@ii\rlap{\hskip-2pt\special{ps: slur@Dict begin
- (\the\internote) GD (\the\th@shgt) GD DP CP S (\the\y@i) GDAR SB S
+ (\the\internote) psxGD (\the\th@shgt) psxGD DP CP S (\the\y@i) psxGDAR SB S
CP \if@up \pstiehgt\space \else -\pstiehgt\space \fi \pstieangul\space
\pstiemaxhgt\space \ifodd\n@vi 1 \else 0 \fi \t@adj\space 40 DS end}}%
\else
\rlap{\hskip-2pt\special{ps: slur@Dict begin
- (\the\internote) GD T\the\n@iv hgt DP CP S (\the\y@i)
- GDAR SB (\the\internote) GD 10 AR M A S
- T\the\n@iv alt T\the\n@iv hgt A 4 AR M SB DP
+ (\the\internote) psxGD T\the\n@iv hgt DP CP S (\the\y@i)
+ psxGDAR SB (\the\internote) psxGD 10 psxAR M A S
+ T\the\n@iv alt T\the\n@iv hgt A 4 psxAR M SB DP
CP P S \pstiehgt\space T\the\n@iv dir M
\pstieangul\space \pstiemaxhgt\space T\the\n@iv dash T\the\n@iv adj 40 DS end}}\fi
\else % the tie was breaked the first time
\rlap{\hskip-2pt\special{ps: slur@Dict begin
- (\the\internote) GD T\the\n@iv hgt DP
+ (\the\internote) psxGD T\the\n@iv hgt DP
T\the\n@iv x1 T\the\n@iv y1 DP CP P S
\pstiehgt\space T\the\n@iv dir M \pstieangul\space \pstiemaxhgt\space
T\the\n@iv dash 40 T\the\n@iv adj DS end}}%
@@ -794,9 +794,9 @@ The slurs and ties can be dotted, when you say \dotted anywhere before
the begining of the slur or tie. The first slur or tie following this
command will then be drawed with dotted line.
-[dangerous bend] When you say \dotted, then ALL slurs and ties
+[dangerous bend] When you say \Dotted, then ALL slurs and ties
from this point will be dotted until you say
-\Solid. Furthermore, inside the \dotted...\Solid you can make some slur or
+\Solid. Furthermore, inside the \Dotted...\Solid you can make single slur or
tie solid saying \solid before its begining.
NOTE: These macros are taken into account only at the begining
@@ -806,9 +806,9 @@ NOTE: These macros are taken into account only at the begining
Collisions of slurs/ties and staff lines
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
In PostScript it is possible to do some computations, which are very hard
-to implement in TeX. One of neat features of the PS slurs and ties is
-checking, if the curve passes close the staff line and if so, adjusting
-the altitude of the curve to avoid collision ("black triangles" or narrow
+to implement in TeX. One of neat features of the PS slurs and ties is a
+check, whether the curve passes close the staff line and if so, adjustment
+of the altitude of the curve to avoid collision ("black triangles" or narrow
white space). You can turn this feature on globally (\Sluradjust,
\Tieadjust) or locally (\sluradjust, \tieadjust), or disable it either
globally (\Nosluradjust, \Notieadjust) or locally (\nosluradjust,
@@ -871,10 +871,8 @@ I have tried to make the macros as small and fast as possible. The problem
about them is not in their size, but in their output. Each \i... and \t...
produces a \special command, which must be stored into the TeX's main memory.
Therefore, if too many slur occurs in one page, some memory troubles could
-occur. In that case either use BigTeX (but I suppose you already use it) or
-use the bitmapped slurs. I will try to reduce the memory requirements, but
-do not expect any miracles. There is a lot of things to be passed to the
-PostScript part...
+occur. In that case either use BigTeX (but I suppose you already do), or
+use the bitmapped slurs.
@@ -951,6 +949,9 @@ Bug reports and complainments are welcomed at:
HISTORY
~~~~~~~
+0.93 (17.2.2015)
+ changed definitions of AR, GDAR and GD to avoid collisions in certain PS files
+
0.92 (12.5.2002)
added: \nosluradjust, \sluradjust, \notieadjust, \tieadjust
added: \slopebrkslurtrue, \slopebrkslurfalse