% TeX MACROS FOR (VISITING) CARDS TYPESETTING, by Vit ZYKA, 1997
% example style file: cmp4-97.sty

% Macro \card reads the data file with structure:
%       #_OF_CARDS,NAME,TITLE1,TITLE2,PHONE1,PHONE2,FAX,MAIL1,MAIL2
%       one of PHONE1, PHONE2, FAX, MAIL1, MAIL2 must be empty

\input epsf

\newdimen\vborder \vborder=3mm          % vertical card text skip
\newdimen\hborder \hborder=4mm          % horizontal card text skip
\newdimen\logoheight \logoheight=1cm    % height of lev.eps logo
\newdimen\helpdim
\newdimen\helpIdim
\newdimen\helpIIdim

\newbox\helpbox
\newbox\helpIbox
\newbox\helpIIbox
\newbox\phonebox
\newbox\faxbox
\newbox\emailbox
\newbox\rectbox
\newbox\levbox
\newbox\cmpbox

\font\namefn=csbx12 at 15pt
\font\titlefn=csr8
\font\titlefnsm=csr6
\font\addressfn=csr7
\font\namefnsm=csbx12 at 14pt
\font\telefb=wasyb10

\def\cmp{\epsfysize=0.9\logoheight%
         \ifcase\color\epsfbox{cmp.eps}\or\epsfbox{cmp_sb.eps}%
         \or\epsfbox{cmp_sr.eps}\fi}
\def\lev{\epsfysize=\logoheight%
         \ifcase\color\epsfbox{lev.eps}\or\epsfbox{lev.eps}%
         \or\hskip1.29099cm\fi}

% ******************************************************** CARD MACRO DEFINITION
\long\def\card#1|#2|#3|#4|#5|#6|#7|#8\enddata{%
        \ifcase\color\or\or\special{ps:gsave 1 setgray}\fi
        \ifcase\the\style% ---------------------------- Ang-general --- Design 0
          \setbox\helpbox=\hbox{{\namefn#1}}%
          \ifdim\wd\helpbox>0.8\cardwidth\let\namefn=\namefnsm\fi%
          \helpIdim=1cm%
          \setbox\helpbox=\hbox{\cmp\lev\hskip2\hborder}%
          \helpdim=\cardwidth \advance\helpdim by-\wd\helpbox
          \vbox to\cardheight{%............................................. top
            \vskip\vborder%
            \hbox to\cardwidth{%
              \hskip\hborder%
              \vbox to\helpIdim{\vfil\cmp\vfil}%
              \vbox to\helpIdim{\normalbaselines%
                {\titlefn%
                \vfil%
                \hbox to\helpdim{\hfil Center for Machine Perception\hfil}%
                \kern-0.5ex%
                \hbox to\helpdim{\hfil Czech Technical University\hfil}%
                \vfil}}%
              \lev%
              \hskip\hborder}%
            \vfil%........................................................center
            \vskip0.5ex%
            \hbox to\cardwidth{\hfil{\namefn#1}\hfil}%
            \vfil\vskip-2ex%
            \setbox\helpbox=\hbox{#3}%
            {\titlefn\normalbaselines%
            \ifdim\wd\helpbox>0pt\else\kern-0.5ex\fi%
            \hbox to\cardwidth{\hfil#2\hfil}%
            \ifdim\wd\helpbox>0pt\kern-0.5ex\hbox to\cardwidth{\hfil#3\hfil}%
                \else\vskip1ex\fi%
            }%
            \vfil%........................................................bottom
            \hbox to\cardwidth{%
              {\addressfn%
              \hskip\hborder%
              \setbox\helpIbox=\vbox{\baselineskip=8pt%
                \hbox{Czech Technical University}%
                \hbox{Faculty of Electrical Engineering}%
                \hbox{Center for Machine Perception}%
                \hbox{121 35\hskip0.66em Prague 2, Karlovo n m. 13}%
                \hbox{Czech Republic}}%
              \helpIdim=\ht\helpIbox%
              %
              \setbox\phonebox=\hbox{phone}\setbox\faxbox=\hbox{fax}%
              \ifdim\wd\faxbox>\wd\phonebox\helpdim=\wd\faxbox%
              \else\helpdim=\wd\phonebox\fi%
              \setbox\phonebox=\hbox{#5}%
              \setbox\faxbox=\hbox{#6}%
              \setbox\emailbox=\hbox{#8}%
              \setbox\helpIIbox=\vbox{\baselineskip=8pt%
                \hbox{\hbox to\helpdim{phone\hfil}\ #4}%
                \ifdim\wd\phonebox>0pt\hbox{\hskip\helpdim\ #5}\fi%
                \ifdim\wd\faxbox>0pt\hbox{\hbox to\helpdim{fax\hfil}\ #6}\fi%
                \hbox{#7}%
                \ifdim\wd\emailbox>3pt\hbox{#8}\fi%
                \hbox{http://cmp.felk.cvut.cz}}%
              %
              \ifdim\ht\helpIIbox>\helpIdim\helpIdim=\ht\helpIIbox\fi%
              \vbox{\unvbox\helpIbox}%
              \hfil%
              \vbox to\helpIdim{\baselineskip=8pt%
                \hbox{\hbox to\helpdim{phone\hfil}\ #4}%
                \ifdim\wd\phonebox>0pt\hbox{\hskip\helpdim\ #5}\fi%
                \ifdim\wd\faxbox>0pt\hbox{\hbox to\helpdim{fax\hfil}\ #6}\fi%
                \vfil%
                \hbox{#7}%
                \ifdim\wd\emailbox>3pt\hbox{#8}\fi%
                \hbox{http://cmp.felk.cvut.cz}}%
              \hskip\hborder}}%
            \vskip\vborder}%
        \or% ------------------------------------------ Cze-general --- Design 1
          \setbox\helpbox=\hbox{{\namefn#1}}%
          \ifdim\wd\helpbox>0.8\cardwidth\let\namefn=\namefnsm\fi%
          \helpIdim=1cm%
          \setbox\helpbox=\hbox{\cmp\lev\hskip2\hborder}%
          \helpdim=\cardwidth \advance\helpdim by-\wd\helpbox
          \vbox to\cardheight{%............................................. top
            \vskip\vborder%
            \hbox to\cardwidth{%
              \hskip\hborder%
              \cmp%
              \vbox to\helpIdim{\normalbaselines%
                {\titlefn%
                \vfil%
                \hbox to\helpdim{\hfil Centrum strojov\'eho vn\'\i m\'an\'\i\hfil}%
                \kern-0.5ex%
                \hbox to\helpdim{\hfil \v Cesk\'e vysok\'e u\v cen\'\i\ technick\'e\hfil}%
                \vfil}}%
              \lev%
              \hskip\hborder}%
            \vfil%........................................................center
            \vskip0.5ex%
            \hbox to\cardwidth{\hfil{\namefn#1}\hfil}%
            \vfil\vskip-2ex%
            \setbox\helpbox=\hbox{#3}%
            {\titlefn\normalbaselines%
            \ifdim\wd\helpbox>0pt\else\kern-0.5ex\fi%
            \hbox to\cardwidth{\hfil#2\hfil}%
            \ifdim\wd\helpbox>0pt\kern-0.5ex\hbox to\cardwidth{\hfil#3\hfil}\fi%
            }%
            \vfil%........................................................bottom
            \hbox to\cardwidth{%
              {\addressfn%
              \hskip\hborder%
              \setbox\helpIbox=\vbox{\baselineskip=8pt%
                \hbox{\v Cesk\'e vysok\'e u\v cen\'\i\ technick\'e}%
                \hbox{Elektrotechnick\'a fakulta}%
                \hbox{Centrum strojov\'eho vn\'\i m\'an\'\i}%
                \hbox{121 35\hskip0.66em Praha 2, Karlovo n m. 13}%
                \hbox{\v Cesk\'a republika}}%
              \helpIdim=\ht\helpIbox%
              %
              \setbox\phonebox=\hbox{tel.}\setbox\faxbox=\hbox{fax}%
              \ifdim\wd\faxbox>\wd\phonebox\helpdim=\wd\faxbox%
              \else\helpdim=\wd\phonebox\fi%
              \setbox\phonebox=\hbox{#5}%
              \setbox\faxbox=\hbox{#6}%
              \setbox\emailbox=\hbox{#8}%
              \setbox\helpIIbox=\vbox{\baselineskip=8pt%
                \hbox{\hbox to\helpdim{tel.\hfil}\ #4}%
                \ifdim\wd\phonebox>0pt\hbox{\hskip\helpdim\ #5}\fi%
                \ifdim\wd\faxbox>0pt\hbox{\hbox to\helpdim{fax\hfil}\ #6}\fi%
                \hbox{#7}%
                \ifdim\wd\emailbox>3pt\hbox{#8}\fi%
                \hbox{http://cmp.felk.cvut.cz}}%
              %
              \ifdim\ht\helpIIbox>\helpIdim\helpIdim=\ht\helpIIbox\fi%
              \vbox{\unvbox\helpIbox}%
              \hfil%
              \vbox to\helpIdim{\baselineskip=8pt%
                \hbox{\hbox to\helpdim{tel.\hfil}\ #4}%
                \ifdim\wd\phonebox>0pt\hbox{\hskip\helpdim\ #5}\fi%
                \ifdim\wd\faxbox>0pt\hbox{\hbox to\helpdim{fax\hfil}\ #6}\fi%
                \vfil%
                \hbox{#7}%
                \ifdim\wd\emailbox>3pt\hbox{#8}\fi%
                \hbox{http://cmp.felk.cvut.cz}}%
              \hskip\hborder}}%
            \vskip\vborder}%
        \or% --------------------------------------- Ang-phone icon --- Design 2
          \setbox\helpbox=\hbox{{\namefn#1}}%
          \ifdim\wd\helpbox>0.8\cardwidth\let\namefn=\namefnsm\fi%
          \helpIdim=1cm%
          \setbox\helpbox=\hbox{\cmp\lev\hskip2\hborder}%
          \helpdim=\cardwidth \advance\helpdim by-\wd\helpbox
          \vbox to\cardheight{%............................................. top
            \vskip\vborder%
            \hbox to\cardwidth{%
              \hskip\hborder%
              \cmp%
              \vbox to\helpIdim{\normalbaselines%
                {\titlefn%
                \vfil%
                \hbox to\helpdim{\hfil Center for Machine Perception\hfil}%
                \kern-0.5ex%
                \hbox to\helpdim{\hfil Czech Technical University\hfil}%
                \vfil}}%
              \lev%
              \hskip\hborder}%
            \vfil%........................................................center
            \vskip0.5ex%
            \hbox to\cardwidth{\hfil{\namefn#1}\hfil}%
            \vfil\vskip-2ex%
            \setbox\helpbox=\hbox{#3}%
            {\titlefn\normalbaselines%
            \ifdim\wd\helpbox>0pt\else\kern-0.5ex\fi%
            \hbox to\cardwidth{\hfil#2\hfil}%
            \ifdim\wd\helpbox>0pt\kern-0.5ex\hbox to\cardwidth{\hfil#3\hfil}\fi%
            }%
            \vfil%........................................................bottom
            \hbox to\cardwidth{%
              {\addressfn%
              \hskip\hborder%
              \setbox\helpIbox=\vbox{\baselineskip=8pt%
                \hbox{Czech Technical University}%
                \hbox{Faculty of Electrical Engineering}%
                \hbox{Center for Machine Perception}%
                \hbox{121 35\hskip0.66em Prague 2, Karlovo n m. 13}%
                \hbox{Czech Republic}}%
              \helpIdim=\ht\helpIbox%
              %
              \setbox\phonebox=\hbox{{\telefb\char7}}\setbox\faxbox=\hbox{fax}%
              \ifdim\wd\faxbox>\wd\phonebox\helpdim=\wd\faxbox%
              \else\helpdim=\wd\phonebox\fi%
              \setbox\phonebox=\hbox{#5}%
              \setbox\faxbox=\hbox{#6}%
              \setbox\helpIIbox=\vbox{\baselineskip=8pt
                \hbox{\hbox to\helpdim{%
                        %\special{ps:1 0 0 setrgbcolor}%
                        {\telefb\char7}%
                        %\special{ps:0 setgray}%
                        \hfil}\ #4}%
                \ifdim\wd\phonebox>0pt\hbox{\hskip\helpdim\ #5}\fi%
                \ifdim\wd\faxbox>0pt\hbox{\hbox to\helpdim{fax\hfil}\ #6}\fi%
                \hbox{#7}%
                \ifdim\wd\emailbox>3pt\hbox{#8}\fi%
                \hbox{http://cmp.felk.cvut.cz}}%
              %
              \ifdim\ht\helpIIbox>\helpIdim\helpIdim=\ht\helpIIbox\fi%
              \vbox{\unvbox\helpIbox}%
              \hfil%
              \vbox to\helpIdim{\baselineskip=8pt%
                \hbox{\hbox to\helpdim{%
                        %\special{ps:1 0 0 setrgbcolor}%
                        {\telefb\char7}%
                        %\special{ps:0 setgray}%
                        \hfil}\ #4}%
                \ifdim\wd\phonebox>0pt\hbox{\hskip\helpdim\ #5}\fi%
                \ifdim\wd\faxbox>0pt\hbox{\hbox to\helpdim{fax\hfil}\ #6}\fi%
                \vfil%
                \hbox{#7}%
                \ifdim\wd\emailbox>3pt\hbox{#8}\fi%
                \hbox{http://cmp.felk.cvut.cz}}%
              \hskip\hborder}}%
            \vskip\vborder}%
        \or% --------------------------------------- Cze-phone home --- Design 3
          \setbox\helpbox=\hbox{{\namefn#1}}%
          \ifdim\wd\helpbox>0.8\cardwidth\let\namefn=\namefnsm\fi%
          \helpIdim=1cm%
          \setbox\helpbox=\hbox{\cmp\lev\hskip2\hborder}%
          \helpdim=\cardwidth \advance\helpdim by-\wd\helpbox%
          \vbox to\cardheight{%............................................. top
            \vskip\vborder%
            \hbox to\cardwidth{%
              \hskip\hborder%
              \cmp%
              \vbox to\helpIdim{\normalbaselines%
                {\titlefn%
                \vfil%
                \hbox to\helpdim{\hfil Centrum strojov\'eho vn\'\i m\'an\'\i\hfil}%
                \kern-0.5ex%
                \hbox to\helpdim{\hfil \v Cesk\'e vysok\'e u\v cen\'\i\ technick\'e\hfil}%
                \vfil}}%
              \lev%
              \hskip\hborder}%
            \vfil%........................................................center
            \vskip0.5ex%
            \hbox to\cardwidth{\hfil{\namefn#1}\hfil}%
            %\vfil\vskip-2ex%
            \setbox\helpbox=\hbox{#3}%
            {\titlefn\normalbaselines%
            \ifdim\wd\helpbox>0pt\else\kern-0.5ex\fi%
            \hbox to\cardwidth{\hfil#2\hfil}%
            \ifdim\wd\helpbox>0pt\kern-0.5ex\hbox to\cardwidth{\hfil#3\hfil}\fi%
            }%
            \vfil%........................................................bottom
            \hbox to\cardwidth{%
              {\addressfn%
              \hskip\hborder%
              \setbox\helpIbox=\vbox{\baselineskip=8pt%
                \hbox{\v Cesk\'e vysok\'e u\v cen\'\i\ technick\'e}%
                \hbox{Elektrotechnick\'a fakulta}%
                \hbox{Centrum strojov\'eho vn\'\i m\'an\'\i}%
                \hbox{121 35\hskip0.66em Praha 2, Karlovo n m. 13}%
                \hbox{\v Cesk\'a republika}}%
              \helpIdim=\ht\helpIbox%
              %
              \setbox\phonebox=\hbox{tel.}\setbox\faxbox=\hbox{fax}%
              \ifdim\wd\faxbox>\wd\phonebox\helpdim=\wd\faxbox%
              \else\helpdim=\wd\phonebox\fi%
              \setbox\helpbox=\hbox{dom\o u}%
              \ifdim\wd\helpbox>\helpdim\helpdim=\wd\helpbox\fi%
              \setbox\phonebox=\hbox{#5}%
              \setbox\faxbox=\hbox{#6}%
              \setbox\emailbox=\hbox{#8}%
              \setbox\helpIIbox=\vbox{\baselineskip=8pt%
                \hbox{\hbox to\helpdim{tel.\hfil}\ #4}%
                \ifdim\wd\phonebox>0pt\hbox{%
                        \hbox to\helpdim{dom\o u\hfil}\ #5}\fi%
                \ifdim\wd\faxbox>0pt\hbox{\hbox to\helpdim{fax\hfil}\ #6}\fi%
                \hbox{#7}%
                \ifdim\wd\emailbox>3pt\hbox{#8}\fi%
                \hbox{http://cmp.felk.cvut.cz}}%
              %
              \ifdim\ht\helpIIbox>\helpIdim\helpIdim=\ht\helpIIbox\fi%
              \vbox{\unvbox\helpIbox}%
              \hfil%
              \vbox to\helpIdim{\baselineskip=8pt%
                \hbox{\hbox to\helpdim{tel.\hfil}\ #4}%
                \ifdim\wd\phonebox>0pt\hbox{%
                        \hbox to\helpdim{dom\o u\hfil}\ #5}\fi%
                \ifdim\wd\faxbox>0pt\hbox{\hbox to\helpdim{fax\hfil}\ #6}\fi%
                \vfil%
                \hbox{#7}%
                \ifdim\wd\emailbox>3pt\hbox{#8}\fi%
                \hbox{http://cmp.felk.cvut.cz}}%
              \hskip\hborder}}%
            \vskip\vborder}%
        \or% --------------------------------------------- Eng-Ptak --- Design 4
          \setbox\helpbox=\hbox{{\namefn#1}}%
          \ifdim\wd\helpbox>0.8\cardwidth\let\namefn=\namefnsm\fi%
          \helpIdim=1cm%
          \setbox\helpbox=\hbox{\cmp\lev\hskip2\hborder}%
          \helpdim=\cardwidth \advance\helpdim by-\wd\helpbox%
          \vbox to\cardheight{%............................................. top
            \vskip\vborder%
            \hbox to\cardwidth{%
              \hskip\hborder%
              \cmp%
              \vbox to\helpIdim{\normalbaselines%
                {\titlefn%
                \vfil%
                \hbox to\helpdim{\hfil Department of Mathematics\hfil}%
                \kern-0.5ex%
                \hbox to\helpdim{\hfil\&\hfil}%
                \kern-1ex%
                \hbox to\helpdim{\hfil Center for Machine Perception\hfil}%
                %\vfil
                }}%
              \lev%
              \hskip\hborder}%
            \vfil%........................................................center
            \vskip0.5ex%
            \hbox to\cardwidth{\hfil{\namefn#1}\hfil}%
            %\vfil\vskip-2ex%
            \setbox\helpbox=\hbox{#3}%
            {\titlefn\normalbaselines%
            \ifdim\wd\helpbox>0pt\else\kern-0.5ex\fi%
            \hbox to\cardwidth{\hfil#2\hfil}%
            \ifdim\wd\helpbox>0pt\kern-0.5ex\hbox to\cardwidth{\hfil#3\hfil}\fi%
            }%
            \vfil%........................................................bottom
            \hbox to\cardwidth{%
              {\addressfn%
              \hskip\hborder%
              \setbox\helpIbox=\vbox{\baselineskip=8pt%
                \hbox{Czech Technical University}%
                \hbox{Faculty of Electrical Engineering}%
                \hbox{Technick  2}%
                \hbox{166 27\hskip0.66em Prague 6}%
                \hbox{Czech Republic}}%
              \helpIdim=\ht\helpIbox%
              %
              \setbox\phonebox=\hbox{{\telefb\char7} office}%
              \setbox\faxbox=\hbox{fax}%
              \ifdim\wd\faxbox>\wd\phonebox\helpdim=\wd\faxbox%
              \else\helpdim=\wd\phonebox\fi%
              \setbox\helpbox=\hbox{{\telefb\char7} home}%
              \ifdim\wd\helpbox>\helpdim \helpdim=\wd\helpbox\fi%
              \setbox\phonebox=\hbox{{\telefb\char7}}\helpIIdim=\wd\phonebox%
              \setbox\phonebox=\hbox{#5}%
              \setbox\faxbox=\hbox{#6}%
              \setbox\helpIIbox=\vbox{\baselineskip=8pt%
                \hbox{\raise3.75ex\hbox{{\telefb\char7}} %
                        \vbox{\hbox{office}\hbox{home}\hbox{fax}} %
                        \vbox{\hbox{#4}\hbox{#5}\hbox{#6}}}%
                \hbox{#7}
                \ifdim\wd\emailbox>3pt\hbox{#8}\fi%
                \hbox{http://math.feld.cvut.cz}}%
              %
              \ifdim\ht\helpIIbox>\helpIdim\helpIdim=\ht\helpIIbox\fi%
              \vbox{\unvbox\helpIbox}%
              \hfil%
              \vbox to\helpIdim{\baselineskip=8pt%
                \hbox{\raise3.75ex\hbox{{\telefb\char7}} %
                        \vbox{\hbox{office}\hbox{home}\hbox{fax}} %
                        \vbox{\hbox{#4}\hbox{#5}\hbox{#6}}}%
                \vfil%
                \hbox{#7}%
                \ifdim\wd\emailbox>3pt\hbox{#8}\fi%
                \hbox{http://math.feld.cvut.cz}}%
              \hskip\hborder}}%
            \vskip\vborder}%
        \or% ---------------------------------------- Hlavac - domu --- Design 5
          \setbox\helpbox=\hbox{{\namefn#1}}%
          \ifdim\wd\helpbox>0.8\cardwidth\let\namefn=\namefnsm\fi%
          \helpIdim=1cm%
          \setbox\helpbox=\hbox{\cmp\lev\hskip2\hborder}%
          \helpdim=\cardwidth \advance\helpdim by-\wd\helpbox
          \vbox to\cardheight{%............................................. top
            \vskip\vborder%
            \hbox to\cardwidth{%
              \hskip\hborder%
              \cmp%
              \vbox to\helpIdim{\normalbaselines%
                {\titlefn%
                \vfil%
                \hbox to\helpdim{\hfil Centrum strojov\'eho vn\'\i m\'an\'\i\hfil}%
                \kern-0.5ex%
                \hbox to\helpdim{\hfil \v Cesk\'e vysok\'e u\v cen\'\i\ technick\'e\hfil}%
                \vfil}}%
              \lev%
              \hskip\hborder}%
            \vfil%........................................................center
            \vskip0.5ex%
            \hbox to\cardwidth{\hfil{\namefn#1}\hfil}%
            \vfil\vskip-1ex%
            \setbox\helpbox=\hbox{#3}%
            {\titlefn\normalbaselines%
            \ifdim\wd\helpbox>0pt\else\kern-0.5ex\fi%
            \hbox to\cardwidth{\hfil#2\hfil}%
            \ifdim\wd\helpbox>0pt\kern-0.5ex\hbox to\cardwidth{\hfil#3\hfil}\fi%
            }%
            \vfil%........................................................bottom
            \hbox to\cardwidth{%
              {\addressfn%
              \hskip\hborder%
              \setbox\helpIbox=\vbox{\baselineskip=8pt%
                \hbox{\v Cesk\'e vysok\'e u\v cen\'\i\ technick\'e}%
                \hbox{Elektrotechnick\'a fakulta}%
                \hbox{Centrum strojov\'eho vn\'\i m\'an\'\i}%
                \hbox{121 35\hskip0.66em Praha 2, Karlovo n m. 13}%
                \hbox{\v Cesk\'a republika}%
                \vskip1ex%
                \hbox{Dom\o u: P\'\i \v skova 1949, 155 00\hskip.66em Praha 5}}%
              \helpIdim=\ht\helpIbox%
              %
              \setbox\phonebox=\hbox{tel.}\setbox\faxbox=\hbox{fax}%
              \ifdim\wd\faxbox>\wd\phonebox\helpdim=\wd\faxbox%
              \else\helpdim=\wd\phonebox\fi%
              \setbox\phonebox=\hbox{#5}%
              \setbox\faxbox=\hbox{#6}%
              \setbox\emailbox=\hbox{#8}%
              \setbox\helpIIbox=\vbox{\baselineskip=8pt%
                \hbox{\hbox to\helpdim{tel.\hfil}\ #4}%
                \ifdim\wd\phonebox>0pt\hbox{\hskip\helpdim\ #5}\fi%
                \ifdim\wd\faxbox>0pt\hbox{\hbox to\helpdim{fax\hfil}\ #6}\fi%
                \hbox{#7}%
                \ifdim\wd\emailbox>3pt\hbox{#8}\fi%
                \hbox{http://cmp.felk.cvut.cz}%
                \vskip1ex%
                \hbox{\hbox to\helpdim{tel.\hfil}\ (+420 2) 65 11 668}}%
              %
              \ifdim\ht\helpIIbox>\helpIdim\helpIdim=\ht\helpIIbox\fi%
              \vbox{\unvbox\helpIbox}%
              \hfil%
              \vbox to\helpIdim{\baselineskip=8pt%
                \hbox{\hbox to\helpdim{tel.\hfil}\ #4}%
                \ifdim\wd\phonebox>0pt\hbox{\hskip\helpdim\ #5}\fi%
                \ifdim\wd\faxbox>0pt\hbox{\hbox to\helpdim{fax\hfil}\ #6}\fi%
                \vfil%
                \hbox{#7}%
                \ifdim\wd\emailbox>3pt\hbox{#8}\fi%
                \hbox{http://cmp.felk.cvut.cz}%
                \vskip1ex%
                \hbox{\hbox to\helpdim{tel.\hfil}\ (+420 2) 65 11 668}}%
              \hskip\hborder}}%
            \vskip\vborder}%
        \or% ---------------------------------------------------------- Design 6

        \fi%
        \ifcase\color\or\or\special{ps:grestore}\fi}
