summaryrefslogtreecommitdiff
path: root/macros/latex209/contrib/barkom
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex209/contrib/barkom
Initial commit
Diffstat (limited to 'macros/latex209/contrib/barkom')
-rw-r--r--macros/latex209/contrib/barkom/bar.sty542
-rw-r--r--macros/latex209/contrib/barkom/barkom.dvibin0 -> 21644 bytes
-rw-r--r--macros/latex209/contrib/barkom/barkom.ps732
-rw-r--r--macros/latex209/contrib/barkom/barkom.tex288
4 files changed, 1562 insertions, 0 deletions
diff --git a/macros/latex209/contrib/barkom/bar.sty b/macros/latex209/contrib/barkom/bar.sty
new file mode 100644
index 0000000000..7c670bfe0b
--- /dev/null
+++ b/macros/latex209/contrib/barkom/bar.sty
@@ -0,0 +1,542 @@
+% BAR.STY --- Style File zum Setzen von Balkendiagrammen
+% Autor: J. Bleser, E. Lang
+% Hochschulrechenzentrum
+% Technische Hochschule Darmstadt
+% !!! Dieses Style-File ist urheberrechtlich geschuetzt !!!
+% !!! Aenderungen nur mit Zustimmung der Autoren !!!
+\typeout{Option BAR, Version 1.0 Sep. 92, J.Bleser, TH Darmstadt, HRZ}
+\newcount\breite \newcount\hoehe \newcount\tiefe
+\newcount\lhoehe \newcount\anzbar \newcount\hbarI
+\newcount\xpos \newcount\lxpos \newcount\halfbreite
+\newcount\ypos \newcount\lypos
+\newcount\tmpa \newcount\tmpb \newcount\tmpc
+\newcount\tmpd \newcount\tmpe
+\newcount\xmin \newcount\xmax \newcount\xstep
+\newcount\deltax \newcount\yhoehe %
+\newcount\ymin \newcount\ymax \newcount\ystep
+\newcount\yminII \newcount\ymaxII \newcount\deltay
+\newcount\ymove \newcount\xmove \newcount\inter
+\newcount\exact \newcount\xexact
+\newdimen\dtmpa \newdimen\dtmpb
+\newdimen\dmin \newdimen\dmax \newdimen\dstep
+\newdimen\dxmin \newdimen\dxmax \newdimen\dxstep
+\newdimen\faktor \newdimen\dinter
+\newbox\mybox \newbox\xbox \newbox\ybox
+\newif\if@xaxis \newif\if@yaxis
+\newif\if@hlineon
+\newif\iffaktor\faktorfalse
+
+
+\def\setnumberpos#1{\def\my@number{\expandafter\csname my@#1\endcsname}}
+\def\my@number{\my@outside}
+
+
+\def\m@nth{month}\def\d@y{day}
+\def\setxvaluetyp#1{\gdef\x@value{#1}%
+ \ifx\x@value\m@nth\let\myx@value\Monat@%
+ \else\ifx\x@value\d@y\let\myx@value\Tag@%
+ \else\let\myx@value\Zahl@n%
+ \fi%
+ \fi%
+}
+
+
+\def\solid{solid}\gdef\l@style{\relax}
+\def\setlinestyle#1{\gdef\l@style{#1}%
+ \ifx\l@style\solid\let\my@lstyle=\mylinebox%
+ \else\let\my@lstyle=\mydotbox%
+ \fi%
+}
+
+
+\def\setwidth#1{\global\breite=#1%
+ \ifdim\dinter>0pt\inter\dinter\multiply\inter\breite\divide\inter65536\fi%
+ \halfbreite\breite\divide\halfbreite2%
+}
+
+
+\def\setdepth#1{\ifnum#1<10\global\tiefe=0\else\global\tiefe=#1\fi}
+
+
+\def\setstretch#1{\global\faktor=#1pt\faktortrue}
+
+
+\def\setstyle#1{\def\my@style{#1}}
+\def\my@style{\tt}
+
+
+\def\setprecision#1{\global\exact=#1}
+\exact=0
+
+
+\def\sethspace#1{\dinter#1pt\dtmpa#1pt\multiply\dtmpa\breite%
+ \inter\dtmpa\divide\inter65536%
+}
+
+
+\def\setxname{\@ifnextchar [{\isetxname}{\isetxname[]}}
+\def\isetxname[#1]#2{\global\setbox\xbox=\hbox{\makebox(0,0)[#1]{#2}}}
+
+
+\def\setyname{\@ifnextchar [{\isetyname}{\isetyname[l]}}
+\def\isetyname[#1]#2{\global\setbox\ybox=\hbox{\makebox(0,0)[#1]{#2}}}
+
+
+\newcount\vorz %
+\def\setyaxis{\@ifnextchar [{\i@setyaxis}{\i@setyaxis[0]}}
+\def\i@setyaxis[#1]#2#3#4{%
+ \dmin#2\faktor\ymin\dmin\divide\ymin by65536%
+ \dmax#3\faktor\ymax\dmax\divide\ymax by65536%
+ \ifnum\ymin>\ymax\vorz-1\else\vorz1\fi%
+ \ifnum\ymin>0\ymin-\ymin\fi%
+ \ifnum\ymax<0\ymax-\ymax\fi%
+ \dstep#4\faktor\ystep\dstep\divide\ystep by65536%
+ \ifnum\ystep<0\ystep-\ystep\fi%
+ \@yaxistrue%
+ \setbox0=\hbox{\the\ymax}\setbox1=\hbox{\the\ymin}
+ \ifdim\wd0>\wd1\xmove=\wd0\else\xmove=\wd1\fi%
+ \divide\xmove by65536\advance\xmove by4%
+ \global\xmove=\the\xmove%
+ \deltay\ymax\advance\deltay-\ymin\tmpb\deltay%
+ \divide\deltay\ystep%
+ \advance\deltay by1%
+ \dmin=#2pt\dstep=#4pt%
+ \thicklines%
+ \multiput(0,\ymin)(0,\ystep){\deltay}{\line(-1,0){4}%
+ \put(-6,0){\makebox(0,0)[r]{{\my@style\dimIIreal\dmin}}%
+ \global\advance\dmin by\dstep}}%
+ \dtmpa=#1\faktor\ymove\dtmpa\divide\ymove by65536\ifnum\ymove<0\ymove=0\fi%
+ \tmpa\ymin\advance\tmpa by-\ymove\advance\tmpb by\ymove%
+ \global\yhoehe\tmpb %
+ \put(0,\tmpa){\line(0,1){\tmpb}}%
+ \thinlines%
+}
+
+
+\def\setxaxis#1#2#3{%
+ \dxmin#1pt\dxmax#2pt\dxstep#3pt\global\xexact\exact%
+ \@xaxistrue\let\mytmp@style=\my@style%
+}
+
+
+\def\hlineon{\global\@hlineontrue}
+
+
+\def\bar#1#2{\@ifnextchar [{\@bar{#1}{#2}}{\@bar{#1}{#2}[]}}
+\def\@bar#1#2[#3]{%
+ \dtmpa#1\faktor\hoehe\dtmpa\divide\hoehe by65536%
+ \multiply\hoehe\vorz%
+ \ypos0\def\@user{#1}%
+ \ifnum\hoehe<\yminII\yminII=\hoehe\fi\ifnum\hoehe>\ymaxII\ymaxII=\hoehe\fi%
+ \ifnum\anzbar=0\hbarI=\hoehe\fi%
+ \ifnum#2>-1%
+ \ifnum\hoehe<0\ypos=\hoehe\tmpa=-\hoehe\else\tmpa=\hoehe\fi%
+ \ifnum #2=1\put(\xpos,\ypos){\framebox(\breite,\tmpa){}}\fi%
+ \ifnum #2=2\put(\xpos,\ypos){\framebox(\breite,\tmpa){}}%
+ \tmpc=\breite\divide\tmpc by3\tmpb=\xpos\advance\tmpb by1%
+ \multiput(\tmpb,\ypos)(3,0){\tmpc}{\line(0,1){\tmpa}}%
+ \fi
+ \ifnum #2=3\put(\xpos,\ypos){\framebox(\breite,\tmpa){}}%
+ \tmpc=\tmpa\divide\tmpc by3\tmpb=\ypos\advance\tmpb by1%
+ \multiput(\xpos,\tmpb)(0,3){\tmpc}{\line(1,0){\breite}}%
+ \fi
+ \ifnum #2=4\put(\xpos,\ypos){\framebox(\breite,\tmpa){}}%
+ \tmpc=\breite\divide\tmpc by3\tmpb=\xpos\advance\tmpb by1%
+ \multiput(\tmpb,\ypos)(3,0){\tmpc}{\line(0,1){\tmpa}}%
+ \tmpc=\tmpa\divide\tmpc by3\tmpb=\ypos\advance\tmpb by1%
+ \multiput(\xpos,\tmpb)(0,3){\tmpc}{\line(1,0){\breite}}%
+ \fi
+ \ifnum #2=5\put(\xpos,\ypos){\framebox(\breite,\tmpa){}}%
+ \tmpc=\breite\divide\tmpc by4\tmpb=\xpos\advance\tmpb by1%
+ \multiput(\tmpb,\ypos)(4,0){\tmpc}{\rule{2pt}{\tmpa pt}}%
+ \tmpc=\tmpa\divide\tmpc by4\tmpb=\ypos\advance\tmpb by1%
+ \multiput(\xpos,\tmpb)(0,4){\tmpc}{\rule{\breite pt}{2pt}}%
+ \fi
+ \ifnum #2=6\put(\xpos,\ypos){\framebox(\breite,\tmpa){}}%
+ \tmpb=\breite\divide\tmpb by-2%
+ \ifnum\hoehe>0\advance\tmpb by\tmpa\fi%
+ \tmpc=\tmpa\divide\tmpc by4%
+ \multiput(\xpos,\ypos)(0,4){\tmpc}{%
+ \ifdim\@ydim<\tmpb pt\line(2,1){\breite}%
+ \else\tmpd=\@ydim\divide\tmpd by65536%
+ \ifnum\tmpd<0\else\advance\tmpd by-\tmpa\fi%
+ \multiply\tmpd by-2\line(2,1){\tmpd}%
+ \fi%
+ }%
+ \tmpb=\breite\divide\tmpb by8\tmpc=\breite\advance\tmpc by-8%
+ \tmpd=\tmpa\multiply\tmpd 2\advance\xpos by 8%
+ \multiput(\xpos,\ypos)(8,0){\tmpb}{%
+ \ifnum\tmpc<\tmpd\line(2,1){\tmpc}\else\line(2,1){\tmpd}\fi%
+ \global\advance\tmpc by-8%
+ }%
+ \advance\xpos by -8%
+ \fi%
+ \ifnum #2=7\put(\xpos,\ypos){\framebox(\breite,\tmpa){}}%
+ \tmpb=\breite\divide\tmpb by2%
+ \ifnum\hoehe>0\ypos=\hoehe\else\ypos=0\advance\tmpb by-\tmpa\fi%
+ \tmpc=\tmpa\divide\tmpc by4%
+ \multiput(\xpos,\ypos)(0,-4){\tmpc}{%
+ \ifdim\@ydim<\tmpb pt\tmpd=\@ydim\divide\tmpd by65536%
+ \ifnum\tmpd<0\advance\tmpd by\tmpa\fi%
+ \multiply\tmpd by2\line(2,-1){\tmpd}%
+ \else\line(2,-1){\breite}%
+ \fi%
+ }%
+ \tmpb=\breite\divide\tmpb by8\advance\tmpb by 1\tmpc=\breite%
+ \tmpd=\tmpa\multiply\tmpd 2%
+ \multiput(\xpos,\ypos)(8,0){\tmpb}{%
+ \ifnum\tmpc>\tmpd\line(2,-1){\tmpd}\else\line(2,-1){\tmpc}\fi%
+ \global\advance\tmpc by-8%
+ }%
+ \fi%
+ \ifnum #2=8\put(\xpos,\ypos){\rule{\breite pt}{\tmpa pt}}\fi
+ \my@number%
+ \fi%
+ \tmpc-\baselineskip\divide\tmpc 65536%
+ \divide\tmpc 2%
+ \put(\xpos,\ypos){\put(0,\tmpc){\makebox(\breite,0){#3}}}%
+ \ifnum\anzbar>0
+ \ifnum\tiefe>0
+ \ifnum\lhoehe<\hoehe
+ \ifnum\lhoehe>0\machDachI(\lxpos,\lhoehe)
+ \else\machDachI(\lxpos,0)
+ \fi
+ \else
+ \ifnum\lhoehe>0\machDachII(\lxpos,\lhoehe)
+ \else\machDachII(\lxpos,0)
+ \fi
+ \fi%
+ \fi%
+ \if@hlineon\machHLines\fi%
+ \fi%
+ \lxpos\xpos\advance\xpos\breite\advance\xpos\inter%
+ \advance\anzbar1\lhoehe\hoehe%
+}
+
+
+\newenvironment{barenv}%
+{\par%
+ \xpos0\breite40\halfbreite20\tiefe0\lhoehe0\anzbar0%
+ \yminII0\ymaxII0\inter0\dinter0pt\vorz1%
+ \exact0\ymove0\xmove0\unitlength1pt\@xaxisfalse\@yaxisfalse\@hlineonfalse%
+ \let\my@lstyle=\mydotbox\let\myx@value=\Zahl@n%
+ \faktor1pt%
+ \def\vline{\my@vline}%
+ \def\hspace{\my@hspace}%
+ \setbox\@tempboxa=\hbox\bgroup%
+ \begin{picture}(0,0)\thinlines%
+}%
+{%
+ \advance\xpos by-\inter%
+ \ifnum\tiefe>0
+ \put(\xpos,0){\line(1,1){\tiefe}}%
+ \put(\xpos,\hoehe){\line(1,1){\tiefe}\put(0,\tiefe){\line(0,1){-\hoehe}}}%
+ \fi%
+ \deltax=\lhoehe\bar{0}{-1}\lhoehe=\deltax%
+ \thicklines%
+ \if@yaxis\else\tmpa=\ymaxII\advance\tmpa by-\yminII\advance\tmpa by\tiefe%
+ \put(0,\yminII){\line(0,1){\tmpa}}%
+ \fi%
+ \if@xaxis%
+ \advance\ymin by-\ymove%
+ \tmpe=\exact\global\exact=\xexact%
+ \put(0,\ymin){\line(1,0){\lxpos}}%
+ \xstep=\dxstep\divide\xstep by65536%
+ \dtmpa=\dxmax\advance\dtmpa by-\dxmin%
+ \deltax=\dtmpa\divide\deltax by65536\divide\deltax by\xstep%
+ \advance\deltax by1%
+ \tmpa=\breite\divide\tmpa by2%
+ \tmpb=\breite\advance\tmpb by\inter%
+ \multiput(\tmpa,\ymin)(\tmpb,0){\deltax}{%
+ \line(0,-1){4}\myx@value\dxmin%
+ \global\advance\dxmin by\dxstep}%
+ \global\exact=\tmpe%
+ \fi%
+ \put(0,0){\line(1,0){\lxpos}}%
+ \if@xaxis\tmpa=-20\else\tmpa=-10\fi%
+ \ifvoid\xbox\else\put(\lxpos,\ymin){\put(0,\tmpa){\box\xbox}}\fi%
+ \tmpa=\ymax\advance\tmpa by6\advance\tmpa by\tiefe%
+ \ifvoid\ybox\else\put(\tiefe,\tmpa){\box\ybox}\fi%
+ \if@hlineon%
+ \ifnum\lhoehe<0%
+ \tmpb=-\ymin\advance\tmpb by\lhoehe%
+ \advance\tmpb by\ymove\divide\tmpb by\ystep%
+ \tmpa=\ymin\advance\tmpa by\tiefe\advance\tmpa by\ymove%
+ \multiput(\lxpos,\tmpa)(0,\ystep){\tmpb}{%
+ \ifdim\@ydim<\lhoehe pt%
+ \else\ypos=-\@ydim\divide\ypos by65536%
+ \advance\ypos by\lhoehe\advance\ypos by\tiefe%
+ \tmpe=\tiefe\advance\tmpe by-\ypos%
+ \ifnum\ypos>0\put(\tmpe,0){\thinlines\my@lstyle\ypos}\fi%
+ \fi%
+ }%
+ \fi%
+ \put(0,\ymin){\line(1,0){\lxpos}}%
+ \tmpa=\ymax\advance\tmpa by-\ymin%
+ \ifnum\tiefe>0
+ \put(0,\ymax){\line(1,1){\tiefe}\put(0,\tiefe){\line(1,0){\lxpos}%
+ \line(0,-1){\tmpa}\put(0,-\tmpa){\line(-1,-1){\tiefe}}}}%
+ \else\put(0,\ymax){\line(1,0){\lxpos}\line(0,-1){\tmpa}}%
+ \fi%
+ \thinlines%
+ \ifnum\hbarI<0\tmpa=-\ymin\advance\tmpa by\hbarI\advance\tmpa by-\tiefe%
+ \put(\tiefe,\tiefe){\line(0,1){\ymax}}%
+ \put(\tiefe,\hbarI){\line(0,-1){\tmpa}}%
+ \else\tmpa=\ymax\advance\tmpa by-\hbarI\advance\ymax by\tiefe%
+ \put(\tiefe,\ymax){\line(0,-1){\tmpa}}%
+ \ifnum\ymin<0\tmpa=\ymin%
+ \advance\tmpa by\tiefe\put(\tiefe,\tmpa){\line(0,1){-\tmpa}}%
+ \fi%
+ \fi%
+ \ifnum\hbarI<0\tmpa=\hbarI\tmpb=0\else\tmpa=0\tmpb=\hbarI\fi%
+ \tmpc=-\ymin\advance\tmpc \tmpa%
+ \ifnum\tmpc>\tiefe\tmpc=\tiefe\fi
+ \ifnum\ymove>0\put(0,\ymin){\line(1,1){\tmpc}}\fi%
+ \advance\ymin by\ymove%
+ \multiput(0,\ymin)(0,\ystep){\deltay}{%
+ \ifdim\@ydim<\tmpa pt%
+ \tmpc=-\@ydim\divide\tmpc by65536\advance\tmpc by\tmpa%
+ \ifnum\tmpc>\tiefe\tmpc=\tiefe\fi%
+ \ifx\l@style\solid\line(1,1){\tmpc}%
+ \else\divide\tmpc by 3\multiput(0,0)(3,3){\tmpc}{.}%
+ \fi%
+ \else\ifdim\@ydim>\tmpb pt%
+ \ifx\l@style\solid\line(1,1){\tiefe}%
+ \else\tmpe=\tiefe\divide\tmpe by3\multiput(0,0)(3,3){\tmpe}{.}%
+ \fi%
+ \fi%
+ \fi%
+ }%
+ \fi%
+ \thinlines%
+ \ifnum\ymaxII<\ymax\global\ymaxII=\ymax\else\global\ymaxII=\ymaxII\fi%
+ \ifnum\yminII>\ymin\global\yminII=\ymin\else\global\yminII=\yminII\fi%
+ \global\advance\yminII by-\ymove%
+ \global\xpos=\the\xpos\global\advance\xpos by20%
+ \end{picture}
+ \egroup%
+ \global\advance\ymaxII by\tiefe\advance\ymaxII by-\yminII%
+ \advance\xpos by-\breite%
+ \begin{picture}(\the\xpos,\the\ymaxII)
+ \put(\xmove,-\yminII){\box\@tempboxa}
+ \end{picture}
+ \faktorfalse
+}
+
+
+\def\legend#1#2{%
+ \begin{picture}(20,10)
+ \put(0,0){\framebox(20,10){}}
+ \ifnum #1=2\multiput(1,0)(3,0){7}{\line(0,1){10}}\fi%
+ \ifnum #1=3\multiput(0,1)(0,3){3}{\line(1,0){20}}\fi%
+ \ifnum #1=4\multiput(1,0)(3,0){7}{\line(0,1){10}}%
+ \multiput(0,1)(0,3){3}{\line(1,0){20}}%
+ \fi%
+ \ifnum #1=5\multiput(1,0)(4,0){5}{\rule{2pt}{10pt}}%
+ \multiput(0,2)(0,4){2}{\rule{20pt}{2pt}}%
+ \fi%
+ \ifnum #1=6%
+ \put(0,0){\line(2,1){20}}\put(0,4){\line(2,1){13}}\put(8,0){\line(2,1){12}}%
+ \fi%
+ \ifnum #1=7%
+ \put(0,10){\line(2,-1){20}}\put(0,6){\line(2,-1){12}}%
+ \put(8,10){\line(2,-1){12}}%
+ \fi%
+ \ifnum #1=8\put(0,0){\rule{20\unitlength}{10\unitlength}}\fi%
+ \end{picture}%
+ \quad#2%
+}
+
+
+
+\def\my@vline{%
+ \tmpa\ymin\advance\tmpa-\ymove%
+ \put(\xpos,\tmpa){\line(0,1){\yhoehe}}
+}
+
+
+\def\my@hspace#1{%
+ \dtmpa#1pt\multiply\dtmpa\breite%
+ \tmpa\dtmpa\divide\tmpa65536%
+ \global\advance\xpos\tmpa
+}
+
+
+
+\def\mydotbox#1{\tmpe=#1\advance\tmpe by2\lower0.8pt\hbox to\tmpe pt{\dotfill}}
+
+
+\def\mylinebox#1{\line(1,0){#1}}
+
+
+% Parameter: umzuwandelnde Dimension.
+\def\dimIIreal#1{%
+ \dtmpa=#1\tmpa=\dtmpa\divide\tmpa by65536\advance\dtmpa by-\tmpa pt%
+ \the\tmpa\ifnum\exact>0,\fi%
+ \tmpb=\exact%
+ \@whilenum\tmpb>0\do{%
+ \advance\dtmpa by0.05pt\dtmpa=10\dtmpa\advance\dtmpa by-0.5pt%
+ \tmpa=\dtmpa\divide\tmpa by65536\advance\dtmpa by-\tmpa pt%
+ \the\tmpa\advance\tmpb by-1}%
+}
+
+
+\def\machDachI(#1,#2){%
+ \tmpa=\hoehe\advance\tmpa by-#2\tmpd=\tmpa\ifnum\tmpd<0\tmpd=-\tmpd\fi%
+ \ifnum\hoehe<0\machDachII(#1,#2)%
+ \else
+ \tmpb=\breite\advance\tmpb by-\tiefe%
+ \advance\tmpb by\inter%
+ \ifnum\tmpa<\tiefe\advance\tmpa by-\tiefe\advance\tmpb by-\tmpa\fi%
+ \ifnum\tmpb>\breite\tmpb=\breite\fi%
+ \ifnum\breite<\tiefe\put(#1,#2){\line(1,1){\breite}}%
+ \else\put(#1,#2){\line(1,1){\tiefe}\put(0,\tiefe){\line(1,0){\tmpb}}}%
+ \fi%
+ \fi%
+ \tmpa=#1\advance\tmpa by\breite%
+ \ifnum\inter>0%
+ \ifnum\tmpd<\inter\tmpb=\tiefe\else\tmpb=\inter\fi%
+ \put(\tmpa,\lhoehe){\line(1,1){\tmpb}}%
+ \fi%
+ \ifnum\lhoehe<0\put(\tmpa,\lhoehe){%
+ \ifnum\hoehe<0\tmpb=-\lhoehe\advance\tmpb by\hoehe%
+ \ifnum\tmpb>\tiefe\tmpa=\tiefe\else\tmpa=\tmpb\tmpb=0\fi%
+ \line(1,1){\tmpa}\put(0,\tmpa){\advance\tmpb by-\tiefe\line(0,1){\tmpb}}%
+ \else\tmpa=-\lhoehe\advance\tmpa by-\tiefe%
+ \ifnum-\lhoehe<\tiefe\tmpb=-\lhoehe\else\tmpb=\tiefe\fi%
+ \line(1,1){\tmpb}\put(0,\tmpb){\line(0,1){\tmpa}}%
+ \fi%
+ }%
+ \fi
+}
+
+
+\def\machDachII(#1,#2){%
+ \tmpa=#1\advance\tmpa by\breite\tmpb=0%
+ \ifnum\hoehe>0\ifnum\lhoehe<0\tmpb=\lhoehe\fi
+ \put(\tmpa,\tmpb){\line(1,1){\inter}}
+ \else\put(\tmpa,0){\line(1,1){\tiefe}}
+ \fi
+ \ifnum\hoehe<0\tmpa=\lhoehe\else\tmpa=\lhoehe\advance\tmpa by-\hoehe\fi
+ \ifnum\tmpa<0\tmpa=\inter\else\advance\tmpa by\inter\fi%
+ \put(#1,#2){\line(1,1){\tiefe}\put(0,\tiefe){\line(1,0){\breite}%
+ \line(0,-1){\tmpa}\line(-1,-1){\tiefe}}}%
+}
+
+
+\def\machHLinesI{%
+ \tmpc=\breite\advance\tmpc by2%
+ \setbox\mybox=\hbox to\tmpc pt{\dotfill}
+ \multiput(\lxpos,\ymin)(0,\ystep){\deltay}{%
+ \ifdim\@ydim<\tmpa pt\lower0.8pt\copy\mybox\fi%
+ \ifdim\@ydim>\tmpb pt\lower0.8pt\copy\mybox\fi%
+ }
+}
+
+
+\def\machHLinesII{%
+ \multiput(\lxpos,\lypos)(0,\ystep){\deltay}{%
+ \ifdim\@ydim<\tmpa pt%
+ \ifdim\@ydim>\tmpc pt\ypos=\breite\advance\ypos by-\tiefe%
+ \else\ypos=\breite%
+ \fi%
+ \my@lstyle\ypos
+ \else%
+ \ifdim\@ydim>\tmpc pt%
+ \else%
+ \ypos=-\@ydim\divide\ypos by65536%
+ \advance\ypos by\lhoehe\advance\ypos by\tiefe%
+ \tmpe=\breite\advance\tmpe by-\ypos%
+ \ifnum\ypos>0\ifnum\tmpe>0\put(\tmpe,0){\my@lstyle\ypos}\fi\fi%
+ \fi%
+ \fi%
+ \ifdim\@ydim>\tmpb pt%
+ \ypos=\breite\advance\ypos by-\tiefe%
+ \ifdim\@ydim>\tmpd pt\ypos=\breite%
+ \else\ifdim\@ydim<\hoehe pt%
+ \else\tmpe=\@ydim\divide\tmpe by65536\advance\tmpe by-\hoehe%
+ \advance\ypos by\tmpe%
+ \fi%
+ \fi%
+ \my@lstyle\ypos
+ \fi%
+ }%
+\ifnum\ymove>0%
+ \tmpb=\ymin\advance\tmpb by-\ymove\advance\tmpb by\tiefe%
+ \ifnum\lhoehe>\tmpb\ypos=\breite%
+ \ifnum\hoehe<\tmpb\advance\ypos by-\tiefe\fi%
+ \put(\lxpos,\tmpb){\line(1,0){\ypos}}
+ \fi%
+\fi%
+}
+
+
+\def\machHLines{%
+ \tmpe=\baselineskip\divide\tmpe by65536\advance\tmpe by3%
+ \ifnum\lhoehe<0\tmpa=\lhoehe\tmpb=0\else\tmpa=0\tmpb=\lhoehe\fi%
+ \ifnum\hoehe<0\tmpc=\hoehe\tmpd=0\else\tmpc=0\tmpd=\hoehe\fi%
+ \advance\tmpb by\tiefe\advance\tmpd by\tiefe%
+ \advance\lxpos by\tiefe%
+ \lypos=\ymin\advance\lypos by\tiefe%
+ \machHLinesII%
+}
+
+
+\def\@user{}
+\def\my@empty{}
+\def\my@inside{%
+ \ifnum\hoehe<0\put(\xpos,\hoehe){\makebox(\breite,\tmpa){{\my@style\@user}}}%
+ \else\put(\xpos,0){\makebox(\breite,\tmpa){{\my@style\@user}}}%
+ \fi%
+}
+\def\my@outside{%
+ \tmpa=\hoehe%
+ \ifnum\hoehe<0\advance\tmpa by-6\else\advance\tmpa by\tiefe\advance\tmpa by6%
+ \fi%
+ \tmpb=\breite\divide\tmpb by2\advance\tmpb by\xpos%
+ \ifnum\hoehe>0\advance\tmpb by\tiefe\fi%
+ \put(\tmpb,\tmpa){\makebox(0,0){{\my@style\@user}}}%
+}
+\def\my@up{%
+ \ifnum\hoehe>0\tmpa=\hoehe\advance\tmpa by\tiefe\advance\tmpa by8%
+ \else\tmpa=\tiefe\advance\tmpa by8%
+ \fi%
+ \tmpb=\breite\divide\tmpb by2\advance\tmpb by\xpos\advance\tmpb by\tiefe%
+ \put(\tmpb,\tmpa){\makebox(0,0){{\my@style\@user}}}%
+}
+\def\my@down{%
+ \ifnum\hoehe>0\tmpa=-6\else\tmpa=\hoehe\advance\tmpa by-6\fi%
+ \tmpb=\breite\divide\tmpb by2\advance\tmpb by\xpos%
+ \put(\tmpb,\tmpa){\makebox(0,0){{\my@style\@user}}}%
+}
+\def\my@axis{%
+ \ifnum\hoehe>0\tmpa=-6\else\tmpa=6\fi%
+ \tmpb=\breite\divide\tmpb by2\advance\tmpb by\xpos%
+ \put(\tmpb,\tmpa){\makebox(0,0){{\my@style\@user}}}%
+}
+
+
+\def\Monat@#1{%
+ \tmpd=#1\divide\tmpd by65536\tmpd=\the\tmpd%
+ \tmpc=\tmpd\divide\tmpc by12\multiply\tmpc by12\advance\tmpd -\tmpc%
+ \put(0,-10){\makebox(0,0){{\mytmp@style%
+ \ifcase\tmpd Dez\or Jan\or Feb\or M\"ar\or Apr\or Mai\or Jun\or Jul%
+ \or Aug\or Sep\or Okt\or Nov%
+ \fi%
+ }}}%
+}
+
+
+\def\Tag@#1{%
+ \tmpd=#1\divide\tmpd by65536\tmpd=\the\tmpd%
+ \tmpc=\tmpd\divide\tmpc by7\multiply\tmpc by7\advance\tmpd -\tmpc%
+ \put(0,-10){\makebox(0,0){{\mytmp@style%
+ \ifcase\tmpd Son\or Mon\or Die\or Mit\or Don\or Fre\or Sam\fi%
+ }}}%
+}
+
+
+\def\Zahl@n#1{%
+ \dtmpa=#1%
+ \put(0,-10){\makebox(0,0){{\mytmp@style\dimIIreal\dxmin}}}%
+}
diff --git a/macros/latex209/contrib/barkom/barkom.dvi b/macros/latex209/contrib/barkom/barkom.dvi
new file mode 100644
index 0000000000..bc52ae5faa
--- /dev/null
+++ b/macros/latex209/contrib/barkom/barkom.dvi
Binary files differ
diff --git a/macros/latex209/contrib/barkom/barkom.ps b/macros/latex209/contrib/barkom/barkom.ps
new file mode 100644
index 0000000000..59b6c95784
--- /dev/null
+++ b/macros/latex209/contrib/barkom/barkom.ps
@@ -0,0 +1,732 @@
+%!PS-Adobe-2.0
+%%Creator: dvips, version 5.4 (C) 1986-90 Radical Eye Software
+%%Title: barkom.dvi
+%%Pages: 4 1
+%%BoundingBox: 0 0 596 843
+%%EndComments
+%%BeginProcSet: texc.pro
+/TeXDict 200 dict def TeXDict begin /N /def load def /B{bind def}N /S /exch
+load def /X{S N}B /TR /translate load N /isls false N /vsize 10 N /@rigin{
+isls{[0 1 -1 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale
+Resolution VResolution vsize neg mul TR}B /@letter{/vsize 10 N}B /@landscape{
+/isls true N /vsize -1 N}B /@a4{/vsize 10.6929133858 N}B /@a3{/vsize 15.5531 N
+}B /@ledger{/vsize 16 N}B /@legal{/vsize 13 N}B /@manualfeed{statusdict
+/manualfeed true put}B /@copies{/#copies X}B /FMat[1 0 0 -1 0 0]N /FBB[0 0 0 0
+]N /df{/sf 1 N /fntrx FMat N df-tail}B /dfs{div /sf X /fntrx[sf 0 0 sf neg 0 0
+]N df-tail}B /df-tail{/nn 8 dict N nn begin /FontType 3 N /FontMatrix fntrx N
+/FontBBox FBB N string /base X array /BitMaps X /BuildChar{CharBuilder}N
+/Encoding IE N end dup{/foo setfont}2 array copy cvx N load 0 nn put /ctr 0 N[
+}B /E{pop nn dup definefont setfont}B /ch-image{ch-data dup type /stringtype
+ne{ctr get /ctr ctr 1 add N}if}B /ch-width{ch-data dup length 5 sub get}B
+/ch-height{ch-data dup length 4 sub get}B /ch-xoff{128 ch-data dup length 3
+sub get sub}B /ch-yoff{ch-data dup length 2 sub get 127 sub}B /ch-dx{ch-data
+dup length 1 sub get}B /ctr 0 N /CharBuilder{save 3 1 roll S dup /base get 2
+index get S /BitMaps get S get /ch-data X pop /ctr 0 N ch-dx 0 ch-xoff ch-yoff
+ch-height sub ch-xoff ch-width add ch-yoff setcachedevice ch-width ch-height
+true[1 0 0 -1 -.1 ch-xoff sub ch-yoff .1 add]/id ch-image N /rw ch-width 7 add
+8 idiv string N /rc 0 N /gp 0 N /cp 0 N{rc 0 ne{rc 1 sub /rc X rw}{G}ifelse}
+imagemask restore}B /G{{id gp get /gp gp 1 add N dup 18 mod S 18 idiv pl S get
+exec}loop}B /adv{cp add /cp X}B /chg{rw cp id gp 4 index getinterval
+putinterval dup gp add /gp X adv}B /nd{/cp 0 N rw exit}B /lsh{rw cp 2 copy get
+dup 0 eq{pop 1}{dup 255 eq{pop 254}{dup dup add 255 and S 1 and or}ifelse}
+ifelse put 1 adv}B /rsh{rw cp 2 copy get dup 0 eq{pop 128}{dup 255 eq{pop 127}
+{dup 2 idiv S 128 and or}ifelse}ifelse put 1 adv}B /clr{rw cp 2 index string
+putinterval adv}B /set{rw cp fillstr 0 4 index getinterval putinterval adv}B
+/fillstr 18 string 0 1 17{2 copy 255 put pop}for N /pl[{adv 1 chg}bind{adv 1
+chg nd}bind{1 add chg}bind{1 add chg nd}bind{adv lsh}bind{adv lsh nd}bind{adv
+rsh}bind{adv rsh nd}bind{1 add adv}bind{/rc X nd}bind{1 add set}bind{1 add clr
+}bind{adv 2 chg}bind{adv 2 chg nd}bind{pop nd}bind]N /D{/cc X dup type
+/stringtype ne{]}if nn /base get cc ctr put nn /BitMaps get S ctr S sf 1 ne{
+dup dup length 1 sub dup 2 index S get sf div put}if put /ctr ctr 1 add N}B /I
+{cc 1 add D}B /bop{userdict /bop-hook known{bop-hook}if /SI save N @rigin 0 0
+moveto}B /eop{clear SI restore showpage userdict /eop-hook known{eop-hook}if}
+B /@start{userdict /start-hook known{start-hook}if /VResolution X /Resolution
+X 1000 div /DVImag X /IE 256 array N 0 1 255{IE S 1 string dup 0 3 index put
+cvn put}for}B /p /show load N /RMat[1 0 0 -1 0 0]N /BDot 8 string N /v{/ruley
+X /rulex X V}B /V{gsave TR -.1 -.1 TR rulex ruley scale 1 1 false RMat{BDot}
+imagemask grestore}B /a{moveto}B /delta 0 N /tail{dup /delta X 0 rmoveto}B /M{
+S p delta add tail}B /b{S p tail}B /c{-4 M}B /d{-3 M}B /e{-2 M}B /f{-1 M}B /g{
+0 M}B /h{1 M}B /i{2 M}B /j{3 M}B /k{4 M}B /l{p -4 w}B /m{p -3 w}B /n{p -2 w}B
+/o{p -1 w}B /q{p 1 w}B /r{p 2 w}B /s{p 3 w}B /t{p 4 w}B /w{0 rmoveto}B /x{0 S
+rmoveto}B /y{3 2 roll p a}B /bos{/SS save N}B /eos{clear SS restore}B end
+%%EndProcSet
+TeXDict begin 1000 300 300 @start /Fa 1 1 df<1718173C177C17F8EE01F0EE03E0EE07
+C0EE0F80EE1F00163E5E5E4B5A4B5A4B5A4B5A4BC7FC153E5D5D4A5A4A5A4A5A4A5A4AC8FC143E
+5C5C495A495A495A495A49C9FC133E5B5B485A485A485A485A48CAFC123E5A5A5A12602E2E82AB
+2A>0 D E /Fb 3 63 df<126012F0A2126004047C830C>58 D<EC0380EC0F00143C14F0EB03C0
+010FC7FC133C13F0EA03C0000FC8FC123C12F0A2123C120FEA03C0EA00F0133C130FEB03C0EB00
+F0143C140FEC038019187D9520>60 D<12E01278121EEA0780EA01E0EA0078131EEB0780EB01E0
+EB0078141EEC0780A2EC1E001478EB01E0EB0780011EC7FC1378EA01E0EA0780001EC8FC127812
+E019187D9520>62 D E /Fc 19 121 df<EAFFE0A40B047F8A10>45 D<EB01801303A2EB0700A3
+130EA25BA35BA35BA25BA3485AA3485AA348C7FCA2120EA35AA35AA25AA35AA25A11297D9E18>
+47 D<EB0380A2497EA3497EA2497E131BA2EB31F8A2EB61FC1360EBE0FEEBC07EA248487E90B5
+FC481480EB001FA20006EB0FC0A2000E14E0000C130739FFC07FFEA21F1C7E9B24>65
+D<90380FF00890387FFE383901FC07F83807E001390F80007848C7FC481438123E007E1418127C
+00FC1400A6EC7FFFA2007CEB01F8127E123E123F7EEA0F80EA07E03801FC0739007FFE7890380F
+F818201C7D9B26>71 D<D8FFC0EB03FF6D5B000F15F0D80DF0130DA3D80CF81319A2017C1331A2
+6D1361A26D13C1A390380F8181A2903807C301A2EB03E6A2EB01FCA3EB00F8A23AFFC0701FFFA2
+281C7E9B2D>77 D<007FB512E0A238781F81007013800060146000E0147000C01430A400001400
+B03807FFFEA21C1C7E9B21>84 D<EA0FF8EA1C1E383E0F80130714C0121C1200137FEA07E7EA1F
+07123C127C12F8A3EA780B383E13F8EA0FE115127F9117>97 D<EB0FF0A21301A9EA01F9EA0F07
+EA1C03EA3C011278A212F8A61278A2123CEA1C03380F0FFEEA03F9171D7E9C1B>100
+D<EA01FCEA0F07381C0380383C01C0127814E012F8A2B5FC00F8C7FCA31278007C1360123C6C13
+C0380F03803801FC0013127F9116>I<121E123FA4121EC7FCA6B4FCA2121FAEEAFFE0A20B1E7F
+9D0E>105 D<B4FCA2121FA9EB0FF8A2EB0380EB0700130C5B137013F87F13BC133E7F7F1480EB
+07C0EB03E038FFC7FCA2161D7F9C19>107 D<39FF0FC07E903831E18F3A1F40F20780D980FC13
+C0A2EB00F8AB3AFFE7FF3FF8A225127F9128>109 D<38FF0FC0EB31E0381F40F0EB80F8A21300
+AB38FFE7FFA218127F911B>I<EA01FC380F0780381C01C0003C13E0387800F0A200F813F8A600
+7813F0A2383C01E0381E03C0380F07803801FC0015127F9118>I<38FF3F80EBE1E0381F80F0EB
+0078147C143C143EA6143C147C1478EB80F0EBC1E0EB3F0090C7FCA6EAFFE0A2171A7F911B>I<
+EAFE3E1347381E8F80A3381F070090C7FCAAEAFFF0A211127F9114>114
+D<1203A45AA25AA2EA3FFC12FFEA1F00A9130CA4EA0F08EA0798EA03F00E1A7F9913>116
+D<38FF07F8A2EA1F00AC1301120F380786FFEA01F818127F911B>I<38FFC7FCA2381F8180EA0F
+833807C700EA03EEEA01FC5B1200137C13FEEA01DFEA039F38070F80380607C0380C03E038FF07
+FCA216127F9119>120 D E /Fd 3 121 df<EA3F80EA70C013E0EA20701200A2EA07F0EA1C7012
+30127012E01371A213F1EA71FBEA1E3C10107E8F13>97 D<38FC7C1F391D8E6380391E0781C0A2
+001C1301AB39FF9FE7F81D107F8F20>109 D<38FF3F80383C1C00EA1C18EA0E106C5A13606C5A
+12017F1203EA0270487E1208EA181CEA381E38FC3FC012107F8F14>120
+D E /Fe 3 73 df<1730177017E0EE01C0EE0380EE0700160E5E5E5E5E4B5A4B5A4BC7FC150E5D
+5D5D5D4A5A4A5A4AC8FC140E5C5C5C5C495A495A49C9FC130E5B5B5B5B485A485A48CAFC120E5A
+5A5A5A5A2C2C81AA2A>0 D<173017F0EE03C0EE0F00163C16F0ED03C0030FC7FC153C15F0EC03
+C0020FC8FC143C14F0EB03C0010FC9FC133C13F0EA03C0000FCAFC123C12F012C02C1781952A>
+8 D<12C012F0123C120FEA03C0EA00F0133C130FEB03C0EB00F0143C140FEC03C0EC00F0153C15
+0FED03C0ED00F0163C160FEE03C0EE00F017302C1781952A>72 D E /Ff
+3 111 df<133C13E0EA01C013801203AD13005A121C12F0121C12077E1380AD120113C0EA00E0
+133C0E297D9E15>102 D<12F0121C12077E1380AD120113C0EA00E0133C13E0EA01C013801203
+AD13005A121C12F00E297D9E15>I<12C0A27E1260A21270123012381218A2121C120CA2120E12
+06A212077EA21380120113C01200A213E01360A213701330A213381318A2131C130C130E1306A2
+13071303A210297E9E15>110 D E /Fg 25 128 df<3801FFFE39003C078090383803C01401A3
+13701403A2EC078001E01300140E143CEBFFF83801C01C80140FA2EA0380A43807001E141C143C
+5C380E01E0B512801A1C7D9B1D>66 D<3801FFFE39003C078090383801C0A2EC00E0A24913F015
+70A215F05BA43901C001E0A315C0380380031580140715003807000E5C5C5C380E01C0B5C7FC1C
+1C7D9B1F>68 D<48B512C038003C01EB38001580A35BA214201500495AA214C013FF3801C080A4
+D80381C7FC1380A348C8FCA45AEAFFF01A1C7D9B1B>70 D<3901FFCFFE39003C01E0013813C0A4
+9038700380A49038E00700A390B5FC3801C00EA448485AA448485AA448137838FFE7FF1F1C7D9B
+1F>72 D<3801FFE038003C001338A45BA45BA4485AA438038008A31410EA07001430146014E038
+0E03C0B5FC151C7D9B1A>76 D<3AFF83FF0FF03A3C007001C00038158002F013001502EB01705D
+13025DEA1C045D13085D13105D13205DEB407192C7FCEB8072121DEB0074121E1478121C147012
+1814601210241D779B29>87 D<EA03CCEA063C120CEA181CEA383812301270A2EAE070A413E212
+C0A2EA61E4EA6264EA3C380F127B9115>97 D<123F1207A2120EA45AA4EA39C0EA3E60EA3830A2
+EA7038A4EAE070A3136013E0EAC0C012C1EA6180EA6300123C0D1D7B9C13>I<EA01F0EA070812
+0CEA181CEA3838EA30001270A25AA513081310EA6020EA30C0EA1F000E127B9113>I<EB1F8013
+03A2EB0700A4130EA4EA03DCEA063C120CEA181CEA383812301270A2485AA413E212C0A2EA61E4
+EA6264EA3C38111D7B9C15>I<EA01E0EA0710120CEA1808EA381012701360EA7F80EAE000A513
+08EA60101320EA30C0EA1F000D127B9113>I<13F3EA018FEA030FEA0607EA0E0E120C121CA2EA
+381CA413381230A2EA187813F0EA0F701200A213E0A2EAC0C012E1EAC300127E101A7D9113>
+103 D<EA0FC01201A2485AA448C7FCA4EA0E78138CEA0F0E120E121CA4485AA35B00701380A213
+70EB7100EAE032EA601C111D7D9C15>I<EA01801203EA0100C7FCA7121C12261247A2128EA212
+0E5AA35AA21271A31272A2123C091C7C9B0D>I<EA0FC01201A2485AA448C7FCA4EA0E0F1311EB
+23801343381C83001380001DC7FC121EEA3F80EA39C0EA38E0A2EA70E2A313E4EAE064EA603811
+1D7D9C13>107 D<EA1F801203A2EA0700A4120EA45AA45AA45AA412E4A412681238091D7C9C0B>
+I<393C1E078039266318C0394683A0E0384703C0008E1380A2120EA2391C0701C0A3EC0380D838
+0E1388A2EC0708151039701C032039300C01C01D127C9122>I<EA3C3CEA2646EA4687EA470712
+8EA2120EA2EA1C0EA35B00381340A21338148038701900EA300E12127C9117>I<EA01E0EA0718
+EA0C0C12181238EA300E1270A2EAE01CA31318133813301360EA60C0EA3180EA1E000F127B9115
+>I<EA3C3CEA26C2EA4687EA4707EA8E061300120EA25AA45AA45A123010127C9112>114
+D<EA01F0EA0608120C131CEA1818EA1C00121F13C0EA0FF01207EA00781338EA603012E012C0EA
+8060EA60C0EA1F000E127D9111>I<13C01201A3EA0380A4EAFFE0EA0700A3120EA45AA4EA3840
+A31380EA1900120E0B1A7D990E>I<EA1E03EA27071247A2EA870EA2120EA2485AA438383880A2
+1218EB3900EA1C59EA078E11127C9116>I<EA070EEA19913810E38012203841C30013C01201A2
+485AA4EA07021267EAE70412CBEA8B08EA70F011127D9113>120 D<EA6180EAF3C012E3EAC180
+0A04749C15>127 D E /Fh 32 128 df<EAFFF0A20C027F8910>45 D<126012F0A2126004047B
+830D>I<EA01801203121F12E31203B3A4EA07C0EA7FFC0E1C7C9B17>49
+D<EA07E0EA1838EA200CEA400E7F00F0138012F81303A21270EA00071400A2130E130C131C5B5B
+13C0485A48C7FC000213805A5A38100100EA3FFF5AB5FC111C7D9B17>I<EA07E0EA0838EA300C
+EA200EEA780F7F5B1238EA000EA25B13181370EA07E0EA0038130C130E7F1480A2127012F8A300
+F01300EA400EEA200CEA1838EA07E0111D7D9B17>I<EA1806EA1FFC5B13E00010C7FCA6EA11E0
+EA1618EA180CEA100E7F12001480A3126012F0A214001280EA400F130E6C5AEA1838EA07E0111D
+7D9B17>53 D<13F8EA0386EA0602EA0C07485A1238EA30060070C7FCA21260EAE3E0EAE418EAE8
+0CEAF00613077F00E01380A41260A212701400EA3007EA18065B6C5AEA03E0111D7D9B17>I<B6
+FC380F000F140380A215801400A214801500A3130113FF13011300A3154014001580A31401A2EC
+0300140FB6FC1A1C7D9B1F>69 D<B512FE380F001E14061402A214031401A214811480A3130113
+FF13011300A41400A77FEAFFF8181C7D9B1E>I<90381FC04090387030C03801C00C3803000300
+0E1301120C001C13005A15401278127000F01400A6EC7FF8EC07C00070130312781238A27E120C
+120E000313053801C008390070304090381FC0001D1E7D9C23>I<39FFF0FFF0390F000F00AC90
+B5FCEB000FAD39FFF0FFF01C1C7D9B22>I<380FFF8038007C00133CB3127012F8A21338EA7078
+EA4070EA30E0EA0F80111D7D9B18>74 D<B46CEB3FE0000FEC3E00A2D80BC0135EA2D809E0139E
+A33908F0011EA2EB7802A3EB3C04A2EB1E08A3EB0F10A2EB07A0A3EB03C0A2EB0180121C3AFF81
+81FFE0231C7D9B29>77 D<B4EB1FF0390F8003809038C00100120BEA09E0EA08F0A21378133C13
+3E131E130F14811307EB03C1EB01E114F113001479147D143D141FA2808080121CB46C7E1C1C7D
+9B22>I<3803E080EA0C19EA1005EA3003EA600112E01300A36C13007E127EEA7FE0EA3FFC6CB4
+FC00071380EA007FEB07C0EB03E0130113007EA36C13C0A238E0018038D00300EACE06EA81F813
+1E7D9C19>83 D<13201370A313B8A3EA011CA3EA020EA2487EA2EA07FF38080380A3381801C0EA
+380338FE0FF815157F9419>97 D<EBFC2038078260380E01E0EA1C0048136000781320127012F0
+1400A5142012701278003813407E6C138038078300EA00FC13157E9419>99
+D<EAFFFCEA1C07EB01C0EB00E0A21470A21478A71470A214E0A2EB01C0EB0700EAFFFC15157F94
+1A>I<B51280EA1C031300A21440A213101400A21330EA1FF0EA1C3013101420A2130014601440
+14C01301B5FC13157F9417>I<38FF8FF8381C01C0A9EA1FFFEA1C01A938FF8FF815157F9419>
+104 D<EAFF80EA1C00B3EAFF8009157F940D>I<EAFFC0001CC7FCAC1480A3130114005B5BB5FC
+11157F9415>108 D<00FEEB0FE0001E140000171317A338138027A23811C047A33810E087A2EB
+7107A3133AA2131CA2123839FE083FE01B157F941F>I<38FC03F8381E00E014401217EA138013
+C01211EA10E01370A21338131CA2130E130714C0130313011300123800FE134015157F9419>I<
+EA01F8EA070EEA0C03001C1380383801C0007813E0EA700000F013F0A7007013E0EA7801003813
+C0381C0380EA1E0738070E00EA01F814157E941A>I<EAFFFCEA1C0FEB038014C0A51480EB0F00
+EA1FFC001CC7FCA9B47E12157F9417>I<EAFFF8EA1C0EEB0780130314C0A314801307EB0E00EA
+1FF8EA1C1C7F7FA31480148414C4EB03CC38FF80F816157F9419>114 D<EA1F10EA30F0EA6030
+12C01310A213007E127EEA3FC0EA1FE0EA03F0EA0078133813181280A21310EAC030EAF060EA8F
+C00D157E9413>I<38FF83F8381C00E01440AE000C13C0000E138038060100EA0386EA00FC1515
+7F9419>117 D<38FF01F8383C00F0001C1340A2001E13C0000E1380A238070100A21383EA0382
+A2EA01C4A213E4EA00E8A21370A3132015157F9419>I<38FF87F0381E0380000E1300EA0F026C
+5AEA038413C8EA01D0EA00F0A21370137813BCEA011C7FEA020F487EEB0380000C13C0123C38FE
+07F815157F9419>120 D<EA60C0EAF1E0A2EA60C00B047A9C17>127 D E
+/Fi 36 122 df<1238127C127EA2123E120E121E123C127C12F81260070B798416>44
+D<B51280A311037E8D16>I<127012F8A312700505788416>I<EA03E0EA0FF8487EEA1E3CEA380E
+EA780FEA7007A238E00380A8EAF00700701300A2EA780FEA3C1E6C5AEA1FFC6C5AEA03E011197E
+9816>48 D<EA01801203A21207120F127F12FF12731203AEEA7FF813FC13F80E197C9816>I<EA
+07E0EA1FF8EA7FFEEA783FEAF00FEB07801303A21200A2130714005B131E5B5B5BEA03E0EA0780
+48C7FC381E0380123CEA7FFFB5FC7E11197E9816>I<EA07E0EA1FFCEA7FFEEA781F7F7F12005B
+A2133EEA07FC5B7FEA001E130714801303A212F013071400EAF81FEA7FFE6C5AEA07E011197E98
+16>I<137C13FC13DC1201EA039CA2EA071C120F120E121E123C1238127812F0B512E0A338001C
+00A53801FFC0A313197F9816>I<EA3FFEA30038C7FCA7EA3BF0EA3FFC7FEA3C0FEA3007000013
+801303126012F01307EB0F006C5AEA7FFEEA1FF8EA07E011197E9816>I<13F8EA03FEEA0FFFEA
+1F0F123E123CEA78060070C7FC12F0EAF3F8EAEFFE12FFEAF80F38F00780A2EAE00312F0A21270
+EA7807EB0F006C5AEA1FFEEA0FF8EA03E011197E9816>I<12E0B51280A338E00F00131EEA001C
+5B137813705BA2485AA3485AA448C7FCA7111A7E9916>I<EA07F0EA1FFC487EEA7C1F38F00780
+EAE003A338700700EA7C1FEA1FFCEA07F0EA1FFCEA3C1EEA700700F01380EAE003A3EAF0070070
+1300EA7C1FEA3FFE6C5AEA07F011197E9816>I<EA03E0EA0FF8EA3FFCEA7C1EEA780F487E12E0
+1480A21303EAF007A2EA780FEA3FFF13FBEA0FE3EA00071400EA300FEA780E131E137CEA7FF8EA
+3FE0EA0F8011197E9816>I<EAFFF0A3EAE000B3A8EAFFF0A30C20789C16>91
+D<EAFFF0A3EA0070B3A8EAFFF0A30C207F9C16>93 D<EA1FE0EA7FF87FEA783CEA301EEA000EA2
+EA03FE121FEA7E0E12F012E0A2EAF01EEAF83E387FFFE0EA3FE7EA0F8313127E9116>97
+D<127E12FE127E120EA4133EEBFF80000F13C0EB83E01301380E00F0A21470A414F0000F13E013
+01EB83C013FF000E1300EA063C1419809816>I<EA03F8EA0FFE121FEA3C1EEA780CEA700012F0
+5AA47EEA70071278EA3E0FEA1FFEEA0FFCEA03F010127D9116>I<133F5B7F1307A4EA03C7EA0F
+F7EA3FFFEA3C1F487E487EA212E0A412F05BEA781FEA7C3F383FFFE0381FF7F03807C7E014197F
+9816>I<EA03E0EA0FF8EA1FFCEA3C1EEA780EEA700712E0B5FCA3EAE000A2EA70071278EA3C0F
+EA1FFEEA0FFCEA03F010127D9116>I<3803E3C0380FFFE05A381E3CC0383C1E00EA380EA3EA3C
+1E6C5AEA1FFC5BEA3BE00038C7FCA2EA1FFC13FF4813C0EA780338F001E0EAE000A3EAF001387C
+07C0383FFF80380FFE00EA03F8131C7F9116>103 D<127E12FE127E120EA4133C13FF000F1380
+13871303A2120EA9387FC7F038FFE7F8387FC7F01519809816>I<EA0180EA03C0A2EA0180C7FC
+A4EA7FC0A31201ACEA7FFFB5FC7E101A7D9916>I<EAFFC0A31201B3B51280A311197E9816>108
+D<38F9C38038FFEFC0EBFFE0EA3E7CEA3C78EA3870AA38FE7CF8A2EB3C781512809116>I<EA7E
+3CEAFEFF007F1380EA0F871303A2120EA9387FC7F038FFE7F8387FC7F01512809116>I<EA03E0
+EA0FF8487EEA3C1E487EEA700738E00380A5EAF00700701300EA780FEA3C1EEA1FFC6C5AEA03E0
+11127E9116>I<EA7E3E38FEFF80007F13C0380F83E01301380E00F0A21470A414F0000F13E013
+01EB83C013FF000E1300133C90C7FCA6EA7FC0487E6C5A141B809116>I<38FF0FC0EB3FE0137F
+3807F040EBE0005B5BA290C7FCA7EAFFFCA313127F9116>114 D<EA0FECEA3FFC127FEAF03CEA
+E01CA2EAF000EA7F80EA1FF0EA07FCEA003EEAE00EA212F0EAF81EEAFFFC13F8EAC7E00F127D91
+16>I<12035AA4EA7FFFB5FCA20007C7FCA75BEB0380A2130713873803FF005BEA00F811177F96
+16>I<387E1F80EAFE3FEA7E1FEA0E03AA1307EA0F0FEBFFF06C13F83803E3F01512809116>I<38
+7F1FC000FF13E0007F13C0381C0700EA1E0FEA0E0EA36C5AA4EA03B8A3EA01F0A26C5A13127F91
+16>I<38FF1FE013BF131F38380380A413E33819F300A213B3EA1DB7A4EA0F1EA313127F9116>I<
+387F1FC0133F131F380F1C00EA073CEA03B813F012016C5A12017FEA03B8EA073C131CEA0E0E38
+7F1FC038FF3FE0387F1FC013127F9116>I<387F1FC038FF9FE0387F1FC0381C0700120E130EA2
+12075BA2EA039CA21398EA01B8A2EA00F0A35BA3485A1279127BEA7F806CC7FC123C131B7F9116
+>I E /Fj 67 128 df<EB7E1F3901C1B180390303E3C0000713C3000EEBC180903801C000A6B5
+12FC380E01C0B0387F87FC1A1D809C18>11 D<137E3801C180EA0301380703C0120EEB018090C7
+FCA5B512C0EA0E01B0387F87F8151D809C17>I<EA01F8EA070EEA0E07EA0C03001C1380A4EB07
+001306131CEAFCF0EA1C187F7F7F1480A2EB01C0A6148013E3140013E6EAFC7C121D7F9C15>25
+D<13401380EA0100120212065AA25AA25AA212701260A312E0AC1260A312701230A27EA27EA27E
+12027EEA008013400A2A7D9E10>40 D<7E12407E7E12187EA27EA27EA213801201A313C0AC1380
+A312031300A21206A25AA25A12105A5A5A0A2A7E9E10>I<126012F0A212701210A41220A21240
+1280040C7C830C>44 D<EAFFE0A20B0280890E>I<126012F0A2126004047C830C>I<EA03C0EA0C
+30EA1818EA300CA2EA700EEA6006A2EAE007ADEA6006A2EA700EEA300CA2EA1818EA0C30EA07E0
+101D7E9B15>48 D<12035A123F12C71207B3A4EA0F80EAFFF80D1C7C9B15>I<EA07C0EA1830EA
+201CEA400C130EEAF00F12F81307A21270EA000F130EA2131CA213381370136013C0EA0180EA03
+00EA0601120C1218EA1002EA3FFE127F12FF101C7E9B15>I<EA07E0EA1830EA201CA2EA781E13
+0E131E1238EA001CA2131813301360EA07E0EA0030131CA2130E130FA2127012F8A3EAF00EEA40
+1C1220EA1830EA07E0101D7E9B15>I<130CA2131C133CA2135C13DC139CEA011C120312021204
+120C1208121012301220124012C0B512C038001C00A73801FFC0121C7F9B15>I<EA300CEA3FF8
+13F013C0EA2000A6EA23E0EA2430EA2818EA301CEA200E1200130FA3126012F0A3EA800EEA401E
+131CEA2038EA1870EA07C0101D7E9B15>I<13F0EA030CEA0604EA0C0EEA181E1230130CEA7000
+A21260EAE3E0EAE430EAE818EAF00C130EEAE0061307A51260A2EA7006EA300E130CEA1818EA0C
+30EA03E0101D7E9B15>I<1240387FFF801400A2EA4002485AA25B485AA25B1360134013C0A212
+015BA21203A41207A66CC7FC111D7E9B15>I<EA03E0EA0C30EA1008EA200C13061260A31270EA
+780CEA3E08EA3FB0EA1FE0EA07F013F8EA18FCEA307EEA601E130FEAC0071303A4EA60021304EA
+300CEA1C10EA07E0101D7E9B15>I<126012F0A212601200AA126012F0A2126004127C910C>58
+D<126012F0A212601200AA126012F0A212701210A41220A212401280041A7C910C>I<1306A313
+0FA3EB1780A3EB23C0A3EB41E0A3EB80F0A200017FEB0078EBFFF83803007C0002133CA2000613
+3E0004131EA2000C131F121E39FF80FFF01C1D7F9C1F>65 D<B512C0380F00F01438143C141C14
+1EA4141C143C1478EB01F0EBFFE0EB0078143C141E140E140FA5141EA2143C1478B512E0181C7E
+9B1D>I<90381F8080EBE0613801801938070007000E13035A14015A00781300A2127000F01400
+A8007014801278A212386CEB0100A26C13026C5B380180083800E030EB1FC0191E7E9C1E>I<B5
+12C0380F00F0143C140E80A2EC038015C01401A215E0A815C0A21403158014071500140E5C1470
+B512C01B1C7E9B20>I<B512FC380F003C140C1404A214061402A213021400A3130613FE130613
+02A3140113001402A31406A2140C143CB512FC181C7E9B1C>I<B512F8380F007814181408A214
+0C1404A213021400A3130613FE13061302A490C7FCA77FEAFFF8161C7E9B1B>I<90381F8080EB
+E0613801801938070007000E13035A14015A00781300A2127000F01400A6ECFFF0EC0F80007013
+071278A212387EA27E6C130B380180113800E06090381F80001C1E7E9C21>I<39FFF3FFC0390F
+003C00ACEBFFFCEB003CAD39FFF3FFC01A1C7E9B1F>I<EAFFF0EA0F00B3A8EAFFF00C1C7F9B0F>
+I<EA1FFFEA00F81378B3127012F8A3EAF0F0EA40E0EA21C0EA1F00101D7F9B15>I<39FFF03FE0
+390F000F00140C14085C5C5C5C49C7FC13025B130E131F132FEB27801347EB83C0EB01E0A26D7E
+80147880A280141F158039FFF07FF01C1C7E9B20>I<EAFFF8EA0F8090C7FCB01408A31418A214
+1014301470EB01F0B5FC151C7E9B1A>I<B46CEBFF80000FECF800A2390BC00178A33809E002A2
+3808F004A3EB7808A3EB3C10A3EB1E20A3EB0F40A2EB0780A3EB0300121C3AFF8307FF80211C7E
+9B26>I<B4EB7FC0390F800E001404EA0BC0EA09E0A2EA08F013F81378133CA2131E130FA2EB07
+8414C41303EB01E4A2EB00F4147CA2143CA2141C140C121C38FF80041A1C7E9B1F>I<EB3F80EB
+E0E03803803848487E000E7F487F003C148000381303007814C0A20070130100F014E0A8007014
+C000781303A200381480003C1307001C14006C130E6C5B6C6C5A3800E0E0EB3F801B1E7E9C20>
+I<B51280380F00E01478143C141C141EA5141C143C147814E0EBFF8090C7FCACEAFFF0171C7E9B
+1C>I<3807E080EA1C19EA3005EA7003EA600112E01300A36C13007E127CEA7FC0EA3FF8EA1FFE
+EA07FFC61380130FEB07C0130313011280A300C01380A238E00300EAD002EACC0CEA83F8121E7E
+9C17>83 D<007FB512C038700F010060130000401440A200C014201280A300001400B1497E3803
+FFFC1B1C7F9B1E>I<39FFF07FC0390F000E001404B3A26C5B138000035B12016C6C5AEB70C001
+1FC7FC1A1D7E9B1F>I<39FFE00FF0391F0003C06CEB018015006D5A00071302A26C6C5AA36C6C
+5AA213F000005BA2EBF830EB7820A26D5AA36D5AA2131F6DC7FCA21306A31C1D7F9B1F>I<3AFF
+E0FFE0FF3A1F001F003C001E011E13186C011F1310A3D807801420EC2780A2D803C01440EC43C0
+A213E00001903881E080A33A00F100F100A3017913FA017A137AA2013E137C013C133CA3011813
+18A3281D7F9B2B>I<397FF0FFC0390FC03E0038078018EA03C0EBE01000015BEBF06000001340
+EB7880137D013DC7FC7F131F7F80A2EB13C0EB23E01321EB41F0EBC0F8EB80783801007C48133C
+00027F0006131F001FEB3F8039FFC0FFF01C1C7F9B1F>I<387FFFF0EA7C01007013E0386003C0
+A238400780130F1400131E12005B137C13785BA2485A1203EBC010EA0780A2EA0F00481330001E
+13205A14604813E0EAF803B5FC141C7E9B19>90 D<EA1FC0EA3070EA78387F12301200A2EA01FC
+EA0F1C12381270126000E01340A3EA603C38304E80381F870012127E9115>97
+D<12FC121CAA137CEA1D86EA1E03381C018014C0130014E0A614C013011480381E0300EA1906EA
+10F8131D7F9C17>I<EA07E0EA0C30EA18781230EA7030EA600012E0A61260EA70041230EA1808
+EA0C30EA07C00E127E9112>I<133F1307AAEA03E7EA0C17EA180F487E1270126012E0A6126012
+7012306C5AEA0C373807C7E0131D7E9C17>I<EA03E0EA0C30EA1818EA300CEA700EEA600612E0
+EAFFFEEAE000A41260EA70021230EA1804EA0C18EA03E00F127F9112>I<13F8EA018CEA071E12
+06EA0E0C1300A6EAFFE0EA0E00B0EA7FE00F1D809C0D>I<EB03803803C4C0EA0C38001C138038
+181800EA381CA4EA1818EA1C38EA0C30EA13C00010C7FC12307EEA1FF813FF1480EA3003386001
+C0EAC000A33860018038300300EA1C0EEA07F8121C7F9215>I<12FC121CAA137C1387EA1D0300
+1E1380121CAD38FF9FF0141D7F9C17>I<1218123CA21218C7FCA712FC121CB0EAFF80091D7F9C
+0C>I<12FC121CAAEB3FC0EB0F00130C13085B5B5B13E0121DEA1E70EA1C781338133C131C7F13
+0F148038FF9FE0131D7F9C16>107 D<12FC121CB3A9EAFF80091D7F9C0C>I<39FC7E07E0391C83
+8838391D019018001EEBE01C001C13C0AD3AFF8FF8FF8021127F9124>I<EAFC7CEA1C87EA1D03
+001E1380121CAD38FF9FF014127F9117>I<EA03F0EA0E1CEA1806487E00701380EA600100E013
+C0A600601380EA700300301300EA1806EA0E1CEA03F012127F9115>I<EAFC7CEA1D86EA1E0338
+1C018014C0130014E0A6EB01C0A21480381E0300EA1D06EA1CF890C7FCA7B47E131A7F9117>I<
+EAFCE0EA1D30EA1E78A2EA1C301300ACEAFFC00D127F9110>114 D<EA1F90EA3070EA4030EAC0
+10A212E0EAF800EA7F80EA3FE0EA0FF0EA00F8EA8038131812C0A2EAE010EAD060EA8FC00D127F
+9110>I<1204A4120CA2121C123CEAFFE0EA1C00A91310A5120CEA0E20EA03C00C1A7F9910>I<38
+FC1F80EA1C03AD1307120CEA0E1B3803E3F014127F9117>I<38FF07E0383C0380381C0100A2EA
+0E02A26C5AA3EA0388A213D8EA01D0A2EA00E0A3134013127F9116>I<39FF3FCFE0393C0F0380
+381C07011500130B000E1382A21311000713C4A213203803A0E8A2EBC06800011370A2EB803000
+0013201B127F911E>I<387F8FF0380F03801400EA0702EA0384EA01C813D8EA00F01370137813
+F8139CEA010E1202EA060738040380381E07C038FF0FF81512809116>I<38FF07E0383C038038
+1C0100A2EA0E02A26C5AA3EA0388A213D8EA01D0A2EA00E0A31340A25BA212F000F1C7FC12F312
+66123C131A7F9116>I<EA7FFCEA70381260EA407013F013E0EA41C012031380EA0700EA0F0412
+0E121CEA3C0CEA380812701338EAFFF80E127F9112>I<EA6060EAF0F0A2EA60600C047C9C15>
+127 D E /Fk 18 123 df<127012F812FCA212741204A41208A21210A212201240060F7C840E>
+44 D<B512F0380F801E00071307EC03C01401EC00E015F01578A2157C153CA3153EA9153CA215
+7C1578A215F015E01401EC03C0EC0700000F131EB512F81F227EA125>68
+D<39FFFC3FFF390FC003F039078001E0AE90B5FCEB8001AF390FC003F039FFFC3FFF20227EA125
+>72 D<007FB512F839780780780060141800401408A300C0140C00801404A400001400B3A3497E
+0003B5FC1E227EA123>84 D<EA0FE0EA1838EA3C0C130EEA18071200A313FFEA07C7EA1E07123C
+1278127000F01308A3130FEA7817383C2390380FC1E015157E9418>97 D<EA01FEEA0703380C07
+80121C383803000078C7FC127012F0A712700078134012386C1380380C0100EA0706EA01F81215
+7E9416>99 D<14E0130F13011300ABEA01F8EA0704EA0C02EA1C01EA38001278127012F0A71270
+12781238EA1801EA0C0238070CF03801F0FE17237EA21B>I<EA01FCEA0707380C0380381C01C0
+1238007813E0EA700012F0B5FC00F0C7FCA512700078132012386C13406C138038070300EA00FC
+13157F9416>I<120E12FE121E120EABEB1F80EB60C0EB80E0380F0070A2120EAF38FFE7FF1823
+7FA21B>104 D<120E12FE121E120EB3ADEAFFE00B237FA20E>108 D<390E1FC07F3AFE60E18380
+3A1E807201C03A0F003C00E0A2000E1338AF3AFFE3FF8FFE27157F942A>I<380E1F8038FE60C0
+381E80E0380F0070A2120EAF38FFE7FF18157F941B>I<EA01FCEA0707380C0180381800C00038
+13E0481370A200F01378A700701370007813F0003813E0381C01C0380E038038070700EA01FC15
+157F9418>I<EA0E3CEAFE46EA1E8FEA0F0F13061300120EAD120FEAFFF010157F9413>114
+D<EA0F88EA3078EA601812C01308A212E0EAF000EA7F80EA3FE0EA0FF0EA01F8EA003CEA801C13
+0CA212C01308EAE018EAD030EA8FC00E157E9413>I<1202A41206A3120E121E123EEAFFF8EA0E
+00AB1304A6EA07081203EA01F00E1F7F9E13>I<000E137038FE07F0EA1E00000E1370AD14F0A2
+38060170380382783800FC7F18157F941B>I<383FFFC038380380EA300700201300EA600EEA40
+1C133C1338C65A5B12015B38038040EA07005A000E13C04813805AEA7801EA7007B5FC12157F94
+16>122 D E /Fl 18 118 df<B512FC14FF3907800FC0EC03E0EC01F0A2EC00F8A515F01401EC
+03E0EC07C0EC1F0090B5FC90388007C0EC01E0EC00F015F81578157CA5157815F8EC01F01403EC
+0FE0B61280ECFE001E227CA126>66 D<B612F0A238078001EC0070153015101518A215081410A3
+150014301470EBFFF0A2EB807014301410A21502A214001504A3150CA2151C153C15F8B6FCA21F
+227CA125>69 D<3803FFF8A238000780B3A51230127812FCA21400485AEA400E6C5AEA1838EA07
+E015237DA11C>74 D<EAFFFEA2EA0780B31520A41560A2154015C014011403140FB6FCA21B227C
+A122>76 D<1304130EA3131FA2497E1327A2EB43C0A3EB81E0A2380101F01300A248B47E380200
+780006137C0004133CA2000C7FA2003C133FB4EBFFE01B1A7F991F>97 D<EB3F023801C0C63803
+002E000E131E48130E14065A007813021270A200F01300A600701302A21278003813047E14087E
+000313303801C0C038003F00171A7E991D>99 D<B57E380F01E0EB0070808080A280A21580A815
+00A25C140E5C5C5C495AB51280191A7E991F>I<B512F8380F003814181408140C1404A3EB0200
+A3130613FE13061302A3EB0002A314061404A2140C143CB512FC171A7E991C>I<EB3F813801E0
+63380380173806000F487F001C7F5A00787FA2127000F090C7FCA5903801FFE03970001F000078
+7FA212387E120C7E380380173801E06338003F811B1A7E9920>103 D<39FFE3FF80390F007800
+ABEBFFF8EB0078AC39FFE3FF80191A7E991F>I<EAFFF0EA0F00B3A6EAFFF00C1A7F990F>I<EAFF
+F0EA0F8090C7FCAF1410A3143014201460A2EB01E0B5FC141A7E991A>108
+D<B4EB03FE000F14E0A2380B8005A33809C009A33808E011A3EB7021A2EB3841A3EB1C81A3EB0F
+01A31306121C39FF861FFE1F1A7E9925>I<B4EBFF80390F801C001408EA0BC0EA09E0A2EA08F0
+13F81378133CA2131E130FA2EB0788EB03C8A2EB01E8EB00F8A21478A214381418121C38FF8008
+191A7E991F>I<EB7F803801C0E038070038000E7F487F003C130F00387F0078148000701303A2
+00F014C0A70078EB0780A200381400003C5B001C130E6C5B6C5B3801C0E038007F801A1A7E9920
+>I<EAFFFE380F03C0EB00E0801478A55C5CEB03C001FEC7FCEB0380EB01E0130080A615401470
+EC388039FFF01F001A1A7E991E>114 D<EA07E1EA181BEA3007487EA2EAE001A36CC7FC7EEA7F
+80EA3FF86C7E6C7EC67E130FEB0780A2EA8003A300C013005BEAE006EADC0CEA83F0111A7E9917
+>I<39FFF0FF80390F001C001408B26C5B138000035B3801C0603800E080013FC7FC191A7E991F>
+117 D E /Fm 1 98 df<14301478A314FCA2497E14BEA2EB031FA39038060F80A2010E7FEB0C07
+A2496C7EA201387FEB3001A2496C7EEB7FFFA29038C0007CA20001147E49133EA200038090C7FC
+481580487E486CEB3FC0B46CEBFFFCA226257EA42C>97 D E /Fn 20 118
+df<B51280A311037F9016>45 D<B612E015FC3907E0007E0003EC1F80ED0FC0ED07E0150316F0
+150116F8A616F01503A2ED07E016C0ED0F80ED3F0015FC90B55A9038E0003FED0F80ED03E016F0
+ED01F8150016FC167C167EA7167C16FCA2ED01F8ED03F0ED07E0ED0FC00007EC3F80B6EAFE0015
+F827317CB02F>66 D<B612E015FC3907E0007F0003EC0F806F7EED01E06F7E1678167C82A282A2
+EE0F80A217C0A21607A217E0AB17C0A3160F1780A3EE1F00A2163E5E167816F84B5AED07E0ED0F
+800007027FC7FCB612FC15E02B317CB033>68 D<B712E0A23907E0000F00031401ED00F0167016
+30A21610A41608A315801600A41401A2140790B5FCA2EBE0071401A21400A31602A215001604A4
+160CA216081618A216381678ED01F80007EC0FF0B7FCA227317CB02D>I<B512C0A2D807F0C8FC
+6C5AB3AA1640A41680A41501A21503A21507ED0F00153F000714FFB7FCA222317CB029>76
+D<007FB712E0A23A7E000F800700781501007015000060166000401620A200C01630A2481610A6
+C71500B3AC4A7E010FB57EA22C317EB030>84 D<267FFF80EBFFF8A2D803FEC7EA3F80C648EC1E
+001618017E1410013E1430013F14206D6C5B010F5C806D6C48C7FC0103130214F06D6C5A01005B
+ECFC18EC7E10EC3E20EC3F606E5A6E5A816E7E14034A7EEC05F814084A7E157EEC203EEC403F6F
+7EEC800FD901007F496D7E010213034980010C6D7E0108130049800130147E0120143E49143F01
+C0EC1F80487ED80FF0EC3FE0B46C91B5FCA230317FB032>88 D<13FE380303C0380C00E0001013
+7080003C133C003E131C141EA21208C7FCA3EB0FFEEBFC1EEA03E0EA0F80EA1F00123E123C127C
+481404A3143EA21278007C135E6CEB8F08390F0307F03903FC03E01E1F7D9E21>97
+D<1560EC0FE0143FA214031401AEEB1F81EBF0613801C01938078005380F0003120E001E13015A
+A2127C127812F8A91278A27EA2121C001E1303000E13056C130939038011F03900E061FFEB3F81
+20327DB125>100 D<EB3F80EBE0E0380380383807003C000E7F121E001C7F123C127C00781480
+140712F8A2B6FC00F8C8FCA61278127C123C15807E000EEB0100000F1302EA07803801C00C3800
+F030EB1FC0191F7E9E1D>I<15F090387F03083901C1C41C380380E8390700700848EB7800001E
+7FA2003E133EA6001E133CA26C5B6C13706D5A3809C1C0D8087FC7FC0018C8FCA5121C7E380FFF
+F86C13FF6C1480390E000FC00018EB01E048EB00F000701470481438A500701470A26C14E06CEB
+01C00007EB07003801C01C38003FE01E2F7E9F21>103 D<1207EA0F80121FA2120FEA0700C7FC
+ABEA0180121F12FFA2120F1207B3A5EA0FC0EAFFF8A20D307EAF12>105
+D<487E123F12FFA2120F1207AEEC1FFCA2EC07E01580EC060014045C5C146014800181C7FCEB83
+801387EB8FC01393EBA1E0EBC1F013801478147C143C143E80801580EC07C0140315E0390FC007
+F839FFFC0FFFA220327EB123>107 D<EA0180123F12FFA2120F1207B3B3A6EA0FC0EAFFFCA20E
+327EB112>I<260180FEEB1FC03B3F83078060F03BFF8C03C18078903A9001E2003CD80FA013E4
+0007D900F47F01C013F8A2495BB3A2486C486C133F3CFFFC1FFF83FFF0A2341F7E9E38>I<3801
+80FE393F83078039FF8C03C090389001E0EA0FA000076D7E13C0A25BB3A2486C487E3AFFFC1FFF
+80A2211F7E9E25>I<EB1FC0EBF0783801C01C38070007481480001EEB03C0001C1301003C14E0
+A248EB00F0A300F814F8A8007814F0007C1301003C14E0A26CEB03C0A26CEB07803907800F0038
+01C01C3800F078EB1FC01D1F7E9E21>I<380183E0383F8C1838FF907CA2EA0FA03807C0381400
+A35BB3487EEAFFFEA2161F7E9E19>114 D<1340A513C0A31201A212031207120F381FFFE0B5FC
+3803C000B01410A80001132013E000001340EB78C0EB1F00142C7FAB19>116
+D<486C1330003FEB07F000FF131FA2000F130100071300B21401A300031302EBC0040001497E3A
+007030FF80EB1FC0211F7E9E25>I E end
+%%EndProlog
+%%BeginSetup
+%%Feature: *Resolution 300
+TeXDict begin @a4 /a4 where {pop a4} if
+%%EndSetup
+%%Page: 1 1
+bop 390 315 a Fn(Balk)n(endiagramme)20 b(in)h(L)1020 306 y
+Fm(a)1054 315 y Fn(T)1091 337 y(E)1128 315 y(X-Dokumen)n(ten)494
+429 y Fl(Jo)o(a)o(chim)d(Bleser)232 b(Edmund)18 b(Lang)540
+514 y Fk(TH)e(Darmstadt,)g(Ho)q(c)o(hsc)o(h)o(ulrec)o(henzen)n(trum)324
+600 y Fj(Als)h(Hilfsmittel,)e(um)h(Daten)i(zu)g(v)o(eransc)o(haulic)o(hen,)g
+(w)o(erden)g(heutzutage)h(immer)262 650 y(h)285 652 y(\177)285
+650 y(au\014ger)13 b(Diagramm)o(e,)d(insb)q(esondere)16 b(Balk)o(en-)d(o)q
+(der)h(Kuc)o(hendiagramme,)c(eingesetzt.)262 700 y(Jeder)k(k)o(enn)o(t)f(die)
+f(Balk)o(endiagramme,)d(die)k(z.B.)g(nac)o(h)f(W)m(ahlen)g(Gewinne)h(und)g(V)
+m(erluste)262 749 y(der)h(einzelnen)h(P)o(arteien)g(auf)e(einen)h(Blic)o(k)g
+(v)o(erdeutlic)o(hen.)324 799 y(Das)i(hier)g(v)o(orgestellte)h(St)o(yle-File)
+e Fi(bar.sty)g Fj(hilft)g(dem)g(L)1267 794 y Fh(a)1286 799
+y Fj(T)1309 812 y(E)1332 799 y(X-An)o(w)o(ender,)i(solc)o(he)262
+849 y Fg(Balkendiagr)n(amme)e Fj(in)g(seinen)i(Dokumen)o(ten)d(zu)i(v)o(erw)o
+(enden,)h(ohne)e(auf)g(externe)j(Pro-)262 899 y(gramm)o(e,)7
+b(wie)j(z.B.)g Fh(Ha)l(v)l(ard)j(Graphics)e Fj(o)q(der)f Fh(Ex)o(cel)g
+Fj(im)e(PC-Bereic)o(h,)j(zur)1510 901 y(\177)1509 899 y(uc)o(kgreifen)262
+949 y(zu)j(m)354 951 y(\177)353 949 y(ussen.)623 1020 y Ff(n)p
+Fi(begin)p Ff(f)p Fi(barenv)p Ff(g)682 1070 y Fg(Deklar)n(ationen)682
+1120 y Ff(n)p Fi(bar)p Ff(f)p Fg(H)821 1122 y(\177)821 1120
+y(ohe)p Ff(gf)p Fg(F)951 1122 y(\177)951 1120 y(ul)r(lungsindex)p
+Ff(g)p Fi([)p Fg(Wert)p Fi(])741 1164 y(.)741 1181 y(.)741
+1197 y(.)682 1247 y Ff(n)p Fi(bar)p Ff(f)p Fg(H)821 1249 y(\177)821
+1247 y(ohe)p Ff(gf)p Fg(F)951 1249 y(\177)951 1247 y(ul)r(lungsindex)p
+Ff(g)p Fi([)p Fg(Wert)p Fi(])623 1297 y Ff(n)p Fi(end)p Ff(f)p
+Fi(barenv)p Ff(g)623 1347 y Fg(L)n(e)n(gende)324 1422 y Fj(Innerhalb)k(der)h
+(neu)g(de\014nierten)h(Umgebung)d Fi(barenv)g Fj(k)1269 1424
+y(\177)1269 1422 y(onnen)i(b)q(eliebig)f(p)q(ositiv)o(e)262
+1472 y(und)e(negativ)o(e)g(Balk)o(en)h(gezeic)o(hnet)h(w)o(erden.)f(Ac)o(h)o
+(t)g(v)o(ersc)o(hiedene)h(Sc)o(hra\013uren)g(stehen)262 1522
+y(zur)c(V)m(erf)409 1524 y(\177)408 1522 y(ugung.)349 1575
+y(Sc)o(hra\013ur:)p 572 1533 87 2 v 572 1575 2 42 v 657 1575
+V 572 1577 87 2 v 705 1533 V 705 1575 2 42 v 790 1575 V 705
+1577 87 2 v 710 1575 2 42 v 723 1575 V 735 1575 V 748 1575
+V 760 1575 V 772 1575 V 785 1575 V 838 1533 87 2 v 838 1575
+2 42 v 923 1575 V 838 1577 87 2 v 840 1572 84 2 v 840 1560
+V 840 1547 V 971 1533 87 2 v 971 1575 2 42 v 1056 1575 V 971
+1577 87 2 v 976 1575 2 42 v 988 1575 V 1001 1575 V 1013 1575
+V 1026 1575 V 1038 1575 V 1051 1575 V 973 1572 84 2 v 973 1560
+V 973 1547 V 1104 1533 87 2 v 1104 1575 2 42 v 1188 1575 V
+1104 1577 87 2 v 1109 1575 9 42 v 1126 1575 V 1143 1575 V 1159
+1575 V 1176 1575 V 1105 1567 84 9 v 1105 1550 V 1237 1533 87
+2 v 1237 1575 2 42 v 1321 1575 V 1237 1577 87 2 v 714 w Fe(\010)1280
+1555 y(\010)1238 1559 y(\010)1251 1553 y(\010)1271 1575 y(\010)1280
+1571 y(\010)p 1369 1533 V 1369 1575 2 42 v 1454 1575 V 1369
+1577 87 2 v 1371 1555 a(H)1413 1575 y(H)1371 1571 y(H)1379
+1575 y(H)1404 1555 y(H)1413 1559 y(H)p 1502 1533 V 1502 1575
+2 42 v 1587 1575 V 1502 1577 87 2 v 1504 1575 84 42 v 349 1625
+a Fj(Index:)143 b(1)112 b(2)g(3)g(4)f(5)h(6)g(7)g(8)324 1673
+y(Die)18 b Fg(Deklar)n(ationen)g Fj(de\014nieren)i(Einstellungen)e(wie)h
+(z.B.)f(Balk)o(en)o(breite)h(o)q(der)g(die)262 1723 y(Ein)o(teilung)13
+b(der)h(Ac)o(hsen.)324 1773 y(Der)j(einfac)o(hste)g(F)m(all)e(ist)h(ein)g(zw)
+o(eidimensionales)f(Balk)o(endiagramm.)e(Die)j(Balk)o(en)262
+1823 y(w)o(erden)i(durc)o(h)g(ihre)f(H)644 1825 y(\177)644
+1823 y(ohe)h(und)g(ihren)f(F)948 1825 y(\177)947 1823 y(ullungsindex)g
+(de\014niert.)h(Optional)e(ist)h(no)q(c)o(h)262 1872 y(eine)d(b)q(eliebige)g
+(Zeic)o(henfolge)g(m)790 1874 y(\177)790 1872 y(oglic)o(h,)d(die)j(un)o(ter)g
+(den)h(Balk)o(en)f(gesc)o(hrieb)q(en)h(wird.)p 303 2230 17
+4 v 273 2241 a Fi(0)p 303 2188 V 251 2199 a(10)p 303 2147 V
+251 2158 a(20)p 303 2105 V 251 2116 a(30)p 303 2064 V 251 2075
+a(40)p 303 2022 V 251 2033 a(50)p 318 2228 4 208 v 318 2186
+128 2 v 318 2227 2 42 v 444 2227 V 318 2229 128 2 v 360 2174
+a(10)p 443 2040 V 443 2227 2 187 v 569 2227 V 443 2229 128
+2 v 447 2228 2 187 v 460 2228 V 472 2228 V 485 2228 V 497 2228
+V 510 2228 V 522 2228 V 535 2228 V 547 2228 V 560 2228 V 485
+2029 a(45)471 2261 y Fd(max)p 567 2103 128 2 v 567 2227 2 125
+v 693 2227 V 567 2229 128 2 v 569 2225 125 2 v 569 2212 V 569
+2200 V 569 2187 V 569 2175 V 569 2163 V 569 2150 V 569 2138
+V 569 2125 V 569 2113 V 609 2091 a Fi(30)p 692 2123 128 2 v
+692 2227 2 104 v 818 2227 V 692 2229 128 2 v 697 2228 2 104
+v 709 2228 V 721 2228 V 734 2228 V 746 2228 V 759 2228 V 771
+2228 V 784 2228 V 796 2228 V 809 2228 V 693 2225 125 2 v 693
+2212 V 693 2200 V 693 2187 V 693 2175 V 693 2163 V 693 2150
+V 693 2138 V 734 2112 a(25)p 320 2230 499 4 v 990 1966 a Ff(n)p
+Fi(begin)p Ff(f)p Fi(barenv)p Ff(g)990 2015 y(n)p Fi(setyaxis)p
+Ff(f)p Fi(0)p Ff(gf)p Fi(50)p Ff(gf)o Fi(10)p Ff(g)990 2065
+y(n)p Fi(bar)p Ff(f)p Fi(10)p Ff(gf)p Fi(1)p Ff(g)990 2115
+y(n)p Fi(bar)p Ff(f)p Fi(45)p Ff(gf)p Fi(2)p Ff(g)p Fi([)p
+Ff(n)p Fi(tt)k(max])990 2165 y Ff(n)p Fi(bar)p Ff(f)p Fi(30)p
+Ff(gf)p Fi(3)p Ff(g)990 2215 y(n)p Fi(bar)p Ff(f)p Fi(25)p
+Ff(gf)p Fi(4)p Ff(g)990 2264 y(n)p Fi(end)p Ff(f)p Fi(barenv)p
+Ff(g)324 2350 y Fj(Die)12 b(x-Ac)o(hse)j(k)n(ann)d(auc)o(h)h(anstelle)g(v)o
+(on)g(Zahlen)g(mit)e(den)j(Monatsnamen)e(\(d.h.)g(mit)262 2399
+y(den)h(ersten)h(drei)f(Buc)o(hstab)q(en)h(der)g(Monatsnamen\))e(o)q(der)h(T)
+m(agen)f(\(d.h.)g(mit)f(den)i(ersten)262 2449 y(drei)h(Buc)o(hstab)q(en)h
+(der)g(T)m(age\))e(b)q(esc)o(hriftet)j(w)o(erden.)967 2574
+y(1)p eop
+%%Page: 2 2
+bop 757 307 a Fc(T)l(emp)q(eratur)14 b(/)i(Monat)p 604 531
+17 4 v 574 542 a Fi(0)p 604 489 V 552 500 a(10)p 604 448 V
+552 459 a(20)p 604 406 V 552 417 a(30)p 604 365 V 552 376 a(40)p
+619 529 4 167 v 619 528 128 2 v 619 530 V 672 517 a(0)p 743
+495 V 743 528 2 34 v 870 528 V 743 530 128 2 v 796 484 a(8)p
+868 466 V 868 528 2 63 v 994 528 V 868 530 128 2 v 910 455
+a(15)p 993 425 V 993 528 2 104 v 1119 528 V 993 530 128 2 v
+1035 413 a(25)p 1117 445 V 1117 528 2 84 v 1243 528 V 1117
+530 128 2 v 1159 434 a(20)p 1242 508 V 1242 528 2 21 v 1368
+528 V 1242 530 128 2 v 1295 496 a(5)p 621 531 748 4 v 681 546
+4 17 v 646 585 a Fh(Jan)p 806 546 V 42 w(M)804 583 y(\177)803
+585 y(ar)p 930 546 V 39 w(Mai)p 1055 546 V 50 w(Jul)p 1179
+546 V 54 w(Sep)p 1304 546 V 47 w(No)o(v)p 621 531 748 4 v 324
+670 a Fj(Zwisc)o(hen)j(die)e(Balk)o(en)h(k)n(ann)f(zus)880
+672 y(\177)880 670 y(atzlic)o(her)i(Zwisc)o(henraum)f(eingef)1436
+672 y(\177)1435 670 y(ugt)f(o)q(der)h(auc)o(h)262 720 y(eine)13
+b(T)m(rennlinie)f(gezogen)i(w)o(erden.)f(Ein)g(Diagramm)c(k)n(ann)j(sehr)i
+(leic)o(h)o(t)f(an)g(der)h(x-Ac)o(hse)262 770 y(gespiegelt)e(w)o(erden,)g
+(indem)f(der)i(Anfangs-)e(und)h(der)h(Endw)o(ert)g(der)g(y-Ac)o(hse)g(v)o
+(ertausc)o(h)o(t)262 820 y(w)o(erden.)h(In)g(diesem)f(F)m(all)f(m)o(u\031)h
+(ab)q(er)h(auc)o(h)g(die)g(Sc)o(hritt)o(w)o(eite)h(negiert)f(w)o(erden.)262
+879 y Fc(Gn)o(u-Aktien)o(i)o(nd)o(ex)p 315 1183 17 4 v 242
+1194 a Fi(-20)p 315 1142 V 242 1153 a(-10)p 315 1100 V 285
+1111 a(0)p 315 1059 V 264 1070 a(10)p 315 1017 V 264 1028 a(20)p
+315 976 V 264 987 a(30)p 315 934 V 264 945 a(40)p 330 1223
+4 291 v 332 1099 125 150 v 353 938 a Fh(36.5)p 457 1099 125
+25 v 489 1062 a(6.2)p 580 1223 2 291 v 581 1111 125 13 v 606
+1150 a(-3.2)p 706 1165 125 67 v 737 1203 a(-16)p 332 1225 499
+4 v 393 1240 4 17 v 355 1279 a(Fre)p 517 1240 V 45 w(Sam)p
+642 1240 V 46 w(Son)p 766 1240 V 41 w(Mon)p 332 1100 499 4
+v 979 879 a Fc(Gn)o(u-Aktieni)o(n)o(dex)p 1033 1183 17 4 v
+981 1194 a Fi(40)p 1033 1142 V 981 1153 a(30)p 1033 1100 V
+981 1111 a(20)p 1033 1059 V 981 1070 a(10)p 1033 1017 V 1003
+1028 a(0)p 1033 976 V 959 987 a(-10)p 1033 934 V 959 945 a(-20)p
+1048 1223 4 291 v 1050 1165 125 150 v 1071 1203 a Fh(36.5)p
+1174 1041 125 25 v 1207 1079 a(6.2)p 1298 1223 2 291 v 1299
+1016 125 13 v 1323 992 a(-3.2)p 1423 1016 125 67 v 1455 938
+a(-16)p 1050 1225 499 4 v 1110 1240 4 17 v 1073 1279 a(Fre)p
+1235 1240 V 44 w(Sam)p 1359 1240 V 46 w(Son)p 1484 1240 V 41
+w(Mon)p 1050 1017 499 4 v 324 1348 a Fj(W)m(enn)19 b(der)h(zw)o
+(eidimensionale)e(F)m(all)g(nic)o(h)o(t)i(ausreic)o(h)o(t,)g(k)1266
+1350 y(\177)1266 1348 y(onnen)f(die)h(Balk)o(en)f(auc)o(h)262
+1397 y(dreidimensional)12 b(darstellen)k(w)o(erden.)f(Der)h(Befehl)f
+Ff(n)p Fi(setdepth)e Fj(setzt)k(die)e(Balk)o(en)o(tiefe)262
+1447 y(auf)e(einen)h(W)m(ert)g(gr)581 1449 y(\177)581 1447
+y(o\031er)g(0;)f(dadurc)o(h)i(erhalten)f(die)g(Balk)o(en)g(Plastizit)1395
+1449 y(\177)1395 1447 y(at.)p 315 1835 17 4 v 242 1846 a Fi(-20)p
+315 1752 V 285 1763 a(0)p 315 1669 V 264 1680 a(20)p 315 1586
+V 264 1597 a(40)p 315 1503 V 264 1514 a(60)p 330 1875 4 374
+v 330 1708 128 2 v 330 1749 2 42 v 457 1749 V 330 1751 128
+2 v 392 1652 a(10,2)p 455 1562 V 455 1749 2 187 v 581 1749
+V 455 1751 128 2 v 460 1750 2 187 v 472 1750 V 485 1750 V 497
+1750 V 510 1750 V 522 1750 V 535 1750 V 547 1750 V 560 1750
+V 572 1750 V 517 1507 a(45,6)332 1709 y Fe(\000)p 374 1668
+84 2 v 579 1625 128 2 v 579 1749 2 125 v 706 1749 V 579 1751
+128 2 v 581 1747 125 2 v 581 1734 V 581 1722 V 581 1709 V 581
+1697 V 581 1684 V 581 1672 V 581 1660 V 581 1647 V 581 1635
+V 663 1572 a Fi(30)457 1563 y Fe(\000)p 498 1523 V 622 1584
+2 63 v 82 w(\000)p 704 1749 128 2 v 704 1799 2 50 v 830 1799
+V 704 1801 128 2 v 709 1800 2 50 v 721 1800 V 734 1800 V 746
+1800 V 759 1800 V 771 1800 V 784 1800 V 796 1800 V 809 1800
+V 821 1800 V 706 1797 125 2 v 706 1784 V 706 1772 V 706 1759
+V 713 1835 a Fi(-12,7)706 1750 y Fe(\000)581 1626 y(\000)p
+623 1585 V 747 1709 2 125 v 83 w(\000)830 1750 y(\000)830 1800
+y(\000)p 871 1758 2 50 v 706 1750 a(\000)p 747 1709 125 2 v
+830 1800 a(\000)p 871 1758 2 9 v 332 1876 499 4 v 393 1891
+4 17 v 383 1929 a Fi(1)p 517 1891 V 103 w(2)p 642 1891 V 103
+w(3)p 766 1891 V 102 w(4)p 332 1752 499 4 v 990 1499 a Ff(n)p
+Fi(begin)p Ff(f)p Fi(barenv)p Ff(g)990 1549 y(n)p Fi(setdepth)p
+Ff(f)p Fi(10)p Ff(gn)p Fi(set)o(width)o Ff(f)p Fi(30)p Ff(g)990
+1599 y(n)p Fi(setxaxis)p Ff(f)p Fi(1)p Ff(gf)p Fi(4)p Ff(gf)p
+Fi(1)o Ff(g)990 1648 y(n)p Fi(setyaxis[10])p Ff(f)p Fi(0)p
+Ff(gf)o Fi(60)p Ff(gf)o Fi(20)p Ff(g)990 1698 y(n)p Fi(bar)p
+Ff(f)p Fi(10,2)p Ff(gf)p Fi(1)p Ff(g)990 1748 y(n)p Fi(bar)p
+Ff(f)p Fi(45,6)p Ff(gf)p Fi(2)p Ff(g)990 1798 y(n)p Fi(bar)p
+Ff(f)p Fi(30)p Ff(gf)p Fi(3)p Ff(g)990 1848 y(n)p Fi(bar)p
+Ff(f)p Fi(-12,7)p Ff(gf)p Fi(4)p Ff(g)990 1897 y(n)p Fi(end)p
+Ff(f)p Fi(barenv)p Ff(g)324 1999 y Fj(Die)e(Besc)o(hriftung)i(der)f(Balk)o
+(en)f(k)n(ann)g(an)h(v)o(ersc)o(hiedenen)h(Stellen)f(erfolgen.)f(V)m(orein-)
+262 2049 y(gestellt)i(ist)g Fg(ob)n(erhalb)p Fj(,)f(w)o(enn)h(die)g(Gr)858
+2051 y(\177)858 2049 y(o\031e)g Fb(>)g Fj(0)f(ist,)h(und)g(un)o(terhalb,)g(w)
+o(enn)g(die)g(Gr)1588 2051 y(\177)1588 2049 y(o\031e)f Fb(<)262
+2098 y Fj(0)h(ist.)g(F)395 2100 y(\177)394 2098 y(unf)g(w)o(eitere)i(M)648
+2100 y(\177)648 2098 y(oglic)o(hk)o(eiten)e(sind)g(zugelassen,)i(so)e(z.B.)h
+Fg(innerhalb)f Fj(der)i(Balk)o(en)262 2148 y(o)q(der)e(stets)h
+Fg(unterhalb)p Fj(.)967 2574 y(2)p eop
+%%Page: 3 3
+bop 315 691 17 4 v 242 702 a Fi(-20)p 315 608 V 285 619 a(0)p
+315 525 V 264 536 a(20)p 315 442 V 264 453 a(40)p 315 359 V
+264 370 a(60)p 330 731 4 374 v 330 564 128 2 v 330 605 2 42
+v 457 605 V 330 607 128 2 v 351 595 a(10,2)p 455 418 V 455
+605 2 187 v 581 605 V 455 607 128 2 v 475 522 a(45,6)332 565
+y Fe(\000)p 374 524 84 2 v 579 481 128 2 v 579 605 2 125 v
+706 605 V 579 607 128 2 v 622 556 a Fi(30)457 419 y Fe(\000)p
+498 379 125 2 v 622 440 2 63 v 82 w(\000)p 704 605 128 2 v
+704 655 2 50 v 830 655 V 704 657 128 2 v 713 641 a Fi(-12,7)706
+606 y Fe(\000)581 482 y(\000)p 623 441 125 2 v 747 565 2 125
+v 83 w(\000)830 606 y(\000)830 656 y(\000)p 871 614 2 50 v
+706 606 a(\000)p 747 565 125 2 v 830 656 a(\000)p 871 614 2
+9 v 332 732 499 4 v 393 747 4 17 v 383 785 a Fi(1)p 517 747
+V 103 w(2)p 642 747 V 103 w(3)p 766 747 V 102 w(4)p 332 608
+499 4 v 990 305 a Ff(n)p Fi(begin)p Ff(f)p Fi(barenv)p Ff(g)990
+355 y(n)p Fi(setdepth)p Ff(f)p Fi(10)p Ff(gn)p Fi(set)o(width)o
+Ff(f)p Fi(30)p Ff(g)990 405 y(n)p Fi(setnumberpos)p Ff(f)p
+Fi(ins)o(ide)p Ff(g)990 455 y(n)p Fi(setxaxis)p Ff(f)p Fi(1)p
+Ff(gf)p Fi(4)p Ff(gf)p Fi(1)o Ff(g)990 504 y(n)p Fi(setyaxis[10])p
+Ff(f)p Fi(0)p Ff(gf)o Fi(60)p Ff(gf)o Fi(20)p Ff(g)990 554
+y(n)p Fi(bar)p Ff(f)p Fi(10,2)p Ff(gf)p Fi(1)p Ff(g)990 604
+y(n)p Fi(bar)p Ff(f)p Fi(45,6)p Ff(gf)p Fi(1)p Ff(g)990 654
+y(n)p Fi(bar)p Ff(f)p Fi(30)p Ff(gf)p Fi(1)p Ff(g)990 704 y(n)p
+Fi(bar)p Ff(f)p Fi(-12,7)p Ff(gf)p Fi(1)p Ff(g)990 753 y(n)p
+Fi(end)p Ff(f)p Fi(barenv)p Ff(g)324 855 y Fj(Sind)19 b(die)h(W)m(erte)g(der)
+g(Balk)o(en)g(klein,)f(treten)i(Di\013erenzen)g(zwisc)o(hen)g(den)f(H)1608
+857 y(\177)1608 855 y(ohen)262 905 y(nic)o(h)o(t)13 b(b)q(esonders)k(deutlic)
+o(h)d(herv)o(or.)g(In)g(solc)o(hen)g(F)1079 907 y(\177)1079
+905 y(allen)g(k)n(ann)f(das)i(Diagramm)10 b(v)o(ertik)n(al)262
+955 y(mit)k(dem)h(Befehl)i Ff(n)p Fi(setstretch)d Fj(sk)n(aliert)i(w)o
+(erden.)h(Der)f(umgek)o(ehrte)h(F)m(all,)d(w)o(enn)i(das)262
+1004 y(Diagramm)9 b(zu)15 b(gro\031)f(wird,)f(k)n(ann)g(eb)q(enfalls)h(mit)f
+Ff(n)p Fi(setstretch)e Fj(und)k(einem)e(W)m(ert)h Fb(<)e Fj(1)262
+1054 y(abgefangen)20 b(w)o(erden.)h(Die)g(Sk)n(alierung)e(b)q(etri\013t)j(n)o
+(ur)f(die)g(Balk)o(enh)1386 1056 y(\177)1386 1054 y(ohen,)f(nic)o(h)o(t)h(ab)
+q(er)262 1104 y(Breite)15 b(und)f(Tiefe.)p 324 1633 17 4 v
+228 1641 a Fi(0,00)p 324 1529 V 228 1537 a(0,50)p 324 1425
+V 228 1433 a(1,00)p 324 1321 V 228 1330 a(1,50)p 324 1218 V
+228 1226 a(2,00)p 339 1631 4 416 v 339 1593 128 2 v 339 1630
+2 38 v 465 1630 V 339 1632 128 2 v 411 1529 a(0,2)p 463 1298
+V 463 1630 2 333 v 589 1630 V 463 1632 128 2 v 468 1631 2 333
+v 481 1631 V 493 1631 V 506 1631 V 518 1631 V 531 1631 V 543
+1631 V 555 1631 V 568 1631 V 580 1631 V 536 1234 a(1,6)340
+1594 y Fe(\000)p 382 1553 84 2 v 588 1622 128 2 v 588 1630
+2 9 v 714 1630 V 588 1632 128 2 v 650 1558 a Fi(0,05)465 1299
+y Fe(\000)p 506 1258 125 2 v 630 1581 2 324 v 82 w(\000)p 712
+1605 128 2 v 712 1630 2 25 v 839 1630 V 712 1632 128 2 v 717
+1631 2 25 v 730 1631 V 742 1631 V 755 1631 V 767 1631 V 780
+1631 V 792 1631 V 804 1631 V 817 1631 V 829 1631 V 714 1628
+125 2 v 714 1615 V 774 1541 a Fi(0,13)589 1623 y Fe(\000)p
+631 1582 108 2 v 839 1631 a(\000)839 1606 y(\000)839 1631 y(\000)714
+1606 y(\000)p 756 1566 125 2 v 880 1590 2 25 v 83 w(\000)p
+340 1633 499 4 v 401 1648 4 17 v 392 1685 a Fi(1)p 526 1648
+V 102 w(2)p 650 1648 V 103 w(3)p 775 1648 V 102 w(4)p 340 1633
+499 4 v 990 1139 a Ff(n)p Fi(begin)p Ff(f)p Fi(barenv)p Ff(g)990
+1189 y(n)p Fi(setstretch)p Ff(f)p Fi(50)p Ff(g)990 1239 y(n)p
+Fi(setdepth)p Ff(f)p Fi(10)p Ff(gn)p Fi(set)o(width)o Ff(f)p
+Fi(30)p Ff(g)990 1289 y(n)p Fi(setnumberpos)p Ff(f)p Fi(up)p
+Ff(g)990 1338 y(n)p Fi(setxaxis)p Ff(f)p Fi(1986)p Ff(gf)p
+Fi(1)o(989)p Ff(gf)o Fi(1)p Ff(g)990 1388 y(n)p Fi(setprecision)p
+Ff(f)p Fi(2)p Ff(g)990 1438 y(n)p Fi(setyaxis)p Ff(f)p Fi(0)p
+Ff(gf)p Fi(2)p Ff(gf)p Fi(0)o(.5)p Ff(g)990 1488 y(n)p Fi(bar)p
+Ff(f)p Fi(0,2)p Ff(gf)p Fi(1)p Ff(g)990 1538 y(n)p Fi(bar)p
+Ff(f)p Fi(1,6)p Ff(gf)p Fi(2)p Ff(g)990 1588 y(n)p Fi(bar)p
+Ff(f)p Fi(0,05)p Ff(gf)p Fi(3)p Ff(g)990 1637 y(n)p Fi(bar)p
+Ff(f)p Fi(0,13)p Ff(gf)p Fi(4)p Ff(g)990 1687 y(n)p Fi(end)p
+Ff(f)p Fi(barenv)p Ff(g)324 1733 y Fj(Der)e(im)f(obigen)g(Beispiel)i(v)o(erw)
+o(endete)h(Befehl)f Ff(n)p Fi(setprecision)c Fj(b)q(estimm)o(t)h(die)j(An-)
+262 1783 y(zahl)e(der)h(Nac)o(hk)o(ommastellen)d(f)781 1785
+y(\177)780 1783 y(ur)i(die)h(Besc)o(hriftungen)h(der)f(Ac)o(hsen.)h(Im)d
+(Beispiel)i(wur-)262 1832 y(de,)e(da)g(der)h(Befehl)f Fg(nach)h
+Fj(dem)f Ff(n)p Fi(setxaxis)p Fj(-Befehl)e(erfolgt,)i(f)1237
+1834 y(\177)1236 1832 y(ur)g(die)g(y-Ac)o(hse)h(zw)o(ei)g(Nac)o(h-)262
+1882 y(k)o(omm)o(astellen)g(gew)591 1884 y(\177)591 1882 y(ahlt.)324
+1932 y(Das)17 b(Diagramm)d(k)n(ann)j(mit)f(horizon)o(talen)h(Hin)o
+(tergrundlinien)h(v)o(ersehen)h(w)o(erden.)262 1982 y(Dies)14
+b(erleic)o(h)o(tert)h(das)f(Ablesen)h(der)g(W)m(erte)g(der)g(einzelnen)g
+(Balk)o(en.)e(Es)i(k)n(ann)e(zwisc)o(hen)262 2032 y(gepunkteten)g(o)q(der)g
+(durc)o(hgezogenen)h(Hin)o(tergrundlinien)e(gew)1287 2034 y(\177)1287
+2032 y(ahlt)g(w)o(erden.)h(V)m(oreinge-)262 2082 y(stellt)h(sind)f
+(gepunktete)j(Hin)o(tergrundlinien.)967 2574 y(3)p eop
+%%Page: 4 4
+bop 324 870 17 4 v 294 880 a Fi(0)p 324 765 V 250 776 a(500)p
+324 662 V 228 673 a(1000)p 324 558 V 228 569 a(1500)p 324 454
+V 228 465 a(2000)p 324 350 V 228 361 a(2500)p 339 868 4 519
+v 339 576 128 2 v 339 867 2 291 v 465 867 V 339 869 128 2 v
+344 868 2 291 v 356 868 V 369 868 V 381 868 V 394 868 V 406
+868 V 418 868 V 431 868 V 443 868 V 456 868 V 340 865 125 2
+v 340 852 V 340 839 V 340 827 V 340 814 V 340 802 V 340 790
+V 340 777 V 340 765 V 340 752 V 340 740 V 340 727 V 340 715
+V 340 702 V 340 690 V 340 677 V 340 665 V 340 653 V 340 640
+V 340 628 V 340 615 V 340 603 V 340 590 V 359 905 a(1400)p
+463 381 128 2 v 463 867 2 486 v 589 867 V 463 869 128 2 v 469
+868 9 486 v 486 868 V 502 868 V 519 868 V 535 868 V 552 868
+V 569 868 V 465 864 125 9 v 465 847 V 465 830 V 465 814 V 465
+797 V 465 780 V 465 764 V 465 747 V 465 731 V 465 714 V 465
+697 V 465 681 V 465 664 V 465 648 V 465 631 V 465 614 V 465
+598 V 465 581 V 465 565 V 465 548 V 465 531 V 465 515 V 465
+498 V 465 482 V 465 465 V 465 448 V 465 432 V 465 415 V 465
+399 V 37 w(2340)340 577 y Fe(\000)p 382 536 84 2 v 394 518
+a Fb(:)6 b(:)h(:)f(:)394 414 y(:)g(:)h(:)f(:)387 311 y(:)g(:)h(:)f(:)h(:)f(:)
+g(:)p 588 684 128 2 v 588 867 2 183 v 714 867 V 588 869 128
+2 v 589 868 a Fe(\010)631 847 y(\010)672 826 y(\010)589 851
+y(\010)631 830 y(\010)672 809 y(\010)589 834 y(\010)631 814
+y(\010)672 793 y(\010)589 818 y(\010)631 797 y(\010)672 776
+y(\010)589 801 y(\010)631 780 y(\010)672 760 y(\010)589 785
+y(\010)631 764 y(\010)672 743 y(\010)589 768 y(\010)631 747
+y(\010)672 726 y(\010)589 751 y(\010)631 731 y(\010)672 710
+y(\010)589 735 y(\010)631 714 y(\010)648 706 y(\010)589 718
+y(\010)614 706 y(\010)623 868 y(\010)664 847 y(\010)672 843
+y(\010)656 868 y(\010)672 859 y(\010)619 905 y Fi(890)465 382
+y Fe(\000)p 506 341 125 2 v 630 643 2 304 v 82 w(\000)511 311
+y Fb(:)h(:)f(:)h(:)f(:)h(:)f(:)p 712 460 128 2 v 712 867 2
+407 v 839 867 V 712 869 128 2 v 714 482 a Fe(H)756 502 y(H)797
+523 y(H)714 498 y(H)756 519 y(H)797 540 y(H)714 515 y(H)756
+535 y(H)797 556 y(H)714 531 y(H)756 552 y(H)797 573 y(H)714
+548 y(H)756 569 y(H)797 589 y(H)714 565 y(H)756 585 y(H)797
+606 y(H)714 581 y(H)756 602 y(H)797 623 y(H)714 598 y(H)756
+619 y(H)797 639 y(H)714 614 y(H)756 635 y(H)797 656 y(H)714
+631 y(H)756 652 y(H)797 672 y(H)714 648 y(H)756 668 y(H)797
+689 y(H)714 664 y(H)756 685 y(H)797 706 y(H)714 681 y(H)756
+702 y(H)797 722 y(H)714 697 y(H)756 718 y(H)797 739 y(H)714
+714 y(H)756 735 y(H)797 756 y(H)714 731 y(H)756 751 y(H)797
+772 y(H)714 747 y(H)756 768 y(H)797 789 y(H)714 764 y(H)756
+785 y(H)797 805 y(H)714 780 y(H)756 801 y(H)797 822 y(H)714
+797 y(H)756 818 y(H)797 839 y(H)714 814 y(H)756 834 y(H)797
+855 y(H)714 830 y(H)756 851 y(H)789 868 y(H)714 847 y(H)756
+868 y(H)714 864 y(H)722 868 y(H)714 482 y(H)756 502 y(H)797
+523 y(H)747 482 y(H)789 502 y(H)797 506 y(H)780 482 y(H)797
+490 y(H)733 905 y Fi(1973)589 685 y Fe(\000)p 631 644 84 2
+v 643 622 a Fb(:)g(:)h(:)f(:)643 518 y(:)g(:)h(:)f(:)636 414
+y(:)g(:)h(:)f(:)h(:)f(:)h(:)636 311 y(:)f(:)h(:)f(:)h(:)f(:)h(:)839
+868 y Fe(\000)839 461 y(\000)839 868 y(\000)714 461 y(\000)p
+756 420 125 2 v 880 826 2 407 v 83 w(\000)760 414 y Fb(:)g(:)f(:)h(:)f(:)h(:)
+f(:)760 311 y(:)h(:)f(:)h(:)f(:)h(:)f(:)p 340 870 499 4 v 340
+870 V 340 349 a Fa(\000)p 382 309 V 879 826 4 519 v 839 868
+a(\000)p 381 535 2 229 v 340 556 a Fj(.)353 544 y(.)365 531
+y(.)340 452 y(.)353 440 y(.)365 428 y(.)340 349 y(.)353 336
+y(.)365 324 y(.)990 328 y Ff(n)p Fi(begin)p Ff(f)p Fi(barenv)p
+Ff(g)990 378 y(n)p Fi(setstretch)p Ff(f)p Fi(0.05)p Ff(g)990
+428 y(n)p Fi(setdepth)p Ff(f)p Fi(10)p Ff(gn)p Fi(set)o(width)o
+Ff(f)p Fi(30)p Ff(g)990 477 y(n)p Fi(setnumberpos)p Ff(f)p
+Fi(dow)o(n)p Ff(g)990 527 y(n)p Fi(setyaxis)p Ff(f)p Fi(0)p
+Ff(gf)p Fi(2500)o Ff(gf)p Fi(50)o(0)p Ff(g)990 577 y(n)p Fi(hlineon)990
+627 y Ff(n)p Fi(bar)p Ff(f)p Fi(1400)p Ff(gf)p Fi(4)p Ff(g)990
+677 y(n)p Fi(bar)p Ff(f)p Fi(2340)p Ff(gf)p Fi(5)p Ff(g)990
+726 y(n)p Fi(bar)p Ff(f)p Fi(890)p Ff(gf)p Fi(6)p Ff(g)990
+776 y(n)p Fi(bar)p Ff(f)p Fi(1973)p Ff(gf)p Fi(7)p Ff(g)990
+826 y(n)p Fi(end)p Ff(f)p Fi(barenv)p Ff(g)324 953 y Fj(Zus)388
+955 y(\177)388 953 y(atzlic)o(he)14 b(Erkl)617 955 y(\177)617
+953 y(arungen)g(k)798 955 y(\177)798 953 y(onnen)g(mit)e(dem)g(L)1096
+948 y Fh(a)1115 953 y Fj(T)1138 965 y(E)1162 953 y(X-eigenen)i
+Ff(n)p Fi(put)f Fj(Befehl)h(hinzu-)262 1002 y(gef)315 1004
+y(\177)314 1002 y(ugt)f(w)o(erden.)h(Da)f(das)h(Balk)o(endiagramm)c(in)j
+(eine)h Fi(picture)p Fj(-Umgebung)d(gezeic)o(hnet)262 1052
+y(wird,)16 b(sind)h(grunds)584 1054 y(\177)584 1052 y(atzlic)o(h)g(alle)f
+(Befehle)i(erlaubt,)f(die)g(in)g(einer)g Fi(picture)p Fj(-Umgebung)262
+1102 y(V)m(erw)o(endung)d(\014nden)h(\(z.B.)e Ff(n)p Fi(line,)p
+Ff(n)p Fi(oval)f Fj(usw.\).)967 2574 y(4)p eop
+%%Trailer
+end
+userdict /end-hook known{end-hook}if
+%%EOF
diff --git a/macros/latex209/contrib/barkom/barkom.tex b/macros/latex209/contrib/barkom/barkom.tex
new file mode 100644
index 0000000000..a3a5cf7d17
--- /dev/null
+++ b/macros/latex209/contrib/barkom/barkom.tex
@@ -0,0 +1,288 @@
+\documentstyle[bar,german]{article}
+
+\newdimen\mydim\mydim\textwidth\advance\mydim -6pt\divide\mydim 2
+\def\back{$\backslash$}
+\def\mycs#1{{\tt\back #1}}
+\def\myhelp#1{\back#1\{barenv\}}
+\def\mybar#1#2{\back bar\{#1\}\{#2\}}
+
+
+\begin{document}
+\centerline{\LARGE Balkendiagramme in \LaTeX-Dokumenten}
+\vspace{3ex}
+\centerline{\large\sc Joachim Bleser\hfil Edmund Lang}
+\vspace{2ex}
+\centerline{\large TH Darmstadt, Hochschulrechenzentrum}
+\vspace{2ex}
+
+Als Hilfsmittel, um Daten zu veranschaulichen, werden heutzutage immer
+h„ufiger Diagramme, insbesondere Balken- oder Kuchendiagramme, eingesetzt.
+Jeder kennt die Balkendiagramme, die z.B.\ nach Wahlen Gewinne und Verluste
+der einzelnen Parteien auf einen Blick verdeutlichen.
+
+Das hier vorgestellte Style-File {\tt bar.sty} hilft dem \LaTeX-Anwender,
+solche {\em Balkendiagramme} in seinen Dokumenten zu verwenden, ohne auf externe
+Programme, wie z.B.\ {\sc Havard Graphics} oder {\sc Excel} im PC-Bereich,
+zurckgreifen zu mssen.
+
+\begin{center}
+\parbox{6cm}{\tt%
+ \back begin\{barenv\}\\ \hspace*{5mm}{\em Deklarationen}\\
+ \hspace*{5mm}\back bar\{{\em H”he}\}\{{\em Fllungsindex}\}[{\em Wert}]\\
+ \hspace*{1cm}\vdots\\
+ \hspace*{5mm}\back bar\{{\em H”he}\}\{{\em Fllungsindex}\}[{\em Wert}]\\
+ \back end\{barenv\}\\
+ {\em Legende}}
+\end{center}
+
+Innerhalb der neu definierten Umgebung {\tt barenv} k”nnen beliebig
+positive und negative Balken gezeichnet werden. Acht verschiedene Schraffuren
+stehen zur Verfgung.
+
+\begin{tabular}{lcccccccc}
+Schraffur: &\legend1{}&\legend2{}&\legend3{}&\legend4{}&%
+\legend5{}&\legend6{}&\legend7{}&\legend8{}\\
+Index: & 1 & 2 & 3 & 4 & 5 & 6 & 7 & 8
+\end{tabular}
+
+Die {\em Deklarationen} definieren Einstellungen wie z.B.\ Balkenbreite oder
+die Einteilung der Achsen.
+
+Der einfachste Fall ist ein zweidimensionales Balkendiagramm. Die Balken werden
+durch ihre H”he und ihren Fllungsindex definiert. Optional ist noch eine
+beliebige Zeichenfolge m”glich, die unter den Balken geschrieben wird.
+
+\vspace{\baselineskip}
+\noindent\parbox{\mydim}{
+\begin{barenv}
+ \setwidth{30}
+ \setyaxis{0}{50}{10}
+ \bar{10}{1}
+ \bar{45}{2}[\tt\small max]
+ \bar{30}{3}
+ \bar{25}{4}
+\end{barenv}
+}\hfill
+\parbox{\mydim}{\tt
+\back begin\{barenv\}\\
+% \back setxaxis\{1\}\{4\}\{1\}\\
+ \back setyaxis\{0\}\{50\}\{10\}\\
+ \back bar\{10\}\{1\}\\
+ \back bar\{45\}\{2\}[\back tt max]\\
+ \back bar\{30\}\{3\}\\
+ \back bar\{25\}\{4\}\\
+\back end\{barenv\}\\
+}
+
+Die x-Achse kann auch anstelle von Zahlen mit den Monatsnamen (d.h.\ mit den
+ersten drei Buchstaben der Monatsnamen) oder Tagen (d.h.\ mit den ersten
+drei Buchstaben der Tage) beschriftet werden.
+
+\centerline{\bf Temperatur / Monat}
+\begin{center}
+\begin{barenv}
+ \setwidth{30}
+ \setstyle{\sc}
+ \setxvaluetyp{month}
+ \setxaxis{1}{11}{2}
+ \setstyle{\tt}
+ \setyaxis{0}{40}{10}
+ \bar{0}{1}
+ \bar{8}{1}
+ \bar{15}{1}
+ \bar{25}{1}
+ \bar{20}{1}
+ \bar{5}{1}
+\end{barenv}
+\end{center}
+
+\vspace{\baselineskip}
+Zwischen die Balken kann zus„tzlicher Zwischenraum eingefgt oder
+auch eine Trennlinie gezogen werden.
+Ein Diagramm kann sehr leicht an der x-Achse gespiegelt werden, indem
+der Anfangs- und der Endwert der y-Achse vertauscht werden. In diesem Fall
+muá aber auch die Schrittweite negiert werden.
+
+\vspace{1ex}
+\noindent\parbox{\mydim}{
+{\bf Gnu-Aktienindex}
+
+\vspace{\baselineskip}
+ \begin{barenv}
+ \setwidth{30}
+ \setstyle{\tt}
+ \setyaxis[10]{-20}{40}{10}
+ \setstyle{\sc}
+ \setxvaluetyp{day}
+ \setxaxis{5}{8}{1}
+ \bar{36.5}{8}
+ \bar{6.2}{8}
+ \vline
+ \bar{-3.2}{8}
+ \bar{-16}{8}
+ \end{barenv}
+}
+\parbox{\mydim}{
+{\bf Gnu-Aktienindex}
+
+\vspace{\baselineskip}
+ \begin{barenv}
+ \setwidth{30}
+ \setstyle{\tt}
+ \setyaxis[10]{40}{-20}{-10}
+ \setstyle{\sc}
+ \setxvaluetyp{day}
+ \setxaxis{5}{8}{1}
+ \bar{36.5}{8}
+ \bar{6.2}{8}
+ \vline
+ \bar{-3.2}{8}
+ \bar{-16}{8}
+ \end{barenv}
+}
+
+\vspace{\baselineskip}
+Wenn der zweidimensionale Fall nicht ausreicht, k”nnen die Balken auch
+dreidimensional darstellen werden. Der Befehl \mycs{setdepth} setzt die
+Balkentiefe auf einen Wert gr”áer 0; dadurch erhalten die Balken Plastizit„t.
+
+\noindent\parbox{\mydim}{
+ \begin{barenv}
+ \setdepth{10}\setwidth{30}
+ \setxaxis{1}{4}{1}
+ \setyaxis[10]{-20}{60}{20}
+ \bar{10,2}{1}
+ \bar{45,6}{2}
+ \bar{30}{3}
+ \bar{-12,7}{4}
+ \end{barenv}
+}\hfill
+\parbox{\mydim}%
+{\tt\myhelp{begin}\\
+ \back setdepth\{10\}\back setwidth\{30\}\\
+ \back setxaxis\{1\}\{4\}\{1\}\\
+ \back setyaxis[10]\{0\}\{60\}\{20\}\\
+ \mybar{10,2}{1}\\
+ \mybar{45,6}{2}\\
+ \mybar{30}{3}\\
+ \mybar{-12,7}{4}\\
+ \myhelp{end}
+}
+
+
+\vspace{\baselineskip}
+Die Beschriftung der Balken kann an verschiedenen Stellen erfolgen.
+Voreingestellt ist {\em oberhalb}, wenn die GrӇe $>$ 0 ist, und unterhalb,
+wenn die Gr”áe $<$ 0 ist. Fnf weitere M”glichkeiten sind zugelassen, so z.B.
+{\em innerhalb} der Balken oder stets {\em unterhalb}.
+
+\noindent\parbox{\mydim}{
+ \vspace*{\baselineskip}
+ \begin{barenv}
+ \setdepth{10}\setwidth{30}
+ \setnumberpos{inside}
+ \setxaxis{1}{4}{1}
+ \setyaxis[10]{-20}{60}{20}
+ \bar{10,2}{1}
+ \bar{45,6}{1}
+ \bar{30}{1}
+ \bar{-12,7}{1}
+ \end{barenv}
+}\hfill
+\parbox{\mydim}%
+{\tt\myhelp{begin}\\
+ \back setdepth\{10\}\back setwidth\{30\}\\
+ \back setnumberpos\{inside\}\\
+ \back setxaxis\{1\}\{4\}\{1\}\\
+ \back setyaxis[10]\{0\}\{60\}\{20\}\\
+ \mybar{10,2}{1}\\
+ \mybar{45,6}{1}\\
+ \mybar{30}{1}\\
+ \mybar{-12,7}{1}\\
+ \myhelp{end}
+}
+
+\vspace{\baselineskip}
+Sind die Werte der Balken klein, treten Differenzen zwischen den
+H”hen nicht besonders deutlich hervor. In solchen F„llen kann das Diagramm
+vertikal mit dem Befehl \mycs{setstretch} skaliert werden.
+Der umgekehrte Fall, wenn das Diagramm zu groá wird, kann
+ebenfalls mit \mycs{setstretch} und einem Wert $<1$ abgefangen werden.
+Die Skalierung betrifft nur die Balkenh”hen, nicht aber Breite und Tiefe.
+
+\noindent\parbox{\mydim}{%
+ \begin{barenv}
+ \setstretch{50}
+ \setdepth{10}\setwidth{30}
+ \setnumberpos{up}
+ \setxaxis{1}{4}{1}
+ \setprecision{2}
+ \setyaxis{0}{2}{0.5}
+ \bar{0,2}{1}
+ \bar{1,6}{2}
+ \bar{0,05}{3}
+ \bar{0,13}{4}
+ \end{barenv}
+}\hfill
+\parbox{\mydim}%
+{\tt\myhelp{begin}\\
+ \back setstretch\{50\}\\
+ \back setdepth\{10\}\back setwidth\{30\}\\
+ \back setnumberpos\{up\}\\
+ \back setxaxis\{1986\}\{1989\}\{1\}\\
+ \back setprecision\{2\}\\
+ \back setyaxis\{0\}\{2\}\{0.5\}\\
+ \back bar\{0,2\}\{1\}\\
+ \back bar\{1,6\}\{2\}\\
+ \back bar\{0,05\}\{3\}\\
+ \back bar\{0,13\}\{4\}\\
+ \myhelp{end}
+}
+
+Der im obigen Beispiel verwendete Befehl \mycs{setprecision} bestimmt die
+Anzahl der Nachkommastellen fr die Beschriftungen der Achsen. Im Beispiel
+wurde, da der Befehl {\em nach} dem \mycs{setxaxis}-Befehl erfolgt, fr
+die y-Achse zwei Nachkommastellen gew„hlt.
+
+
+Das Diagramm kann mit horizontalen Hintergrundlinien versehen werden.
+Dies erleichtert das Ablesen der Werte der einzelnen Balken.
+Es kann zwischen gepunkteten oder durchgezogenen Hintergrundlinien
+gew„hlt werden. Voreingestellt sind gepunktete Hintergrundlinien.
+
+\noindent\parbox{\mydim}{
+ \begin{barenv}
+ \setstretch{0.05}
+ \setdepth{10}\setwidth{30}
+ \setnumberpos{down}
+ \setyaxis{0}{2500}{500}
+ \hlineon
+ \bar{1400}{4}
+ \bar{2340}{5}
+ \bar{890}{6}
+ \bar{1973}{7}
+ \end{barenv}
+}\hfill
+\parbox{\mydim}%
+{\tt\myhelp{begin}\\
+ \back setstretch\{0.05\}\\
+ \back setdepth\{10\}\back setwidth\{30\}\\
+ \back setnumberpos\{down\}\\
+ \back setyaxis\{0\}\{2500\}\{500\}\\
+ \back hlineon\\
+ \mybar{1400}{4}\\
+ \mybar{2340}{5}\\
+ \mybar{890}{6}\\
+ \mybar{1973}{7}\\
+ \myhelp{end}
+}
+
+\vspace{\baselineskip}
+Zus„tzliche Erkl„rungen k”nnen mit dem \LaTeX-eigenen
+{\tt\back put} Befehl hinzugefgt werden.
+Da das Balkendiagramm in eine {\tt picture}-Umgebung gezeichnet wird, sind
+grunds„tzlich alle Befehle erlaubt, die in einer {\tt picture}-Umgebung
+Verwendung finden (z.B.\ {\tt\back line,\back oval} usw.).
+
+
+\end{document}