%% u/zycie: \infram {tre/s/c (materia/l pionowy)} %% usage: \infram {contents (vertical stuff)} \newdimen\frth \newdimen\frdi \long\def\infram{\vbox\bgroup \afterassignment\inframa \frth = } \def\inframa{\afterassignment\inframb \frdi = } \long\def\inframb#1{\hrule height\frth \hbox{\vrule width\frth \kern\frdi \vbox{\kern\frdi#1\kern\frdi}\kern\frdi \vrule width\frth} \hrule height\frth\egroup} \endinput