\let\pudelko=\vtop
%
\def\szarybox(#1,#2)#3{\setbox0\hbox{#3}%
\setbox1\hbox{\null\hskip#1pt\vbox
{%
\parskip0pt
\noindent\hsize\wd0\null\vskip#2pt\vskip-4
pt\copy0\vskip-11pt%
\vskip#2pt\null}\hskip#1pt\null}%
%
\special{"gsave
/a \number\wd1 \space 65535 div def
/b \number\ht1 \space \number \dp1 \space add 65535 div neg def
%
 0      0 moveto a 0 rlineto 0  b neg rlineto a neg 0 rlineto  closepath
gsave 0.85 setgray fill grestore 0.3 setlinewidth 0.0 setgray stroke
%
grestore}\copy1}
%
\def\szareA[#1](#2,#3)#4{\setbox0\hbox{\pudelko{\hbox{\pudelko{\hsize#1
%
\hbox
{\hskip12truept\pudelko{\advance\hsize2truept\vskip12truept#4\vskip12truept}\hskip12truept}}}}}%
%
\setbox1\copy0\wd1=0truept\ht1=0truept\dp1=0truept
\vbox{\noindent\hsize\wd0
\hbox{%
%
\special{" gsave
/a \number\wd0 \space 65535 div def
/b \number\ht0 \space \number \dp0 \space add 65535 div neg def
%
/dx #2 def /dy #3 def
dx dy neg moveto a 0 rlineto 0  b rlineto a neg 0 rlineto  closepath
0.85 setgray fill
 0      0 moveto a 0 rlineto 0  b rlineto a neg 0 rlineto  closepath
        gsave 0.85 setgray fill grestore 0.3 setlinewidth 0.0 setgray stroke
%
grestore }\copy1}\null\hskip\wd0\null\vskip\ht0\vskip\dp0}}
%
\def\szareB[#1](#2,#3)#4{%
\dimen254=#2\relax
\dimen255=#3\relax
%
\setbox0\hbox{\pudelko{\hbox{\pudelko{\hsize#1
%
\hbox
{\null\hskip12truept
\pudelko{\advance\hsize2truept
\vskip12truept#4\vskip12truept}\hskip12truept\null}}}}}%
%
\setbox1\copy0\wd1=0truept\ht1=0truept\dp1=0truept

\vbox{\noindent\hsize\wd0
\hbox{%
%
\special{" gsave
/a \number\wd0 \space 65535 div def
/b \number\ht0 \space \number \dp0 \space add 65535 div neg def
%
/dx \number\dimen254 \space 65535 div def
/dy \number\dimen255 \space 65535 div def
%
0 0 moveto gsave dx     0 rlineto stroke grestore gsave 0 dy neg rlineto stroke grestore
a b moveto gsave dx neg 0 rlineto stroke grestore gsave 0.3 dy     rlineto stroke grestore
%
grestore }\copy1}\null\hskip\wd0\null\vskip\ht0\vskip\dp0}}
%
\def\szareAA[#1](#2,#3)#4{%
\setbox0\hbox{\pudelko{\hbox{\pudelko{\hsize#1
%
\hbox
{\hskip12truept\pudelko{\advance\hsize2truept\vskip12truept#4\vskip12truept}\hskip12truept}}}}}%
%
\setbox1\copy0\wd1=0truept\ht1=0truept\dp1=0truept
\vbox{\noindent\hsize\wd0
\hbox{%
%
\special{" gsave
/a \number\wd0 \space 65535 div def
/b \number\ht0 \space \number \dp0 \space add 65535 div neg def
%
/dx #2 def /dy #3 def
dx dy neg moveto a 0 rlineto 0  b dy add rlineto a neg 0 rlineto  closepath
0.85 setgray fill
0      0 moveto a 0 rlineto 0  b rlineto a neg 0 rlineto  closepath
0.85 setgray fill
0      0 moveto a 0 rlineto 0  b rlineto a neg 0 rmoveto  0 b neg rlineto
        0.3 setlinewidth 0.0 setgray stroke
%
grestore }\copy1}\null\hskip\wd0\null\vskip\ht0\vskip\dp0}}
%
\def\szareAB[#1](#2,#3)#4{%
\setbox0\hbox{\pudelko{\hbox{\pudelko{\hsize#1
%
\hbox
{\hskip12truept\pudelko{\advance\hsize2truept\vskip12truept#4\vskip12truept}\hskip12truept}}}}}%
%
\setbox1\copy0\wd1=0truept\ht1=0truept\dp1=0truept
\vbox{\noindent\hsize\wd0
\hbox{%
%
\special{" gsave
/a \number\wd0 \space 65535 div def
/b \number\ht0 \space \number \dp0 \space add 65535 div neg def
%
/dx #2 def /dy #3 def
dx 0 neg moveto a 0 rlineto  0  b dy sub rlineto a neg 0 rlineto  closepath
0.85 setgray fill
 0      0 moveto a 0 rlineto 0  b rlineto a neg 0 rlineto  closepath
        0.85 setgray fill
 0      0 moveto a 0 rmoveto 0  b rlineto a neg 0 rlineto  0 b neg rlineto
 0.3 setlinewidth 0.0 setgray stroke
%
grestore }\copy1}\null\hskip\wd0\null\vskip\ht0\vskip\dp0}}
%
\endinput