Re: Curious included graphic whitespace issue

[Ludovic Courtès]

Hi again,

I tried several variants, with @HContract and such, but couldn’t find
why the first one gets this extra space on its right.

--8<---------------cut here---------------start------------->8---
@SysInclude { picture }
@SysInclude { tbl }

def @Shrink right obj
{
  1f @Wide @Scale obj
}

@Illustration
  @InitialFont  { strut Times Base 32p }
  @InitialSpace { tex }
{
 @Tbl margin { 0f } strut { no } rule { yes }
      aformat { @Cell indent { right } A | @Cell indent { left } B }
 {
  @Rowa
  A { @Shrink { @IncludeGraphic "symbol.eps" } }
  B { further diamond }
  @Rowa
  A { @Shrink @Box margin { 0f } @IncludeGraphic symbol.eps }
  B { nearer diamond }
  @Rowa
  A { @Box margin { 0f } @Shrink @IncludeGraphic symbol.eps }
  B { Ludovic }
 }

 //3f

 @Shrink { @IncludeGraphic symbol.eps } |0c
 @Shrink { @IncludeGraphic symbol.eps } //0c
 @Shrink { @IncludeGraphic symbol.eps } |0c
 @Shrink { @IncludeGraphic symbol.eps }
}
--8<---------------cut here---------------end--------------->8---

The last four @Shrink lines above confirm that Lout gets the bounding
box right.

I would suspect the table code, but I don’t have any concrete
evidence...

Ludo’.