DIRECTORY
Atom, Commander, Convert, Imager, ImagerBackdoor, ImagerBox, ImagerFont, ImagerPath, ImagerTransformation, IO, EditSpan, EditSpanSupport, MessageWindow, NodeProps, NodeStyle, NodeStyleOps, QPSetup, Real, RealFns, RefTab, Rope, TEditDocument, TEditFormat, TEditInput, TEditInputOps, TEditSelection, TextEdit, TextNode, Tioga, TiogaAccess, TiogaImager, ViewerClasses, ViewerOps, ViewerTools;

Hobo: CEDAR DEFINITIONS
~ BEGIN
ROPE: TYPE ~ Rope.ROPE;
Viewer: TYPE ~ ViewerClasses.Viewer;
CharacterArtworkClass: TYPE ~ TEditFormat.CharacterArtworkClass;
CharacterArtworkClassRep: TYPE ~ TEditFormat.CharacterArtworkClassRep;
CharacterArtwork: TYPE ~ TEditFormat.CharacterArtwork;
CharacterArtworkRep: TYPE ~ TEditFormat.CharacterArtworkRep;
Ref: TYPE = REF NodeBody;
NodeBody: PUBLIC TYPE ~ Tioga.NodeRep;
Graph: TYPE ~ QPSetup.Graph;
Vertex: TYPE ~ QPSetup.Vertex;
Edge: TYPE ~ QPSetup.Edge;
PaintInfo: TYPE ~ REF PaintInfoRep;
PaintInfoRep: TYPE ~ RECORD [
color: Imager.Color,
extents: ImagerFont.Extents м [leftExtent: 0.0, rightExtent: 0.0, descent: 16.0, ascent: 10.0],
reach: REAL м 6.0,
hscale: REAL м 1.0,
hshift: REAL м 0.0,
vscale: REAL м 1.0,
vshift: REAL м 0.0,
font: ImagerFont.Font,
chars: ROPE,
box: TiogaImager.Box,
showBounds: BOOL м TRUE
];
BoxCharData: TYPE ~ REF BoxCharDataRep;
BoxCharDataRep: TYPE ~ RECORD [
node: TextNode.Ref м NIL,
screenBox: TiogaImager.Box м NIL,
printBox: TiogaImager.Box м NIL
];
BoxMakerRec: TYPE ~ REF BoxMakerRecRep;
BoxMakerRecRep: TYPE ~ RECORD [
name: ATOM,
proc: BoxMakerProc,
doc: ROPE
];
BoxMakerProc: TYPE ~ PROC [first, last: TextNode.Location, train: Train, bounds: Imager.VEC] RETURNS [TiogaImager.Box];
BarData: TYPE ~ REF BarDataRep;
BarDataRep: TYPE ~ RECORD [width: REAL м 1.0, height: REAL м 1.0];
barClass: TiogaImager.Class;
Train: TYPE ~ RECORD [
loc: TextNode.Location,
style: NodeStyle.Ref
];
Grid: TYPE ~ REF GridRep;
GridRep: TYPE ~ RECORD [
origin: Imager.VEC м [0, 0],
maxLevel, maxPlumb: NAT м 0,
entryList: LIST OF GridEntry м NIL,
sepList: LIST OF GridSep м NIL,
fillList: LIST OF GridFill м NIL,
centerList: RefTab.Ref м NIL,
levelBase, plumbBase: ROPE м NIL,
graph: Graph
];
GridEntry: TYPE ~ RECORD [tackLevel, tackPlumb: Vertex, box: TiogaImager.Box];
GridSep: TYPE ~ RECORD [
topLevel, topPlumb, botLevel, botPlumb: Vertex,
barThickness: REAL
];
GridFill: TYPE ~ RECORD [
topLevel, topPlumb, botLevel, botPlumb: Vertex,
fillColor: Imager.Color
];
Corner: TYPE ~ RECORD [level, plumb: NAT];
FeaturePair: TYPE ~ RECORD[
level, plumb: Feature,
line: INT м 1,
charSet: TextEdit.CharSet м 0, char: CHAR м '.
];
Feature: TYPE ~ CHAR;
gridClass: TiogaImager.Class;

END.
..


  
  
Hobo.mesa
Copyright ╙ 1988, 1992 by Xerox Corporation.  All rights reserved.
Ken Shoemake, April 25, 1990 11:15 pm PDT
Jules Bloomenthal July 2, 1992 11:48 am PDT

Abbreviations For Imported Types
Defs For Private Types (local to module)
box: TiogaImager.Box
Э╩Ў  ХNewlineDelimiter
Ц"cedarcode" styleЩ ЪЬ	Щ	IcodeЪЬ
╧eЬ7ЩBKЩ)KЩ+IdefaultЩ ЧЪ╧k	Ш	LШЕLШ ЧKЪ╨lnЬЮШKЪЬЮШheadЪ╧n Щ KЪЮЬЮЬЮЬШKЪЬЮЬШ$KЪЬЮЬ%Ш@KЪЬЮЬ(ШFKЪЬЮЬ Ш6KЪЬЮЬ#Ш<KЪЬЮЬЮЬ
ШKЪЬ
ЮЬЮЬШ&KЪЬЮЬШKЪЬЮЬШKЪЬЮЬШЧЪа(Щ(KЪЬЮЬЮЬШ#ЪЬЮЬЮЬШKЪЬШKШ_KЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKШKЪЬЮЬШKЪЬШKЪЬЮЬЮШKШЧKЪЬЮЬЮЬШ'ЪЬЮЬЮЬШKЪЬЮШKЪЬЮЬШ!KЪЬЮШKШЧKЪЬЮЬЮЬШ'ЪЬЮЬЮЬШKЪЬЮЬШKЪЬШKЪЬЮШ	KШЧKЪ	ЬЮЬЮЬ?ЮЬЮЬШwKЪЬ	ЮЬЮЬШKЪ	ЬЮЬЮЬ	ЮЬЮЬШBKЪЬШЪЬЮЬЮЬШKЪЬШKШKЪЬШЧKЪЬЮЬЮЬ	ШЪЬ	ЮЬЮЬШKЪЬЮЬ
ШKЪЬЮЬШKЪЬЮЬЮЬЮЬШ#KЪЬ	ЮЬЮЬЮЬШKЪЬ
ЮЬЮЬЮЬШ!KЪЬЮЬШKЪЬЮЬЮЬШ!KШKШЧKЪЬЮЬЮЬ6ШNЪЬ	ЮЬЮЬШKЪЬ/Ш/KЪЬЮШKЪЬЩKЪЬШЧЪЬ
ЮЬЮЬШKЪЬ/Ш/KЪЬШKЪЬШЧKЪЬЮЬЮЬЮЬШ*ЪЬЮЬЮЬШKЪЬШKЪЬЮЬШKЪЬ%ЮЬШ.KЪЬШЧKЪЬ	ЮЬЮЬШKЪЬШKШ ЧKЪЮЬШKШKШ KШ Ч ЕЧ    
`  `  