Unwanted space in a figure

[Mark Summerfield]

Hi,

If you lout the lout below you'll notice that the gap between the
diagram itself and the figure caption is unexpectedly large. The diagram
consists of a table with two rows, each of which is a table with two
rows. The outer table has no strut and the second row of both the outer
table and the two inner tables has marginbelow { 0c }. Turning off the
strut for the second row of the second inner table helps a little, but
doesn't account for the gap which the coloured rules clearly reveal. I
want to keep the gap between the two inner tables, but not the gap after
the second inner table.

I assume that I've done something stupid to create these gaps, but I
can't see what. Can anyone help me get rid of the second gap?

Thanks.

-- 
Mark.


@SysInclude {diag}
@SysInclude {tbl}
@SysInclude{doc}
def @C right x { -0.0275f @VShift { 0.875 1.0 } @Scale { Courier Base 9.5p } 
@Font x }
@Doc
@Text @Begin 
@Figure
    @Caption { Cap and join styles }
    @Tag{cap.and.join.styles}
    @Location { Raw }
@Tbl
    rulewidth { 0.5p }
    rule { yes } rulecolour { red }
    margin { 0c }
    strut { no }
    indent { ctr }
    aformat { @Cell A }
    bmarginbelow { 0c }
    bformat { @Cell A }
{
    @Rowa A {
@Diag
    afont { Helvetica Base }
    avsize { 2c }
    ahsize { 0.5c }
    amargin { 0c }
    apaint { grey }
    aoutlinewidth { 0.5p }
    bpaint { white }
    boutline { box }
    boutlinestyle { noline }
    bvsize { 0.25c }
    bhsize { 0.5c }
    bmargin { 0c }
    boutlinewidth { 0.5p }
{
@Tbl
    rulewidth { 0.5p }
    rule { yes } rulecolour { green }
    font { -1p }
    indent { ctr }
    aformat { @Cell A | @Cell marginhorizontal { 1c } B | @Cell C }
    bmarginbelow { 0c }
    bformat { @Cell A | @Cell marginhorizontal { 1c } B | @Cell C }
{
    @Rowa
    A { 60d @Rotate { { @BNode paint { lightgrey } outlinestyle { solid } {} }
                      //0c { @ANode {} } } }
    B { 60d @Rotate { { @BNode {} } //0c { Y:: @ANode {} } } }
    C { 60d @Rotate { { @BNode {} } //0c { X:: @ANode {} } } }
    @Rowb
    A { @C{FlatCap} }
    B { @C{SquareCap} }
    C { @C{RoundCap} }
}
//
@Circle translate { CTR to address@hidden } paint { lightgrey } outlinewidth { 
0.5p }
        hsize { 0.5c } margin { 0c } {}
@Node outline {
        address@hidden
        address@hidden
        address@hidden
        address@hidden
        address@hidden
        } outlinewidth { 0.5p } paint { grey } {}
@Node outline {
        address@hidden
        address@hidden ++ { 0 0.43c }
        address@hidden
        address@hidden
        } outlinewidth { 0.5p } margin { 0c } paint { lightgrey } {}
}
}
    @Rowb A {
@Diag
    afont { Helvetica Base }
    avsize { 2c }
    ahsize { 0.5c }
    amargin { 0c }
    apaint { grey }
    aoutlinewidth { 0.5p }
{
@Tbl
    rulewidth { 0.5p }
    rule { yes } rulecolour { green }
    font { -1p }
    indent { ctr }
    aformat { @Cell A | @Cell marginhorizontal { 1c } B | @Cell C }
    bmarginbelow { 0c }
    bformat { @Cell A | @Cell marginhorizontal { 1c } B | @Cell C }
{
    @Rowa
    A { A:: @ANode {} |0.95co { +0.5c @VShift 60d @Rotate { B:: @ANode {} } } 
}
    B { C:: @ANode {} |0.95co { +0.5c @VShift 60d @Rotate { D:: @ANode {} } } 
}
    C { E:: @ANode {} |0.95co { +0.5c @VShift 60d @Rotate { F:: @ANode {} } } 
}
    @Rowb
    A { @C{MiterJoin} }
    B { @C{BevelJoin} }
    C { @C{RoundJoin} }
}
//
@Node
outline {
        address@hidden
        address@hidden ++ { 0 0.45c }
        address@hidden
        address@hidden
        address@hidden
    } outlinewidth { 0.5p } paint { lightgrey } {}
@Node outline {
        address@hidden
        address@hidden
        address@hidden
        address@hidden
    }
    outlinewidth { 0.5p }
    paint { lightgrey } {}
@Circle translate { CTR to address@hidden -- { 0.065c -0.025c } } paint { 
lightgrey }
        hsize { 0.5275c } margin { 0c } {}
@Node outline {
        address@hidden
        address@hidden
        address@hidden
        address@hidden
        address@hidden
    }
    outlinewidth { 0.5p }
    paint { grey } {}
@Node outline {
        address@hidden
        address@hidden
        address@hidden
        address@hidden
        address@hidden
    }
    outlinewidth { 0.5p }
    paint { grey } {}
@Line from { address@hidden } to { address@hidden } pathwidth { 0.5p }
@Line from { address@hidden } to { address@hidden } pathwidth { 0.5p }
@Line from { address@hidden } to { address@hidden } pathwidth { 0.5p }
@Line from { address@hidden } to { address@hidden } pathwidth { 0.5p }
@Line from { address@hidden } to { address@hidden } pathwidth { 0.5p }
@Line from { address@hidden } to { address@hidden } pathwidth { 0.5p }
}
}
}
@End @Text