% 30 March 07.  Many changes from 1.2, mostly in the inclusion of
% some useful macros from eplain (particularly \@futurenonspacelet)
% and their systematic use throughout this file.  This fixes some
% erratic behavior when a macro immediately followed \asr[...]
%
% 20 Feb 10.  Fixed problem with latest version of pstricks
% 2011/04/20 fixed problem with pstricks v2.19 (2011/03/25)
\def\fileversion{1.6}
\def\filedate{2011/04/20}
\csname ASRLoaded\endcsname
\let\ASRLoaded\endinput
\ifx\PSTricksLoaded\endinput \else \input pstricks \fi\relax
\ifx\PSTXKeyLoaded\endinput \else \input pst-xkey \fi\relax
\edef\TheAtCode{\the\catcode`\@}
\catcode`\@=11\relax
% utilities
% eplain utilities
% \@futurenonspacelet, \@getoptionalarg, \ifempty
\def\@futurenonspacelet#1{\def\cs{#1}%
   \afterassignment\@stepone\let\@nexttoken=
}
\begingroup
\def\\{\global\let\@stoken= }%
\\ %
\endgroup
\def\@stepone{\expandafter\futurelet\cs\@steptwo}%
\def\@steptwo{\expandafter\ifx\cs\@stoken\let\@@next=\@stepthree
   \else\let\@@next=\@nexttoken\fi \@@next}%
\def\@stepthree{\afterassignment\@stepone\let\@@next= }%
\def\@getoptionalarg#1{%
   \let\@optionaltemp = #1%
   \let\@optionalnext = \relax
   \@futurenonspacelet\@optionalnext\@bracketcheck
}
\def\@bracketcheck{%
   \ifx [\@optionalnext
      \expandafter\@@getoptionalarg
   \else
      \let\@optionalarg = \empty
      \expandafter\@optionaltemp
   \fi
}
\def\@@getoptionalarg[#1]{%
   \def\@optionalarg{#1}%
   \@optionaltemp
}
\def\ifempty#1{\@@ifempty #1\@emptymarkA\@emptymarkB}%
\def\@emptymarkA{\@emptymarkB}%
\def\@@ifempty#1#2\@emptymarkB{\ifx #1\@emptymarkA}%
% end eplain utilities
% other utilities
\def\@enamedef#1{\expandafter\edef\csname #1\endcsname}
\def\writeln#1{\immediate\write16{#1}\ignorespaces}
\def\@gobbleignore#1{\ignorespaces}
\def\psset@useoptionalarg{%
   \ifx\@optionalarg\empty \else
      \expandafter\psset\expandafter{\@optionalarg}\fi
}
\def\xaddto#1#2{%
   \pssetxlength\pst@dimg{#2}%
   \advance#1 by\pst@dimg}
\def\xsettosum#1#2#3{%
   \pssetxlength#1{#2}
   \xaddto#1{#3}\ignorespaces
}
\def\ysettodiff#1#2#3{%
   \pssetylength#1{#2}%
   \pssetlength\pst@dimg{#3}%
   \advance#1 by -\pst@dimg
   \ignorespaces
}
\def\ASR@addtotoks#1#2{\expandafter
   #2\expandafter{\expandafter#1\the#2}}
\def\ASR@trimtoks#1{\expandafter\expandafter\expandafter#1%
   \expandafter\expandafter\expandafter{%
      \expandafter\@gobble\the#1}%
}
% \XKVforn is \XKV@for@n from XKeyVal with \ignorespaces trailer
\long\def\XKVforn#1#2#3{%
   \def#2{#1}%
   \ifx#2\@empty
      \XKV@for@break
   \else
      \expandafter\XKV@f@r
   \fi
   #2{#3}#1,\@nil,%
\ignorespaces
}
\def\DefList#1{%
   \XKVforn{#1}\@X{\expandafter\def\@X}%
   \ignorespaces
}
\def\interpolate(#1)(#2)#3#4{%
   \begingroup
   \SpecialCoor
   \pst@getcoor{#1}\pst@tempa%
   \pst@getcoor{#2}\pst@tempb%
   \pnode(!%
     \pst@tempa /YA exch \pst@number\psyunit div def
     /XA exch \pst@number\psxunit div def
     \pst@tempb /YB exch \pst@number\psyunit div def
     /XB exch \pst@number\psxunit div def
     /dx XB XA sub def
     /dy YB YA sub def
     dx #3\space mul XA add dy #3\space mul YA add){#4}
   \endgroup
   \ignorespaces
}
% \ASRyvalue{xxx} for \ASR@xxx, \ASRyvalue*{xxx} for \ASRxxx
% sets \temp and \pst@dima
\def\ASRyvalue{\pst@ifstar\ASRyvalue@a}
\def\ASRyvalue@a#1{%
   \edef\temp{\if@star \else @\fi#1}%
   \expandafter\ASRyvalue@b
}
\def\ASRyvalue@b#1#2\@nil{%
   \ifx#1!%
      \pssetylength\pst@dimb{#2}%
      \expandafter\pst@dima\csname ASR\temp\endcsname
         \advance\pst@dima by \pst@dimb
   \else
      \pssetylength\pst@dima{#1#2}\fi
}
\newdimen\ASR@dima
\newdimen\ASR@dimb
\newdimen\ASR@dimc
\newdimen\ASR@dimd
\newdimen\ASR@dime
\newdimen\ASR@dimf
% \dbox, \dput resources and definitions
\newbox\ASR@hbox
\newbox\tmpbox
\newdimen\ASR@left
\newdimen\ASR@down
\newdimen\ASR@xpos
\newdimen\ASR@ypos
\newdimen\ASR@maxleft
\newdimen\ASR@maxright
\newdimen\ASR@maxup
\newdimen\ASR@maxdown
\newdimen\ASR@dputht
%
\def\dput#1(#2,#3){%
   \def\pst@par{}%
   \def\ASR@dput{#1(#2,#3)}%
   \pssetxlength\ASR@xpos{#2}%
   \pssetylength\ASR@ypos{#3}%
   \ASR@addtotoks\ASR@egg\everyhbox
   \expandafter\rput\ASR@dput
}
\def\ASR@egg{\aftergroup\ASR@updateafter}
\def\ASR@updateafter{%
   \ASR@trimtoks\everyhbox
   \ASR@dputht=\ht\pst@hbox
   \expandafter\psset\expandafter{\pst@par}%
   \advance\ASR@xpos by -\psk@xref\wd\pst@hbox
   \ifdim\ASR@xpos<\ASR@maxleft \ASR@maxleft=\ASR@xpos \fi
   \advance\ASR@xpos by \wd\pst@hbox
   \ifdim\ASR@xpos>\ASR@maxright \ASR@maxright=\ASR@xpos \fi
   \ifx\psk@yref\relax
         \advance\ASR@ypos by \ASR@dputht
         \advance\ASR@dputht by \dp\pst@hbox
      \else
         \advance\ASR@dputht by \dp\pst@hbox
         \advance\ASR@ypos by \ASR@dputht
         \advance\ASR@ypos by -\psk@yref\ASR@dputht
      \fi
   \ifdim\ASR@ypos>\ASR@maxup \ASR@maxup=\ASR@ypos \fi
   \advance\ASR@ypos by -\ASR@dputht
   \ifdim\ASR@ypos<\ASR@maxdown \ASR@maxdown=\ASR@ypos \fi
}
\def\dbox{\setbox\ASR@hbox=\hbox\bgroup
   \ASR@maxleft=\maxdimen
   \ASR@maxright=-\maxdimen
   \ASR@maxup=0pt
   \ASR@maxdown=0pt
}
\def\ASR@Maxtransfer{%
   \xdef\ASR@MaxAfter{%
      \noexpand\ASR@maxleft=\the\ASR@maxleft
      \noexpand\ASR@maxright=\the\ASR@maxright
      \noexpand\ASR@maxdown=\the\ASR@maxdown
      \noexpand\ASR@maxup=\the\ASR@maxup}%
   \aftergroup\ASR@MaxAfter
}
\def\ASR@asrBtransfer{%
   \xdef\ASR@asrBAfter{%
      \noexpand\def\noexpand\ASR@asrB{\ASR@asrB}}%
   \aftergroup\ASR@asrBAfter
}
\def\enddbox{%
   \ASR@Maxtransfer
   \ASR@asrBtransfer
   \egroup
   \dp\ASR@hbox=-\ASR@maxdown
   \ht\ASR@hbox=\ASR@maxup
   \leavevmode
   \kern-\ASR@maxleft\lower\ASR@asrB\box\ASR@hbox\kern\ASR@maxright}
% -------------------------------------------------------------
% finally, we can can start to build the ASR specific macros
% \newtier, defines a list of tiers
\pst@addfams{ASR}
\def\asrsetkeys#1{\setkeys[psset]{ASR}{#1}\ignorespaces}
%\def\pssetkeys#1{\setkeys[psset]{}{#1}\ignorespaces}
\def\newtier#1{\Newtier@A#1,\@nil,\@nil}
\def\Newtier@A#1#2,{\ifx#1\@nil \let\temp\@gobbleignore
      \else \Newtier@B{#1#2}\let\temp\Newtier@A \fi \temp}
\def\Newtier@B#1{%
   \@enamedef{ASR#1B}{0pt}%
   \@enamedef{ASR@#1dp}{.7ex}%
   \@enamedef{ASR@#1ht}{1.8ex}%
   \define@key[psset]{ASR}{#1B}{%
      \ASRyvalue*{#1B}##1\@nil
      \@enamedef{ASR#1B}{\the\pst@dima}%
      \pst@dimb=\pst@dima
      \advance\pst@dimb by \@nameuse{ASR@#1ht}%
      \@enamedef{ASR#1t}{\the\pst@dimb}%
      \pst@dimb=\@nameuse{ASR@#1dp}%
      \advance\pst@dima by -\pst@dimb
      \@enamedef{ASR#1b}{\the\pst@dima}%
      }%
   \define@key[psset]{ASR}{#1ht}{%
      \ASRyvalue{#1ht}##1\@nil
      \@enamedef{ASR@#1ht}{\the\pst@dima}%
      \advance\pst@dima by \@nameuse{ASR#1B}%
      \@enamedef{ASR#1t}{\the\pst@dima}%
      }%
   \define@key[psset]{ASR}{#1dp}{%
      \ASRyvalue{#1dp}##1\@nil
      \@enamedef{ASR@#1dp}{\the\pst@dima}%
      \pst@dima=-\pst@dima
      \advance\pst@dima by \@nameuse{ASR#1B}%
      \@enamedef{ASR#1b}{\the\pst@dima}%
      }%
   \define@key[psset]{ASR}{#1}{%
      \TierSet@##1 {} {} \@nil
      \if@star \expandafter\ASR@dima\@nameuse{ASR#1B}
         \else
         \@enamedef{ASR#1B}{\the\ASR@dima}\fi
      \@enamedef{ASR@#1dp}{\the\pst@dimb}%
      \@enamedef{ASR@#1ht}{\the\pst@dimc}%
      \pst@dimb=-\pst@dimb
      \advance\pst@dimb by \ASR@dima
      \@enamedef{ASR#1b}{\the\pst@dimb}%
      \advance\pst@dimc by \ASR@dima
      \@enamedef{ASR#1t}{\the\pst@dimc}%
      }%
}
\def\TierSet@{\futurelet\temp\TierSet@@}
\def\TierSet@@{%
   \@starfalse
   \ifx\temp(\let\next\TierSet@a
   \else \ifx\temp*\let\next\TierSet@b
   \else \let\next\TierSet@c \fi\fi \next}
\def\TierSet@a(#1) #2 {%
   \pssetylength\ASR@dima{#2}%
   \expandafter\pst@dimb\@nameuse{ASR#1B}%
   \advance\ASR@dima by \pst@dimb
   \TierSet@d
}
\def\TierSet@b#1 {\@startrue\TierSet@d}
\def\TierSet@c#1 {\pssetylength\ASR@dima{#1}\TierSet@d}
\def\TierSet@d{\@ifnextchar(\TierSet@e{\TierSet@e() }}
\def\TierSet@e(#1) #2 #3 #4\@nil{%
   \setbox\tmpbox=\hbox{#1}%
   \def\tempb{#2}%
   \ifx\tempb\@empty                % \pst@dimb = depth
      \pst@dimb=\ASR@extragap       % \pst@dimc = height
      \pst@dimc=\pst@dimb
   \else
      \pssetylength\pst@dimc{#2}%
      \def\tempa{#3}%
      \ifx\tempa\@empty
         \pst@dimb=\pst@dimc
      \else
         \pssetylength\pst@dimb{#3}
      \fi
   \fi
   \advance\pst@dimb by \dp\tmpbox
   \advance\pst@dimc by \ht\tmpbox
}
\define@key[psset]{ASR}{extragap}{%
   \pssetylength\pst@dima{#1}%
   \@enamedef{ASR@extragap}{\the\pst@dima}}
\psset{extragap=.5ex}
%
% \tierput onto a tier, and drawing associations
%
\newdimen\ASR@dimf
\newdimen\ASR@dime
\def\tierput{\ASR@dimf=0pt
   \@ifnextchar[\tierput@a\tierput@b}
\def\tierput@a[#1]{\pssetxlength\ASR@dimf{#1}\tierput@b}
\def\tierput@b(#1,#2){%
   \pssetxlength\ASR@dime{#1}%
   \advance\ASR@dime by \ASR@dimf
   \edef\ASR@lasttierx{\the\ASR@dime}\edef\ASR@lasttier{#2}%
   \edef\ASR@lasttierB{\@nameuse{ASR#2B}}%
   \dput[B](\ASR@dime,\ASR@lasttierB)%
}
\def\assoc{\@getoptionalarg\assoc@a}
\def\assoc@a#1(#2,#3){%
   \pssetxlength\pst@dima{#2}%
   \edef\tempc{\the\pst@dima}%
   \def\tempd{#3}%
   \assoc@b}
\def\assoc@b{%
   \bgroup
   \psset@useoptionalarg
   \@ifnextchar(\assoc@c\assoc@d
}
\def\assoc@c#1(#2){%
   \let\ASR@lasttierx=\tempc
   \let\ASR@lasttier=\tempd
   \edef\ASR@lasttierB{\@nameuse{ASR\tempd B}}%
   \assoc@e(#2)}
\def\assoc@d{%
   \edef\tempe{(\tempc,\tempd)}%
   \expandafter\assoc@e\tempe}
\def\assoc@e(#1,#2){%
   \ifdim\ASR@lasttierB<\@nameuse{ASR#2B}%
      \@tierorder bt%
   \else
      \@tierorder tb%
   \fi
   \edef\temp{(#1,\@nameuse{ASR#2\tempa})%
      (\ASR@lasttierx,\@nameuse{ASR\ASR@lasttier\tempb})}%
   \expandafter\psline\temp
   \ifASR@xed
      \expandafter\putxed\temp
   \fi
   \egroup\ignorespaces
}
\def\@tierorder#1#2{\def\tempa{#1}\def\tempb{#2}}

\def\tiershortcuts{\let\@=\tierput \let\-=\assoc}
%
\define@cmdkey[psset]{ASR}[ASR@]{everyph}[]{}
\def\putph#1{%
   \dput[B](\xpos,\ASRphB){\ASR@everyph #1}
   \psline(\xpos,\ASRtsb)(\xpos,\ASRpht)
   \dput[B](\xpos,\ASRtsB){\ASR@tssym}
   \advance\xpos by\ASRxgap
   \ignorespaces
}
\def\putgem#1{%
   \ASR@dima=\xpos
   \advance\ASR@dima by .5\ASRxgap
   \dput[B](\ASR@dima,\ASRphB){\ASR@everyph #1}
   \dput[B](\xpos,\ASRtsB){\ASR@tssym}
   \psline(\xpos,\ASRtsb)(\ASR@dima,\ASRpht)
   \advance\xpos by \ASRxgap
   \dput[B](\xpos,\ASRtsB){\ASR@tssym}
   \psline(\xpos,\ASRtsb)(\ASR@dima,\ASRpht)
   \advance\xpos by \ASRxgap
   \ignorespaces
}
% bug fix, 12/08/07: everyph did not apply in nots mode
\def\notsputph#1{%
   \tierput(\xpos,ts){\ASR@everyph #1}%
   \stepxpos{1}%
}
\def\notsputgem#1{%
   \notsputph{#1}%
   \notsputph{#1}%
}
\define@key[psset]{ASR}{reptype}{%
   \@nameuse{ASRreptype@#1}%
}
\def\ASRreptype@ts{%
   \let\ASR@dd=\ASR@standard
   \let\ASR@putobj\putph
   \let\ASR@putgemobj\putgem
}
\def\ASRreptype@nots{%
   \let\ASR@dd=\ASR@standard
   \let\ASR@putobj=\notsputph
   \let\ASR@putgemobj=\notsputgem
   \asrsetkeys{ts=* (ky),syB=!.35ex}%
}
\ASRreptype@ts
\def\LevelsIncrement{%
   \pssetylength\ASR@dima{\ASRtsB}%
   \ASR@dima=-\ASR@dima
   \ASR@dimb=\ASRsyB
   \advance\ASR@dima by 2\ASR@dimb
   \asrsetkeys{tsB=\ASRsyB,syB=\the\ASR@dima}%
}
%%%% timing slot matters (including \xpos)
%
\newdimen\xpos
\newdimen\ASRxgap
\define@boolkey[psset]{ASR}[ASR@]{unitxgap}%
   {\psset{xunit=\ASRxgap}}
\define@key[psset]{ASR}{xgap}%
   {\@setxgapaux#1\@nil
   \edef\ASR@xgap{\the\pst@dima}%
   \ASRxgap=\pst@dima
   \ifASR@unitxgap \psset{xunit=\pst@dima}\fi
}
\def\@setxgapaux{\@ifnextchar!\@setxgapauxA\@setxgapauxB}
\def\@setxgapauxA#1#2\@nil{\pssetxlength\pst@dima{#2}%
   \advance\pst@dima by \ASRxgap}
\def\@setxgapauxB#1\@nil{\pssetxlength\pst@dima{#1}}
\define@cmdkey[psset]{ASR}[ASR@]{tssym}[$\times$]{}
\def\bare#1{%
   \dput[B](\xpos,\ASRtsB){#1}%
   \advance\xpos by \ASRxgap
   \ignorespaces
}
\def\X{\bare{\ASR@tssym}}
\def\setxpos#1{%
   \pssetxlength\xpos{#1}%
   \ignorespaces
}
\def\stepxpos#1{%
   \pssetxlength\pst@dima{#1}%
   \advance\xpos by \pst@dima
   \ignorespaces
}
%
%%% placing and associating a phoneme
\def\varph{\@getoptionalarg\varph@a}
\def\varph@a#1#2{%
   \xsettosum\ASR@dima\xpos{#2}%
   \dput[B](\ASR@dima,\ASRphB){\ASR@everyph #1}%
   \begingroup
      \psset@useoptionalarg
      \psline(\xpos,\ASRtsb)(\ASR@dima,\ASRpht)%
      \xdef\temp{\ASR@tssym}%
   \endgroup
   \bare{\temp}%
   \ignorespaces
}
%%% syllables
\define@cmdkey[psset]{ASR}[ASR@]{sysym}[$\sigma$]{}
\def\monosysym{$\sigma^{\mu}\mskip-10mu$}
\def\bisysym{$\sigma^{\mu\mu}\mskip-18mu$}
\def\varsyl{\@getoptionalarg\varsyl@a}
\def\varsyl@a#1#2{%
   \begingroup
   \psset@useoptionalarg
   \xsettosum\pst@dimc{\xpos}{#1}%
   \tierput(\pst@dimc,sy){\ASR@sysym}%
   \XKV@for@n{#2}\N{%
      \xsettosum\pst@dimd{\xpos}{\N}%
      \psline(\pst@dimc,\ASRsyb)(\pst@dimd,\ASRtst)%
      }%
   \ASR@Maxtransfer
   \endgroup
   \ignorespaces
}
\def\qsyl{\@ifnextchar(\qsyl@a{\qsyl@a(\ASR@sysym)}}
\def\qsyl@a(#1)#2{%
   \pssetxlength\pst@dimd{#2}%
   \advance\pst@dimd by -\ASRxgap
   \xsettosum\pst@dimc{\xpos}{.5\pst@dimd}%
   \tierput(\pst@dimc,sy){#1}%
   \pst@cnta=0
   \loop \ifnum\pst@cnta<#2
      {\advance\xpos by \the\pst@cnta\ASRxgap
      \assoc(\xpos,ts)}\advance\pst@cnta by 1 \repeat
   \ignorespaces
}
\def\1{\qsyl 1}
\def\2{\qsyl 2}
\def\3{\qsyl 3}
\def\4{\qsyl 4}
\def\5{\qsyl 5}
%
% xed crossout, parameters: xed, xedsep,xedht,xedratio,xedtype
%
\define@boolkey[psset]{ASR}[ASR@]{xed}{}
\define@key[psset]{ASR}{xedsep}{%
   \pssetlength\pst@dima{#1}%
   \edef\ASR@xedsep{\the\pst@dima}%
}
\define@key[psset]{ASR}{xedht}{%
   \pssetlength\pst@dima{#1}%
   \edef\ASR@xedht{\the\pst@dima}%
}
\define@cmdkey[psset]{ASR}[ASR@]{xedratio}{}
\define@cmdkey[psset]{ASR}[ASR@]{xedlinewidth}{}
\define@key[psset]{ASR}{xedtype}{\def\ASR@xedtype{#1}}
\def\xedparlines{%
   \ASR@dima=\ASR@xedsep \ASR@dima=.5\ASR@dima
   \ASR@dimb=\ASR@xedht  \ASR@dimb=.5\ASR@dimb
   \psline(-\ASR@dima,-\ASR@dimb)(-\ASR@dima,\ASR@dimb)
   \psline(\ASR@dima,-\ASR@dimb)(\ASR@dima,\ASR@dimb)%
}
\def\xedcirc{%
   \pscircle[linestyle=solid,linewidth=.5pt](0,0){.7ex}%
}
\setkeys[psset]{ASR}{xedsep=2.2pt,xedht=8pt,xedratio=.5,
   xedlinewidth=1pt,xedtype=\xedparlines,xed=false}
\def\putxed{\@getoptionalarg\putxed@b}
\def\putxed@b#1(#2,#3)#4(#5,#6){%
   \begingroup
   \psset@useoptionalarg
   \pssetxlength\ASR@dimc{#2}\pssetxlength\ASR@dime{#5}
   \advance\ASR@dime by -\ASR@dimc
   \advance\ASR@dimc by \ASR@xedratio\ASR@dime
   \pssetylength\ASR@dimd{#3}\pssetylength\ASR@dimf{#6}
   \advance\ASR@dimf by -\ASR@dimd
   \advance\ASR@dimd by \ASR@xedratio\ASR@dimf
   \psset{linewidth=\ASR@xedlinewidth}
   \SpecialCoor
   \rput{(\ASR@dime,\ASR@dimf)}(\ASR@dimc,\ASR@dimd){\ASR@xedtype}
   \NormalCoor
   \endgroup
   \ignorespaces
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% \ASR ... \endasr  boxing
\define@cmdkey[psset]{ASR}[ASR@]{everyasr}[]{}
\edef\TheBarCode{\the\catcode`\|}
\catcode`\|=\active
\def\asr{%
   \leavevmode\dbox
   \ASR@everyasr
   \xpos=0pt
   \catcode`|=\active
   \let|=\ASRpush
   \@getoptionalarg\asr@a
}
\let\endasr\enddbox
\def\asr@a{\psset@useoptionalarg\ASR@d}
\def\ASR@d{\@futurenonspacelet\temp\ASR@dd}
\def\ASR@standard{%
   \ifx\temp\bgroup \let\next=\ASR@char \else
   \ifx\temp|\let\next=\ASRpush\else
   \ifx\temp'\let\next=\ASR@juncture\else
   \ifx\temp<\let\next=\ASR@displace\else
   \ifx\temp\endasr \let\next=\relax \else
   \ifcat\noexpand\temp\noexpand\ASR\let\next=\ASR@cs
   \else \let\next=\ASR@char
   \fi\fi\fi\fi\fi\fi\next
}
\let\ASR@dd=\ASR@standard
\def\ASRpush#1{\let|\ASRpop \ignorespaces}
\def\ASRpop{\let|\ASRpush \ASR@d}
\catcode`\|=\TheBarCode
% junctures on the timing tier
\def\ASR@juncture#1#2{\edef\@juncs{\JunctureChoose#2}\ASR@junctureA}
\def\ASR@junctureA{\@ifnextchar'\ASR@junctureB\ASR@junctureC}
\define@cmdkey[psset]{ASR}[ASR@]{juncsep}{}
\def\ASR@junctureB#1#2{%
   \edef\@juncs{\@juncs\kern\ASR@juncsep\JunctureChoose{#2}}%
   \ASR@junctureA
}
\def\NormalJunctureChoose#1%
   {\ifx#1<\langle\else\ifx#1>\rangle\else#1\fi\fi}
\let\JunctureChoose=\NormalJunctureChoose
\def\ASR@junctureC{%
   \ASR@dima=\xpos \advance\ASR@dima by -.5\ASRxgap
   \ASR@currjuncput[B](\ASR@dima,\ASRtsB){$\@juncs$}\ASR@d
}
\define@boolkey[psset]{ASR}[ASR@]{phantomjunctures}{%
   \ifASR@phantomjunctures \let\ASR@currjuncput\rput
      \else \let\ASR@currjuncput\dput \fi
}
% displaced evaluation
\def\ASR@displace#1{%
   \def\@displace{-1}%
   \@ifnextchar[\ASR@displaceA\ASR@displaceB
}
\def\ASR@displaceA[#1]{\def\@displace{#1}\ASR@displaceB}
\def\ASR@displaceB#1{{\advance\xpos by \@displace\ASRxgap #1}\ASR@d}
%
\def\ASR@finish#1{\enddbox}
\def\ASR@cs#1{#1\ASR@d}
\def\ASR@char#1{\def\ASR@hold{#1}\@ifnextchar:\ASR@gem\ASR@charA}
\def\ASR@charA{\ASR@putobj{\ASR@hold}\ASR@d}
\def\ASR@gem#1{\ASR@putgemobj{\ASR@hold}\ASR@d}
\define@key[psset]{ASR}{asrB}{%
   \ASRyvalue{asrB}#1\@nil
   \edef\ASR@asrB{\the\pst@dima}}
%%%%%%
%% reptype=DM
\newcount\morphcount
\def\ASRreptype@DM{%
   \let\ASR@dd=\ASR@standard
   \let\ASR@char=\ASR@putmorph
   \morphcount=1
}
\def\ASR@putmorph#1{%
   \expandafter\parse@putmorph #1,,\@nil
   \setbox\tmpbox\hbox{\tempa}%
   \pst@dima=\wd\tmpbox
   \advance\xpos by .5\pst@dima
   \@enamedef{morphcoord@A\the\morphcount}{\the\xpos,\ASRtst}%
   \advance\morphcount by 1
   \dput[B](\xpos,\ASRtsB){\box\tmpbox}%
   \ifx\tempb\@empty
   \else
      \dput[B](\xpos,\ASRphB){\ASR@everyph \tempb}
      \expandafter\psline\expandafter[\ASR@realstyle]%
         (\xpos,\ASRtsb)(\xpos,\ASRpht)
   \fi
   \advance\xpos by .5\pst@dima
   \advance\xpos by \ASRxgap
   \@ifnextchar:\ASR@d\ASR@d
}
\def\parse@putmorph #1,#2,#3\@nil{%
   \def\tempa{#1}%
   \def\tempb{#2}%
}
\def\@getASRcoord#1#2#3{%
   \edef\temp{\@nameuse{morphcoord@#3}}%
   \expandafter\@getcoord@a
      \expandafter#1\expandafter#2\temp\@nil
}
\def\@getcoord@a#1#2#3,#4\@nil{%
   #1=#3\relax #2=#4\relax
}
\def\merge{\@getoptionalarg\merge@a}
\def\merge@a#1{%
   \ASR@parsecoors#1\@nil
   \begingroup
   \psset@useoptionalarg
   \@getoptionalarg\merge@b
}
\def\ASR@parsecoors#1,#2,#3\@nil{%
   \@getASRcoord\pst@dima\pst@dimb{#1}%
   \@getASRcoord\pst@dimc\pst@dimd{#2}%
   \def\@tar{#3}%
}
\def\merge@b{%
   \ifx\@optionalarg\@empty
      \def\@@directive{}%
   \else
      \expandafter\mk@@directive\@optionalarg\@nil
   \fi
   \@ifnextchar\bgroup\merge@label\merge@nolabel
}
\def\mk@@directive #1#2\@nil{\def\@@directive{#1}}
\def\merge@label#1{%
   \ifdim\pst@dimb>\pst@dimd
      \ASR@dimb=\pst@dimb
   \else
      \ASR@dimb=\pst@dimd
   \fi
   \advance\ASR@dimb by \ASR@mlevelsep
   \ifx \@optionalarg\@empty
      \@binupmirror
   \else \expandafter \ifx \@@directive M%
      \@binupmirror
   \else \expandafter\ifx \@@directive C%
      \@binupratio{.5}%
   \else
      \expandafter\@binupratio\expandafter{\@optionalarg}%
   \fi\fi\fi
   \@morphdrawbranches
   \def\temp{#1}%
   \ifx\temp\@empty
   \else
      \advance\ASR@dimb by \ASR@tsdp
      \dput[B](\xpos,\ASR@dimb){#1}%
      \advance\ASR@dimb by \ASR@tsht
   \fi
   \ASR@endbinup
}
\def\@morphdrawbranches{%
   \expandafter\psline\expandafter[\ASR@lbstyle]%
      (\pst@dima,\pst@dimb)(\xpos,\ASR@dimb)%
   \expandafter\psline\expandafter[\ASR@rbstyle]%
      (\pst@dimc,\pst@dimd)(\xpos,\ASR@dimb)%
}
\define@key[psset]{ASR}{mlevelsep}{%
   \pssetylength\pst@dima{#1}%
   \edef\ASR@mlevelsep{\the\pst@dima}%
}
\def\@binupratio#1{%
   \ASR@dima=\pst@dimc
   \advance\ASR@dima by -\pst@dima
   \xpos=\pst@dima
   \advance\xpos by #1\ASR@dima
}
\def\@binupmirror{%
   \ASR@dimd=\ASR@dimb
   \advance\ASR@dimd by -\pst@dimb
   \ASR@dime=\ASR@dimb
   \advance\ASR@dime by -\pst@dimd
   \advance\ASR@dime by \ASR@dimd
   \pst@divide\ASR@dimd\ASR@dime\temp%
   \@binupratio{\temp}%
}
\def\ASR@endbinup{%
   \xdef\@message{\noexpand\xpos=\the\xpos\relax
      \noexpand\ASR@dimb=\the\ASR@dimb}%
   \aftergroup\@message
   \ASR@Maxtransfer
   \endgroup
   \@enamedef{morphcoord@\@tar}{\the\xpos,\the\ASR@dimb}%
   \ignorespaces
}
\def\merge@nolabel{%
   \ifx\@optionalarg\@empty
   \else
      \edef\ASR@mslope{\@optionalarg}%
   \fi
   \pssetylength\ASR@dima{\ASR@mslope}
   \pssetxlength\ASR@dimb{1}
   \pst@divide\ASR@dima\ASR@dimb\@slope
   \pst@divide\ASR@dimb\ASR@dima\@recipslope
   \xpos=.5\pst@dima
   \advance\xpos by .5\pst@dimc
   \ASR@dimb=.5\pst@dimd
   \advance\ASR@dimb by -.5\pst@dimb
   \advance\xpos by \@recipslope\ASR@dimb
   \ASR@dimb=.5\pst@dimb
   \advance\ASR@dimb by .5\pst@dimd
   \ASR@dimc=.5\pst@dimc
   \advance\ASR@dimc by -.5\pst@dima
   \advance\ASR@dimb by \@slope\ASR@dimc
   \@morphdrawbranches
   \dput(\xpos,\ASR@dimb){}%
   \ASR@endbinup
}
\define@cmdkey[psset]{ASR}[ASR@]{mslope}[1]{}
\asrsetkeys{mslope=1}%
\define@key[psset]{ASR}{lbstyle}{%
   \def\ASR@lbstyle{style=BS@#1}}
\define@key[psset]{ASR}{rbstyle}{%
   \def\ASR@rbstyle{style=BS@#1}}
\define@key[psset]{ASR}{realstyle}{%
   \def\ASR@realstyle{style=BS@#1}}
\def\newbranchstyle#1{\newpsstyle{BS@#1}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% the settings below can be changed or overwritten to suit the user
%% settings for reptype=normal and reptype=nots
\newtier{ts,ph,sy}
\newpsstyle{assoc}{linestyle=solid,linewidth=.08ex}
\setkeys[psset]{ASR}{asrB=0,unitxgap=true,phantomjunctures=false}
\asrsetkeys{tssym,sysym,everyph,everyasr}  % all have defaults
\newpsstyle{medsyls}{extragap=.5ex,unitxgap=true,xgap=2.5ex,
   ts=0pt ($\times$),sy=3.5ex ($\sigma$),ph=-3.5ex (pf),
   juncsep=0pt}
\newpsstyle{bigsyls}{extragap=.6ex,unitxgap=true,xgap=3.5ex,
   ts=0pt ($\times$),sy=5.5ex ($\sigma$) .7ex,ph=-4.5ex (pf)}
\psset{unit=1em,style=medsyls}
%% settings for reptype=DM
\newbranchstyle{normal}{linewidth=.1ex,linestyle=solid}
\newbranchstyle{spell}{linewidth=.1ex,linestyle=solid,
   arrowsize=.6ex 1.3,arrows=->}
\newbranchstyle{head}{linewidth=.3ex,linestyle=solid,arrows=c-}
\newbranchstyle{adjunct}{linewidth=.1ex,yunit=.8ex,
   linestyle=dashed}
\asrsetkeys{lbstyle=normal,rbstyle=normal,realstyle=spell,
   mslope=1,mlevelsep=1em}


\catcode`\@\TheAtCode