Zaskrtnute policko v testu

[Robert Marik]

Ja na preskrtavani pouzivam neco takoveho (mam to pro latex tak posilam
zjednodusenou plainovskou verzi)

\input pstricks

\def\skrtni#1{\leavevmode\ifmmode\setbox0=\hbox{$\displaystyle{#1}$}%
      \else\setbox0=\hbox{#1}%
    \fi
    \copy0
    \psline[linecolor=red]{-}(-\wd0,\ht0)(0,-\dp0)%
    \psline[linecolor=red]{-}(-\wd0,-\dp0)(0,\ht0)%
}

ahoj

 kkkk \skrtni{ahoj}

$y'+y=\skrtni{x^2-1}$

\end


V Tue, 05 Dec 2006 08:54:33 +0100, Jaroslav Hajtmar napsal(a):

> 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