/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: March 19, 1993 5:48:05 pm PST */
/* C2C version: February 24, 1993 (sun4) */
/* ref-counting: off */
/* file: BiScrollersTransformsImpl, module: BiScrollersTransformsImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [2180410997,1075106069] BiScrollersTransformsImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef struct {word f0, f1, f2;} W3;
typedef struct {word f0, f1;} W2;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef W2 *W2Pt;
typedef struct {word f0, f1, f2, f3;} W4;
typedef W4 *W4Pt;
typedef W3 *W3Pt;
#define SOURCE(p, l) /* source p, l */
#define FABS(f, t) ( ((t=(f)) >= (float) 0.0) ? (t) : (- (t)) )
static float fc58 = 0.0;
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) )
static float fc67 = 1.0;
static float fc102 = 2.0;
#define FMIN(x, y, tx, ty)  ( (tx=((float) x)) <= (ty=((float) y)) ? tx : ty )
static void NoName_Q1836();
static void BiScrollersTransformsImpl_P0();
static word Scale_P60();
static void ConstantVector_P120();
static word SGN_P180();
static word ZeroProtect_P240();
static word Rotate_P300();
static word Shift_P360();
static word Align_P420();
static word Blend_P1236();
static void ViewLimitsOfImage_P480();
static void ViewLimitsOfImage2_P540();
static word Round_P600();
static word BoxScale_P660();
static word Fit_P720();
static void Norm_P780();
static void BeVec_P840();
static word BeReal_P900();
static void BeRect_P960();
static word BeBool_P1020();
static word DoBSUserAction_P1080();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\247\031\224\326\300\123\162\224\023\100\164\000\000"};
static struct {unsigned f; char r[4];} string2 = {65540, "\256\000\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\000\172\225\152\300\104\041\252\375\100\200\000\000"};
static struct {unsigned f; char r[4];} string4 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string5 = {65537, "\001\000\000"};
static struct {unsigned f; char r[8];} string6 = {262152, "TRUE\000\000\000"};
static struct {unsigned f; char r[8];} string7 = {327688, "First\000\000"};
static struct {unsigned f; char r[8];} string8 = {262152, "Last\000\000\000"};
static struct {unsigned f; char r[4];} string9 = {196612, "Mid"};
static struct {unsigned f; char r[8];} string10 = {327688, "Shift\000\000"};
static struct {unsigned f; char r[8];} string11 = {327688, "Scale\000\000"};
static struct {unsigned f; char r[12];} string12 = {655372, "ScaleReset\000"};
static struct {unsigned f; char r[8];} string13 = {393224, "Rotate\000"};
static struct {unsigned f; char r[12];} string14 = {720908, "RotateReset"};
static struct {unsigned f; char r[8];} string15 = {327688, "FitXY\000\000"};
static struct {unsigned f; char r[16];} string16 = {786448, "FitUniformly\000\000\000"};
static struct {unsigned f; char r[8];} string17 = {458760, "Vanilla"};
static struct {unsigned f; char r[12];} string18 = {655372, "AlignFracs\000"};
static struct {unsigned f; char r[12];} string19 = {524300, "BoxScale\000\000\000"};
static struct {unsigned f; char r[8];} string20 = {262152, "Prev\000\000\000"};
static struct {unsigned f; char r[8];} string21 = {327688, "FALSE\000\000"};
static struct {unsigned f; char r[16];} string22 = {851984, "\257\300\201\366\156\165\300\100\024\321\025\100\164\000\000"};
static struct {unsigned f; char r[8];} string23 = {458759, "\006\001(\004\200\377\377"};
static struct {unsigned f; char r[16];} string24 = {851984, "\257\300\133\220\237\206\300\254\332\015\112\100\164\000\000"};
static struct {unsigned f; char r[16];} string25 = {851984, "\257\300\000\172\225\152\300\104\041\252\375\100\150\000\000"};
static struct {unsigned f; char r[16];} string26 = {851984, "\257\300\121\117\377\026\300\315\013\026\004\100\150\000\000"};
static struct {unsigned f; char r[16];} string27 = {851984, "\257\300\246\205\220\035\300\344\000\142\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string28 = {851984, "\257\300\245\247\302\156\300\052\156\325\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string29 = {851984, "\257\300\247\031\224\326\300\123\162\224\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string30 = {851984, "\257\300\252\311\132\134\300\226\023\126\352\100\150\000\000"};
static W2 dummy140;
static struct {
   word f0[26]; word f26; word f27; word f28; 
   word f29; word f30; word f31; word f32; 
   word f33; word f34; word f35; word f36; 
   word f37; word f38; word f39; word f40; 
   word f41; word f42; word f43; word f44; 
   word f45; word f46; word f47; word f48; 
   word f49; word f50; word f51; word f52; 
   word f53; word f54; word f55; word f56; 
   word f57; word f58; word f59; word f60; 
   word f61; word f62; word f63[8]; 
   } globalframe = {
   {0}, (word) DoBSUserAction_P1080, 0, (word) BeBool_P1020, 
   0, (word) BeRect_P960, 0, (word) BeReal_P900, 
   0, (word) BeVec_P840, 0, (word) Norm_P780, 
   0, (word) Fit_P720, 0, (word) BoxScale_P660, 
   0, (word) Round_P600, 0, (word) ViewLimitsOfImage2_P540, 
   0, (word) ViewLimitsOfImage_P480, 0, (word) Align_P420, 
   0, (word) Shift_P360, 0, (word) Rotate_P300, 
   0, (word) ZeroProtect_P240, 0, (word) SGN_P180, 
   0, (word) ConstantVector_P120, 0, (word) Scale_P60, 
   0, (word) BiScrollersTransformsImpl_P0, {0}
   };

static void NoName_Q1836()
   {
   register ptr gf_c0248 =  (ptr) &globalframe;
   word var_c16664;
   (* (( (ptr) gf_c0248)+4) ) = (word) XR_GetTypeIndexS((word) (&string1));
   (* (( (ptr) gf_c0248)+5) ) = (word) XR_GetTypeIndexS((word) (&string2));
   (* (( (ptr) gf_c0248)+6) ) = (word) XR_GetTypeIndexS((word) (&string3));
   (* (( (ptr) gf_c0248)+7) ) = (word) XR_GetTypeIndex((word) &string4, 0, (word) &string5);
   (*  (ptr) (( (bPt) gf_c0248)+40) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0248)+7) ), (word) &string6);
   (*  (ptr) (( (bPt) gf_c0248)+44) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0248)+7) ), (word) &string7);
   (*  (ptr) (( (bPt) gf_c0248)+48) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0248)+7) ), (word) &string8);
   (*  (ptr) (( (bPt) gf_c0248)+52) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0248)+7) ), (word) &string9);
   (*  (ptr) (( (bPt) gf_c0248)+56) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0248)+7) ), (word) &string10);
   (*  (ptr) (( (bPt) gf_c0248)+60) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0248)+7) ), (word) &string11);
   (*  (ptr) (( (bPt) gf_c0248)+64) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0248)+7) ), (word) &string12);
   (*  (ptr) (( (bPt) gf_c0248)+68) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0248)+7) ), (word) &string13);
   (*  (ptr) (( (bPt) gf_c0248)+72) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0248)+7) ), (word) &string14);
   (*  (ptr) (( (bPt) gf_c0248)+76) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0248)+7) ), (word) &string15);
   (*  (ptr) (( (bPt) gf_c0248)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0248)+7) ), (word) &string16);
   (*  (ptr) (( (bPt) gf_c0248)+84) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0248)+7) ), (word) &string17);
   (*  (ptr) (( (bPt) gf_c0248)+88) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0248)+7) ), (word) &string18);
   (*  (ptr) (( (bPt) gf_c0248)+92) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0248)+7) ), (word) &string19);
   (*  (ptr) (( (bPt) gf_c0248)+96) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0248)+7) ), (word) &string20);
   (*  (ptr) (( (bPt) gf_c0248)+100) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0248)+7) ), (word) &string21);
   (void) XR_DeclareGlobalFrame((word) "BiScrollersTransformsImpl", &globalframe, (word) XR_GetTypeIndex((word) &string22, 0, (word) &string23)
      , (word) (( (bPt) gf_c0248)+248)/* var_c14712 */ );
   var_c16664 = (word) XR_ImportInterface((word) "Geom2D", (word) XR_GetTypeIndexS((word) (&string24)), 23);
   (* (( (ptr) gf_c0248)+66)/* var_c14840 */  ) = var_c16664;
   var_c16664 = (word) XR_ImportInterface((word) "ImagerBox", (word) XR_GetTypeIndexS((word) (&string25)), 7);
   (* (( (ptr) gf_c0248)+69)/* var_c15992 */  ) = var_c16664;
   (void) XR_ImportProcS(var_c16664, 269484289);
   var_c16664 = (word) XR_ImportInterface((word) "ImagerTransformation", (word) XR_GetTypeIndexS((word) (&string26)), 55);
   (* (( (ptr) gf_c0248)+65)/* var_c14808 */  ) = var_c16664;
   (void) XR_ImportProcS(var_c16664, 135013122);
   (void) XR_ImportProcS(var_c16664, 67637506);
   (void) XR_ImportProcS(var_c16664, 67899394);
   (void) XR_ImportProcS(var_c16664, 67636994);
   (void) XR_ImportProcS(var_c16664, 67899906);
   var_c16664 = (word) XR_ImportInterface((word) "Real", (word) XR_GetTypeIndexS((word) (&string27)), 11);
   (* (( (ptr) gf_c0248)+68)/* var_c15704 */  ) = var_c16664;
   (void) XR_ImportProcS(var_c16664, 67371521);
   var_c16664 = (word) XR_ImportInterface((word) "RealFns", (word) XR_GetTypeIndexS((word) (&string28)), 36);
   (* (( (ptr) gf_c0248)+67)/* var_c15000 */  ) = var_c16664;
   (void) XR_ImportProcS(var_c16664, 67636482);
   (void) XR_ImportProcS(var_c16664, 67372289);
   var_c16664 = (word) XR_ImportInterface((word) "Vector2", (word) XR_GetTypeIndexS((word) (&string29)), 22);
   (* (( (ptr) gf_c0248)+64)/* var_c14776 */  ) = var_c16664;
   (void) XR_ImportProcS(var_c16664, 134743041);
   var_c16664 = (word) XR_ExportInterface((word) "BiScrollersTransforms", (word) XR_GetTypeIndexS((word) (&string30)), 7);
   (* (( (ptr) gf_c0248)+70)/* var_c16696 */  ) = var_c16664;
   (void) XR_ExportProcS(var_c16664, (word) (( (bPt) gf_c0248)+240)/* var_c14680 */ , 69730311);
   (void) XR_ExportProcS(var_c16664, (word) (( (bPt) gf_c0248)+208)/* var_c14552 */ , 69206278);
   (void) XR_ExportProcS(var_c16664, (word) (( (bPt) gf_c0248)+200)/* var_c14520 */ , 67895811);
   (void) XR_ExportProcS(var_c16664, (word) (( (bPt) gf_c0248)+192)/* var_c14488 */ , 70779658);
   (void) XR_ExportProcS(var_c16664, (word) (( (bPt) gf_c0248)+160)/* var_c14360 */ , 70255622);
   (void) XR_ExportProcS(var_c16664, (word) (( (bPt) gf_c0248)+152)/* var_c14328 */ , 69207304);
   (void) XR_ExportProcS(var_c16664, (word) (( (bPt) gf_c0248)+104)/* var_c14136 */ , 70256139);
   }

static void BiScrollersTransformsImpl_P0(formal_c031, formal_c030)
   word formal_c031;
   word formal_c030;
   {
   /* BiScrollersTransformsImpl: */ 
   }

static word Scale_P60(old_v3612, op_v3640, cw_v3668, ch_v3696, pp_v3724, vanilla_v3752, mayStretch_v3780)
   word old_v3612;
   W3 op_v3640;
   word cw_v3668;
   word ch_v3696;
   W2 pp_v3724;
   word vanilla_v3752;
   word mayStretch_v3780;
   {
   register ptr gf_c16728 =  (ptr) &globalframe;
   word new_v3824;
   W2 cv_v7208;
   /* Scale: */ 
SOURCE(690, 682)
SOURCE(690, 682)
   new_v3824 = 0;
SOURCE(856, 36)
   (void) ConstantVector_P120((word) &cv_v7208, cw_v3668, ch_v3696, pp_v3724);
SOURCE(894, 33)
   {
      W2 var_c14744;
      {
         word pd31;
         pd31 = (* (( (ptr) (* (( (ptr) gf_c16728)+64)/* var_c14776 */  ))+8) );
         (void) ( *( (fPt) ((*  (ptr) pd31 ))))((word) &var_c14744, cv_v7208, pd31);
         };
      {
         word pd32;
         pd32 = (* (( (ptr) (* (( (ptr) gf_c16728)+65)/* var_c14808 */  ))+22) );
         new_v3824 = (word) ( *( (fPt) ((*  (ptr) pd32 ))))(old_v3612, var_c14744, pd32);
         };
      };
SOURCE(929, 41)
   if ((vanilla_v3752 == 0)) {
SOURCE(951, 19)
      vanilla_v3752 = (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c16728)+66)/* var_c14840 */  ))+5) ) );
      };
SOURCE(972, 353)
   {
      word var_c14872;
      var_c14872 = op_v3640.f0;
      switch (var_c14872) {
         case 0: 
SOURCE(1001, 203)
            {
               W6 v_v7252;
               word vd_v7280;
               word od_v7308;
SOURCE(1003, 41)
               {
                  W6 tn_v14088;
                  tn_v14088.f0 = (*  (ptr) vanilla_v3752 );
                  tn_v14088.f1 = (* (( (ptr) vanilla_v3752)+3) );
                  tn_v14088.f2 = (* (( (ptr) vanilla_v3752)+1) );
                  tn_v14088.f3 = (* (( (ptr) vanilla_v3752)+4) );
                  tn_v14088.f4 = (* (( (ptr) vanilla_v3752)+2) );
                  tn_v14088.f5 = (* (( (ptr) vanilla_v3752)+5) );
                  v_v7252 = tn_v14088;
                  };
SOURCE(1046, 40)
               {
                  word x33;
                  word x34;
                  word x35;
                  word x36;
                  *(float*)&vd_v7280 = ((
                     x33 = v_v7252.f0,  *(float*)&x33
                     ) * (
                     x34 = v_v7252.f3,  *(float*)&x34
                     )) - ((
                     x35 = v_v7252.f1,  *(float*)&x35
                     ) * (
                     x36 = v_v7252.f2,  *(float*)&x36
                     ));
                  };
SOURCE(1088, 36)
               {
                  word x37;
                  word x38;
                  word x39;
                  word x40;
                  *(float*)&od_v7308 = ((
                     x37 = (*  (ptr) old_v3612 ),  *(float*)&x37
                     ) * (
                     x38 = (* (( (ptr) old_v3612)+4) ),  *(float*)&x38
                     )) - ((
                     x39 = (* (( (ptr) old_v3612)+3) ),  *(float*)&x39
                     ) * (
                     x40 = (* (( (ptr) old_v3612)+1) ),  *(float*)&x40
                     ));
                  };
SOURCE(1126, 76)
               {
                  word var_c14936;
                  {
                     word var_c14968;
                     word var_c0264;
                     word var_c0265;
                     {
                        float tf41;
                        word x42;
                        word x43;
                        float tf44;
                        var_c14968 = (
                           tf44 = FABS(((
/*1*/      x42 = vd_v7280,  *(float*)&x42
/*1*/      ) / (
/*1*/      x43 = (word) ZeroProtect_P240(od_v7308),  *(float*)&x43
/*1*/      )), tf41),  *(word*)&tf44
                           );
                        };
                     {
                        word pd45;
                        pd45 = (* (( (ptr) (* (( (ptr) gf_c16728)+67)/* var_c15000 */  ))+9) );
                        var_c0264 = (word) ( *( (fPt) ((*  (ptr) pd45 ))))(var_c14968, pd45);
                        };
                     {
                        word x46;
                        *(float*)&var_c0265 = (
                           x46 = var_c0264,  *(float*)&x46
                           ) * (float)(int)((word) SGN_P180(vd_v7280) - 1);
                        };
                     {
                        word x47;
                        *(float*)&var_c14936 = (
                           x47 = var_c0265,  *(float*)&x47
                           ) * (float)(int)((word) SGN_P180(od_v7308) - 1);
                        };
                     };
                  {
                     word pd48;
                     pd48 = (* (( (ptr) (* (( (ptr) gf_c16728)+65)/* var_c14808 */  ))+19) );
                     new_v3824 = (word) ( *( (fPt) ((*  (ptr) pd48 ))))(new_v3824, var_c14936, pd48);
                     };
                  };
               };
            break;
         case 1: 
SOURCE(1216, 24)
            {
               word pd49;
               pd49 = (* (( (ptr) (* (( (ptr) gf_c16728)+65)/* var_c14808 */  ))+19) );
               new_v3824 = (word) ( *( (fPt) ((*  (ptr) pd49 ))))(new_v3824, op_v3640.f1, pd49);
               };
            break;
         case 2: 
SOURCE(1250, 75)
            if ((0 != mayStretch_v3780)) {
SOURCE(1269, 34)
               {
                  W2 var_c15032;
                  var_c15032.f0 = op_v3640.f1;
                  var_c15032.f1 = op_v3640.f2;
                  {
                     word pd50;
                     pd50 = (* (( (ptr) (* (( (ptr) gf_c16728)+65)/* var_c14808 */  ))+20) );
                     new_v3824 = (word) ( *( (fPt) ((*  (ptr) pd50 ))))(new_v3824, var_c15032, pd50);
                     };
                  };
               }
            else {
SOURCE(1303, 22)
               {
                  word pd51;
                  pd51 = (* (( (ptr) (* (( (ptr) gf_c16728)+65)/* var_c14808 */  ))+19) );
                  new_v3824 = (word) ( *( (fPt) ((*  (ptr) pd51 ))))(new_v3824, op_v3640.f1, pd51);
                  };
               };
            break;
         default: 
SOURCE(1338, 5)
            (void) XR_RaiseUnnamedError();
            break;
         };
      };
SOURCE(1345, 27)
   {
      word pd52;
      pd52 = (* (( (ptr) (* (( (ptr) gf_c16728)+65)/* var_c14808 */  ))+22) );
      new_v3824 = (word) ( *( (fPt) ((*  (ptr) pd52 ))))(new_v3824, cv_v7208, pd52);
      };
SOURCE(690, 682)
   return(new_v3824);
   }

static void ConstantVector_P120(formal_c056, cw_v3884, ch_v3912, pp_v3940)
   word formal_c056;
   word cw_v3884;
   word ch_v3912;
   W2 pp_v3940;
   {
   W2 cv_v3984;
   /* ConstantVector: */ 
SOURCE(1378, 105)
SOURCE(1458, 25)
   {
      word x53;
      word x54;
      *(float*)&cv_v3984.f0 = (
         x53 = cw_v3884,  *(float*)&x53
         ) * (
         x54 = pp_v3940.f0,  *(float*)&x54
         );
      };
   {
      word x55;
      word x56;
      *(float*)&cv_v3984.f1 = (
         x55 = ch_v3912,  *(float*)&x55
         ) * (
         x56 = pp_v3940.f1,  *(float*)&x56
         );
      };
   /* removed tail goto */ 
   (*  (W2Pt) formal_c056 ) = cv_v3984;
   return;
   }

static word SGN_P180(r_v4044)
   word r_v4044;
   {
   word sgn_v4088;
   /* SGN: */ 
SOURCE(1489, 113)
SOURCE(1538, 64)
   {
      word var_c15064;
      var_c15064 = r_v4044;
      {
         word x57;
         word x59;
         word x60;
         word x61;
         word x62;
         word x63;
         word idx64;
         sgn_v4088 = (
            idx64 = (word) ( ( ((
               x57 = var_c15064,  *(float*)&x57
               ) < (
               x59 = (*  (ptr) &fc58 ),  *(float*)&x59
               )) ?  (word) -1 :  ( ((
               x60 = var_c15064,  *(float*)&x60
               ) == (
               x61 = (*  (ptr) &fc58 ),  *(float*)&x61
               )) ? 0 :  ( ((
               x62 = var_c15064,  *(float*)&x62
               ) > (
               x63 = (*  (ptr) &fc58 ),  *(float*)&x63
               )) ? 1 : (
               XR_RaiseUnnamedError(), 0
               ) )  )  )  + 1),
            BCK(idx64, 3)
            );
         };
      };
SOURCE(1489, 113)
   return(sgn_v4088);
   }

static word ZeroProtect_P240(r_v4168)
   word r_v4168;
   {
   word r0_v4212;
   /* ZeroProtect: */ 
SOURCE(1606, 81)
SOURCE(1656, 31)
   {
      word x65;
      word x66;
      if (((
         x65 = r_v4168,  *(float*)&x65
         ) == (
         x66 = (*  (ptr) &fc58 ),  *(float*)&x66
         ))) {
         r0_v4212 = (*  (ptr) &fc67 );
         }
      else {
         r0_v4212 = r_v4168;
         };
      };
SOURCE(1606, 81)
   return(r0_v4212);
   }

static word Rotate_P300(old_v4272, op_v4300, cw_v4328, ch_v4356, pp_v4384, vanilla_v4412)
   word old_v4272;
   W2 op_v4300;
   word cw_v4328;
   word ch_v4356;
   W2 pp_v4384;
   word vanilla_v4412;
   {
   register ptr gf_c16760 =  (ptr) &globalframe;
   word new_v4456;
   W2 cv_v7352;
   /* Rotate: */ 
SOURCE(1691, 478)
SOURCE(1691, 478)
   new_v4456 = 0;
SOURCE(1833, 36)
   (void) ConstantVector_P120((word) &cv_v7352, cw_v4328, ch_v4356, pp_v4384);
SOURCE(1871, 33)
   {
      W2 var_c15096;
      {
         word pd68;
         pd68 = (* (( (ptr) (* (( (ptr) gf_c16760)+64)/* var_c14776 */  ))+8) );
         (void) ( *( (fPt) ((*  (ptr) pd68 ))))((word) &var_c15096, cv_v7352, pd68);
         };
      {
         word pd69;
         pd69 = (* (( (ptr) (* (( (ptr) gf_c16760)+65)/* var_c14808 */  ))+22) );
         new_v4456 = (word) ( *( (fPt) ((*  (ptr) pd69 ))))(old_v4272, var_c15096, pd69);
         };
      };
SOURCE(1906, 216)
   {
      word var_c15128;
      var_c15128 = op_v4300.f0;
      if ((var_c15128 == 0)) {
SOURCE(1935, 150)
         {
            W6 v_v7396;
SOURCE(1937, 41)
            {
               W6 tn_v14040;
               tn_v14040.f0 = (*  (ptr) vanilla_v4412 );
               tn_v14040.f1 = (* (( (ptr) vanilla_v4412)+3) );
               tn_v14040.f2 = (* (( (ptr) vanilla_v4412)+1) );
               tn_v14040.f3 = (* (( (ptr) vanilla_v4412)+4) );
               tn_v14040.f4 = (* (( (ptr) vanilla_v4412)+2) );
               tn_v14040.f5 = (* (( (ptr) vanilla_v4412)+5) );
               v_v7396 = tn_v14040;
               };
SOURCE(1980, 103)
            {
               word var_c15192;
               {
                  word pd70;
                  word x71;
                  word pd72;
                  word x73;
                  pd70 = (* (( (ptr) (* (( (ptr) gf_c16760)+67)/* var_c15000 */  ))+17) );
                  pd72 = (* (( (ptr) (* (( (ptr) gf_c16760)+67)/* var_c15000 */  ))+17) );
                  *(float*)&var_c15192 = (
                     x71 = (word) ( *( (fPt) ((*  (ptr) pd70 ))))(v_v7396.f1, v_v7396.f0, pd70),  *(float*)&x71
                     ) - (
                     x73 = (word) ( *( (fPt) ((*  (ptr) pd72 ))))((* (( (ptr) old_v4272)+3) ), (*  (ptr) old_v4272 ), pd72),  *(float*)&x73
                     );
                  };
               {
                  word pd74;
                  pd74 = (* (( (ptr) (* (( (ptr) gf_c16760)+65)/* var_c14808 */  ))+21) );
                  new_v4456 = (word) ( *( (fPt) ((*  (ptr) pd74 ))))(new_v4456, var_c15192, pd74);
                  };
               };
            };
         }
      else {
         if ((var_c15128 == 1)) {
SOURCE(2097, 25)
            {
               word pd75;
               pd75 = (* (( (ptr) (* (( (ptr) gf_c16760)+65)/* var_c14808 */  ))+21) );
               new_v4456 = (word) ( *( (fPt) ((*  (ptr) pd75 ))))(new_v4456, op_v4300.f1, pd75);
               };
            }
         else {
SOURCE(2135, 5)
            (void) XR_RaiseUnnamedError();
            };
         };
      };
SOURCE(2142, 27)
   {
      word pd76;
      pd76 = (* (( (ptr) (* (( (ptr) gf_c16760)+65)/* var_c14808 */  ))+22) );
      new_v4456 = (word) ( *( (fPt) ((*  (ptr) pd76 ))))(new_v4456, cv_v7352, pd76);
      };
SOURCE(1691, 478)
   return(new_v4456);
   }

static word Shift_P360(old_v4516, dx_v4544, dy_v4572)
   word old_v4516;
   word dx_v4544;
   word dy_v4572;
   {
   register ptr gf_c16792 =  (ptr) &globalframe;
   word new_v4616;
   /* Shift: */ 
SOURCE(2175, 112)
SOURCE(2175, 112)
   new_v4616 = 0;
SOURCE(2254, 33)
   {
      W2 var_c15224;
      var_c15224.f0 = dx_v4544;
      var_c15224.f1 = dy_v4572;
      {
         word pd77;
         pd77 = (* (( (ptr) (* (( (ptr) gf_c16792)+65)/* var_c14808 */  ))+22) );
         new_v4616 = (word) ( *( (fPt) ((*  (ptr) pd77 ))))(old_v4516, var_c15224, pd77);
         };
      };
SOURCE(2175, 112)
   return(new_v4616);
   }

static word Align_P420(old_v4676, client_v4704, viewer_v4732, doX_v4760, doY_v4788, cw_v4816, ch_v4844, extremaProc_v4872, clientData_v4900, ageOp_v4928)
   word old_v4676;
   W3 client_v4704;
   W3 viewer_v4732;
   word doX_v4760;
   word doY_v4788;
   word cw_v4816;
   word ch_v4844;
   word extremaProc_v4872;
   word clientData_v4900;
   word ageOp_v4928;
   {
   W6 var_c16824;
   register ptr gf_c16856 =  (ptr) &globalframe;
   word new_v4988;
   /* declaration of var_c15256 skipped */ 
   W2 from_v7440;
   W2 to_v7468;
   /* Align: */ 
SOURCE(2293, 870)
   {
      word tmpAddr78;
      tmpAddr78 = (word) (( (ptr) &var_c16824)+4)/* var_c15256 */ ;
      (*  (ptr) tmpAddr78 ) = ( ((word)  (fPt) Blend_P1236) );
      (* (( (ptr) tmpAddr78) + 1) ) = 1;
      };
SOURCE(2293, 870)
   new_v4988 = 0;
SOURCE(2489, 26)
   from_v7440.f0 = (*  (ptr) &fc58 );
   from_v7440.f1 = (*  (ptr) &fc58 );
   to_v7468 = from_v7440;
SOURCE(2596, 324)
   {
      word var_c15320;
      var_c15320 = client_v4704.f0;
      if ((var_c15320 == 0)) {
SOURCE(2629, 28)
         {
            W2 var_c098;
            {
               W2 var_c15352;
               var_c15352.f0 = client_v4704.f1;
               var_c15352.f1 = client_v4704.f2;
               {
                  word pd79;
                  pd79 = (* (( (ptr) (* (( (ptr) gf_c16856)+65)/* var_c14808 */  ))+39) );
                  (void) ( *( (fPt) ((*  (ptr) pd79 ))))((word) &var_c098, old_v4676, var_c15352, pd79);
                  };
               };
            from_v7440 = var_c098;
            };
         }
      else {
         if ((var_c15320 == 1)) {
SOURCE(2671, 254)
            {
               word vmin_v7700;
               word vmax_v7728;
SOURCE(2691, 112)
               if ((0 != doX_v4760)) {
SOURCE(2705, 66)
                  {
                     W2 var_c15384;
                     (void) ViewLimitsOfImage2_P540((word) &var_c15384, old_v4676, extremaProc_v4872, clientData_v4900, 0);
                     vmax_v7728 = var_c15384.f1;
                     vmin_v7700 = var_c15384.f0;
                     };
SOURCE(2773, 30)
                  from_v7440.f0 = (word) Blend_P1236(client_v4704.f1, vmin_v7700, vmax_v7728, (word) (( (bPt) &var_c16824)+16)/* var_c15256 */ )
                  ;
                  };
SOURCE(2808, 112)
               if ((0 != doY_v4788)) {
SOURCE(2822, 66)
                  {
                     W2 var_c15416;
                     (void) ViewLimitsOfImage2_P540((word) &var_c15416, old_v4676, extremaProc_v4872, clientData_v4900, 1);
                     vmax_v7728 = var_c15416.f1;
                     vmin_v7700 = var_c15416.f0;
                     };
SOURCE(2890, 30)
                  from_v7440.f1 = (word) Blend_P1236(client_v4704.f2, vmin_v7700, vmax_v7728, (word) (( (bPt) &var_c16824)+16)/* var_c15256 */ )
                  ;
                  };
               };
            }
         else {
SOURCE(2939, 5)
            (void) XR_RaiseUnnamedError();
            };
         };
      };
SOURCE(2946, 79)
   {
      word var_c15448;
      var_c15448 = viewer_v4732.f0;
      if ((var_c15448 == 0)) {
SOURCE(2979, 11)
         to_v7468.f0 = viewer_v4732.f1;
         to_v7468.f1 = viewer_v4732.f2;
         }
      else {
         if ((var_c15448 == 1)) {
SOURCE(3006, 19)
            {
               word x80;
               word x81;
               *(float*)&to_v7468.f0 = (
                  x80 = viewer_v4732.f1,  *(float*)&x80
                  ) * (
                  x81 = cw_v4816,  *(float*)&x81
                  );
               };
            {
               word x82;
               word x83;
               *(float*)&to_v7468.f1 = (
                  x82 = viewer_v4732.f2,  *(float*)&x82
                  ) * (
                  x83 = ch_v4844,  *(float*)&x83
                  );
               };
            }
         else {
SOURCE(3041, 5)
            (void) XR_RaiseUnnamedError();
            };
         };
      };
SOURCE(3048, 29)
   if ((0 == doX_v4760)) {
SOURCE(3064, 13)
      to_v7468.f0 = from_v7440.f0;
      };
SOURCE(3079, 29)
   if ((0 == doY_v4788)) {
SOURCE(3095, 13)
      to_v7468.f1 = from_v7440.f1;
      };
SOURCE(3110, 53)
   {
      word var_c15480;
      {
         W2 var_c15512;
         {
            word pd84;
            pd84 = (* (( (ptr) (* (( (ptr) gf_c16856)+64)/* var_c14776 */  ))+8) );
            (void) ( *( (fPt) ((*  (ptr) pd84 ))))((word) &var_c15512, from_v7440, pd84);
            };
         {
            word pd85;
            pd85 = (* (( (ptr) (* (( (ptr) gf_c16856)+65)/* var_c14808 */  ))+22) );
            var_c15480 = (word) ( *( (fPt) ((*  (ptr) pd85 ))))(old_v4676, var_c15512, pd85);
            };
         };
      {
         word pd86;
         pd86 = (* (( (ptr) (* (( (ptr) gf_c16856)+65)/* var_c14808 */  ))+22) );
         new_v4988 = (word) ( *( (fPt) ((*  (ptr) pd86 ))))(var_c15480, to_v7468, pd86);
         };
      };
SOURCE(2293, 870)
   return(new_v4988);
   }

static word Blend_P1236(a_v7572, b0_v7600, b1_v7628, formal_c16888)
   word a_v7572;
   word b0_v7600;
   word b1_v7628;
   word formal_c16888;
   {
   word c_v7672;
   formal_c16888 = (formal_c16888 - 16);
   /* Blend: */ 
SOURCE(2517, 76)
SOURCE(2574, 19)
   {
      word x87;
      word x88;
      word x89;
      word x90;
      word x91;
      *(float*)&c_v7672 = (((
         x87 = (*  (ptr) &fc67 ),  *(float*)&x87
         ) - (
         x88 = a_v7572,  *(float*)&x88
         )) * (
         x89 = b0_v7600,  *(float*)&x89
         )) + ((
         x90 = a_v7572,  *(float*)&x90
         ) * (
         x91 = b1_v7628,  *(float*)&x91
         ));
      };
SOURCE(2517, 76)
   return(c_v7672);
   }

static void ViewLimitsOfImage_P480(formal_c0122, t_v5048, min_v5076, max_v5104, axis_v5132)
   word formal_c0122;
   word t_v5048;
   W2 min_v5076;
   W2 max_v5104;
   word axis_v5132;
   {
   register ptr gf_c16920 =  (ptr) &globalframe;
   word vmin_v5176;
   word vmax_v5204;
   /* ViewLimitsOfImage: */ 
SOURCE(3169, 229)
SOURCE(3266, 22)
   {
      word pd92;
      pd92 = (* (( (ptr) (* (( (ptr) gf_c16920)+65)/* var_c14808 */  ))+39) );
      (void) ( *( (fPt) ((*  (ptr) pd92 ))))((word) &min_v5076, t_v5048, min_v5076, pd92);
      };
SOURCE(3290, 22)
   {
      word pd93;
      pd93 = (* (( (ptr) (* (( (ptr) gf_c16920)+65)/* var_c14808 */  ))+39) );
      (void) ( *( (fPt) ((*  (ptr) pd93 ))))((word) &max_v5104, t_v5048, max_v5104, pd93);
      };
SOURCE(3314, 84)
   {
      word var_c15544;
      var_c15544 = axis_v5132;
      if ((var_c15544 == 0)) {
SOURCE(3337, 12)
         vmin_v5176 = min_v5076.f0;
SOURCE(3351, 12)
         vmax_v5204 = max_v5104.f0;
         }
      else {
         if ((var_c15544 == 1)) {
SOURCE(3372, 12)
            vmin_v5176 = min_v5076.f1;
SOURCE(3386, 12)
            vmax_v5204 = max_v5104.f1;
            }
         else {
SOURCE(3412, 5)
            (void) XR_RaiseUnnamedError();
            };
         };
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c0122 ) = vmin_v5176;
   (* (( (ptr) formal_c0122)+1) ) = vmax_v5204;
   return;
   }

static void ViewLimitsOfImage2_P540(formal_c0140, t_v5264, extremaProc_v5292, clientData_v5320, axis_v5348)
   word formal_c0140;
   word t_v5264;
   word extremaProc_v5292;
   word clientData_v5320;
   word axis_v5348;
   {
   register ptr gf_c16952 =  (ptr) &globalframe;
   word vmin_v5404;
   word vmax_v5432;
   W6 tn_v7772;
   W2 norm_v7800;
   W2 min_v7828;
   W2 max_v7856;
   /* ViewLimitsOfImage2: */ 
SOURCE(3423, 460)
SOURCE(3549, 36)
   {
      W6 tn_v13992;
      tn_v13992.f0 = (*  (ptr) t_v5264 );
      tn_v13992.f1 = (* (( (ptr) t_v5264)+3) );
      tn_v13992.f2 = (* (( (ptr) t_v5264)+1) );
      tn_v13992.f3 = (* (( (ptr) t_v5264)+4) );
      tn_v13992.f4 = (* (( (ptr) t_v5264)+2) );
      tn_v13992.f5 = (* (( (ptr) t_v5264)+5) );
      tn_v7772 = tn_v13992;
      };
SOURCE(3608, 79)
   {
      word var_c15608;
      var_c15608 = axis_v5348;
      if ((var_c15608 == 0)) {
SOURCE(3630, 25)
         norm_v7800.f0 = tn_v7772.f0;
         norm_v7800.f1 = tn_v7772.f2;
         }
      else {
         if ((var_c15608 == 1)) {
SOURCE(3662, 25)
            norm_v7800.f0 = tn_v7772.f1;
            norm_v7800.f1 = tn_v7772.f3;
            }
         else {
SOURCE(3700, 5)
            (void) XR_RaiseUnnamedError();
            };
         };
      };
SOURCE(3707, 42)
   {
      W4 var_c15640;
      (void) ( *( (fPt) ((*  (ptr) extremaProc_v5292 ))))((word) &var_c15640, clientData_v5320, norm_v7800, extremaProc_v5292);
      max_v7856 = (*  (W2Pt) (( (ptr) &var_c15640)+2) );
      min_v7828 = (*  (W2Pt) &var_c15640 );
      };
SOURCE(3751, 22)
   {
      word pd94;
      pd94 = (* (( (ptr) (* (( (ptr) gf_c16952)+65)/* var_c14808 */  ))+39) );
      (void) ( *( (fPt) ((*  (ptr) pd94 ))))((word) &min_v7828, t_v5264, min_v7828, pd94);
      };
SOURCE(3775, 22)
   {
      word pd95;
      pd95 = (* (( (ptr) (* (( (ptr) gf_c16952)+65)/* var_c14808 */  ))+39) );
      (void) ( *( (fPt) ((*  (ptr) pd95 ))))((word) &max_v7856, t_v5264, max_v7856, pd95);
      };
SOURCE(3799, 84)
   {
      word var_c15672;
      var_c15672 = axis_v5348;
      if ((var_c15672 == 0)) {
SOURCE(3822, 12)
         vmin_v5404 = min_v7828.f0;
SOURCE(3836, 12)
         vmax_v5432 = max_v7856.f0;
         }
      else {
         if ((var_c15672 == 1)) {
SOURCE(3857, 12)
            vmin_v5404 = min_v7828.f1;
SOURCE(3871, 12)
            vmax_v5432 = max_v7856.f1;
            }
         else {
SOURCE(3897, 5)
            (void) XR_RaiseUnnamedError();
            };
         };
      };
   /* removed tail goto */ 
   (*  (ptr) formal_c0140 ) = vmin_v5404;
   (* (( (ptr) formal_c0140)+1) ) = vmax_v5432;
   return;
   }

static word Round_P600(r_v5492)
   word r_v5492;
   {
   register ptr gf_c16984 =  (ptr) &globalframe;
   word rr_v5536;
   word i_v7900;
   /* Round: */ 
SOURCE(3908, 110)
SOURCE(3953, 22)
   {
      word pd96;
      pd96 = (* (( (ptr) (* (( (ptr) gf_c16984)+68)/* var_c15704 */  ))+6) );
      i_v7900 = (word) ( *( (fPt) ((*  (ptr) pd96 ))))(r_v5492, pd96);
      };
SOURCE(3977, 41)
   {
      word x97;
      word x98;
      float tf99;
      if (( (unsigned) ( (int)i_v7900 ==  (int)0) !=  (unsigned) ((
         x97 = r_v5492,  *(float*)&x97
         ) == (
         x98 = (*  (ptr) &fc58 ),  *(float*)&x98
         )))) {
         rr_v5536 = r_v5492;
         }
      else {
         rr_v5536 = (
            tf99 = (float)(int)i_v7900,  *(word*)&tf99
            );
         };
      };
SOURCE(3908, 110)
   return(rr_v5536);
   }

static word BoxScale_P660(old_v5596, from_v5624, to_v5652, uniformly_v5680, mayStretch_v5708, preferIntegerCoefficients_v5736)
   word old_v5596;
   W4 from_v5624;
   W4 to_v5652;
   word uniformly_v5680;
   word mayStretch_v5708;
   word preferIntegerCoefficients_v5736;
   {
   register ptr gf_c17016 =  (ptr) &globalframe;
   word new_v5780;
   word ndx_v7944;
   word ndy_v7972;
   word odx_v8000;
   word ody_v8028;
   word sx_v8056;
   word sy_v8084;
   /* BoxScale: */ 
SOURCE(4024, 665)
SOURCE(4024, 665)
   new_v5780 = 0;
SOURCE(4258, 70)
   {
      W2 var_c15736;
      {
         word x100;
         word x101;
         word x103;
         *(float*)&var_c15736.f0 =  - ((
            x100 = from_v5624.f0,  *(float*)&x100
            ) + ((
            x101 = from_v5624.f2,  *(float*)&x101
            ) / (
            x103 = (*  (ptr) &fc102 ),  *(float*)&x103
            )));
         };
      {
         word x104;
         word x105;
         word x106;
         *(float*)&var_c15736.f1 =  - ((
            x104 = from_v5624.f1,  *(float*)&x104
            ) + ((
            x105 = from_v5624.f3,  *(float*)&x105
            ) / (
            x106 = (*  (ptr) &fc102 ),  *(float*)&x106
            )));
         };
      {
         word pd107;
         pd107 = (* (( (ptr) (* (( (ptr) gf_c17016)+65)/* var_c14808 */  ))+22) );
         new_v5780 = (word) ( *( (fPt) ((*  (ptr) pd107 ))))(old_v5596, var_c15736, pd107);
         };
      };
SOURCE(4330, 10)
   ndx_v7944 = to_v5652.f2;
SOURCE(4342, 10)
   ndy_v7972 = to_v5652.f3;
SOURCE(4354, 12)
   odx_v8000 = from_v5624.f2;
SOURCE(4368, 12)
   ody_v8028 = from_v5624.f3;
SOURCE(4382, 42)
   {
      word x108;
      word x109;
      word x110;
      word x111;
      word x112;
      word x113;
      if (((
         x108 = ndx_v7944,  *(float*)&x108
         ) == (
         x109 = (*  (ptr) &fc58 ),  *(float*)&x109
         )) || ((
         x110 = odx_v8000,  *(float*)&x110
         ) == (
         x111 = (*  (ptr) &fc58 ),  *(float*)&x111
         ))) {
         sx_v8056 = (*  (ptr) &fc67 );
         }
      else {
         *(float*)&sx_v8056 = (
            x112 = ndx_v7944,  *(float*)&x112
            ) / (
            x113 = odx_v8000,  *(float*)&x113
            );
         };
      };
SOURCE(4426, 42)
   {
      word x114;
      word x115;
      word x116;
      word x117;
      word x118;
      word x119;
      if (((
         x114 = ndy_v7972,  *(float*)&x114
         ) == (
         x115 = (*  (ptr) &fc58 ),  *(float*)&x115
         )) || ((
         x116 = ody_v8028,  *(float*)&x116
         ) == (
         x117 = (*  (ptr) &fc58 ),  *(float*)&x117
         ))) {
         sy_v8084 = (*  (ptr) &fc67 );
         }
      else {
         *(float*)&sy_v8084 = (
            x118 = ndy_v7972,  *(float*)&x118
            ) / (
            x119 = ody_v8028,  *(float*)&x119
            );
         };
      };
SOURCE(4470, 57)
   if ((0 != uniformly_v5680) || (0 == mayStretch_v5708)) {
SOURCE(4506, 21)
      {
         word var_c15768;
         {
            word x120;
            float tf121;
            float tf122;
            word x123;
            float tf124;
            var_c15768 = (
               tf124 = FMIN((
                     x120 = sx_v8056,  *(float*)&x120
                     ), (
                     x123 = sy_v8084,  *(float*)&x123
                     ), tf121, tf122),  *(word*)&tf124
               );
            };
         sy_v8084 = var_c15768;
         sx_v8056 = var_c15768;
         };
      };
SOURCE(4529, 65)
   if ((0 != preferIntegerCoefficients_v5736)) {
SOURCE(4564, 14)
      sx_v8056 = (word) Round_P600(sx_v8056);
SOURCE(4580, 14)
      sy_v8084 = (word) Round_P600(sy_v8084);
      };
SOURCE(4597, 30)
   {
      W2 var_c15800;
      var_c15800.f0 = sx_v8056;
      var_c15800.f1 = sy_v8084;
      {
         word pd125;
         pd125 = (* (( (ptr) (* (( (ptr) gf_c17016)+65)/* var_c14808 */  ))+20) );
         new_v5780 = (word) ( *( (fPt) ((*  (ptr) pd125 ))))(new_v5780, var_c15800, pd125);
         };
      };
SOURCE(4629, 60)
   {
      W2 var_c15832;
      {
         word x126;
         word x127;
         word x128;
         *(float*)&var_c15832.f0 = (
            x126 = to_v5652.f0,  *(float*)&x126
            ) + ((
            x127 = to_v5652.f2,  *(float*)&x127
            ) / (
            x128 = (*  (ptr) &fc102 ),  *(float*)&x128
            ));
         };
      {
         word x129;
         word x130;
         word x131;
         *(float*)&var_c15832.f1 = (
            x129 = to_v5652.f1,  *(float*)&x129
            ) + ((
            x130 = to_v5652.f3,  *(float*)&x130
            ) / (
            x131 = (*  (ptr) &fc102 ),  *(float*)&x131
            ));
         };
      {
         word pd132;
         pd132 = (* (( (ptr) (* (( (ptr) gf_c17016)+65)/* var_c14808 */  ))+22) );
         new_v5780 = (word) ( *( (fPt) ((*  (ptr) pd132 ))))(new_v5780, var_c15832, pd132);
         };
      };
SOURCE(4024, 665)
   return(new_v5780);
   }

static word Fit_P720(old_v5840, uniformly_v5868, cw_v5896, ch_v5924, extremaProc_v5952, clientData_v5980, mayStretch_v6008, preferIntegerCoefficients_v6036)
   word old_v5840;
   word uniformly_v5868;
   word cw_v5896;
   word ch_v5924;
   word extremaProc_v5952;
   word clientData_v5980;
   word mayStretch_v6008;
   word preferIntegerCoefficients_v6036;
   {
   register ptr gf_c17048 =  (ptr) &globalframe;
   word new_v6092;
   W2 normX_v8128;
   W2 normY_v8156;
   W2 minX_v8184;
   W2 maxX_v8212;
   W2 minY_v8240;
   W2 maxY_v8268;
   W4 limits_v8296;
   W4 from_v8324;
   W4 to_v8352;
   /* Fit: */ 
SOURCE(4749, 706)
SOURCE(4749, 706)
   new_v6092 = 0;
SOURCE(4952, 25)
   (void) Norm_P780((word) &normX_v8128, old_v5840, 0);
SOURCE(4979, 25)
   (void) Norm_P780((word) &normY_v8156, old_v5840, 1);
SOURCE(5082, 45)
   {
      W4 var_c15864;
      (void) ( *( (fPt) ((*  (ptr) extremaProc_v5952 ))))((word) &var_c15864, clientData_v5980, normX_v8128, extremaProc_v5952)
      ;
      maxX_v8212 = (*  (W2Pt) (( (ptr) &var_c15864)+2) );
      minX_v8184 = (*  (W2Pt) &var_c15864 );
      };
SOURCE(5129, 45)
   {
      W4 var_c15896;
      (void) ( *( (fPt) ((*  (ptr) extremaProc_v5952 ))))((word) &var_c15896, clientData_v5980, normY_v8156, extremaProc_v5952)
      ;
      maxY_v8268 = (*  (W2Pt) (( (ptr) &var_c15896)+2) );
      minY_v8240 = (*  (W2Pt) &var_c15896 );
      };
SOURCE(5176, 66)
   {
      W2 var_c15928;
      (void) ViewLimitsOfImage_P480((word) &var_c15928, old_v5840, minX_v8184, maxX_v8212, 0);
      limits_v8296.f2 = var_c15928.f1;
      limits_v8296.f0 = var_c15928.f0;
      };
SOURCE(5244, 66)
   {
      W2 var_c15960;
      (void) ViewLimitsOfImage_P480((word) &var_c15960, old_v5840, minY_v8240, maxY_v8268, 1);
      limits_v8296.f3 = var_c15960.f1;
      limits_v8296.f1 = var_c15960.f0;
      };
SOURCE(5312, 41)
   {
      word pd133;
      pd133 = (* (( (ptr) (* (( (ptr) gf_c17048)+69)/* var_c15992 */  ))+5) );
      (void) ( *( (fPt) ((*  (ptr) pd133 ))))((word) &from_v8324, limits_v8296, pd133);
      };
SOURCE(5355, 19)
   to_v8352.f0 = (*  (ptr) &fc58 );
   to_v8352.f1 = (*  (ptr) &fc58 );
   to_v8352.f2 = cw_v5896;
   to_v8352.f3 = ch_v5924;
SOURCE(5376, 79)
   new_v6092 = (word) BoxScale_P660(old_v5840, from_v8324, to_v8352, uniformly_v5868, mayStretch_v6008, preferIntegerCoefficients_v6036)
   ;
SOURCE(4749, 706)
   return(new_v6092);
   }

static void Norm_P780(formal_c0196, t_v6152, axis_v6180)
   word formal_c0196;
   word t_v6152;
   word axis_v6180;
   {
   W2 norm_v6224;
   W6 tn_v8396;
   /* Norm: */ 
SOURCE(5461, 179)
SOURCE(5523, 36)
   {
      W6 tn_v13944;
      tn_v13944.f0 = (*  (ptr) t_v6152 );
      tn_v13944.f1 = (* (( (ptr) t_v6152)+3) );
      tn_v13944.f2 = (* (( (ptr) t_v6152)+1) );
      tn_v13944.f3 = (* (( (ptr) t_v6152)+4) );
      tn_v13944.f4 = (* (( (ptr) t_v6152)+2) );
      tn_v13944.f5 = (* (( (ptr) t_v6152)+5) );
      tn_v8396 = tn_v13944;
      };
SOURCE(5561, 79)
   {
      word var_c16056;
      var_c16056 = axis_v6180;
      if ((var_c16056 == 0)) {
SOURCE(5583, 25)
         norm_v6224.f0 = tn_v8396.f0;
         norm_v6224.f1 = tn_v8396.f2;
         }
      else {
         if ((var_c16056 == 1)) {
SOURCE(5615, 25)
            norm_v6224.f0 = tn_v8396.f1;
            norm_v6224.f1 = tn_v8396.f3;
            }
         else {
SOURCE(5653, 5)
            (void) XR_RaiseUnnamedError();
            };
         };
      };
   /* removed tail goto */ 
   (*  (W2Pt) formal_c0196 ) = norm_v6224;
   return;
   }

static void BeVec_P840(formal_c0200, ra_v6284)
   word formal_c0200;
   word ra_v6284;
   {
   register ptr gf_c17080 =  (ptr) &globalframe;
   W2 var_c6340;
   /* BeVec: */ 
SOURCE(5664, 72)
SOURCE(5707, 29)
   var_c6340 = (*  (W2Pt) XR_Narrow(ra_v6284, (* (( (ptr) gf_c17080)+4) )) );
   /* removed tail goto */ 
   (*  (W2Pt) formal_c0200 ) = var_c6340;
   return;
   }

static word BeReal_P900(ra_v6400)
   word ra_v6400;
   {
   register ptr gf_c17112 =  (ptr) &globalframe;
   word var_c6456;
   /* BeReal: */ 
SOURCE(5739, 75)
SOURCE(5784, 30)
   return((*  (ptr) XR_Narrow(ra_v6400, (* (( (ptr) gf_c17112)+5) )) ));
   }

static void BeRect_P960(formal_c0206, ra_v6516)
   word formal_c0206;
   word ra_v6516;
   {
   register ptr gf_c17144 =  (ptr) &globalframe;
   W4 var_c6572;
   /* BeRect: */ 
SOURCE(5817, 75)
SOURCE(5862, 30)
   var_c6572 = (*  (W4Pt) XR_Narrow(ra_v6516, (* (( (ptr) gf_c17144)+6) )) );
   /* removed tail goto */ 
   (*  (W4Pt) formal_c0206 ) = var_c6572;
   return;
   }

static word BeBool_P1020(ra_v6632)
   word ra_v6632;
   {
   register ptr gf_c17176 =  (ptr) &globalframe;
   word var_c6688;
   /* BeBool: */ 
SOURCE(5895, 117)
SOURCE(5940, 72)
   {
      word var_c16280;
      var_c16280 = ra_v6632;
      if ((var_c16280 == (* (( (ptr) gf_c17176)+25) ))) {
         return(0);
         }
      else {
         if ((var_c16280 == (* (( (ptr) gf_c17176)+10) ))) {
            return(1);
            }
         else {
            return( (unsigned) (
               XR_RaiseUnnamedError(), 0
               ));
            };
         };
      };
   }

static word DoBSUserAction_P1080(old_v6748, input_v6776, cw_v6804, ch_v6832, pp_v6860, vanilla_v6888, previous_v6916, mayStretch_v6944, preferIntegerCoefficients_v6972, extremaProc_v7000, clientData_v7028)
   word old_v6748;
   word input_v6776;
   word cw_v6804;
   word ch_v6832;
   W2 pp_v6860;
   word vanilla_v6888;
   word previous_v6916;
   word mayStretch_v6944;
   word preferIntegerCoefficients_v6972;
   word extremaProc_v7000;
   word clientData_v7028;
   {
   register ptr gf_c17208 =  (ptr) &globalframe;
   word new_v7180;
   word age_v8476 = 0;
   /* DoBSUserAction: */ 
SOURCE(6016, 1874)
SOURCE(6016, 1874)
   new_v7180 = 0;
SOURCE(6315, 9)
   new_v7180 = old_v6748;
SOURCE(6326, 142)
   {
      word var_c16312;
      var_c16312 = (*  (ptr) input_v6776 );
      if ((var_c16312 == (* (( (ptr) gf_c17208)+11) ))) {
SOURCE(6361, 18)
         input_v6776 = (* (( (ptr) input_v6776)+1) );
         goto endif0134;
         };
      if ((var_c16312 == (* (( (ptr) gf_c17208)+12) ))) {
SOURCE(6392, 12)
         age_v8476 = 1;
SOURCE(6406, 18)
         input_v6776 = (* (( (ptr) input_v6776)+1) );
         goto endif0134;
         };
      if ((var_c16312 == (* (( (ptr) gf_c17208)+13) ))) {
SOURCE(6436, 12)
         age_v8476 = 1;
SOURCE(6450, 18)
         input_v6776 = (* (( (ptr) input_v6776)+1) );
         goto endif0134;
         };
      goto endif0134;
      endif0134: ;
      };
SOURCE(6488, 1402)
   {
      word var_c16344;
      var_c16344 = (*  (ptr) input_v6776 );
      if ((var_c16344 == (* (( (ptr) gf_c17208)+14) ))) {
SOURCE(6522, 70)
         {
            W2 vec_v8520;
SOURCE(6524, 34)
            (void) BeVec_P840((word) &vec_v8520, (*  (ptr) (* (( (ptr) input_v6776)+1) ) ));
SOURCE(6560, 30)
            new_v7180 = (word) Shift_P360(new_v7180, vec_v8520.f0, vec_v8520.f1);
            };
         goto endif0135;
         };
      if ((var_c16344 == (* (( (ptr) gf_c17208)+15) ))) {
SOURCE(6605, 138)
         {
            W2 s_v8564;
SOURCE(6606, 32)
            (void) BeVec_P840((word) &s_v8564, (*  (ptr) (* (( (ptr) input_v6776)+1) ) ));
SOURCE(6640, 101)
            {
               W2 var_c16376;
               W3 var_c16408;
               W3 var_c0266;
               {
                  word tcp136;
                  word x137;
                  word x138;
                  W3 temp139;
                  if (((
                     x137 = s_v8564.f0,  *(float*)&x137
                     ) == (
                     x138 = s_v8564.f1,  *(float*)&x138
                     ))) {
                     var_c16376.f0 = 1;
                     var_c16376.f1 = s_v8564.f0;
                     (*  (W2Pt) &temp139 ) = var_c16376;
                     (* (( (ptr) &temp139) + 2) ) = 0;
                     tcp136 = (word) &temp139;
                     }
                  else {
                     var_c16408.f0 = 2;
                     var_c16408.f1 = s_v8564.f0;
                     var_c16408.f2 = s_v8564.f1;
                     tcp136 = (word) &var_c16408;
                     };
                  var_c0266 = (*  (W3Pt) tcp136 );
                  };
               new_v7180 = (word) Scale_P60(new_v7180, var_c0266, cw_v6804, ch_v6832, pp_v6860, vanilla_v6888
                  , mayStretch_v6944);
               };
            };
         goto endif0135;
         };
      if ((var_c16344 == (* (( (ptr) gf_c17208)+16) ))) {
SOURCE(6761, 60)
         {
            W3 var_c0267;
            (*  (ptr) (word) &var_c0267 ) = 0;
            (*  (W2Pt) (( (ptr) (word) &var_c0267) + 1) ) = (*  (W2Pt) &dummy140 );
            new_v7180 = (word) Scale_P60(new_v7180, var_c0267, cw_v6804, ch_v6832, pp_v6860, vanilla_v6888
               , mayStretch_v6944);
            };
         goto endif0135;
         };
      if ((var_c16344 == (* (( (ptr) gf_c17208)+17) ))) {
SOURCE(6834, 73)
         {
            word var_c16472;
            var_c16472 = (word) BeReal_P900((*  (ptr) ((* (( (ptr) input_v6776)+1) )) ));
            {
               W2 var_c16504;
               var_c16504.f0 = 1;
               var_c16504.f1 = var_c16472;
               new_v7180 = (word) Rotate_P300(new_v7180, var_c16504, cw_v6804, ch_v6832, pp_v6860, vanilla_v6888);
               };
            };
         goto endif0135;
         };
      if ((var_c16344 == (* (( (ptr) gf_c17208)+18) ))) {
SOURCE(6925, 49)
         {
            W2 var_c0268;
            (*  (ptr) (word) &var_c0268 ) = 0;
            (* (( (ptr) (word) &var_c0268) + 1) ) = 0;
            new_v7180 = (word) Rotate_P300(new_v7180, var_c0268, cw_v6804, ch_v6832, pp_v6860, vanilla_v6888);
            };
         goto endif0135;
         };
      if ((var_c16344 == (* (( (ptr) gf_c17208)+19) )) || (var_c16344 == (* (( (ptr) gf_c17208)+20) ))) {
SOURCE(7001, 201)
         {
            word uniformly_v8608;
SOURCE(7003, 98)
            {
               word var_c16568;
               var_c16568 = (*  (ptr) input_v6776 );
               if ((var_c16568 == (* (( (ptr) gf_c17208)+20) ))) {
                  uniformly_v8608 = 1;
                  }
               else {
                  if ((var_c16568 == (* (( (ptr) gf_c17208)+19) ))) {
                     uniformly_v8608 = 0;
                     }
                  else {
                     uniformly_v8608 =  (unsigned) (
                        XR_RaiseUnnamedError(), 0
                        );
                     };
                  };
               };
SOURCE(7103, 97)
            new_v7180 = (word) Fit_P720(new_v7180, uniformly_v8608, cw_v6804, ch_v6832, extremaProc_v7000, clientData_v7028
               , mayStretch_v6944, preferIntegerCoefficients_v6972);
            };
         goto endif0135;
         };
      if ((var_c16344 == (* (( (ptr) gf_c17208)+21) ))) {
SOURCE(7217, 13)
         new_v7180 = vanilla_v6888;
         goto endif0135;
         };
      if ((var_c16344 == (* (( (ptr) gf_c17208)+22) ))) {
SOURCE(7247, 385)
         {
            W2 client_v8652;
            W2 viewer_v8680;
            word doX_v8708;
            word doY_v8736;
SOURCE(7249, 37)
            (void) BeVec_P840((word) &client_v8652, (*  (ptr) (* (( (ptr) input_v6776)+1) ) ));
SOURCE(7288, 42)
            (void) BeVec_P840((word) &viewer_v8680, (*  (ptr) (* (( (ptr) (* (( (ptr) input_v6776)+1) ))+1) ) ));
SOURCE(7332, 46)
            doX_v8708 = (word) BeBool_P1020((*  (ptr) ((* (( (ptr) (* (( (ptr) (* (( (ptr) input_v6776)+1) ))+1) ))+1) )) ));
SOURCE(7380, 51)
            doY_v8736 = (word) BeBool_P1020((*  (ptr) ((* (( (ptr) (* (( (ptr) (* (( (ptr) (* (( (ptr) input_v6776)+1) ))+1) ))+1) ))+1)
                )) ));
SOURCE(7433, 199)
            {
               W3 var_c16600;
               W3 var_c16632;
               var_c16600.f0 = 1;
               var_c16600.f1 = client_v8652.f0;
               var_c16600.f2 = client_v8652.f1;
               var_c16632.f0 = 1;
               var_c16632.f1 = viewer_v8680.f0;
               var_c16632.f2 = viewer_v8680.f1;
               new_v7180 = (word) Align_P420(new_v7180, var_c16600, var_c16632, doX_v8708, doY_v8736, cw_v6804
                  , ch_v6832, extremaProc_v7000, clientData_v7028, age_v8476);
               };
            };
         goto endif0135;
         };
      if ((var_c16344 == (* (( (ptr) gf_c17208)+23) ))) {
SOURCE(7648, 216)
         {
            W4 from_v8780;
            W4 to_v8808;
            word uniformly_v8836;
SOURCE(7650, 37)
            (void) BeRect_P960((word) &from_v8780, (*  (ptr) (* (( (ptr) input_v6776)+1) ) ));
SOURCE(7689, 40)
            (void) BeRect_P960((word) &to_v8808, (*  (ptr) (* (( (ptr) (* (( (ptr) input_v6776)+1) ))+1) ) ));
SOURCE(7731, 52)
            uniformly_v8836 = (word) BeBool_P1020((*  (ptr) ((* (( (ptr) (* (( (ptr) (* (( (ptr) input_v6776)+1) ))+1) ))+1) )) ));
SOURCE(7785, 79)
            new_v7180 = (word) BoxScale_P660(new_v7180, from_v8780, to_v8808, uniformly_v8836, mayStretch_v6944, preferIntegerCoefficients_v6972)
            ;
            };
         goto endif0135;
         };
      if ((var_c16344 == (* (( (ptr) gf_c17208)+24) ))) {
SOURCE(7876, 14)
         new_v7180 = previous_v6916;
         goto endif0135;
         };
SOURCE(7903, 5)
      (void) XR_RaiseUnnamedError();
      goto endif0135;
      endif0135: ;
      };
SOURCE(6016, 1874)
   return(new_v7180);
   }

/* file: BiScrollersTransformsImpl, module: BiScrollersTransformsImpl, compiled at: March 19, 1993 5:48:04 pm PST */ 
extern void XR_install_BiScrollersTransformsImpl() {
   XR_FillWords(&dummy140, 2, 0);
   NoName_Q1836();
   }
extern void XR_run_BiScrollersTransformsImpl() { XR_Start(&globalframe); }