OK, I'm answering my own question from October: by shamelessly copying and adapting code from enattab, I managed to get double lines in tables, and I'm almost there. I guess real texnicians would call it a dirty hack, but it does what I want. Could anybody test this code:

\starttext

\startuniqueMPgraphic{c11}
path p ;
p := unitsquare xscaled \overlaywidth yscaled \overlayheight ;
path q ;
q = llcorner p--ulcorner p ;
pair a ;
a := point .08 of q ;
path r ;
r = lrcorner p--urcorner p ;
pair b ;
b := point .08 of r ;
draw b--a--ulcorner p--urcorner p ;
draw lrcorner p--llcorner p--a ;
\stopuniqueMPgraphic

\startuniqueMPgraphic{c12}
path p ;
p := unitsquare xscaled \overlaywidth yscaled \overlayheight ;
path q ;
q = ulcorner p--urcorner p ;
pair a ;
a := point .02 of q ;
path r ;
r = llcorner p--lrcorner p ;
pair b ;
b := point .02 of r ;
path s ;
s = lrcorner p--urcorner p ;
pair c ;
c := point .08 of s ;
path t ;
t = b--a ;
pair d ;
d := point .08 of t ;
path u ;
u = llcorner p--ulcorner p ;
pair e ;
e := point .08 of u ;
draw ulcorner p--urcorner p--c--d--a ;
draw b--lrcorner p ;
draw e--ulcorner p ;
\stopuniqueMPgraphic

\startuniqueMPgraphic{c13}
path p ;
p := unitsquare xscaled \overlaywidth yscaled \overlayheight ;
path q ;
q = llcorner p--ulcorner p ;
pair a ;
a := point .08 of q ;
path r ;
r = lrcorner p--urcorner p ;
pair b ;
b := point .08 of r ;
draw ulcorner p--urcorner p--b--a ;
draw llcorner p--lrcorner p ;
\stopuniqueMPgraphic

\startuniqueMPgraphic{c14}
path p ;
p := unitsquare xscaled \overlaywidth yscaled \overlayheight ;
path q ;
q = llcorner p--ulcorner p ;
pair a ;
a := point .08 of q ;
path r ;
r = lrcorner p--urcorner p ;
pair b ;
b := point .08 of r ;
draw ulcorner p--urcorner p--lrcorner p--llcorner p ;
draw b--a ;
\stopuniqueMPgraphic

\startuniqueMPgraphic{c21}
path p ;
p := unitsquare xscaled \overlaywidth yscaled \overlayheight ;
draw ulcorner p--llcorner p--lrcorner p ;
\stopuniqueMPgraphic

\startuniqueMPgraphic{c22}
path p ;
p := unitsquare xscaled \overlaywidth yscaled \overlayheight ;
path q ;
q = ulcorner p--urcorner p ;
pair a ;
a := point .02 of q ;
path r ;
r = llcorner p--lrcorner p ;
pair b ;
b := point .02 of r ;
draw a--b--lrcorner p ;
draw llcorner p--ulcorner p ;
\stopuniqueMPgraphic

\startuniqueMPgraphic{c24}
path p ;
p := unitsquare xscaled \overlaywidth yscaled \overlayheight ;
draw ulcorner p--llcorner p--lrcorner p--urcorner p ;
\stopuniqueMPgraphic


\defineoverlay[c11][\uniqueMPgraphic{c11}] \defineoverlay[c12][\uniqueMPgraphic{c12}] \defineoverlay[c13][\uniqueMPgraphic{c13}] \defineoverlay[c14][\uniqueMPgraphic{c14}] \defineoverlay[c21][\uniqueMPgraphic{c21}] \defineoverlay[c22][\uniqueMPgraphic{c22}] \defineoverlay[c24][\uniqueMPgraphic{c24}]

\bTABLE[width=.25\textwidth,frame=off] \bTR \bTD \framed[width=.25\textwidth,height=4.5ex,background=c11,frame=off]{A}
\eTD \bTD[align=middle] \framed[width=.25\textwidth,height=4.5ex,background=c12,frame=off]{B}
\eTD \bTD[align=middle] \framed[width=.25\textwidth,height=4.5ex,background=c13,frame=off]{C}
\eTD \bTD[align=middle] \framed[width=.25\textwidth,height=4.5ex,background=c14,frame=off]{D}
\eTD \eTR
\bTR \bTD[align=middle] \framed[width=.25\textwidth,height=4.5ex,background=c21,frame=off]{E}
\eTD \bTD[align=middle] \framed[width=.25\textwidth,height=4.5ex,background=c22,frame=off]{F}
\eTD \bTD[align=middle] \framed[width=.25\textwidth,height=4.5ex,background=c21,frame=off]{G}
\eTD \bTD[align=middle] \framed[width=.25\textwidth,height=4.5ex,background=c24,frame=off]{H}
\eTD \eTR
\bTR\bTD[align=middle] \framed[width=.25\textwidth,height=4.5ex,background=c21,frame=off]{I}
\eTD \bTD[align=middle] \framed[width=.25\textwidth,height=4.5ex,background=c22,frame=off]{K}
\eTD \bTD[align=middle] \framed[width=.25\textwidth,height=4.5ex,background=c21,frame=off]{L}
\eTD \bTD[align=middle] \framed[width=.25\textwidth,height=4.5ex,background=c24,frame=off]{M}
\eTD \eTR
\eTABLE


\stoptext

As you can see, the only problem is that there is a small gap between the rows in the table. Is there a way how this gap can be closed?

Thanks for your patience!

Thomas

On Oct 6, 2004, at 10:22 AM, Thomas A.Schmitz wrote:

Hi all,

quick question: does any of the table environments in ConTeXt (table, tables, TABLE, linetable) provide the possibility to have double lines separate some rows and columns?

A || B | C
__________
----------
D |  E | F

Thanks a lot!

Thomas

_______________________________________________
ntg-context mailing list
[EMAIL PROTECTED]
http://www.ntg.nl/mailman/listinfo/ntg-context


_______________________________________________ ntg-context mailing list [EMAIL PROTECTED] http://www.ntg.nl/mailman/listinfo/ntg-context

Reply via email to