-- file: MFOctantsImpl5.mesa
-- Pascal-to-Mesa translator output, translated at October 31, 1985 4:28:01 pm PST


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  MFTypes,
  MFProcArray,
  MFMath,
  MFOctants,
  MFContours,
  MFSymbols;

MFOctantsImpl5: PROGRAM IMPORTS PascalBasic, MFProcArray, MFMath, MFOctants, MFContours, MFSymbols EXPORTS MFOctants = PUBLIC
BEGIN OPEN PascalBasic, PascalWizardFiles, MFTypes, MFProcArray, MFMath, MFOctants, MFContours, MFSymbols;
 XyRound: PROCEDURE = 
BEGIN P, Q:Halfword;B, A:Scaled;PenEdge:Scaled;
Alpha:Fraction; CurGran_ABS[Internal^[37]];
IF CurGran=0  THEN CurGran_65536;P_CurSpec;CurRoundingPtr_0;
DO Q_Mem[P]^.Hh.Rh;--434:
IF PascalODD[Mem[P]^.Hh.B1]#PascalODD[Mem[Q]^.Hh.B1] THEN BEGIN IF PascalODD[Mem[Q]^.Hh.B1]
 THEN B_Mem[ INT[Q]+1]^.Int  ELSE B_-Mem[ INT[Q]+1]^.Int;
IF(ABS[Mem[ INT[Q]+1]^.Int-Mem[ INT[Q]+5]^.Int]<655)OR (
ABS[Mem[ INT[Q]+1]^.Int+Mem[ INT[Q]+3]^.Int]<655) THEN--435:
BEGIN IF CurPen=3  THEN PenEdge_0  ELSE IF CurPathType=0  THEN
PenEdge_Compromise[Mem[ INT[Mem[ INT[CurPen]+5]^.Hh.Rh]+2]^.Int,Mem[ INT[Mem[ INT[CurPen]+7]^.
Hh.Rh]+2]^.Int] ELSE IF PascalODD[Mem[Q]^.Hh.B1] THEN PenEdge_Mem[ INT[Mem[ INT[CurPen]+7]^.
Hh.Rh]+2]^.Int  ELSE PenEdge_Mem[ INT[Mem[ INT[CurPen]+5]^.Hh.Rh]+2]^.Int;
A_GoodVal[B,PenEdge]; END--:435-- ELSE A_B;
IF ABS[A]>MaxAllowed  THEN IF A>0  THEN A_MaxAllowed  ELSE A_
-MaxAllowed;BeforeAndAfter[B,A,Q]; END--:434--;P_Q; IF P=CurSpec THEN EXIT; ENDLOOP;
IF  INT[CurRoundingPtr]>0  THEN--436:--BEGIN MakeSafe[];
DO CurRoundingPtr_CurRoundingPtr-1;
IF(After^[CurRoundingPtr]#Before^[CurRoundingPtr])OR (After^
[CurRoundingPtr+1]#Before^[CurRoundingPtr+1]) THEN BEGIN P_
NodeToRound^[CurRoundingPtr];
IF PascalODD[Mem[P]^.Hh.B1] THEN BEGIN B_Before^[CurRoundingPtr];
A_After^[CurRoundingPtr]; END  ELSE BEGIN B_-Before^[CurRoundingPtr];
A_-After^[CurRoundingPtr]; END;
IF Before^[CurRoundingPtr]=Before^[CurRoundingPtr+1] THEN Alpha_
268435456  ELSE Alpha_MakeFraction[After^[CurRoundingPtr+1]-After^
[CurRoundingPtr],Before^[CurRoundingPtr+1]-Before^[CurRoundingPtr]];
DO Mem[ INT[P]+1]^.Int_TakeFraction[Alpha,Mem[ INT[P]+1]^.Int-B]+A;
Mem[ INT[P]+5]^.Int_TakeFraction[Alpha,Mem[ INT[P]+5]^.Int-B]+A;P_Mem[P]^.Hh.Rh;
Mem[ INT[P]+3]^.Int_TakeFraction[Alpha,Mem[ INT[P]+3]^.Int-B]+A;
 IF P=NodeToRound^[CurRoundingPtr+1] THEN EXIT; ENDLOOP; END; IF CurRoundingPtr=0 THEN EXIT; ENDLOOP;
 END--:436--;P_CurSpec;CurRoundingPtr_0;DO Q_Mem[P]^.Hh.Rh;--437:
IF( INT[Mem[P]^.Hh.B1]>2)#( INT[Mem[Q]^.Hh.B1]>2) THEN BEGIN IF  INT[Mem[Q]^.Hh.B1]<=2  THEN B
_Mem[ INT[Q]+2]^.Int  ELSE B_-Mem[ INT[Q]+2]^.Int;
IF(ABS[Mem[ INT[Q]+2]^.Int-Mem[ INT[Q]+6]^.Int]<655)OR (
ABS[Mem[ INT[Q]+2]^.Int+Mem[ INT[Q]+4]^.Int]<655) THEN--438:
BEGIN IF CurPen=3  THEN PenEdge_0  ELSE IF CurPathType=0  THEN
PenEdge_Compromise[Mem[ INT[Mem[ INT[CurPen]+2]^.Hh.Rh]+2]^.Int,Mem[ INT[Mem[ INT[CurPen]+1]^.
Hh.Rh]+2]^.Int] ELSE IF  INT[Mem[Q]^.Hh.B1]<=2  THEN PenEdge_Mem[ INT[Mem[ INT[CurPen]+1]^.
Hh.Rh]+2]^.Int  ELSE PenEdge_Mem[ INT[Mem[ INT[CurPen]+2]^.Hh.Rh]+2]^.Int;
A_GoodVal[B,PenEdge]; END--:438-- ELSE A_B;
IF ABS[A]>MaxAllowed  THEN IF A>0  THEN A_MaxAllowed  ELSE A_
-MaxAllowed;BeforeAndAfter[B,A,Q]; END--:437--;P_Q; IF P=CurSpec THEN EXIT; ENDLOOP;
IF  INT[CurRoundingPtr]>0  THEN--439:--BEGIN MakeSafe[];
DO CurRoundingPtr_CurRoundingPtr-1;
IF(After^[CurRoundingPtr]#Before^[CurRoundingPtr])OR (After^
[CurRoundingPtr+1]#Before^[CurRoundingPtr+1]) THEN BEGIN P_
NodeToRound^[CurRoundingPtr];
IF  INT[Mem[P]^.Hh.B1]<=2  THEN BEGIN B_Before^[CurRoundingPtr];
A_After^[CurRoundingPtr]; END  ELSE BEGIN B_-Before^[CurRoundingPtr];
A_-After^[CurRoundingPtr]; END;
IF Before^[CurRoundingPtr]=Before^[CurRoundingPtr+1] THEN Alpha_
268435456  ELSE Alpha_MakeFraction[After^[CurRoundingPtr+1]-After^
[CurRoundingPtr],Before^[CurRoundingPtr+1]-Before^[CurRoundingPtr]];
DO Mem[ INT[P]+2]^.Int_TakeFraction[Alpha,Mem[ INT[P]+2]^.Int-B]+A;
Mem[ INT[P]+6]^.Int_TakeFraction[Alpha,Mem[ INT[P]+6]^.Int-B]+A;P_Mem[P]^.Hh.Rh;
Mem[ INT[P]+4]^.Int_TakeFraction[Alpha,Mem[ INT[P]+4]^.Int-B]+A;
 IF P=NodeToRound^[CurRoundingPtr+1] THEN EXIT; ENDLOOP; END; IF CurRoundingPtr=0 THEN EXIT; ENDLOOP;
 END--:439--; END;--:433----440:-- DiagRound: PROCEDURE = 
BEGIN P, Q, Pp:Halfword;
B, A, Bb, Aa, D, C, Dd, Cc:Scaled;PenEdge:Scaled;Alpha, Beta:Fraction;
NextA:Scaled;AllSafe:PascalBoolean;K:PascalInteger[0..MaxWiggle];FirstX, FirstY:Scaled;
 InnerDiagRound: PROCEDURE = 
BEGIN--441:
IF Mem[P]^.Hh.B1#Mem[Q]^.Hh.B1  THEN BEGIN IF  INT[Mem[Q]^.Hh.B1]>4  THEN B_-Mem[
 INT[Q]+1]^.Int  ELSE B_Mem[ INT[Q]+1]^.Int;
IF ABS[Mem[Q]^.Hh.B1-Mem[P]^.Hh.B1]=4  THEN IF(ABS[Mem[ INT[Q]+1]^.Int-Mem[ INT[Q]+5]^.
Int]<655)OR (ABS[Mem[ INT[Q]+1]^.Int+Mem[ INT[Q]+3]^.Int]<655) THEN--442:
BEGIN IF CurPen=3  THEN PenEdge_0  ELSE IF CurPathType=0  THEN--443:
SELECT Mem[Q]^.Hh.B1 FROM 1,5 =>PenEdge_Compromise[Mem[ INT[Mem[Mem[ INT[CurPen]+1]^.Hh.
Rh]^.Hh.Lh]+1]^.Int,-Mem[ INT[Mem[Mem[ INT[CurPen]+4]^.Hh.Rh]^.Hh.Lh]+1]^.Int];
4,8 =>PenEdge_-Compromise[Mem[ INT[Mem[Mem[ INT[CurPen]+1]^.Hh.Rh]^.Hh.Lh]+1]^.Int,
-Mem[ INT[Mem[Mem[ INT[CurPen]+4]^.Hh.Rh]^.Hh.Lh]+1]^.Int];
6,2 =>PenEdge_Compromise[Mem[ INT[Mem[Mem[ INT[CurPen]+2]^.Hh.Rh]^.Hh.Lh]+1]^.Int,-Mem
[ INT[Mem[Mem[ INT[CurPen]+3]^.Hh.Rh]^.Hh.Lh]+1]^.Int];
7,3 =>PenEdge_-Compromise[Mem[ INT[Mem[Mem[ INT[CurPen]+2]^.Hh.Rh]^.Hh.Lh]+1]^.Int,
-Mem[ INT[Mem[Mem[ INT[CurPen]+3]^.Hh.Rh]^.Hh.Lh]+1]^.Int]; ENDCASE--:443
 ELSE IF  INT[Mem[Q]^.Hh.B1]<=4  THEN PenEdge_Mem[ INT[Mem[Mem[ INT[CurPen]+Mem[Q]^.Hh.B1]^
.Hh.Rh]^.Hh.Lh]+1]^.Int  ELSE PenEdge_-Mem[ INT[Mem[Mem[ INT[CurPen]+Mem[Q]^.Hh.B1]^.
Hh.Rh]^.Hh.Lh]+1]^.Int;
IF PascalODD[Mem[Q]^.Hh.B1] THEN A_GoodVal[B, PenEdge+PascalDIVPower2[(CurGran),1]] ELSE A_
GoodVal[B-1, PenEdge+PascalDIVPower2[(CurGran),1]]; END--:442-- ELSE A_B  ELSE A_B;
BeforeAndAfter[B,A,Q]; END--:441--; END; P_CurSpec;
CurRoundingPtr_0;DO Q_Mem[P]^.Hh.Rh;InnerDiagRound[];P_Q;
 IF P=CurSpec THEN EXIT; ENDLOOP;IF  INT[CurRoundingPtr]>0  THEN--444:
BEGIN P_NodeToRound^[0];FirstX_Mem[ INT[P]+1]^.Int;FirstY_Mem[ INT[P]+2]^.Int;
--446:--Before^[CurRoundingPtr]_Before^[0];
NodeToRound^[CurRoundingPtr]_NodeToRound^[0];
DO After^[CurRoundingPtr]_After^[0];AllSafe_TRUE;
NextA_After^[0];FOR i:INT    IN [ INT[0 ].. INT[CurRoundingPtr-1 ]] DO  K _ i;  A_NextA;
B_Before^[K];NextA_After^[K+1];Aa_NextA;Bb_Before^[K+1];
IF(A#B)OR (Aa#Bb) THEN BEGIN P_NodeToRound^[K];Pp_NodeToRound^[K+1];
--445:
IF Aa=Bb  THEN BEGIN IF Pp=NodeToRound^[0] THEN Unskew[FirstX,FirstY,
Mem[Pp]^.Hh.B1] ELSE Unskew[Mem[ INT[Pp]+1]^.Int,Mem[ INT[Pp]+2]^.Int,Mem[Pp]^.Hh.B1];
Skew[CurX,CurY,Mem[P]^.Hh.B1];Bb_CurX;Aa_Bb;Dd_CurY;Cc_Dd;
IF  INT[Mem[P]^.Hh.B1]>4  THEN BEGIN B_-B;A_-A; END;
 END  ELSE BEGIN IF  INT[Mem[P]^.Hh.B1]>4  THEN BEGIN Bb_-Bb;Aa_-Aa;B_-B;A_-A;
 END;IF Pp=NodeToRound^[0] THEN Dd_FirstY-Bb  ELSE Dd_Mem[ INT[Pp]+2]^.Int-Bb;
IF PascalODD[Aa-Bb] THEN IF  INT[Mem[P]^.Hh.B1]>4  THEN Cc_ Dd-PascalDIVPower2[(Aa-Bb+1),1] ELSE Cc_
 Dd-PascalDIVPower2[(Aa-Bb-1),1] ELSE Cc_ Dd-PascalDIVPower2[(Aa-Bb),1]; END;D_Mem[ INT[P]+2]^.Int;
IF PascalODD[A-B] THEN IF  INT[Mem[P]^.Hh.B1]>4  THEN C_ D-PascalDIVPower2[(A-B-1),1] ELSE C_ D-PascalDIVPower2[(A-B
+1),1] ELSE C_ D-PascalDIVPower2[(A-B),1];
IF(Aa<A)OR (Cc<C)OR (Aa-A>2*(Bb-B))OR (Cc-C>2*(Dd-D)) THEN BEGIN AllSafe_
FALSE;After^[K]_Before^[K];
IF K=CurRoundingPtr-1  THEN After^[0]_Before^[0] ELSE After^[K+1]_Before^
[K+1]; END; END; ENDLOOP; IF AllSafe--:446-- THEN EXIT; ENDLOOP;
FOR i:INT    IN [ INT[0 ].. INT[CurRoundingPtr-1 ]] DO  K _ i;  A_After^[K];B_Before^[K];
Aa_After^[K+1];Bb_Before^[K+1];
IF(A#B)OR (Aa#Bb) THEN BEGIN P_NodeToRound^[K];Pp_NodeToRound^[K+1];
--445:
IF Aa=Bb  THEN BEGIN IF Pp=NodeToRound^[0] THEN Unskew[FirstX,FirstY,
Mem[Pp]^.Hh.B1] ELSE Unskew[Mem[ INT[Pp]+1]^.Int,Mem[ INT[Pp]+2]^.Int,Mem[Pp]^.Hh.B1];
Skew[CurX,CurY,Mem[P]^.Hh.B1];Bb_CurX;Aa_Bb;Dd_CurY;Cc_Dd;
IF  INT[Mem[P]^.Hh.B1]>4  THEN BEGIN B_-B;A_-A; END;
 END  ELSE BEGIN IF  INT[Mem[P]^.Hh.B1]>4  THEN BEGIN Bb_-Bb;Aa_-Aa;B_-B;A_-A;
 END;IF Pp=NodeToRound^[0] THEN Dd_FirstY-Bb  ELSE Dd_Mem[ INT[Pp]+2]^.Int-Bb;
IF PascalODD[Aa-Bb] THEN IF  INT[Mem[P]^.Hh.B1]>4  THEN Cc_ Dd-PascalDIVPower2[(Aa-Bb+1),1] ELSE Cc_
 Dd-PascalDIVPower2[(Aa-Bb-1),1] ELSE Cc_ Dd-PascalDIVPower2[(Aa-Bb),1]; END;D_Mem[ INT[P]+2]^.Int;
IF PascalODD[A-B] THEN IF  INT[Mem[P]^.Hh.B1]>4  THEN C_ D-PascalDIVPower2[(A-B-1),1] ELSE C_ D-PascalDIVPower2[(A-B
+1),1] ELSE C_ D-PascalDIVPower2[(A-B),1];
IF B=Bb  THEN Alpha_268435456  ELSE Alpha_MakeFraction[Aa-A,Bb-B];
IF D=Dd  THEN Beta_268435456  ELSE Beta_MakeFraction[Cc-C,Dd-D];
DO Mem[ INT[P]+1]^.Int_TakeFraction[Alpha,Mem[ INT[P]+1]^.Int-B]+A;
Mem[ INT[P]+2]^.Int_TakeFraction[Beta,Mem[ INT[P]+2]^.Int-D]+C;
Mem[ INT[P]+5]^.Int_TakeFraction[Alpha,Mem[ INT[P]+5]^.Int-B]+A;
Mem[ INT[P]+6]^.Int_TakeFraction[Beta,Mem[ INT[P]+6]^.Int-D]+C;P_Mem[P]^.Hh.Rh;
Mem[ INT[P]+3]^.Int_TakeFraction[Alpha,Mem[ INT[P]+3]^.Int-B]+A;
Mem[ INT[P]+4]^.Int_TakeFraction[Beta,Mem[ INT[P]+4]^.Int-D]+C; IF P=Pp THEN EXIT; ENDLOOP; END; ENDLOOP;
 END--:444--; END;--:440----451:--
END.