%\magnification=\magstep1               % uncomment for Tex
%\input pstricks                        % uncomment for Tex
%\input pst-xkey                        % uncomment for Tex
%\input pst-asr                         % uncomment for Tex

\documentclass[12pt]{article}           % comment for Tex
\usepackage{pstricks,pst-xkey,pst-asr}  % comment for Tex

\newpsstyle{bigsyls}{extragap=.6ex,unitxgap=true,xgap=3.5ex,
   ts=0pt ($\times$),sy=5.5ex ($\sigma$) .7ex,ph=-4.5ex (pf)}
\newpsstyle{dotted}{linestyle=dotted,linewidth=1.2pt,dotsep=1.6pt}
\def\feat#1{$\rm [#1]$}
\def\crossing{\pscircle[linestyle=solid,linewidth=.5pt](0,0){.7ex}}%

\newdimen\dimpuba
\newdimen\dimpubb
\newcount\exno
\exno=0
\def\ex{\vskip1.8em \allowbreak\noindent \advance\exno by 1  \bgroup
   \parindent=0pt (\the\exno)\quad}
\def\xe{\par\egroup}
\def\TO{\quad$\rightarrow$\quad}
\tiershortcuts

\begin{document}                        % comment for Tex

\ex
\asr logwhin\endasr
\TO
\asr \3logwhin\endasr
\bigskip

\hfill \TO
\asr \3log\2wVhin\endasr
\TO
\asr \3log\2wV\3hin\endasr \kern1em
\xe



\ex
\psset{phB=!-1ex,syB=!1ex,xgap=!1ex}
\asr du|\varsyl[linestyle=dashed]{1.5}{0,1,2}|man\endasr
\xe

\ex
\asr |\varsyl[sysym=\monosysym]{.5}{0,1}|du
   |\varsyl[sysym=\bisysym]{1}{0,1,2}|man\endasr
\xe

\ex
\asr |\qsyl(\monosysym)2|du|\qsyl(\bisysym)3|man\endasr
\xe

\ex
\asr |\qsyl2|du|\qsyl3|man\endasr
\xe

\ex
\asr \3kat\3man\2du\endasr
\xe

\ex
\newtier{nuc}
\tiershortcuts
\asr[style=bigsyls,nuc=(sy) 1em ($\nu$)]
|\varsyl{.4}{0,1,2}|kat|\varsyl{.4}{0,1,2}|man
   |\varsyl{-.1}{0,1}|du|
\@[.2](1,nuc){$\nu$}\-(1,ts)
\@[.2](4,nuc){$\nu$}\-(4,ts)
\@[.2](7,nuc){$\nu$}\-(7,ts)
|\endasr
\xe

\ex
\asr[xgap=2em,syB=2.5em] hu'+ari|
\@(1,sy){L}
   \-(1,ts)
\@(2,sy){H}
   \-(2,ts)
\@(4,sy){L}
   \-(4,ts)
|\endasr
\TO
\asr[xgap=2em,syB=2.5em] hwari|
\@(1,sy){L}
   \-[xed=true,xedratio=.4](1,ts)\-[style=dotted](2,ts)
\@(2,sy){H}
   \-(2,ts)
\@(4,sy){L}
   \-(4,ts)
|\endasr
\xe

\ex
\newtier{softpal,ant,dist,nasal}%
\newpsstyle{crossing}{xed=true,xedtype=\xedcirc,style=dotted}
\tiershortcuts
\psset{xgap=1.5in,yunit=3em,ts=0 (Pg),sy=1 ([),
   ph=-1 (Cg),softpal=.3 (Sg),
   nasal=-.4 ([),ant=-2 ([),dist=-3 ([),
   tssym=Place,sysym=\feat{+cons},everyph=Coronal}
\DefList{\softpalA{2.5},\antoffset{-.22},\distoffset{.36}}
%
\quad \asr \1{}\1{}\1{}|
% softpal features
\@(\softpalA,softpal){Soft Palate}
   \-(2,sy)
\@(\softpalA,nasal){\feat{+nas}}
   \-(\softpalA,softpal)
% ant features
\@(\antoffset,ant){\feat{-ant}}
   \-(0,ph)
   \-[style=crossing](2,ph)
\@[1](\antoffset,ant){\feat{\alpha ant}}
   \-(1,ph)
\@[2](\antoffset,ant){\feat{-ant}}
   \-(2,ph)
% dist features
\@(\distoffset,dist){\feat{-dist}}
   \-(0,ph)
   \-[style=crossing](2,ph)
\@[1](\distoffset,dist){\feat{\beta dist}}
   \-(1,ph)
\@[2](\distoffset,dist){\feat{+dist}}
   \-(2,ph)
|\endasr
\xe

\ex
\newtier{dorsal,high,back,low,labial,round}
\psset{xgap=1.5in,yunit=3em,ts=0 (Pg),sy=1 ((),dorsal=-1 (Dg),
   high=-2 ((),back=-2.6 ((),low=-3.2 ((),
   labial=-4 (Lg),round=-5 ((),
   sysym=\feat{-cons},tssym=Place}
\DefList{\dorsalA{.4},\dorsalB{1.6},\highoffset{-.2},%
   \backoffsetA{.1},\backoffsetB{-.2},\lowoffsetA{.5},%
   \lowoffsetB{.3},\labialA{-.2},\labialB{2.2}}
\asr \1\X\X\1\X
|\@(1,sy){\feat{+cons}}
   \-(1,ts)
\@(\dorsalA,dorsal){Dorsal}\-(0,ts)
\@(\dorsalB,dorsal){Dorsal}\-(2,ts)
\@[\highoffset](\dorsalA,high){\feat{-high}}
   \-(\dorsalA,dorsal)
   \-(\dorsalB,dorsal)
\@[\backoffsetA](\dorsalA,back){\feat{+back}}
   \-(\dorsalA,dorsal)
   \-[style=dotted](\dorsalB,dorsal)
\@[\backoffsetB](\dorsalB,back){\feat{+back}}
   \-[xed=true](\dorsalB,dorsal)
\@[\lowoffsetA](\dorsalA,low){\feat{-low}}
   \-(\dorsalA,dorsal)
   \-[style=dotted](\dorsalB,dorsal)
\@[\lowoffsetB](\dorsalB,low){\feat{+low}}
   \-[xed=true](\dorsalB,dorsal)
\@(\labialA,labial){Labial}
   \-(0,ts)
\@(\labialB,labial){Labial}
   \-(2,ts)
\@(\labialA,round){\feat{+round}}
   \-(\labialA,labial)
   \-[style=dotted](\labialB,labial)
\@(\labialB,round){\feat{-round}}
   \-[xed=true](\labialB,labial)
\endasr
\xe

\ex
\asr[ts=0 (x),sy=1.5 ($*$),ph=-1.6 (C),
   xgap=1.2em,syB=3.2ex,sysym=$*$]
|\def\({\tierput[-.7](\xpos,sy){(}}%
\def\.{{\stepxpos{-.5}\tierput(\xpos,ts){\bf .}}}%
|C\(\1V\.C\1V\.C\1V\.C\(\1VX\.C\1V\.C\1V\.
   C\(\1VX\.C\1V\.C\1V\.C\1V\.C\1V
|\LevelsIncrement
      \setxpos1
      \1\(
      \stepxpos6
      \1
      \stepxpos7
      \1
   \LevelsIncrement
      \setxpos1
      \1
\endasr
\xe

\ex
\asr[unit=3.6ex,yunit=1.3,ts=0 ($\times$),sy=1 ($\sigma$),xgap=1]
\1\X\2\X\X\2\X\X\1\X\2\X\X\1\X\1\X\2\X\X
|\dput[Bl](12.5,\ASRtsB){syllable terminal}
\dput[Bl](12.5,\ASRsyB){syllable}
\LevelsIncrement
\asrsetkeys{sysym=Ft,sy=* (F)}
   \setxpos0
   \varsyl{.75}{0,1.5}
   \varsyl{4.25}{3.5,5}
   \varsyl{7.25}{6.5,8}
   \varsyl{9.75}{9,10.5}
   \dput[Bl](12.5,\ASRsyB){foot}
\LevelsIncrement
   \asrsetkeys{sysym=Wd,tsht=!.3ex}
   \varsyl{2.5}{.75,4.25}
   \varsyl{8.5}{7.25,9.75}
   \dput[Bl](12,\ASRsyB){Prosodic word}
\LevelsIncrement
   \asrsetkeys{sysym=PhP}
   \varsyl{5.5}{2.5,8.5}
   \dput[Bl](12,\ASRsyB){Phonological phrase}
\endasr
\xe

%%%%%%
\def\skewx(#1,#2)#3{%
   \pssetxlength\dimpuba{#1}%
   \pssetylength\dimpubb{#2}%
   \advance\dimpuba by \slantratio\dimpubb
   \edef#3{\the\dimpuba}%
}
\def\skewline(#1,#2)#3(#4,#5){%
   \skewx(#1,#2)\tempa
   \skewx(#4,#5)\tempb
   \psline(\tempa,#2)(\tempb,#5)%
}
\def\skewdput#1(#2,#3){%
   \skewx(#2,#3)\tempa
   \dput#1(\tempa,#3)%
}

\ex
\newpsstyle{pageborder}{linestyle=dashed,linewidth=.3pt,
   dash=2pt 1.8pt}
\def\ts{\psframebox*[framesep=0pt]{$\times$}}%
\psset{unit=4ex,xgap=1,ts=-.5ex ($\times$),ph=-1.3 (e) .5pt,
   sy=1.5 (s),tssym=\ts,asrB=1.5}
\DefList{\vpagetop{2.5},\hpagebot{-1.7},\slantratio{.9}}
\asr |\psframe[style=pageborder](-1,0)(5,\vpagetop)|
\X\X\X\X\X
|\skewx(-1,\hpagebot)\tempa
\skewx(5,\hpagebot)\tempb
\psline[style=pageborder]
   (-1,0)(\tempa,\hpagebot)(\tempb,\hpagebot)(5,0)
\skewline(1.15,\ASRtsb)(2,\ASRpht)
\skewline(3,\ASRtsb)(2,\ASRpht)
\skewdput[B](2,\ASRphB){\bf a}
\skewdput(-1,\hpagebot){}
\@(0,sy){\bf k}\-(0,ts)
\@(2,sy){\bf t}\-(2,ts)
\@(4,sy){\bf b}\-(4,ts)
\dput(0,\vpagetop){}
\endasr
\xe

\ex
\DefList{\hioff{.4},\upoff{-.2}}
\def\\#1{$\scriptstyle\rm #1$}%
\asr[unit=2em,xgap=5em,ts=0 ($\bullet$) 1ex 0,tssym=$\bullet$,
   phB=-1,syB=\ASRtst]
\X\X\X
|\@[\upoff](0,ph){\\{+upper}}
   \-(0,ts)
   \-[style=dotted](1,ts)
\@[\upoff](1,ph)
   {\\{-upper}}
   \-[xed=true,xedratio=.55](1,ts)
\@[\upoff](2,ph){\\{+upper}}
   \-(2,ts)
\asrsetkeys{phB=!-1}
\setxpos0
\varph{\\{-hi}}{\hioff}
\varph{\\{+hi}}{\hioff}
\varph{\\{-hi}}{\hioff}
\@(0,sy){H}
\@(1,sy){L}
\@(2,sy){H}
\endasr
\xe

\end{document}                          % comment for Tex
% \bye                                  % uncomment for Tex