help with troublesome @Fig

[Jerry Pendergraft]

I have been having trouble defining a somewhat tedious @Fig. Below is
lout code showing both the @Fig and the questions. Help please.
 Also Jeff would you look at the suggestion about fig element
labeling please.

----------- snip ----------
@SysInclude { tab }
@SysInclude { eq }
@SysInclude { fig }
@SysInclude { report }

@Report
  @address@hidden -- An Expansible Hash Table Implementation}}
  @Author{Jerry Pendergraft}
  @Institution{
Parvenu Systems
9805 103rd St. No.
Stillwater, MN  55082}
  @DateLine{ Yes }
//

@Section @Title{Example for troublesome figure stuff.}
@Begin
@LP These comments and questions apply to figure @NumberOf{trav} on
page @PageOf{trav}.

@BulletList
@ListItem { Note that I have been forced to relabel every one of the
enclosed circles ala @B{ X:: "Circle {}" }. If I don't, the arrows I
draw point to the wrong place because of the @I{last item defined gets
the label} rule. I would suggest that the labeling behave in the reverse
manner, that is there would be NO labels unless the @B{ A:: }
label is given, and the label apply to the first right parameter. In
this example the labels would apply to the Box as given and the
Circles would have no labels and thus not be a problem. Can this be
done? }

@ListItem { Note that in the second (right hand) curvebox the text I
wanted to be centered at the bottom is, using the normal method.
However in the first (left hand) figure, I can not make the text be
centered, and"/"or not muck up the figure, no matter what I do,
including producing a box around the figure and trying to put the text
under the box. It seems that the marks are hosed. Try with and without
the Box defined and commented out below.}

@ListItem { Is there a way to keep the figure at the place of definition? 
This doc is a perfect example of how it is ridiculous to have the fig
on the next page.}

@ListItem { Finally, could someone suggest some easier e.g. less
tedious ways to define these figures? As a graph newbie I know I am
doing everything harder than it should be. In particular it seems like
I have had to use many more braces for grouping that should be necessary.}

@EndList

@Figure
  @Caption{Chain nodes compared to pages}
  @Tag{trav}
{  @CenteredDisplay @Fig{ 
        # First the chain nodes
    @CurveBox margin{0.3c} {
##    @Box margin{0p} linestyle{noline} 
    {
      {       A:: @Box margin{0.2c} { 0.4 @Scale { X:: @Circle {} } }
        /0.7c B:: @Box margin{0.2c} { 0.4 @Scale { X:: @Circle {} } }
        // @Arrow from { address@hidden } to { address@hidden }
      }
      |0.2c { A:: @Box margin{0.2c} { 0.4 @Scale { X:: @Circle {} } }
        /0.7c B:: @Box margin{0.2c} { 0.4 @Scale { X:: @Circle {} } }
        // @Arrow from { address@hidden } to { address@hidden }
      }
      |0.2c { A:: @Box margin{0.2c} { 0.4 @Scale { X:: @Circle {} } }
        /0.7c B:: @Box margin{0.2c} { 0.4 @Scale { X:: @Circle {} } }
        // @Arrow from { address@hidden } to { address@hidden }
        /0.7c C:: @Box margin{0.2c} { 0.4 @Scale { X:: @Circle {} } }
        // @Arrow from { address@hidden } to { address@hidden }
      }
      |0.2c { A:: @Box margin{0.2c} { 0.4 @Scale { X:: @Circle {} } }
        /0.7c B:: @Box margin{0.2c} { 0.4 @Scale { X:: @Circle {} } }
        // @Arrow from { address@hidden } to { address@hidden }
      }
      |0.2c { A:: @Box margin{0.2c} { 0.4 @Scale { X:: @Circle {} } }
      }
      |0.2c { A:: @Box margin{0.2c} { 0.4 @Scale { X:: @Circle {} } }
        /0.7c B:: @Box margin{0.2c} { 0.4 @Scale { X:: @Circle {} } }
        // @Arrow from { address@hidden } to { address@hidden }
        /0.7c C:: @Box margin{0.2c} { 0.4 @Scale { X:: @Circle {} } }
        // @Arrow from { address@hidden } to { address@hidden }
      }
    }
    /0.3c |0.5rt { Chain Linking }
    }
    |0.6c
        # Then the book nodes
    @CurveBox margin{0.3c} {
      {       A:: @Box margin{0.2c} { 
                      0.4 @Scale { X:: @Circle {} }
                |0.6c 0.4 @Scale { X:: @Circle {} }
                |0.6c 0.4 @Scale { X:: @Circle {} }
                |0.6c 0.4 @Scale { X:: @Circle {} }
                |0.6c 0.4 @Scale { X:: @Circle {} }
                |0.6c 0.4 @Scale { X:: @Circle {} }
            }
        /0.7c B:: @Box margin{0.2c} { 
                      0.4 @Scale { X:: @Circle {} }
                |0.6c 0.4 @Scale { X:: @Circle {} }
                |0.6c 0.4 @Scale { X:: @Circle {} }
                |0.6c 0.4 @Scale { X:: @Circle {} }
                |0.6c 0.4 @Scale { X:: @Circle linestyle{noline} {} }
                |0.6c 0.4 @Scale { X:: @Circle {} }
              }
        /0.7c C:: @Box margin{0.2c} { 
                      0.4 @Scale { X:: @Circle linestyle{noline} {} }
                |0.6c 0.4 @Scale { X:: @Circle linestyle{noline} {} }
                |0.6c 0.4 @Scale { X:: @Circle {} }
                |0.6c 0.4 @Scale { X:: @Circle linestyle{noline} {} }
                |0.6c 0.4 @Scale { X:: @Circle linestyle{noline} {} }
                |0.6c 0.4 @Scale { X:: @Circle {} }
              }
        // @Arrow from { address@hidden } to { address@hidden }
        // @Arrow from { address@hidden } to { address@hidden }
      }
      /0.3c |0.5rt { Page Linking }
    }
  }
}

@LP There must be an easier way!

@End @Section

-- 
Jerry Pendergraft               Internet: address@hidden
MS-T422                         UUCP:     uunet!medtron!jerry.pendergraft
Medtronic, Inc                  ATT:      1-612-574-4026
7000 Central Ave NE.
Minneapolis, MN 55432-3576