Zaskrtnute policko v testu

[Jaroslav Hajtmar]

Dobry den.
Resim problem jak v plainu co nejjednoduseji vykreslit presktrnuty box - 
tj. po obou uhloprickach preskrtnuty ctverecek.
Jedna se o zaskrtavaci policka do testu (neco jako SCIO testy), ktere 
se  nasledne oscanuji a opticky se zpracovavaji. Vzhledem k tomu, ze 
nektera policka chci mit predem jiz preskrtnuta (policka kde se 
zaskrtava identifikacni kod zaka) chtel bych najit nejaky jednoduchy 
zpusob jak policko po uhloprickach preskrtnout.
Jinak pro umistovani policek na stranku pouzivam knihovnu plaincad.tex, 
kterym by se dala policka vykreslit taky,  ale na ten jsem narazil az 
jsem mel hotova vsechna makra na vykreslovani boxu atd..
Nemate s necim podobnym nekdo zkusenost?
Pro predstavu uvadim par konkretnich maker, ktera demonstruji muj problem...
Jarda Hajtmar

\font\normfont=csss10 at 10pt
\font\extrasmallfont=csss10 at 6pt
\let\nf=\normfont
\let\esf=\extrasmallfont

\newdimen\tloustkaramecku
\overfullrule=0pt

\def\visbox#1#2#3#4{%#1-width, #2-height, #3-depth, #4-thicklines
\tloustkaramecku=#4
  \hbox{%
    \vrule width#4 height#2depth#3\hskip-#4%
    \vbox{%
      \hrule height#4 width#1\vskip-#4%
      \vskip#2%
      \vskip-#4\hrule height#4
      \vskip#3%
      \vskip-#4\hrule height#4
      \vskip-#3%
    }%
    \hskip-#4\vrule width#4 height#2depth#3%
    \hskip-#4% skok zpět kvůli šířce boxu
  }}%

\def\visualized#1{%
  \setbox0\hbox{#1}%
  \hbox{\copy0\hskip-\wd0\visbox{\wd0}{\ht0}{\dp0}{0.4pt}}}%

\def\tcpolicko{%
    \visbox{4.5mm}{4.5mm}{0mm}{1mm}}%

\let\tcp=\tcpolicko%

\let\w=\visualized%


\def\tcptextnad#1{%
    \offinterlineskip%
    \setbox0\hbox{\tcp}%
    \setbox1\hbox{{\esf #1}}%
    \ifdim\wd0>\wd1%
        \vbox{\hbox to\wd0{\hss\copy1\hss}\vskip1mm\hbox{\copy0}}%
    \else%
        \vbox{\hbox to\wd1{\hss\copy1\hss}\vskip1mm\hbox to\wd1{\copy0}}%
    \fi%
}%


\def\skupinaodpovedi#1{
    \hbox{{\raise4pt\hbox to 3mm{{\nf #1.\ }}}}\hskip4mm
    \hbox{\tcptextnad{A}\hskip3mm
    \tcptextnad{B}\hskip3mm
    \tcptextnad{C}\hskip3mm
    \tcptextnad{D}\hskip3mm
    \tcptextnad{E}}}%


\skupinaodpovedi{1}


\end