@SysInclude { diag }
@SysInclude { tbl }
@SysInclude { doc }

def @TightCurveBox
  named radius { 0.5f }
  right x
{
  @VContract @HContract 0p @HShift {
    {
      # XXX: save arguments for LoutGraphic - they will be overwritten
      # by any calls to @Graphic inside right arg
      xsize ysize xmark ymark loutf loutv louts

      # add clip to the graphic state of right arg
      grestore LoutCurveBox clip newpath gsave

      // # after right arg is emitted 
      LoutGraphic # restore values that might have been overwritten

      LoutCurveBox stroke
    }
    @Graphic { radius @HShift @OneRow x }
  }
}


@Document
//
@Text @Begin
@LP
@TightCurveBox
  radius { 0.6f } # @Tbl's default margin
@Tbl
  aformat {
    @Cell
      paint { lightgrey }
      font { Bold }
      indent { ctr }
      rulebelow { yes }
     { A }
  }
  bformat { @Cell A }
{
  @Rowa A { Title }

  @Rowb rulebelow { yes } A { foo }

  @Rowb A { bar }
  @Rowb A { buzz }
}
@End @Text