/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: January 6, 1993 12:04:13 pm PST */
/* C2C version: October 7, 1992 (native) */
/* ref-counting: off */
/* file: ImagerFourColorContextImpl, module: ImagerFourColorContextImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [2142914636,2950625634] ImagerFourColorContextImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; W8 r;} W16;
typedef struct {W16 f; word r;} W17;
typedef W16 *W16Pt;
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3;} W4;
typedef W4 *W4Pt;
typedef struct {word f0, f1, f2;} W3;
typedef W3 *W3Pt;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {W8 f; W6 r;} W14;
typedef W2 *W2Pt;
#define SOURCE(p, l) /* source p, l */
#define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i )
static float fc21 = 1.0;
static float fc22 = 0.0;
static float fc23 = 2.0;
static float fc24 = 3.0;
static float fc25 = 2000.0;
#define MAX(cast, x, y)  ( ( cast x) > ( cast y) ? (x) : (y) )
static void NoName_Q1356();
static void ImagerFourColorContextImpl_P0();
static word Create_P60();
static void SetBitmaps_P120();
static void MySetColor_P180();
static word TranslateHalftoneProperties_P240();
static void MySetHalftoneProperties_P300();
static void MyMaskBoxes_P360();
static void MyMaskBitmap_P420();
static void Box_P828();
static void MyMaskRawBitmaps_P480();
static struct {unsigned f; char r[4];} string1 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\241\011\366\176\300\127\130\105\301\100\274\000\000"};
static struct {unsigned f; char r[4];} string4 = {131074, "\003\016\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\177\272\110\114\300\257\336\371\142\100\200\000\000"};
static struct {unsigned f; char r[4];} string6 = {196611, "\004@\377"};
static struct {unsigned f; char r[44];} string7 = {2752556, "\260\006\005\146\151\162\163\164\257\300\236\211\262\021\300\215\235\324\340\101\034\005\004\162\145\163\164\214\257\300\236\211\262\021\300\215\235\324\340\101\034\261\000"};
static struct {unsigned f; char r[4];} string8 = {131074, "\004)\000"};
static struct {unsigned f; char r[12];} string9 = {589836, "FourColor\000\000"};
static struct {unsigned f; char r[16];} string10 = {917520, "FourColorPrint\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\177\272\110\114\300\257\336\371\142\100\164\000\000"};
static struct {unsigned f; char r[12];} string12 = {655370, "\006\003\024\001\030\001\100\120\004\003\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\241\011\366\176\300\127\130\105\301\100\150\000\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\254\224\163\216\300\143\061\230\115\100\150\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\166\344\362\325\300\124\127\204\375\100\150\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\067\246\211\216\300\354\224\134\067\100\150\000\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\213\226\301\143\300\072\355\320\373\100\150\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\342\102\054\110\300\232\020\205\150\100\150\000\000"};
static struct {
   word f0[4]; word f4; word f5[17]; word f22; 
   word f23; word f24; word f25; 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[2]; word f41; word f42; word f43; 
   word f44[6]; 
   } globalframe = {
   {0}, (word) 8000, {0}, (word) MyMaskRawBitmaps_P480, 
   0, (word) MyMaskBitmap_P420, 0, (word) MyMaskBoxes_P360, 
   0, (word) MySetHalftoneProperties_P300, 0, (word) TranslateHalftoneProperties_P240, 
   0, (word) MySetColor_P180, 0, (word) SetBitmaps_P120, 
   0, (word) Create_P60, 0, (word) ImagerFourColorContextImpl_P0, 
   {0}, (word) 1, (word) 2, (word) 3, 
   {0}
   };

static void NoName_Q1356()
   {
   register ptr gf_c097 =  (ptr) &globalframe;
   word var_c21676;
   (* (( (ptr) gf_c097)+7) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c097)+10) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (* (( (ptr) gf_c097)+16) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string6);
   (* (( (ptr) gf_c097)+17) ) = (word) XR_GetTypeIndex((word) &string7, 0, (word) &string8);
   (*  (ptr) (( (bPt) gf_c097)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c097)+7) ), (word) &string9);
   (*  (ptr) (( (bPt) gf_c097)+84) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c097)+7) ), (word) &string10);
   (void) XR_DeclareGlobalFrame((word) "ImagerFourColorContextImpl", &globalframe, (word) XR_GetTypeIndex((word) &string11, 0, (word) &string12)
      , (word) (( (bPt) gf_c097)+152)/* var_c20812 */ );
   var_c21676 = (word) XR_ImportInterface((word) "ImagerDevice", (word) XR_GetTypeIndexS((word) (&string13)), 2);
   (* (( (ptr) gf_c097)+46)/* var_c21132 */  ) = var_c21676;
   (void) XR_ImportProcS(var_c21676, 69730569);
   var_c21676 = (word) XR_ImportInterface((word) "ImagerMaskCache", (word) XR_GetTypeIndexS((word) (&string14)), 21);
   (* (( (ptr) gf_c097)+45)/* var_c21004 */  ) = var_c21676;
   (void) XR_ImportProcS(var_c21676, 67375105);
   (void) XR_ImportProcS(var_c21676, 4460802);
   var_c21676 = (word) XR_ImportInterface((word) "ImagerPrintColor", (word) XR_GetTypeIndexS((word) (&string15)), 4);
   (* (( (ptr) gf_c097)+47)/* var_c21196 */  ) = var_c21676;
   (void) XR_ImportProcS(var_c21676, 1835780);
   (void) XR_ImportProcS(var_c21676, 786947);
   (void) XR_ImportProcS(var_c21676, 524546);
   (void) XR_ImportProcS(var_c21676, 68157444);
   var_c21676 = (word) XR_ImportInterface((word) "ImagerRaster", (word) XR_GetTypeIndexS((word) (&string16)), 13);
   (* (( (ptr) gf_c097)+44)/* var_c20940 */  ) = var_c21676;
   (void) XR_ImportProcS(var_c21676, 67371521);
   (void) XR_ImportProcS(var_c21676, 1312514);
   (void) XR_ImportProcS(var_c21676, 68419845);
   (void) XR_ImportProcS(var_c21676, 67371009);
   var_c21676 = (word) XR_ImportInterface((word) "ImagerSample", (word) XR_GetTypeIndexS((word) (&string17)), 60);
   (* (( (ptr) gf_c097)+48)/* var_c21580 */  ) = var_c21676;
   (void) XR_ImportProcS(var_c21676, 798979);
   (void) XR_ImportProcS(var_c21676, 2370822);
   var_c21676 = (word) XR_ExportInterface((word) "ImagerFourColorContext", (word) XR_GetTypeIndexS((word) (&string18)), 2);
   (* (( (ptr) gf_c097)+49)/* var_c21708 */  ) = var_c21676;
   (void) XR_ExportProcS(var_c21676, (word) (( (bPt) gf_c097)+144)/* var_c20780 */ , 70516744);
   (void) XR_ExportProcS(var_c21676, (word) (( (bPt) gf_c097)+136)/* var_c20748 */ , 1310978);
   }

static void ImagerFourColorContextImpl_P0(formal_c027, formal_c023)
   word formal_c027;
   word formal_c023;
   {
   register ptr gf_c21740 =  (ptr) &globalframe;
   /* ImagerFourColorContextImpl: */ 
SOURCE(861, 5754)
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
   /* moved to installation proc */ 
SOURCE(6181, 232)
   {
      word var_c20908;
      var_c20908 = XR_NewObject(60, (* (( (ptr) gf_c21740)+10) ));
      (*  (ptr) var_c20908 ) = (word) (( (bPt) gf_c21740)+128)/* var_c20716 */ ;
      (* (( (ptr) var_c20908)+1) ) = XR_CheckProc(0);
      (* (( (ptr) var_c20908)+2) ) = (word) (( (bPt) gf_c21740)+112)/* var_c20652 */ ;
      (* (( (ptr) var_c20908)+3) ) = (word) (( (bPt) gf_c21740)+104)/* var_c20620 */ ;
      (* (( (ptr) var_c20908)+4) ) = XR_CheckProc(0);
      (* (( (ptr) var_c20908)+5) ) = (word) (( (bPt) gf_c21740)+96)/* var_c20588 */ ;
      (* (( (ptr) var_c20908)+6) ) = XR_CheckProc(0);
      (* (( (ptr) var_c20908)+7) ) = (word) (( (bPt) gf_c21740)+88)/* var_c20556 */ ;
      (* (( (ptr) var_c20908)+8) ) = XR_CheckProc(0);
      (* (( (ptr) var_c20908)+9) ) = XR_CheckProc(0);
      (* (( (ptr) var_c20908)+10) ) = XR_CheckProc(0);
      (* (( (ptr) var_c20908)+11) ) = XR_CheckProc(0);
      (* (( (ptr) var_c20908)+12) ) = XR_CheckProc(0);
      (* (( (ptr) var_c20908)+13) ) = XR_CheckProc(0);
      (* (( (ptr) gf_c21740)+5)/* deviceClass_v3448 */  ) = var_c20908;
      };
SOURCE(6416, 78)
   {
      word pd19;
      pd19 = (* (( (ptr) (* (( (ptr) gf_c21740)+44)/* var_c20940 */  ))+4) );
      (* (( (ptr) gf_c21740)+6)/* contextClass_v3476 */  ) = (word) ( *( (fPt) ((*  (ptr) pd19 ))))((* ((( (ptr) gf_c21740)+20)
         ) ), pd19);
      };
SOURCE(6497, 118)
   {
      W17 var_c026;
      W16 var_c20972;
      (*  (ptr) (word) &var_c026 ) = (* (( (ptr) gf_c21740)+21) );
      {
         word idx20;
         (*  (ptr) &var_c20972 ) = (
            idx20 = (* (( (ptr) gf_c21740)+4)/* fontCacheMaxSize_v3196 */  ),
            SGNCK(idx20)
            );
         };
      (* (( (ptr) &var_c20972)+1) ) = XR_CheckProc(0);
      (* (( (ptr) &var_c20972)+2) ) = (*  (ptr) &fc21 );
      (* (( (ptr) &var_c20972)+3) ) = (*  (ptr) &fc22 );
      (* (( (ptr) &var_c20972)+4) ) = (*  (ptr) &fc23 );
      (* (( (ptr) &var_c20972)+5) ) = (*  (ptr) &fc24 );
      (* (( (ptr) &var_c20972)+6) ) = (*  (ptr) &fc22 );
      (* (( (ptr) &var_c20972)+7) ) = (*  (ptr) &fc25 );
      (* (( (ptr) &var_c20972)+8) ) = (*  (ptr) &fc21 );
      (* (( (ptr) &var_c20972)+9) ) = (*  (ptr) &fc22 );
      (* (( (ptr) &var_c20972)+10) ) = (*  (ptr) &fc22 );
      (* (( (ptr) &var_c20972)+11) ) = (*  (ptr) &fc22 );
      (* (( (ptr) &var_c20972)+12) ) = (*  (ptr) &fc22 );
      (* (( (ptr) &var_c20972)+13) ) = 0;
      (* (( (ptr) &var_c20972)+14) ) = 0;
      (* (( (ptr) &var_c20972)+15) ) = 0;
      (*  (W16Pt) (( (ptr) (word) &var_c026) + 1) ) = (var_c20972
      );
      {
         word pd26;
         pd26 = (* (( (ptr) (* (( (ptr) gf_c21740)+45)/* var_c21004 */  ))+21) );
         (void) ( *( (fPt) ((*  (ptr) pd26 ))))((word) (&var_c026), pd26);
         };
      };
   }

static word Create_P60(deviceSpaceSize_v3688, scanMode_v3716, surfaceUnitsPerInch_v3744, logicalDevice_v3772, halftoneProperties_v3800, correction_v3828, interpolate_v3856, bitmaps_v3884)
   W2 deviceSpaceSize_v3688;
   word scanMode_v3716;
   W2 surfaceUnitsPerInch_v3744;
   word logicalDevice_v3772;
   word halftoneProperties_v3800;
   word correction_v3828;
   word interpolate_v3856;
   W4 bitmaps_v3884;
   {
   register ptr gf_c21772 =  (ptr) &globalframe;
   word var_c3944;
   W4 box_v4844;
   word data_v4872;
   word deviceParm_v4900;
   word context_v4928;
   /* Create: */ 
SOURCE(1573, 1291)
SOURCE(1922, 64)
   {
      word map_v20508;
      map_v20508 = bitmaps_v3884.f0;
      box_v4844 = (*  (W4Pt) map_v20508 );
      };
SOURCE(1988, 75)
   data_v4872 = XR_NewObject(32, (* (( (ptr) gf_c21772)+16) ));
   (*  (W4Pt) data_v4872 ) = bitmaps_v3884;
SOURCE(2065, 283)
   {
      word var_c21100;
      {
         word pd27;
         pd27 = (* (( (ptr) (* (( (ptr) gf_c21772)+45)/* var_c21004 */  ))+20) );
         var_c21100 = (word) ( *( (fPt) ((*  (ptr) pd27 ))))((* ((( (ptr) gf_c21772)+21)) ), pd27);
         };
      {
         word pd28;
         word idx29;
         word idx30;
         pd28 = (* (( (ptr) (* (( (ptr) gf_c21772)+46)/* var_c21132 */  ))+5) );
         deviceParm_v4900 = (word) ( *( (fPt) ((*  (ptr) pd28 ))))((* (( (ptr) gf_c21772)+5)/* deviceClass_v3448 */  ), (
               idx29 = (word) deviceSpaceSize_v3688.f0,
               SGNCK(idx29)
               ), (
               idx30 = (word) deviceSpaceSize_v3688.f1,
               SGNCK(idx30)
               ), scanMode_v3716, surfaceUnitsPerInch_v3744, 1
            , var_c21100, 0, 0, pd28);
         };
      };
SOURCE(2350, 147)
   {
      word pd31;
      pd31 = (* (( (ptr) (* (( (ptr) gf_c21772)+44)/* var_c20940 */  ))+5) );
      context_v4928 = (word) ( *( (fPt) ((*  (ptr) pd31 ))))((* (( (ptr) gf_c21772)+6)/* contextClass_v3476 */  ), (* (( (ptr) gf_c21772)+5)
         /* deviceClass_v3448 */  ), deviceParm_v4900, data_v4872, 0, pd31);
      };
SOURCE(2499, 61)
   {
      word pd32;
      pd32 = (* (( (ptr) (* (( (ptr) gf_c21772)+44)/* var_c20940 */  ))+11) );
      (void) ( *( (fPt) ((*  (ptr) pd32 ))))(context_v4928, box_v4844, pd32);
      };
SOURCE(2562, 274)
   {
      register word t_v4972 = 0;
      lab_L100004: ;
SOURCE(2587, 181)
      {
         word var_c21164;
         {
            word pd33;
            pd33 = (* (( (ptr) (* (( (ptr) gf_c21772)+47)/* var_c21196 */  ))+4) );
            var_c21164 = (word) ( *( (fPt) ((*  (ptr) pd33 ))))(logicalDevice_v3772, halftoneProperties_v3800, correction_v3828, interpolate_v3856, pd33)
            ;
            };
         (* ((( (ptr) data_v4872)+4)+t_v4972) ) = var_c21164;
         };
SOURCE(2770, 66)
      {
         word pd34;
         pd34 = (* (( (ptr) (* (( (ptr) gf_c21772)+47)/* var_c21196 */  ))+5) );
         (void) ( *( (fPt) ((*  (ptr) pd34 ))))((* ((( (ptr) data_v4872)+4)+t_v4972) ), (* ((( (ptr) gf_c21772)+40)/* var_c20876 */ +t_v4972)
             ), pd34);
         };
      if ((t_v4972 >= 3)) {
         goto lab_L100001;
         };
      t_v4972 = (t_v4972 + 1);
      goto lab_L100004;
      lab_L100001: ;
      };
SOURCE(2847, 17)
   return(context_v4928);
   }

static void SetBitmaps_P120(context_v4004, bitmaps_v4032)
   word context_v4004;
   W4 bitmaps_v4032;
   {
   register ptr gf_c21804 =  (ptr) &globalframe;
   word device_v5016;
   word data_v5044;
   W4 box_v5072;
   /* SetBitmaps: */ 
SOURCE(2868, 381)
SOURCE(2970, 61)
   {
      word pd35;
      pd35 = (* (( (ptr) (* (( (ptr) gf_c21804)+44)/* var_c20940 */  ))+6) );
      device_v5016 = (word) ( *( (fPt) ((*  (ptr) pd35 ))))(context_v4004, pd35);
      };
SOURCE(3033, 32)
   data_v5044 = XR_Narrow((* (( (ptr) device_v5016)+7) ), (* (( (ptr) gf_c21804)+16) ));
SOURCE(3067, 64)
   {
      word map_v20460;
      map_v20460 = bitmaps_v4032.f0;
      box_v5072 = (*  (W4Pt) map_v20460 );
      };
SOURCE(3133, 61)
   {
      word pd36;
      pd36 = (* (( (ptr) (* (( (ptr) gf_c21804)+44)/* var_c20940 */  ))+11) );
      (void) ( *( (fPt) ((*  (ptr) pd36 ))))(context_v4004, box_v5072, pd36);
      };
SOURCE(3196, 53)
   {
      register word t_v5116 = 0;
      lab_L100009: ;
SOURCE(3221, 28)
      (* (( (ptr) data_v5044)+t_v5116) ) = (* (( (ptr) &bitmaps_v4032)+t_v5116) );
      if ((t_v5116 >= 3)) {
         goto lab_L100006;
         };
      t_v5116 = (t_v5116 + 1);
      goto lab_L100009;
      lab_L100006: ;
      };
   }

static void MySetColor_P180(device_v4108, color_v4136, viewToDevice_v4164)
   word device_v4108;
   word color_v4136;
   word viewToDevice_v4164;
   {
   register ptr gf_c21836 =  (ptr) &globalframe;
   word data_v5160;
   word constant_v5188 = 1;
   word allowFunnyBoxes_v5216 = 1;
   word allRasterSampleMaps_v5244 = 1;
   /* MySetColor: */ 
SOURCE(3263, 781)
SOURCE(3358, 32)
   data_v5160 = XR_Narrow((* (( (ptr) device_v4108)+7) ), (* (( (ptr) gf_c21836)+16) ));
SOURCE(3479, 406)
   {
      register word t_v5288 = 0;
      lab_L100013: ;
      {
         word deviceColorData_v5332;
         word var_c21260;
SOURCE(3504, 75)
         deviceColorData_v5332 = (* ((( (ptr) data_v5160)+4)+t_v5288) );
SOURCE(3581, 73)
         {
            word pd37;
            pd37 = (* (( (ptr) (* (( (ptr) gf_c21836)+47)/* var_c21196 */  ))+6) );
            (void) ( *( (fPt) ((*  (ptr) pd37 ))))(deviceColorData_v5332, color_v4136, viewToDevice_v4164, pd37);
            };
SOURCE(3656, 56)
         if (((* (( (ptr) deviceColorData_v5332)+10) ) != 1)) {
SOURCE(3696, 16)
            constant_v5188 = 0;
            };
SOURCE(3714, 68)
         if (((* (( (ptr) deviceColorData_v5332)+10) ) >= 3)) {
SOURCE(3759, 23)
            allowFunnyBoxes_v5216 = 0;
            };
SOURCE(3784, 101)
         var_c21260 = (* (( (ptr) data_v5160)+t_v5288) );
         if ( ( (var_c21260 == 0) ?  ! 1 :  ! ((* (( (ptr) var_c21260)+6) ) == 0) ) ) {
SOURCE(3850, 35)
            allRasterSampleMaps_v5244 = 0;
            };
         };
      if ((t_v5288 >= 3)) {
         goto lab_L100010;
         };
      t_v5288 = (t_v5288 + 1);
      goto lab_L100013;
      lab_L100010: ;
      };
SOURCE(3887, 157)
   (*  (ptr) (* (( (ptr) device_v4108)+6) ) ) = ((word) (((word) (((word) (((word) (allowFunnyBoxes_v5216 & 1) << 1) + (allowFunnyBoxes_v5216 & 1)) << 2) + 
   (constant_v5188 & 1)) << 1) + ((0 != constant_v5188) && (0 != allRasterSampleMaps_v5244))) << 27);
   }

static word TranslateHalftoneProperties_P240(h_v4224)
   word h_v4224;
   {
   register ptr gf_c21868 =  (ptr) &globalframe;
   word var_c4268;
   /* TranslateHalftoneProperties: */ 
SOURCE(4050, 267)
SOURCE(4164, 153)
   if ((h_v4224 == 0)) {
      return(0);
      }
   else {
      {
         word var_c21356;
         word var_c21388;
         var_c21356 = (word) TranslateHalftoneProperties_P240((* ((( (ptr) h_v4224)+6)) ));
         var_c21388 = XR_NewObject(24, (* (( (ptr) gf_c21868)+17) ));
         (*  (ptr) var_c21388 ) = (*  (ptr) h_v4224 );
         (* (( (ptr) var_c21388)+1) ) = (* (( (ptr) h_v4224)+1) );
         (*  (W3Pt) (( (ptr) var_c21388)+2) ) = (*  (W3Pt) (( (ptr) h_v4224)+2) );
         (* (( (ptr) var_c21388)+5) ) = var_c21356;
         return(var_c21388);
         };
      };
   }

static void MySetHalftoneProperties_P300(device_v4328, halftoneProperties_v4356)
   word device_v4328;
   word halftoneProperties_v4356;
   {
   register ptr gf_c21900 =  (ptr) &globalframe;
   word data_v5376;
   word h_v5404;
   /* MySetHalftoneProperties: */ 
SOURCE(4321, 313)
SOURCE(4437, 32)
   data_v5376 = XR_Narrow((* (( (ptr) device_v4328)+7) ), (* (( (ptr) gf_c21900)+16) ));
SOURCE(4471, 82)
   h_v5404 = (word) TranslateHalftoneProperties_P240(halftoneProperties_v4356);
SOURCE(4555, 79)
   {
      register word which_v5448 = 0;
      lab_L100017: ;
SOURCE(4584, 50)
      (* (( (ptr) (* ((( (ptr) data_v5376)+4)+which_v5448) ))+1) ) = h_v5404;
      if ((which_v5448 >= 3)) {
         goto lab_L100014;
         };
      which_v5448 = (which_v5448 + 1);
      goto lab_L100017;
      lab_L100014: ;
      };
   }

static void MyMaskBoxes_P360(device_v4416, bounds_v4444, boxes_v4472)
   word device_v4416;
   W4 bounds_v4444;
   word boxes_v4472;
   {
   register ptr gf_c21932 =  (ptr) &globalframe;
   word data_v5492;
   /* MyMaskBoxes: */ 
SOURCE(4649, 246)
SOURCE(4741, 32)
   data_v5492 = XR_Narrow((* (( (ptr) device_v4416)+7) ), (* (( (ptr) gf_c21932)+16) ));
SOURCE(4775, 120)
   {
      register word which_v5536 = 0;
      lab_L100021: ;
SOURCE(4804, 91)
      {
         word pd38;
         pd38 = (* (( (ptr) (* (( (ptr) gf_c21932)+47)/* var_c21196 */  ))+7) );
         (void) ( *( (fPt) ((*  (ptr) pd38 ))))((* (( (ptr) data_v5492)+which_v5536) ), (* ((( (ptr) data_v5492)+4)+which_v5536) ), bounds_v4444, boxes_v4472, pd38)
         ;
         };
      if ((which_v5536 >= 3)) {
         goto lab_L100018;
         };
      which_v5536 = (which_v5536 + 1);
      goto lab_L100021;
      lab_L100018: ;
      };
   }

static void MyMaskBitmap_P420(device_v4532, formal_c0111, formal_c0112, bounds_v4616, boxes_v4644)
   word device_v4532;
   word formal_c0111;
   W2 formal_c0112;
   W4 bounds_v4616;
   word boxes_v4644;
   {
   W14 var_c21964;
   /* declaration of bitmap_v4560 skipped */ 
   /* declaration of delta_v4588 skipped */ 
   register ptr gf_c21996 =  (ptr) &globalframe;
   /* declaration of var_c21420 skipped */ 
   /* declaration of data_v5580 skipped */ 
   /* declaration of function_v5608 skipped */ 
   (* (( (ptr) &var_c21964)+4)/* bitmap_v4560 */  ) = formal_c0111;
   (*  (W2Pt) (( (ptr) &var_c21964)+5)/* delta_v4588 */  ) = formal_c0112;
   /* MyMaskBitmap: */ 
SOURCE(4910, 714)
   {
      word tmpAddr39;
      tmpAddr39 = (word) (( (ptr) &var_c21964)+7)/* var_c21420 */ ;
      (*  (ptr) tmpAddr39 ) = ( ((word)  (fPt) Box_P828) );
      (* (( (ptr) tmpAddr39) + 1) ) = 1;
      };
SOURCE(5050, 32)
   (* (( (ptr) &var_c21964)+9)/* data_v5580 */  ) = XR_Narrow((* (( (ptr) device_v4532)+7) ), (* (( (ptr) gf_c21996)+16) ));
SOURCE(5084, 66)
   XR_FillWords(&(* (W4Pt) ((( (ptr) &var_c21964)+10)/* function_v5608 */ )), 4, 0);
SOURCE(5378, 207)
   {
      register word t_v5696 = 0;
      lab_L100025: ;
SOURCE(5403, 48)
      if (((* (( (ptr) (* ((( (ptr) (* (( (ptr) &var_c21964)+9)/* data_v5580 */  ))+4)+t_v5696) ))+10) ) != 1)) {
SOURCE(5451, 5)
         (void) XR_RaiseUnnamedError();
         };
SOURCE(5458, 127)
      {
         word var_c21484;
         var_c21484 = (* (( (ptr) (* ((( (ptr) (* (( (ptr) &var_c21964)+9)/* data_v5580 */  ))+4)+t_v5696) ))+11) );
         switch (var_c21484) {
            case 0: 
               break;
            case 2: 
SOURCE(5518, 24)
               (* ((( (ptr) &var_c21964)+10)/* function_v5608 */ +t_v5696) ) = 4;
               break;
            case 1: 
SOURCE(5554, 31)
               (* ((( (ptr) &var_c21964)+10)/* function_v5608 */ +t_v5696) ) = 3;
               break;
            default: 
SOURCE(5598, 5)
               (void) XR_RaiseUnnamedError();
               break;
            };
         };
      if ((t_v5696 >= 3)) {
         goto lab_L100022;
         };
      t_v5696 = (t_v5696 + 1);
      goto lab_L100025;
      lab_L100022: ;
      };
SOURCE(5614, 10)
   (void) ( *( (fPt) ((*  (ptr) boxes_v4644 ))))((word) ((( (bPt) &var_c21964)+28)/* var_c21420 */ ), boxes_v4644);
   }

static void Box_P828(box_v19512, formal_c22060)
   W4 box_v19512;
   word formal_c22060;
   {
   register ptr gf_c22028 =  (ptr) &globalframe;
   formal_c22060 = (formal_c22060 - 28);
   /* Box: */ 
SOURCE(5152, 212)
SOURCE(5174, 190)
   {
      register word t_v5740 = 0;
      lab_L100029: ;
SOURCE(5199, 165)
      {
         W2 var_c21516;
         W2 var_c21548;
         var_c21516.f0 = (box_v19512.f0 - (* (( (ptr) formal_c22060)+5) ));
         var_c21516.f1 = (box_v19512.f1 - (* (( (ptr) formal_c22060)+6) ));
         {
            word x40;
            var_c21548.f0 = (x40 = (box_v19512.f2 - box_v19512.f0),
               MAX((int)(word), x40, 0));
            };
         {
            word x41;
            var_c21548.f1 = (x41 = (box_v19512.f3 - box_v19512.f1),
               MAX((int)(word), x41, 0));
            };
         {
            word pd42;
            pd42 = (* (( (ptr) (* (( (ptr) gf_c22028)+48)/* var_c21580 */  ))+49) );
            (void) ( *( (fPt) ((*  (ptr) pd42 ))))((* (( (ptr) (* (( (ptr) formal_c22060)+9) ))+t_v5740) ), (* (( (ptr) formal_c22060)+4)
                ), (*  (W2Pt) &box_v19512 ), var_c21516, var_c21548, (* ((( (ptr) formal_c22060)+10)+t_v5740) ), pd42);
            };
         };
      if ((t_v5740 >= 3)) {
         goto lab_L100026;
         };
      t_v5740 = (t_v5740 + 1);
      goto lab_L100029;
      lab_L100026: ;
      };
   }

static void MyMaskRawBitmaps_P480(device_v4704, list_v4732)
   word device_v4704;
   word list_v4732;
   {
   register ptr gf_c22092 =  (ptr) &globalframe;
   word data_v5784;
   word function_v5812 = 0;
   /* MyMaskRawBitmaps: */ 
SOURCE(5630, 537)
SOURCE(5729, 32)
   data_v5784 = XR_Narrow((* (( (ptr) device_v4704)+7) ), (* (( (ptr) gf_c22092)+16) ));
SOURCE(5811, 356)
   {
      register word t_v5856 = 0;
      lab_L100033: ;
      {
         word local_v5900;
SOURCE(5836, 62)
         local_v5900 = (* (( (ptr) data_v5784)+t_v5856) );
         if ((local_v5900 == 0)) {
            goto lab_L100034;
            };
         if (((* (( (ptr) local_v5900)+6) ) == 0)) {
            goto lab_L100034;
            };
         (void) XR_RaiseError(XR_NarrowFault, 0);
         lab_L100034: ;
SOURCE(5900, 48)
         if (((* (( (ptr) (* ((( (ptr) data_v5784)+4)+t_v5856) ))+10) ) != 1)) {
SOURCE(5948, 5)
            (void) XR_RaiseUnnamedError();
            };
SOURCE(5955, 121)
         {
            word var_c21644;
            var_c21644 = (* (( (ptr) (* ((( (ptr) data_v5784)+4)+t_v5856) ))+11) );
            switch (var_c21644) {
               case 0: 
                  break;
               case 2: 
SOURCE(6015, 21)
                  function_v5812 = 4;
                  break;
               case 1: 
SOURCE(6048, 28)
                  function_v5812 = 3;
                  break;
               default: 
SOURCE(6089, 5)
                  (void) XR_RaiseUnnamedError();
                  break;
               };
            };
SOURCE(6096, 71)
         {
            word pd43;
            pd43 = (* (( (ptr) (* (( (ptr) gf_c22092)+48)/* var_c21580 */  ))+53) );
            (void) ( *( (fPt) ((*  (ptr) pd43 ))))(local_v5900, list_v4732, function_v5812, pd43);
            };
         };
      if ((t_v5856 >= 3)) {
         goto lab_L100030;
         };
      t_v5856 = (t_v5856 + 1);
      goto lab_L100033;
      lab_L100030: ;
      };
   }

/* file: ImagerFourColorContextImpl, module: ImagerFourColorContextImpl, compiled at: January 6, 1993 12:04:12 pm PST */ 
extern void XR_install_ImagerFourColorContextImpl() {
   NoName_Q1356();
   }
extern void XR_run_ImagerFourColorContextImpl() { XR_Start(&globalframe); }