Zaskrtnute policko v testu

[kloc at ipm.cz]

Dobry den,

nemam ted bohuzel cas vymyslet, jak by to slo aplikovat do Vasich maker,
ale asi bych do toho ctverecku vysadil znak $\times$, pripadne vhodne
zvetseny.

S pranim uspechu,

Lubos Kloc

> 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
>
>
>
>
>
>
>