-- file: GFtoPressImpl3.mesa
-- Pascal-to-Mesa translator output, translated at October 25, 1985 5:07:13 pm PDT


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  GFtoPressPrivate,
  GFtoPressVars1,
  GFtoPressVars2,
  GFtoPressVars3;

GFtoPressImpl3: PROGRAM IMPORTS PascalBasic, GFtoPressPrivate, GFtoPressVars2, GFtoPressVars3 EXPORTS GFtoPressPrivate = PUBLIC
BEGIN OPEN PascalBasic, PascalWizardFiles, GFtoPressPrivate, GFtoPressVars1, GFtoPressVars2, GFtoPressVars3;

 NLDot: PROCEDURE[P: TreePointer] = 
BEGIN XDot_Xx^[P];YDot_Yy^[P];
DDot_536870912;EvenNLDot[Root]; END;--:150----152:
 
--150:-- EvenNLDot: PROCEDURE[P: TreePointer] = 
BEGIN IF P#0  THEN BEGIN IF Info^[P]<0  THEN IF DlTie^[P]=0  THEN IF ABS[Xx
^[P]-XDot]<DDot  THEN IF ABS[Yy^[P]-YDot]<DDot  THEN BEGIN QDot_P;
DDot_ABS[Xx^[P]-XDot];
IF DDot<ABS[Yy^[P]-YDot] THEN DDot_ABS[Yy^[P]-YDot]; END;
OddNLDot[Mid^[P]];
IF Xl^[P]-DotWidth>XDot-DDot  THEN OddNLDot[Left^[P]];
IF Xr^[P]+DotWidth<XDot+DDot  THEN OddNLDot[Right^[P]]; END; END;
 

 OddNLDot: PROCEDURE[P: TreePointer] = 
BEGIN IF P#0  THEN BEGIN IF Info^[P]<0  THEN IF DlTie^[P]=0  THEN IF ABS[Xx
^[P]-XDot]<DDot  THEN IF ABS[Yy^[P]-YDot]<DDot  THEN BEGIN QDot_P;
DDot_ABS[Xx^[P]-XDot];
IF DDot<ABS[Yy^[P]-YDot] THEN DDot_ABS[Yy^[P]-YDot]; END;
EvenNLDot[Mid^[P]];
IF Yt^[P]-DotHeight>YDot-DDot  THEN EvenNLDot[Left^[P]];
IF Yb^[P]+DotHeight<YDot+DDot  THEN EvenNLDot[Right^[P]]; END; END;
--:152----168:-- Convert: PROCEDURE[X,Y: Scaled] = 
BEGIN X_X+XOffset;
Y_Y+YOffset;DviY_-PascalROUND[YRatio*PascalFLOAT[Y]]+DeltaY;
DviX_PascalROUND[XRatio*PascalFLOAT[X]+SlantRatio*PascalFLOAT[Y]]+DeltaX; END;--:168----186:
 TopCoords: PROCEDURE[P: TreePointer]
 = 
BEGIN Xx^[P]_DviX-( PascalDIVPower2[BoxWidth ,1]);Xl^[P]_Xx^[P]-Delta;
Xr^[P]_Xx^[P]+BoxWidth+Delta;Yb^[P]_DviY-DotHeight;
Yy^[P]_Yb^[P]-BoxDepth;Yt^[P]_Yy^[P]-BoxHeight-Delta; END;--:186----187:
 BotCoords: PROCEDURE[P: TreePointer]
 = 
BEGIN Xx^[P]_DviX-( PascalDIVPower2[BoxWidth ,1]);Xl^[P]_Xx^[P]-Delta;
Xr^[P]_Xx^[P]+BoxWidth+Delta;Yt^[P]_DviY+DotHeight;
Yy^[P]_Yt^[P]+BoxHeight;Yb^[P]_Yy^[P]+BoxDepth+Delta; END;
 RightCoords: PROCEDURE[P: TreePointer] = 
BEGIN Xl^[P]_DviX+DotWidth;
Xx^[P]_Xl^[P];Xr^[P]_Xx^[P]+BoxWidth+Delta;Yy^[P]_DviY+HalfXHeight;
Yb^[P]_Yy^[P]+BoxDepth+Delta;Yt^[P]_Yy^[P]-BoxHeight-Delta; END;
 LeftCoords: PROCEDURE[P: TreePointer] = 
BEGIN Xr^[P]_DviX-DotWidth;
Xx^[P]_Xr^[P]-BoxWidth;Xl^[P]_Xx^[P]-Delta;Yy^[P]_DviY+HalfXHeight;
Yb^[P]_Yy^[P]+BoxDepth+Delta;Yt^[P]_Yy^[P]-BoxHeight-Delta; END;--:187
--192:-- DoALabel: PROCEDURE[P: TreePointer] = 
BEGIN Q:TreePointer;
 Hbox[Info^[P],2,FALSE];DviX_Xx^[P];DviY_Yy^[P];
SELECT Left^[P]FROM 49,53 =>TopCoords[P];50,54 =>LeftCoords[P];
51,55 =>RightCoords[P];52,56 =>BotCoords[P]; ENDCASE;Q_DlTie^[P];DlTie^[Q]_0;
TreeIns[P];PressGoto[Xx^[P],Yy^[P]];Hbox[Info^[P],2,TRUE]; END;--:192
--193:-- DoBLabel: PROCEDURE[P: TreePointer] = 
BEGIN 
 Q:TreePointer; Hbox[Info^[P],2,FALSE];DviX_Xx^[P];
DviY_Yy^[P];--195:--OvFlag_FALSE;Q_DlTie^[P];--196:
SELECT DlTie^[Q]FROM 1,8,10,15 =>LeftCoords[P];2,3,9,12 =>BotCoords[P];
4,5,11,14 =>RightCoords[P];6,7,13,16 =>TopCoords[P]; ENDCASE;
{{IF  NOT Overlap[P] THEN  GOTO Label40--:196--;--197:
SELECT DlTie^[Q]FROM 1,4,13,16 =>BotCoords[P];2,7,11,14 =>LeftCoords[P];
3,6,10,15 =>RightCoords[P];5,8,9,12 =>TopCoords[P]; ENDCASE;
IF  NOT Overlap[P] THEN  GOTO Label40--:197--;--198:
SELECT DlTie^[Q]FROM 1,4,14,15 =>TopCoords[P];2,7,12,13 =>RightCoords[P];
3,6,9,16 =>LeftCoords[P];5,8,10,11 =>BotCoords[P]; ENDCASE;
IF  NOT Overlap[P] THEN  GOTO Label40--:198--;--199:
SELECT DlTie^[Q]FROM 1,8,9,16 =>RightCoords[P];2,3,10,11 =>TopCoords[P];
4,5,12,13 =>LeftCoords[P];6,7,14,15 =>BotCoords[P]; ENDCASE;
IF  NOT Overlap[P] THEN  GOTO Label40--:199--;Xx^[P]_DviX;Yy^[P]_DviY;
IF Left^[P]=48  THEN OvFlag_TRUE; GOTO Label10--:195--;EXITS Label40 => NULL};TreeIns[P];
Q_DlTie^[P];DlTie^[Q]_0;PressGoto[Xx^[P],Yy^[P]];Hbox[Info^[P],2,TRUE];
EXITS Label10 => NULL}; END;--:193----194:-- DoDot: PROCEDURE[P: TreePointer] = 
BEGIN Q:TreePointer;
 Q_GetAvail[];IF FirstDot=0  THEN FirstDot_Q;LastDot_Q;
DlTie^[P]_Q;DlTie^[Q]_P;Info^[Q]_-Info^[P];Convert[Xx^[P],Yy^[P]];
Xx^[Q]_DviX;Yy^[Q]_DviY;Xx^[P]_Xx^[Q];Yy^[P]_Yy^[Q];
Xl^[Q]_DviX-DotWidth;Xr^[Q]_DviX+DotWidth;Yt^[Q]_DviY-DotHeight;
Yb^[Q]_DviY+DotHeight;TreeIns[Q];PressGoto[Xx^[Q],Yy^[Q]];
PressSetChar[0]; END;--:194----216:--
END.