BoxTreeImpl.mesa
    <<Mcisaac, June 25, 1987 2:43:57 pm PDT>>
    <<>>
<<Implementation for Displaying Mathematical Expressions>>
    <<>>
    <<DIRECTORY>>
    BoxTree.mesa
        InternalExpr USING [EXPR],
        ImagerFont USING [Extents];
        


    BoxTree: CEDAR PROGRAM
    ~ BEGIN


    EXPR: TYPE ~ InternalExpr.EXPR;

        STYLE: TYPE ~
            RECORD [
                scale: REAL _ 1.0,  -- scaling factor for font to normalize bounding box sizes
                looks: REF ANY _ NIL  -- italics, bold...
                ];


        BoxTreeRep: TYPE ~ RECORD [
            boundbox: ImagerFont.Extents,  -- size of bounding box( what type should this be)
            subBoxes: TYPE ~ LIST OF BOXTREE,  -- list of boxes bound by this box
            parentBox: TYPE ~ BOXTREE, -- parent bounding box
            style: TYPE ~ STYLE,  --printing size and style of font, ie italics 10point
            expression: TYPE ~ EXPR  -- pointer to expression bound by this box
            ];
            ;


    END.