/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: July 28, 1993 10:19:34 am PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: ImagerImageWorksImpl, module: ImagerImageWorksImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [500095483,881983743] ImagerImageWorksImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1;} W2;
typedef W2 *W2Pt;
typedef struct {word f0, f1, f2, f3;} W4;
typedef W4 *W4Pt;
typedef struct {word f0, f1, f2;} W3;
typedef W3 *W3Pt;
#define SOURCE(p, l) /* source p, l */
static float fc23 = 1.0;
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) )
#define MAX(cast, x, y)  ( ( cast x) > ( cast y) ? (x) : (y) )
#define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i )
#define IOP2(op, x, y)  ( (word) ((x) op (y)) )
static float fc83 = 0.0;
static float fc88 = 2.0;
#define MIN(cast, x, y)  ( ( cast x) < ( cast y) ? (x) : (y) )
#define INEG(x)  ( (word) ( - ((int) (word) (x)) ) )
static void NoName_Q2424();
static void ImagerImageWorksImpl_P0();
static word BufferedMaxSampleValue_P60();
static void BufferedGetSamples_P120();
static word MakeBufferedPixelArray_P180();
static void DrawBufferedImage_P240();
static word InterleavedSamplesMaxSampleValue_P300();
static word ObtainBuffer_P360();
static void ReleaseBuffer_P420();
static word SalvageBuffer_P480();
static void InterleavedSamplesGetSamples_P540();
static word MakeInterleavedPixelArray_P600();
static void DrawInterleavedImage_P660();
static void GetUnsafeBlock_P720();
static word ChooseOverlap_P780();
static word ChooseBandSize_P840();
static void StreamImage_P900();
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\035\316\331\373\300\064\222\000\377\100\370\000\000"};
static struct {unsigned f; char r[4];} string4 = {131074, "\003\001\000"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\035\316\331\373\300\064\222\000\377\100\200\000\000"};
static struct {unsigned f; char r[16];} string6 = {851984, "\257\300\260\302\146\322\300\075\027\134\123\100\354\000\000"};
static struct {unsigned f; char r[12];} string7 = {589833, "\011\000\004\100\240\040\001\030\001\000\000"};
static struct {unsigned f; char r[16];} string8 = {851984, "\257\300\035\316\331\373\300\064\222\000\377\100\324\000\000"};
static struct {unsigned f; char r[4];} string9 = {131074, "\004\011\000"};
static struct {unsigned f; char r[20];} string10 = {1179668, "InterleavedSamples\000"};
static struct {unsigned f; char r[20];} string11 = {1048596, "BufferedPixelMap\000\000\000"};
static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\035\316\331\373\300\064\222\000\377\100\164\000\000"};
static struct {unsigned f; char r[16];} string13 = {786444, "\006\004\040\001\044\001\050\001\100\120\004\003\000\000\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300ZT?\010\300\370;=;@h\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\170\002\151\000\300\332\212\147\067\100\150\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\213\226\301\143\300\072\355\320\373\100\150\000\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\121\117\377\026\300\315\013\026\004\100\150\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\243\162\130\311\300\344\000\142\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\354\360\322\243\300\071\057\173\326\100\150\000\000"};
static struct {
   word f0[22]; 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; 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[8]; 
   } globalframe = {
   {0}, (word) StreamImage_P900, 0, (word) ChooseBandSize_P840, 
   0, (word) ChooseOverlap_P780, 0, (word) GetUnsafeBlock_P720, 
   0, (word) DrawInterleavedImage_P660, 0, (word) MakeInterleavedPixelArray_P600, 
   0, (word) InterleavedSamplesGetSamples_P540, 0, (word) SalvageBuffer_P480, 
   0, (word) ReleaseBuffer_P420, 0, (word) ObtainBuffer_P360, 
   0, (word) InterleavedSamplesMaxSampleValue_P300, 0, (word) DrawBufferedImage_P240, 
   0, (word) MakeBufferedPixelArray_P180, 0, (word) BufferedGetSamples_P120, 
   0, (word) BufferedMaxSampleValue_P60, 0, (word) ImagerImageWorksImpl_P0, 
   {0}
   };

static void NoName_Q2424()
   {
   register ptr gf_c0234 =  (ptr) &globalframe;
   word var_c23760;
   (* (( (ptr) gf_c0234)+11) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c0234)+14) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (* (( (ptr) gf_c0234)+16) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string2);
   (* (( (ptr) gf_c0234)+17) ) = (word) XR_GetTypeIndex((word) &string6, 0, (word) &string7);
   (* (( (ptr) gf_c0234)+19) ) = (word) XR_GetTypeIndex((word) &string8, 0, (word) &string9);
   (*  (ptr) (( (bPt) gf_c0234)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0234)+11) ), (word) &string10);
   (*  (ptr) (( (bPt) gf_c0234)+84) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0234)+11) ), (word) &string11);
   (void) XR_DeclareGlobalFrame((word) "ImagerImageWorksImpl", &globalframe, (word) XR_GetTypeIndex((word) &string12, 0, (word) &string13)
      , (word) (( (bPt) gf_c0234)+208)/* var_c21616 */ );
   var_c23760 = (word) XR_ImportInterface((word) "ImagerColor", (word) XR_GetTypeIndexS((word) (&string14)), 32);
   (* (( (ptr) gf_c0234)+55)/* var_c21680 */  ) = var_c23760;
   (void) XR_ImportProcS(var_c23760, 67896835);
   (void) XR_ImportProcS(var_c23760, 67372801);
   var_c23760 = (word) XR_ImportInterface((word) "ImagerPixelArrayPrivate", (word) XR_GetTypeIndexS((word) (&string15)), 2);
   (* (( (ptr) gf_c0234)+54)/* var_c21648 */  ) = var_c23760;
   (void) XR_ImportProcS(var_c23760, 68944135);
   (void) XR_ImportProcS(var_c23760, 68681734);
   var_c23760 = (word) XR_ImportInterface((word) "ImagerSample", (word) XR_GetTypeIndexS((word) (&string16)), 60);
   (* (( (ptr) gf_c0234)+56)/* var_c21872 */  ) = var_c23760;
   (void) XR_ImportProcS(var_c23760, 267009);
   (void) XR_ImportProcS(var_c23760, 68425474);
   (void) XR_ImportProcS(var_c23760, 1322500);
   (void) XR_ImportProcS(var_c23760, 68686339);
   (void) XR_ImportProcS(var_c23760, 67377409);
   (void) XR_ImportProcS(var_c23760, 67896579);
   (void) XR_ImportProcS(var_c23760, 67633410);
   (void) XR_ImportProcS(var_c23760, 68949507);
   (void) XR_ImportProcS(var_c23760, 67905026);
   (void) XR_ImportProcS(var_c23760, 1050372);
   (void) XR_ImportProcS(var_c23760, 2107398);
   var_c23760 = (word) XR_ImportInterface((word) "ImagerTransformation", (word) XR_GetTypeIndexS((word) (&string17)), 55);
   (* (( (ptr) gf_c0234)+58)/* var_c22096 */  ) = var_c23760;
   (void) XR_ImportProcS(var_c23760, 269756930);
   (void) XR_ImportProcS(var_c23760, 67635458);
   (void) XR_ImportProcS(var_c23760, 67634689);
   var_c23760 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string18)), 103);
   (* (( (ptr) gf_c0234)+59)/* var_c23632 */  ) = var_c23760;
   (void) XR_ImportProcS(var_c23760, 68160002);
   var_c23760 = (word) XR_ImportInterface((word) "SF", (word) XR_GetTypeIndexS((word) (&string19)), 19);
   (* (( (ptr) gf_c0234)+57)/* var_c22032 */  ) = var_c23760;
   (void) XR_ImportProcS(var_c23760, 135270145);
   (void) XR_ImportProcS(var_c23760, 134742273);
   var_c23760 = (word) XR_ExportInterface((word) "ImagerImageWorks", (word) XR_GetTypeIndexS((word) (&string20)), 3);
   (* (( (ptr) gf_c0234)+60)/* var_c23792 */  ) = var_c23760;
   (void) XR_ExportProcS(var_c23760, (word) (( (bPt) gf_c0234)+176)/* var_c21488 */ , 2359302, (word) "DrawBufferedImage");
   (void) XR_ExportProcS(var_c23760, (word) (( (bPt) gf_c0234)+120)/* var_c21264 */ , 2621703, (word) "DrawInterleavedImage")
   ;
   (void) XR_ExportProcS(var_c23760, (word) (( (bPt) gf_c0234)+88)/* var_c21136 */ , 2621962, (word) "StreamImage");
   }

static void ImagerImageWorksImpl_P0(formal_c032, formal_c031)
   word formal_c032;
   word formal_c031;
   {
   register ptr gf_c23824 =  (ptr) &globalframe;
   /* ImagerImageWorksImpl: */ 
SOURCE(194, 12241)
SOURCE(765, 190)
   {
      word pd21;
      pd21 = (* (( (ptr) (* (( (ptr) gf_c23824)+54)/* var_c21648 */  ))+4) );
      (* (( (ptr) gf_c23824)+8)/* bufferedClass_v3196 */  ) = (word) ( *( (fPt) ((*  (ptr) pd21 ))))((* (( (ptr) gf_c23824)+21)
          ), (word) (( (bPt) gf_c23824)+200)/* var_c21584 */ , 0, (word) (( (bPt) gf_c23824)+192)/* var_c21552 */ , 0, 0, pd21);
      };
SOURCE(3157, 55)
   {
      word pd22;
      pd22 = (* (( (ptr) (* (( (ptr) gf_c23824)+55)/* var_c21680 */  ))+11) );
      (* (( (ptr) gf_c23824)+9)/* black_v3336 */  ) = (word) ( *( (fPt) ((*  (ptr) pd22 ))))((*  (ptr) (&fc23) ), pd22);
      };
SOURCE(4013, 222)
   {
      word pd24;
      pd24 = (* (( (ptr) (* (( (ptr) gf_c23824)+54)/* var_c21648 */  ))+4) );
      (* (( (ptr) gf_c23824)+10)/* interleavedSamplesClass_v3392 */  ) = (word) ( *( (fPt) ((*  (ptr) pd24 ))))((* (( (ptr) gf_c23824)+20)
          ), (word) (( (bPt) gf_c23824)+168)/* var_c21456 */ , 0, (word) (( (bPt) gf_c23824)+136)/* var_c21328 */ , 0, 0, pd24);
      };
   }

static word BufferedMaxSampleValue_P60(pa_v3908, i_v3936)
   word pa_v3908;
   word i_v3936;
   {
   register ptr gf_c23856 =  (ptr) &globalframe;
   word var_c3980;
   word data_v6692;
   word map_v6720;
   /* BufferedMaxSampleValue: */ 
SOURCE(1023, 230)
SOURCE(1117, 40)
   data_v6692 = XR_Narrow((* (( (ptr) pa_v3908)+6) ), (* (( (ptr) gf_c23856)+16) ));
SOURCE(1159, 28)
   {
      word var_c21712;
      var_c21712 = (*  (ptr) data_v6692 );
      {
         word limit25;
         map_v6720 = (* ((( (ptr) var_c21712)+6)+(
               limit25 = (* (( (ptr) var_c21712)+5) ),
               BCK(i_v3936, limit25)
               )) );
         };
      };
SOURCE(1189, 64)
   return(((word) Basics_BITSHIFT(1, (* (( (ptr) map_v6720)+5) )) - 1));
   }

static void BufferedGetSamples_P120(pa_v4040, i_v4068, s_v4096, f_v4124, buffer_v4152, start_v4180, count_v4208)
   word pa_v4040;
   word i_v4068;
   word s_v4096;
   word f_v4124;
   word buffer_v4152;
   word start_v4180;
   word count_v4208;
   {
   register ptr gf_c23888 =  (ptr) &globalframe;
   word data_v6776;
   word map_v6804;
   word loFill_v6832;
   word hiFill_v6860;
   word dataCount_v6888;
   word sSize_v6916;
   word fSize_v6944;
   /* BufferedGetSamples: */ 
SOURCE(1259, 1034)
SOURCE(1401, 40)
   data_v6776 = XR_Narrow((* (( (ptr) pa_v4040)+6) ), (* (( (ptr) gf_c23888)+16) ));
SOURCE(1443, 28)
   {
      word var_c21776;
      var_c21776 = (*  (ptr) data_v6776 );
      {
         word limit26;
         map_v6804 = (* ((( (ptr) var_c21776)+6)+(
               limit26 = (* (( (ptr) var_c21776)+5) ),
               BCK(i_v4068, limit26)
               )) );
         };
      };
SOURCE(1473, 43)
   {
      word x27;
      loFill_v6832 = (x27 = ((* (( (ptr) data_v6776)+1) ) - f_v4124),
         MAX((int)(word), x27, 0));
      };
SOURCE(1518, 64)
   {
      word x28;
      hiFill_v6860 = (x28 = ((f_v4124 + count_v4208) - ((* (( (ptr) pa_v4040)+3) ) - (* (( (ptr) data_v6776)+1) ))),
         MAX((int)(word), x28, 0));
      };
SOURCE(1584, 36)
   dataCount_v6888 = ((count_v4208 - loFill_v6832) - hiFill_v6860);
SOURCE(1622, 31)
   {
      word idx29;
      sSize_v6916 = (
         idx29 = (* (( (ptr) (*  (ptr) data_v6776 ))+3) ),
         SGNCK(idx29)
         );
      };
SOURCE(1697, 31)
   {
      word idx30;
      fSize_v6944 = (
         idx30 = (* (( (ptr) (*  (ptr) data_v6776 ))+4) ),
         SGNCK(idx30)
         );
      };
SOURCE(1772, 23)
   s_v4096 = (s_v4096 - (* (( (ptr) data_v6776)+1) ));
SOURCE(1797, 55)
   if (( (int)s_v4096 <  (int)0)) {
SOURCE(1811, 11)
      s_v4096 = 0;
      }
   else {
SOURCE(1822, 30)
      if (( (int)s_v4096 >=  (int)sSize_v6916)) {
SOURCE(1841, 11)
         s_v4096 = (sSize_v6916 - 1);
         };
      };
SOURCE(1854, 154)
   if (( (int)dataCount_v6888 >  (int)0)) {
SOURCE(1878, 130)
      {
         W2 var_c21808;
         W2 var_c21840;
         var_c21808.f0 = s_v4096;
         var_c21808.f1 = ((f_v4124 - (* (( (ptr) data_v6776)+1) )) + loFill_v6832);
         var_c21840.f0 = 0;
         var_c21840.f1 = 1;
         {
            word pd31;
            pd31 = (* (( (ptr) (* (( (ptr) gf_c23888)+56)/* var_c21872 */  ))+44) );
            (void) ( *( (fPt) ((*  (ptr) pd31 ))))(map_v6804, var_c21808, var_c21840, buffer_v4152, SGNCK((start_v4180 + loFill_v6832))
               , SGNCK(dataCount_v6888), pd31);
            };
         };
      };
SOURCE(2013, 128)
   if ((loFill_v6832 != 0)) {
SOURCE(2034, 107)
      {
         word var_c21904;
         {
            W2 var_c21936;
            var_c21936.f0 = s_v4096;
            var_c21936.f1 = 0;
            {
               word pd32;
               pd32 = (* (( (ptr) (* (( (ptr) gf_c23888)+56)/* var_c21872 */  ))+42) );
               var_c21904 = (word) ( *( (fPt) ((*  (ptr) pd32 ))))(map_v6804, var_c21936, pd32);
               };
            };
         {
            word pd33;
            pd33 = (* (( (ptr) (* (( (ptr) gf_c23888)+56)/* var_c21872 */  ))+11) );
            (void) ( *( (fPt) ((*  (ptr) pd33 ))))(buffer_v4152, var_c21904, start_v4180, loFill_v6832, pd33);
            };
         };
      };
SOURCE(2146, 147)
   if ((hiFill_v6860 != 0)) {
SOURCE(2167, 126)
      {
         word var_c21968;
         {
            W2 var_c22000;
            var_c22000.f0 = s_v4096;
            var_c22000.f1 = (fSize_v6944 - 1);
            {
               word pd34;
               pd34 = (* (( (ptr) (* (( (ptr) gf_c23888)+56)/* var_c21872 */  ))+42) );
               var_c21968 = (word) ( *( (fPt) ((*  (ptr) pd34 ))))(map_v6804, var_c22000, pd34);
               };
            };
         {
            word pd35;
            pd35 = (* (( (ptr) (* (( (ptr) gf_c23888)+56)/* var_c21872 */  ))+11) );
            (void) ( *( (fPt) ((*  (ptr) pd35 ))))(buffer_v4152, var_c21968, ((start_v4180 + count_v4208) - hiFill_v6860), hiFill_v6860, pd35)
            ;
            };
         };
      };
   }

static word MakeBufferedPixelArray_P180(pixelMap_v4268, borderSize_v4296)
   word pixelMap_v4268;
   word borderSize_v4296;
   {
   register ptr gf_c23920 =  (ptr) &globalframe;
   word var_c4340;
   word samplesPerPixel_v7000;
   W2 delta_v7028;
   W2 size_v7056;
   word m_v7084;
   word new_v7112;
   W2 var_c22128;
   /* MakeBufferedPixelArray: */ 
SOURCE(2302, 849)
SOURCE(2415, 47)
   samplesPerPixel_v7000 = (* (( (ptr) pixelMap_v4268)+5) );
SOURCE(2464, 40)
   {
      word pd36;
      pd36 = (* (( (ptr) (* (( (ptr) gf_c23920)+57)/* var_c22032 */  ))+5) );
      (void) ( *( (fPt) ((*  (ptr) pd36 ))))((word) &delta_v7028, (*  (W2Pt) (( (ptr) pixelMap_v4268)+1) ), pd36);
      };
SOURCE(2506, 36)
   {
      word pd37;
      pd37 = (* (( (ptr) (* (( (ptr) gf_c23920)+57)/* var_c22032 */  ))+19) );
      (void) ( *( (fPt) ((*  (ptr) pd37 ))))((word) &size_v7056, (*  (W4Pt) (( (ptr) pixelMap_v4268)+1) ), pd37);
      };
SOURCE(2544, 114)
   {
      W2 var_c22064;
      {
         float tf38;
         var_c22064.f0 = (
            tf38 = (float)(int)((* (( (ptr) pixelMap_v4268)+1) ) - borderSize_v4296),  *(word*)&tf38
            );
         };
      {
         float tf39;
         var_c22064.f1 = (
            tf39 = (float)(int)((* (( (ptr) pixelMap_v4268)+2) ) - borderSize_v4296),  *(word*)&tf39
            );
         };
      {
         word pd40;
         pd40 = (* (( (ptr) (* (( (ptr) gf_c23920)+58)/* var_c22096 */  ))+10) );
         m_v7084 = (word) ( *( (fPt) ((*  (ptr) pd40 ))))(var_c22064, pd40);
         };
      };
SOURCE(2660, 24)
   new_v7112 = pixelMap_v4268;
SOURCE(2686, 218)
   var_c22128.f0 = 0;
   var_c22128.f1 = 0;
   if ( ! XR_EqualWords(&delta_v7028, &var_c22128, 2)) {
SOURCE(2711, 51)
      {
         word var_c22160;
         word var_c22192;
         word var_c22224;
         var_c22160 = BCK(samplesPerPixel_v7000, 67108863);
         var_c22192 = ((word) var_c22160 << 2);
         var_c22224 = XR_NewObject((24 + var_c22192), (* (( (ptr) gf_c23920)+17) ));
         (* (( (ptr) var_c22224)+5) ) = var_c22160;
         new_v7112 = var_c22224;
         };
SOURCE(2764, 21)
      (* (( (ptr) new_v7112)+1) ) = 0;
      (* (( (ptr) new_v7112)+2) ) = 0;
      (*  (W2Pt) (( (ptr) new_v7112)+3) ) = size_v7056;
SOURCE(2787, 117)
      {
         register word j_v7156 = 0;
         if ((j_v7156 >= samplesPerPixel_v7000)) {
            goto lab_L100000;
            };
         lab_L100003: ;
SOURCE(2825, 79)
         {
            word var_c22256;
            {
               W4 var_c22288;
               var_c22288.f0 = 0;
               var_c22288.f1 = 0;
               (*  (W2Pt) (( (ptr) &var_c22288)+2) ) = size_v7056;
               {
                  word pd41;
                  word limit42;
                  pd41 = (* (( (ptr) (* (( (ptr) gf_c23920)+56)/* var_c21872 */  ))+26) );
                  var_c22256 = (word) ( *( (fPt) ((*  (ptr) pd41 ))))((* ((( (ptr) pixelMap_v4268)+6)+(
                           limit42 = (* (( (ptr) pixelMap_v4268)+5) ),
                           BCK(j_v7156, limit42)
                           )) ), delta_v7028, var_c22288, pd41);
                  };
               };
            {
               word limit43;
               (* ((( (ptr) new_v7112)+6)+(
                     limit43 = (* (( (ptr) new_v7112)+5) ),
                     BCK(j_v7156, limit43)
                     )) ) = var_c22256;
               };
            };
         j_v7156 = (j_v7156 + 1);
         if ((j_v7156 < samplesPerPixel_v7000)) {
            goto lab_L100003;
            };
         lab_L100000: ;
         };
      };
SOURCE(2918, 233)
   {
      word var_c22384;
      word var_c22352;
      var_c22384 = XR_NewObject(8, (* (( (ptr) gf_c23920)+16) ));
      (*  (ptr) var_c22384 ) = new_v7112;
      (* (( (ptr) var_c22384)+1) ) = borderSize_v4296;
      var_c22352 = var_c22384;
      {
         word pd44;
         pd44 = (* (( (ptr) (* (( (ptr) gf_c23920)+54)/* var_c21648 */  ))+5) );
         return((word) ( *( (fPt) ((*  (ptr) pd44 ))))((* (( (ptr) gf_c23920)+8)/* bufferedClass_v3196 */  ), var_c22352, 0, samplesPerPixel_v7000, (size_v7056.f0 + 
            ((word) borderSize_v4296 << 1)), (size_v7056.f1 + ((word) borderSize_v4296 << 1))
            , m_v7084, pd44));
         };
      };
   }

static void DrawBufferedImage_P240(device_v4400, buffer_v4428, box_v4456, colorOperator_v4484, pixelToView_v4512, viewToDevice_v4540)
   word device_v4400;
   word buffer_v4428;
   W4 box_v4456;
   word colorOperator_v4484;
   word pixelToView_v4512;
   word viewToDevice_v4540;
   {
   register ptr gf_c23952 =  (ptr) &globalframe;
   word borderSize_v7200 = 2;
   word sSize_v7228;
   word fSize_v7256;
   /* DrawBufferedImage: */ 
SOURCE(3215, 789)
SOURCE(3420, 36)
   sSize_v7228 = (box_v4456.f2 - box_v4456.f0);
SOURCE(3458, 36)
   fSize_v7256 = (box_v4456.f3 - box_v4456.f1);
SOURCE(3496, 508)
   if ( ( ( (int)sSize_v7228 >  (int)0) ? ( (int)fSize_v7256 >  (int)0) : 0 ) ) {
SOURCE(3528, 478)
      {
         word pixelToDevice_v7300;
         word pa_v7328;
         word color_v7356;
SOURCE(3530, 86)
         {
            word pd45;
            pd45 = (* (( (ptr) (* (( (ptr) gf_c23952)+58)/* var_c22096 */  ))+13) );
            pixelToDevice_v7300 = (word) ( *( (fPt) ((*  (ptr) pd45 ))))(pixelToView_v4512, viewToDevice_v4540, pd45);
            };
SOURCE(3618, 76)
         pa_v7328 = (word) MakeBufferedPixelArray_P180(buffer_v4428, borderSize_v7200);
SOURCE(3696, 110)
         {
            word pd46;
            pd46 = (* (( (ptr) (* (( (ptr) gf_c23952)+55)/* var_c21680 */  ))+10) );
            color_v7356 = (word) ( *( (fPt) ((*  (ptr) pd46 ))))(pa_v7328, pixelToView_v4512, colorOperator_v4484, pd46);
            };
SOURCE(3808, 50)
         {
            word pd47;
            pd47 = (*  (ptr) (* (( (ptr) device_v4400)+4) ) );
            (void) ( *( (fPt) ((*  (ptr) pd47 ))))(device_v4400, color_v7356, viewToDevice_v4540, pd47);
            };
SOURCE(3860, 92)
         {
            W4 rectangle_v20992;
            {
               float tf48;
               rectangle_v20992.f0 = (
                  tf48 = (float)(int)box_v4456.f0,  *(word*)&tf48
                  );
               };
            {
               float tf49;
               rectangle_v20992.f1 = (
                  tf49 = (float)(int)box_v4456.f1,  *(word*)&tf49
                  );
               };
            {
               float tf50;
               rectangle_v20992.f2 = (
                  tf50 = (float)(int)sSize_v7228,  *(word*)&tf50
                  );
               };
            {
               float tf51;
               rectangle_v20992.f3 = (
                  tf51 = (float)(int)fSize_v7256,  *(word*)&tf51
                  );
               };
            {
               word pd52;
               pd52 = (* (( (ptr) (*  (ptr) device_v4400 ))+2) );
               (void) ( *( (fPt) ((*  (ptr) pd52 ))))(device_v4400, rectangle_v20992, pixelToDevice_v7300, pd52);
               };
            };
SOURCE(3954, 50)
         {
            word pd53;
            pd53 = (*  (ptr) (* (( (ptr) device_v4400)+4) ) );
            (void) ( *( (fPt) ((*  (ptr) pd53 ))))(device_v4400, (* (( (ptr) gf_c23952)+9)/* black_v3336 */  ), viewToDevice_v4540, pd53)
            ;
            };
         };
      };
   }

static word InterleavedSamplesMaxSampleValue_P300(pa_v4740, i_v4768)
   word pa_v4740;
   word i_v4768;
   {
   register ptr gf_c23984 =  (ptr) &globalframe;
   word var_c4812;
   word data_v7400;
   /* InterleavedSamplesMaxSampleValue: */ 
SOURCE(4393, 291)
SOURCE(4497, 53)
   data_v7400 = XR_Narrow((* (( (ptr) pa_v4740)+6) ), (* (( (ptr) gf_c23984)+19) ));
SOURCE(4552, 58)
   if ((i_v4768 > (* (( (ptr) data_v7400)+2) ))) {
SOURCE(4585, 25)
      (void) XR_RaiseBoundsFault();
      };
SOURCE(4612, 72)
   {
      word var_c0249;
      {
         word var_c22480;
         {
            word var_c22512;
            word map_v21088;
            map_v21088 = (*  (ptr) data_v7400 );
            var_c22512 = (* (( (ptr) map_v21088)+5) );
            var_c22480 = var_c22512;
            };
         var_c0249 = ((word) Basics_BITSHIFT(1, var_c22480) - 1);
         };
      return(var_c0249);
      };
   }

static word ObtainBuffer_P360(data_v4944)
   word data_v4944;
   {
   register ptr gf_c24016 =  (ptr) &globalframe;
   word b_v5000;
   /* ObtainBuffer: */ 
SOURCE(4769, 146)
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c24016)+16)/* LOCK_v2972 */ ));
SOURCE(4769, 146)
   b_v5000 = 0;
SOURCE(4869, 21)
   b_v5000 = (* (( (ptr) data_v4944)+3) );
SOURCE(4892, 23)
   (* (( (ptr) data_v4944)+3) ) = 0;
SOURCE(4769, 146)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c24016)+16)/* LOCK_v2972 */ ));
   return(b_v5000);
   }

static void ReleaseBuffer_P420(data_v5072, b_v5100)
   word data_v5072;
   word b_v5100;
   {
   register ptr gf_c24048 =  (ptr) &globalframe;
   /* ReleaseBuffer: */ 
SOURCE(4921, 114)
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c24048)+16)/* LOCK_v2972 */ ));
SOURCE(5013, 22)
   (* (( (ptr) data_v5072)+3) ) = b_v5100;
SOURCE(4921, 114)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c24048)+16)/* LOCK_v2972 */ ));
   return;
   }

static word SalvageBuffer_P480(pa_v5184)
   word pa_v5184;
   {
   register ptr gf_c24080 =  (ptr) &globalframe;
   word scratch_v5228;
   /* SalvageBuffer: */ 
SOURCE(5039, 179)
SOURCE(5039, 179)
   scratch_v5228 = 0;
SOURCE(5126, 92)
   {
      word var_c22544;
      var_c22544 = (* (( (ptr) pa_v5184)+6) );
      if ((var_c22544 == 0)) {
         goto lab_L100005;
         };
      if (((* (( (ptr) gf_c24080)+19) ) == XR_GetReferentType(var_c22544))) {
         {
            word data_v7456;
            data_v7456 = var_c22544;
SOURCE(5190, 28)
            scratch_v5228 = (word) ObtainBuffer_P360(data_v7456);
            };
         }
      else {
         lab_L100005: ;
         };
      };
SOURCE(5039, 179)
   return(scratch_v5228);
   }

static void InterleavedSamplesGetSamples_P540(pa_v5304, i_v5332, s_v5360, f_v5388, buffer_v5416, start_v5444, count_v5472)
   word pa_v5304;
   word i_v5332;
   word s_v5360;
   word f_v5388;
   word buffer_v5416;
   word start_v5444;
   word count_v5472;
   {
   register ptr gf_c24112 =  (ptr) &globalframe;
   word data_v7512;
   word fSize_v7540;
   word sSize_v7568;
   /* InterleavedSamplesGetSamples: */ 
SOURCE(5233, 1925)
SOURCE(5385, 53)
   data_v7512 = XR_Narrow((* (( (ptr) pa_v5304)+6) ), (* (( (ptr) gf_c24112)+19) ));
SOURCE(5440, 48)
   {
      W4 var_c22576;
      word map_v20896;
      word var_c0250;
      map_v20896 = (*  (ptr) data_v7512 );
      var_c22576 = (*  (W4Pt) map_v20896 );
      var_c0250 = var_c22576.f3;
      fSize_v7540 = SGNCK(var_c0250);
      };
SOURCE(5553, 48)
   {
      W4 var_c22608;
      word map_v20848;
      word var_c0251;
      map_v20848 = (*  (ptr) data_v7512 );
      var_c22608 = (*  (W4Pt) map_v20848 );
      var_c0251 = var_c22608.f2;
      sSize_v7568 = SGNCK(var_c0251);
      };
SOURCE(5645, 23)
   s_v5360 = (s_v5360 - (* (( (ptr) data_v7512)+1) ));
SOURCE(5670, 55)
   if (( (int)s_v5360 <  (int)0)) {
SOURCE(5684, 11)
      s_v5360 = 0;
      }
   else {
SOURCE(5695, 30)
      if (( (int)s_v5360 >=  (int)sSize_v7568)) {
SOURCE(5714, 11)
         s_v5360 = (sSize_v7568 - 1);
         };
      };
SOURCE(5727, 1431)
   if ((i_v5332 > (* (( (ptr) data_v7512)+2) ))) {
SOURCE(5760, 31)
      (void) XR_RaiseBoundsFault();
      }
   else {
SOURCE(5791, 1369)
      {
         word b_v7624;
SOURCE(5793, 43)
         b_v7624 = (word) ObtainBuffer_P360(data_v7512);
SOURCE(5838, 40)
         if ((b_v7624 == 0)) {
SOURCE(5854, 24)
            b_v7624 = XR_NewObject(8, (* (( (ptr) gf_c24112)+14) ));
            };
SOURCE(5880, 117)
         if (((* (( (ptr) b_v7624)+1) ) == 0) || ((* (( (ptr) (* (( (ptr) b_v7624)+1) ))+1) ) != fSize_v7540)) {
SOURCE(5935, 41)
            {
               word pd54;
               pd54 = (* (( (ptr) (* (( (ptr) gf_c24112)+56)/* var_c21872 */  ))+5) );
               (* (( (ptr) b_v7624)+1) ) = (word) ( *( (fPt) ((*  (ptr) pd54 ))))(fSize_v7540, 0, pd54);
               };
SOURCE(5978, 19)
            (*  (ptr) (* (( (ptr) b_v7624)+1) ) ) = 0;
            };
SOURCE(6002, 154)
         if (( (int)(*  (ptr) b_v7624 ) !=  (int)s_v5360) || ((*  (ptr) (* (( (ptr) b_v7624)+1) ) ) != fSize_v7540)) {
SOURCE(6047, 23)
            (*  (ptr) (* (( (ptr) b_v7624)+1) ) ) = fSize_v7540;
SOURCE(6072, 75)
            {
               W2 var_c22672;
               W2 var_c22704;
               var_c22672.f0 = s_v5360;
               var_c22672.f1 = 0;
               var_c22704.f0 = 0;
               var_c22704.f1 = 1;
               {
                  word pd55;
                  pd55 = (* (( (ptr) (* (( (ptr) gf_c24112)+56)/* var_c21872 */  ))+44) );
                  (void) ( *( (fPt) ((*  (ptr) pd55 ))))((*  (ptr) data_v7512 ), var_c22672, var_c22704, (* (( (ptr) b_v7624)+1) ), 0, 2147483647, pd55)
                  ;
                  };
               };
SOURCE(6149, 7)
            (*  (ptr) b_v7624 ) = SGNCK(s_v5360);
            };
SOURCE(6169, 964)
         {
            word loFill_v7680;
            word hiFill_v7708;
            word dataCount_v7736;
SOURCE(6171, 43)
            {
               word x56;
               loFill_v7680 = (x56 = ((* (( (ptr) data_v7512)+1) ) - f_v5388),
                  MAX((int)(word), x56, 0));
               };
SOURCE(6216, 64)
            {
               word x57;
               hiFill_v7708 = (x57 = ((f_v5388 + count_v5472) - ((* (( (ptr) pa_v5304)+3) ) - (* (( (ptr) data_v7512)+1) ))),
                  MAX((int)(word), x57, 0));
               };
SOURCE(6282, 36)
            dataCount_v7736 = ((count_v5472 - loFill_v7680) - hiFill_v7708);
SOURCE(6320, 529)
            if (( (int)dataCount_v7736 >  (int)0)) {
SOURCE(6342, 518)
               {
                  word src_v7780;
                  word srcP_v7808;
                  word srcDelta_v7836;
                  word dst_v7864;
SOURCE(6344, 213)
                  {
                     word pd58;
                     word idx59;
                     pd58 = (* (( (ptr) (* (( (ptr) gf_c24112)+56)/* var_c21872 */  ))+9) );
                     src_v7780 = (word) ( *( (fPt) ((*  (ptr) pd58 ))))((* (( (ptr) b_v7624)+1) ), (IOP2( * ,  (int)((f_v5388 - (* (( (ptr) data_v7512)+1)
                            )) + loFill_v7680),  (int)(* (( (ptr) data_v7512)+2) )) + i_v5332), (
                           idx59 = (word) (IOP2( * ,  (int)dataCount_v7736,  (int)(* (( (ptr) data_v7512)+2) )) - ((* (( (ptr) data_v7512)+2) ) - 1)),
                           SGNCK(idx59)
                           ), pd58);
                     };
SOURCE(6559, 38)
                  srcP_v7808 = src_v7780;
SOURCE(6599, 55)
                  srcDelta_v7836 = ((* (( (ptr) data_v7512)+2) ) << 2);
SOURCE(6656, 118)
                  {
                     word pd60;
                     pd60 = (* (( (ptr) (* (( (ptr) gf_c24112)+56)/* var_c21872 */  ))+9) );
                     dst_v7864 = (word) ( *( (fPt) ((*  (ptr) pd60 ))))(buffer_v5416, SGNCK((start_v5444 + loFill_v7680)), SGNCK(dataCount_v7736)
                        , pd60);
                     };
SOURCE(6776, 73)
                  {
                     register word k_v7944 = 0;
                     register word noName_c22736;
                     noName_c22736 = count_v5472;
                     if ((k_v7944 >= noName_c22736)) {
                        goto lab_L100008;
                        };
                     lab_L100011: ;
SOURCE(6809, 16)
                     (* (( (ptr) dst_v7864)+k_v7944) ) = (*  (ptr) srcP_v7808 );
SOURCE(6827, 22)
                     srcP_v7808 = (srcP_v7808 + srcDelta_v7836);
                     k_v7944 = (k_v7944 + 1);
                     if ((k_v7944 < noName_c22736)) {
                        goto lab_L100011;
                        };
                     lab_L100008: ;
                     };
                  };
               };
SOURCE(6863, 110)
            if ((loFill_v7680 != 0)) {
SOURCE(6884, 89)
               {
                  word var_c22768;
                  word var_c0252;
                  var_c22768 = (* (( (ptr) b_v7624)+1) );
                  {
                     word limit61;
                     var_c0252 = (* ((( (ptr) var_c22768)+2)+(
                           limit61 = (* (( (ptr) var_c22768)+1) ),
                           BCK(i_v5332, limit61)
                           )) );
                     };
                  {
                     word pd62;
                     pd62 = (* (( (ptr) (* (( (ptr) gf_c24112)+56)/* var_c21872 */  ))+11) );
                     (void) ( *( (fPt) ((*  (ptr) pd62 ))))(buffer_v5416, var_c0252, start_v5444, loFill_v7680, pd62);
                     };
                  };
               };
SOURCE(6978, 150)
            if ((hiFill_v7708 != 0)) {
SOURCE(6999, 129)
               {
                  word var_c22800;
                  word var_c22832;
                  word var_c0253;
                  var_c22800 = ((fSize_v7540 - (* (( (ptr) data_v7512)+2) )) + i_v5332);
                  var_c22832 = (* (( (ptr) b_v7624)+1) );
                  {
                     word limit63;
                     var_c0253 = (* ((( (ptr) var_c22832)+2)+(
                           limit63 = (* (( (ptr) var_c22832)+1) ),
                           BCK(var_c22800, limit63)
                           )) );
                     };
                  {
                     word pd64;
                     pd64 = (* (( (ptr) (* (( (ptr) gf_c24112)+56)/* var_c21872 */  ))+11) );
                     (void) ( *( (fPt) ((*  (ptr) pd64 ))))(buffer_v5416, var_c0253, ((start_v5444 + count_v5472) - hiFill_v7708), hiFill_v7708, pd64)
                     ;
                     };
                  };
               };
            };
SOURCE(7136, 22)
         (void) ReleaseBuffer_P420(data_v7512, b_v7624);
         };
      };
   }

static word MakeInterleavedPixelArray_P600(sampleMap_v5532, samplesPerPixel_v5560, borderSize_v5588, scratch_v5616)
   word sampleMap_v5532;
   word samplesPerPixel_v5560;
   word borderSize_v5588;
   word scratch_v5616;
   {
   register ptr gf_c24144 =  (ptr) &globalframe;
   word var_c5672;
   W4 box_v7988;
   word data_v8016;
   word pa_v8044;
   /* MakeInterleavedPixelArray: */ 
SOURCE(7167, 947)
SOURCE(7340, 44)
   box_v7988 = (*  (W4Pt) sampleMap_v5532 );
SOURCE(7386, 192)
   {
      word var_c22864;
      word var_c22896;
      {
         word pd65;
         pd65 = (* (( (ptr) (* (( (ptr) gf_c24144)+56)/* var_c21872 */  ))+29) );
         var_c22864 = (word) ( *( (fPt) ((*  (ptr) pd65 ))))(sampleMap_v5532, pd65);
         };
      var_c22896 = XR_NewObject(16, (* (( (ptr) gf_c24144)+19) ));
      (*  (ptr) var_c22896 ) = var_c22864;
      (* (( (ptr) var_c22896)+1) ) = borderSize_v5588;
      (* (( (ptr) var_c22896)+2) ) = samplesPerPixel_v5560;
      data_v8016 = var_c22896;
      };
SOURCE(7580, 338)
   {
      word var_c22928;
      {
         W2 var_c22960;
         {
            float tf66;
            var_c22960.f0 = (
               tf66 = (float)(int)(box_v7988.f0 - borderSize_v5588),  *(word*)&tf66
               );
            };
         {
            float tf67;
            var_c22960.f1 = (
               tf67 = (float)(int)(box_v7988.f1 - borderSize_v5588),  *(word*)&tf67
               );
            };
         {
            word pd68;
            pd68 = (* (( (ptr) (* (( (ptr) gf_c24144)+58)/* var_c22096 */  ))+10) );
            var_c22928 = (word) ( *( (fPt) ((*  (ptr) pd68 ))))(var_c22960, pd68);
            };
         };
      {
         word pd69;
         pd69 = (* (( (ptr) (* (( (ptr) gf_c24144)+54)/* var_c21648 */  ))+5) );
         pa_v8044 = (word) ( *( (fPt) ((*  (ptr) pd69 ))))((* (( (ptr) gf_c24144)+10)/* interleavedSamplesClass_v3392 */  ), data_v8016, 0, samplesPerPixel_v5560, ((box_v7988.f2 - box_v7988.f0) + 
            ((word) borderSize_v5588 << 1)), (IOP2( / ,  (int)(box_v7988.f3 - box_v7988.f1),  (int)samplesPerPixel_v5560) + ((word) borderSize_v5588 << 1))
            , var_c22928, pd69);
         };
      };
SOURCE(7920, 165)
   {
      word var_c22992;
      var_c22992 = scratch_v5616;
      if ((var_c22992 == 0)) {
         goto lab_L100012;
         };
      if (((* (( (ptr) gf_c24144)+14) ) == XR_GetReferentType(var_c22992))) {
         {
            word b_v8100;
            b_v8100 = var_c22992;
SOURCE(7973, 112)
            if ( ( ((* (( (ptr) b_v8100)+1) ) != 0) ? ( (int)(* (( (ptr) (* (( (ptr) b_v8100)+1) ))+1) ) ==  (int)(box_v7988.f3 - box_v7988.f1)) : 0 ) ) {
SOURCE(8043, 19)
               (*  (ptr) (* (( (ptr) b_v8100)+1) ) ) = 0;
SOURCE(8064, 21)
               (* (( (ptr) data_v8016)+3) ) = b_v8100;
               };
            };
         }
      else {
         lab_L100012: ;
         };
      };
SOURCE(8102, 12)
   return(pa_v8044);
   }

static void DrawInterleavedImage_P660(device_v5732, buffer_v5760, samplesPerPixel_v5788, box_v5816, colorOperator_v5844, pixelToView_v5872, viewToDevice_v5900)
   word device_v5732;
   word buffer_v5760;
   word samplesPerPixel_v5788;
   W4 box_v5816;
   word colorOperator_v5844;
   word pixelToView_v5872;
   word viewToDevice_v5900;
   {
   register ptr gf_c24176 =  (ptr) &globalframe;
   word borderSize_v8156 = 2;
   word sSize_v8184;
   word fSize_v8212;
   /* DrawInterleavedImage: */ 
SOURCE(8118, 836)
SOURCE(8350, 36)
   sSize_v8184 = (box_v5816.f2 - box_v5816.f0);
SOURCE(8388, 36)
   fSize_v8212 = (box_v5816.f3 - box_v5816.f1);
SOURCE(8426, 528)
   if ( ( ( (int)sSize_v8184 >  (int)0) ? ( (int)fSize_v8212 >  (int)0) : 0 ) ) {
SOURCE(8458, 498)
      {
         word pixelToDevice_v8256;
         word pa_v8284;
         word color_v8312;
SOURCE(8460, 86)
         {
            word pd70;
            pd70 = (* (( (ptr) (* (( (ptr) gf_c24176)+58)/* var_c22096 */  ))+13) );
            pixelToDevice_v8256 = (word) ( *( (fPt) ((*  (ptr) pd70 ))))(pixelToView_v5872, viewToDevice_v5900, pd70);
            };
SOURCE(8548, 96)
         pa_v8284 = (word) MakeInterleavedPixelArray_P600(buffer_v5760, samplesPerPixel_v5788, borderSize_v8156, 0);
SOURCE(8646, 110)
         {
            word pd71;
            pd71 = (* (( (ptr) (* (( (ptr) gf_c24176)+55)/* var_c21680 */  ))+10) );
            color_v8312 = (word) ( *( (fPt) ((*  (ptr) pd71 ))))(pa_v8284, pixelToView_v5872, colorOperator_v5844, pd71);
            };
SOURCE(8758, 50)
         {
            word pd72;
            pd72 = (*  (ptr) (* (( (ptr) device_v5732)+4) ) );
            (void) ( *( (fPt) ((*  (ptr) pd72 ))))(device_v5732, color_v8312, viewToDevice_v5900, pd72);
            };
SOURCE(8810, 92)
         {
            W4 rectangle_v20944;
            {
               float tf73;
               rectangle_v20944.f0 = (
                  tf73 = (float)(int)box_v5816.f0,  *(word*)&tf73
                  );
               };
            {
               float tf74;
               rectangle_v20944.f1 = (
                  tf74 = (float)(int)box_v5816.f1,  *(word*)&tf74
                  );
               };
            {
               float tf75;
               rectangle_v20944.f2 = (
                  tf75 = (float)(int)sSize_v8184,  *(word*)&tf75
                  );
               };
            {
               float tf76;
               rectangle_v20944.f3 = (
                  tf76 = (float)(int)fSize_v8212,  *(word*)&tf76
                  );
               };
            {
               word pd77;
               pd77 = (* (( (ptr) (*  (ptr) device_v5732 ))+2) );
               (void) ( *( (fPt) ((*  (ptr) pd77 ))))(device_v5732, rectangle_v20944, pixelToDevice_v8256, pd77);
               };
            };
SOURCE(8904, 50)
         {
            word pd78;
            pd78 = (*  (ptr) (* (( (ptr) device_v5732)+4) ) );
            (void) ( *( (fPt) ((*  (ptr) pd78 ))))(device_v5732, (* (( (ptr) gf_c24176)+9)/* black_v3336 */  ), viewToDevice_v5900, pd78)
            ;
            };
         };
      };
   }

static void GetUnsafeBlock_P720(formal_c0181, map_v5960)
   word formal_c0181;
   word map_v5960;
   {
   W3 var_c6004;
   W2 size_v8356;
   word base_v8384;
   word startIndex_v8412;
   /* GetUnsafeBlock: */ 
SOURCE(8963, 658)
SOURCE(9040, 40)
   {
      word map_v20704;
      map_v20704 = map_v5960;
      {
         W4 b_v18168;
         b_v18168 = (*  (W4Pt) map_v20704 );
         size_v8356.f0 = (b_v18168.f2 - b_v18168.f0);
         size_v8356.f1 = (b_v18168.f3 - b_v18168.f1);
         };
      };
SOURCE(9082, 61)
   base_v8384 = (* (( (ptr) map_v5960)+8) );
SOURCE(9145, 35)
   startIndex_v8412 = ((* (( (ptr) map_v5960)+9) ) >> 3);
SOURCE(9182, 439)
   if (( (int)size_v8356.f0 ==  (int)0) || ( (int)size_v8356.f1 ==  (int)0)) {
SOURCE(9215, 61)
      var_c6004.f0 = base_v8384;
      var_c6004.f1 = startIndex_v8412;
      var_c6004.f2 = 0;
      /* removed tail goto */ 
      }
   else {
SOURCE(9276, 345)
      {
         word bitsPerLine_v8468;
         word dataBitsPerLine_v8496;
         word fillBitsPerLine_v8524;
         word padStart_v8552;
         word nBytes_v8580;
SOURCE(9278, 38)
         {
            word idx79;
            bitsPerLine_v8468 = (
               idx79 = (* (( (ptr) map_v5960)+7) ),
               SGNCK(idx79)
               );
            };
SOURCE(9318, 63)
         {
            word var_c23152;
            word map_v21040;
            map_v21040 = map_v5960;
            var_c23152 = (* (( (ptr) map_v21040)+5) );
            {
               word idx80;
               dataBitsPerLine_v8496 = (var_c23152 * (
                  idx80 = (word) size_v8356.f1,
                  SGNCK(idx80)
                  ));
               };
            };
SOURCE(9383, 56)
         fillBitsPerLine_v8524 = BCK((bitsPerLine_v8468 - dataBitsPerLine_v8496), 32);
SOURCE(9441, 40)
         {
            word idx81;
            padStart_v8552 = (
               idx81 = ((* (( (ptr) map_v5960)+9) ) & 7),
               BCK(idx81, 1)
               );
            };
SOURCE(9483, 46)
         {
            word idx82;
            nBytes_v8580 = ((word) (((
               idx82 = (word) size_v8356.f0,
               SGNCK(idx82)
               ) * bitsPerLine_v8468) + 7) >> 3);
            };
SOURCE(9531, 90)
         var_c6004.f0 = (* (( (ptr) map_v5960)+8) );
         var_c6004.f1 = ((* (( (ptr) map_v5960)+9) ) >> 3);
         var_c6004.f2 = nBytes_v8580;
         /* removed tail goto */ 
         };
      };
   (*  (W3Pt) formal_c0181 ) = var_c6004;
   return;
   }

static word ChooseOverlap_P780(device_v6064, pixelToDevice_v6092, padMod_v6120)
   word device_v6064;
   word pixelToDevice_v6092;
   word padMod_v6120;
   {
   register ptr gf_c24208 =  (ptr) &globalframe;
   word var_c6164;
   word overlap_v8664 = 1;
   /* ChooseOverlap: */ 
SOURCE(9628, 511)
SOURCE(9745, 222)
   lab_L100018: ;
SOURCE(9745, 222)
   {
      W4 d_v8708;
SOURCE(9805, 105)
      {
         W4 var_c0189;
         {
            W4 var_c23248;
            var_c23248.f0 = (*  (ptr) &fc83 );
            var_c23248.f1 = (*  (ptr) &fc83 );
            {
               float tf84;
               var_c23248.f2 = (
                  tf84 = (float)(unsigned)overlap_v8664,  *(word*)&tf84
                  );
               };
            {
               float tf85;
               var_c23248.f3 = (
                  tf85 = (float)(unsigned)overlap_v8664,  *(word*)&tf85
                  );
               };
            {
               word pd86;
               pd86 = (* (( (ptr) (* (( (ptr) gf_c24208)+58)/* var_c22096 */  ))+46) );
               (void) ( *( (fPt) ((*  (ptr) pd86 ))))((word) &var_c0189, pixelToDevice_v6092, var_c23248, pd86);
               };
            };
         d_v8708 = var_c0189;
         };
SOURCE(9912, 30)
      {
         word x87;
         word x89;
         word x90;
         word x91;
         if ( ( ((
            x87 = d_v8708.f3,  *(float*)&x87
            ) >= (
            x89 = (*  (ptr) &fc88 ),  *(float*)&x89
            )) ? ((
            x90 = d_v8708.f2,  *(float*)&x90
            ) >= (
            x91 = (*  (ptr) &fc88 ),  *(float*)&x91
            )) : 0 ) ) {
SOURCE(9942, 4)
            goto lab_L100017;
            };
         };
SOURCE(9948, 19)
      overlap_v8664 = (overlap_v8664 + 1);
      };
   goto lab_L100018;
   lab_L100017: ;
SOURCE(9978, 95)
   lab_L100021: ;
   if ((((overlap_v8664 * padMod_v6120) & 7) != 0)) {
      }
   else {
      goto lab_L100019;
      };
SOURCE(10054, 19)
   overlap_v8664 = (overlap_v8664 + 1);
   goto lab_L100021;
   lab_L100019: ;
SOURCE(10084, 55)
   return(overlap_v8664);
   }

static word ChooseBandSize_P840(sSize_v6224, fSize_v6252, bitsPerSample_v6280, samplesPerPixel_v6308)
   word sSize_v6224;
   word fSize_v6252;
   word bitsPerSample_v6280;
   word samplesPerPixel_v6308;
   {
   word var_c6352;
   /* ChooseBandSize: */ 
SOURCE(10143, 130)
SOURCE(10249, 24)
   return((MIN( (unsigned) , sSize_v6224, 64)));
   }

static void StreamImage_P900(device_v6412, sSize_v6440, fSize_v6468, bitsPerSample_v6496, samplesPerPixel_v6524, padMod_v6552, pixelToView_v6580, viewToDevice_v6608, co_v6636, source_v6664)
   word device_v6412;
   word sSize_v6440;
   word fSize_v6468;
   word bitsPerSample_v6496;
   word samplesPerPixel_v6524;
   word padMod_v6552;
   word pixelToView_v6580;
   word viewToDevice_v6608;
   word co_v6636;
   word source_v6664;
   {
   register ptr gf_c24240 =  (ptr) &globalframe;
   /* StreamImage: */ 
SOURCE(10277, 2158)
SOURCE(10507, 1928)
   if ( ( (sSize_v6440 != 0) ? (fSize_v6468 != 0) : 0 ) ) {
SOURCE(10539, 1898)
      {
         word pixelToDevice_v8752;
         word bandSize_v8780;
         word overlapSize_v8808;
         word fSizeBand_v8836;
         word padModPred_v8864;
         word bitsPerLine_v8892;
         word bandStore_v8920;
         word band_v8948 = 0;
         W4 box_v8976;
SOURCE(10541, 86)
         {
            word pd92;
            pd92 = (* (( (ptr) (* (( (ptr) gf_c24240)+58)/* var_c22096 */  ))+13) );
            pixelToDevice_v8752 = (word) ( *( (fPt) ((*  (ptr) pd92 ))))(pixelToView_v6580, viewToDevice_v6608, pd92);
            };
SOURCE(10629, 122)
         bandSize_v8780 = (word) ChooseBandSize_P840(sSize_v6440, fSize_v6468, bitsPerSample_v6496, samplesPerPixel_v6524);
SOURCE(10753, 95)
         overlapSize_v8808 =  ( (bandSize_v8780 == sSize_v6440) ? 0 : (word) ChooseOverlap_P780(device_v6412, pixelToDevice_v8752, padMod_v6552)
          ) ;
SOURCE(10850, 38)
         {
            word idx93;
            fSizeBand_v8836 = (
               idx93 = (word) (fSize_v6468 * samplesPerPixel_v6524),
               SGNCK(idx93)
               );
            };
SOURCE(10890, 26)
         padModPred_v8864 = SGNCK((padMod_v6552 - 1));
SOURCE(10918, 81)
         {
            word idx94;
            bitsPerLine_v8892 = (
               idx94 = (word) (((((bitsPerSample_v6496 * samplesPerPixel_v6524) * fSize_v6468) + padModPred_v8864) / padMod_v6552) * padMod_v6552),
               SGNCK(idx94)
               );
            };
SOURCE(11001, 204)
         {
            W4 var_c23280;
            var_c23280.f0 = INEG(overlapSize_v8808);
            var_c23280.f1 = 0;
            var_c23280.f2 = SGNCK((bandSize_v8780 + overlapSize_v8808));
            var_c23280.f3 = fSizeBand_v8836;
            {
               word pd95;
               pd95 = (* (( (ptr) (* (( (ptr) gf_c24240)+56)/* var_c21872 */  ))+22) );
               bandStore_v8920 = (word) ( *( (fPt) ((*  (ptr) pd95 ))))(var_c23280, BCK(bitsPerSample_v6496, 33), bitsPerLine_v8892, pd95)
               ;
               };
            };
SOURCE(11287, 16)
         box_v8976.f0 = 0;
         box_v8976.f1 = 0;
         box_v8976.f2 = 0;
         box_v8976.f3 = 0;
SOURCE(11344, 1039)
         lab_L100024: ;
SOURCE(11344, 1039)
         {
            word newBand_v9020 = 0;
            word readBand_v9048 = 0;
SOURCE(11438, 21)
            box_v8976.f0 = box_v8976.f2;
SOURCE(11461, 13)
            box_v8976.f1 = 0;
SOURCE(11476, 30)
            box_v8976.f2 = (box_v8976.f2 + bandSize_v8780);
SOURCE(11508, 17)
            box_v8976.f3 = fSize_v6468;
SOURCE(11527, 43)
            if (( (int)box_v8976.f2 >  (int)sSize_v6440)) {
SOURCE(11553, 17)
               box_v8976.f2 = sSize_v6440;
               };
SOURCE(11572, 31)
            if (( (int)box_v8976.f0 >=  (int)box_v8976.f2)) {
SOURCE(11603, 4)
               goto lab_L100023;
               };
SOURCE(11609, 139)
            {
               word var_c23344;
               {
                  word var_c23440;
                  {
                     W2 var_c23376;
                     W4 var_c23408;
                     var_c23376.f0 = box_v8976.f0;
                     var_c23376.f1 = 0;
                     var_c23408.f0 = 0;
                     var_c23408.f1 = 0;
                     var_c23408.f2 = sSize_v6440;
                     var_c23408.f3 = fSizeBand_v8836;
                     {
                        word pd96;
                        pd96 = (* (( (ptr) (* (( (ptr) gf_c24240)+56)/* var_c21872 */  ))+26) );
                        var_c23440 = (word) ( *( (fPt) ((*  (ptr) pd96 ))))(bandStore_v8920, var_c23376, var_c23408, pd96);
                        };
                     };
                  if ((var_c23440 == 0)) {
                     goto lab_L100025;
                     };
                  if (((* (( (ptr) var_c23440)+6) ) == 0)) {
                     goto lab_L100025;
                     };
                  (void) XR_RaiseError(XR_NarrowFault, 0);
                  lab_L100025: ;
                  var_c23344 = var_c23440;
                  };
               newBand_v9020 = var_c23344;
               readBand_v9048 = var_c23344;
               };
SOURCE(11750, 162)
            if ((band_v8948 != 0)) {
SOURCE(11771, 46)
               {
                  W2 var_c23472;
                  var_c23472.f0 = 0;
                  var_c23472.f1 = 0;
                  {
                     word pd97;
                     pd97 = (* (( (ptr) (* (( (ptr) gf_c24240)+56)/* var_c21872 */  ))+50) );
                     (void) ( *( (fPt) ((*  (ptr) pd97 ))))(newBand_v9020, band_v8948, var_c23472, 0, pd97);
                     };
                  };
SOURCE(11819, 93)
               {
                  word var_c23600;
                  {
                     W4 var_c23536;
                     word map_v20800;
                     word var_c23504;
                     map_v20800 = band_v8948;
                     var_c23536 = (*  (W4Pt) map_v20800 );
                     var_c23504 = var_c23536.f2;
                     {
                        W4 var_c23568;
                        var_c23568.f0 = var_c23504;
                        var_c23568.f1 = 0;
                        var_c23568.f2 = 2147483647;
                        var_c23568.f3 = 2147483647;
                        {
                           word pd98;
                           pd98 = (* (( (ptr) (* (( (ptr) gf_c24240)+56)/* var_c21872 */  ))+27) );
                           var_c23600 = (word) ( *( (fPt) ((*  (ptr) pd98 ))))(readBand_v9048, var_c23568, pd98);
                           };
                        };
                     };
                  if ((var_c23600 == 0)) {
                     goto lab_L100027;
                     };
                  if (((* (( (ptr) var_c23600)+6) ) == 0)) {
                     goto lab_L100027;
                     };
                  (void) XR_RaiseError(XR_NarrowFault, 0);
                  lab_L100027: ;
                  readBand_v9048 = var_c23600;
                  };
               };
SOURCE(11917, 14)
            band_v8948 = newBand_v9020;
SOURCE(11941, 272)
            {
               W3 block_v9092;
               word bytes_v9120;
SOURCE(11943, 52)
               (void) GetUnsafeBlock_P720((word) &block_v9092, readBand_v9048);
SOURCE(11997, 45)
               {
                  word pd99;
                  pd99 = (* (( (ptr) (* (( (ptr) gf_c24240)+59)/* var_c23632 */  ))+14) );
                  bytes_v9120 = (word) ( *( (fPt) ((*  (ptr) pd99 ))))(source_v6664, block_v9092, pd99);
                  };
SOURCE(12044, 164)
               if (( (int)bytes_v9120 <  (int)block_v9092.f2)) {
SOURCE(12074, 67)
                  {
                     W4 var_c23664;
                     word map_v20752;
                     word var_c0254;
                     map_v20752 = readBand_v9048;
                     var_c23664 = (*  (W4Pt) map_v20752 );
                     var_c0254 = var_c23664.f0;
                     {
                        word idx100;
                        sSize_v6440 = (
                           idx100 = (word) (var_c0254 + IOP2( / ,  (int)IOP2( * ,  (int)bytes_v9120,  (int)8),  (int)bitsPerLine_v8892)),
                           SGNCK(idx100)
                           );
                        };
                     };
                  box_v8976.f2 = sSize_v6440;
SOURCE(12143, 65)
                  {
                     word var_c23728;
                     {
                        W4 var_c23696;
                        var_c23696.f0 = 0;
                        var_c23696.f1 = 0;
                        var_c23696.f2 = sSize_v6440;
                        var_c23696.f3 = fSizeBand_v8836;
                        {
                           word pd101;
                           pd101 = (* (( (ptr) (* (( (ptr) gf_c24240)+56)/* var_c21872 */  ))+27) );
                           var_c23728 = (word) ( *( (fPt) ((*  (ptr) pd101 ))))(band_v8948, var_c23696, pd101);
                           };
                        };
                     if ((var_c23728 == 0)) {
                        goto lab_L100029;
                        };
                     if (((* (( (ptr) var_c23728)+6) ) == 0)) {
                        goto lab_L100029;
                        };
                     (void) XR_RaiseError(XR_NarrowFault, 0);
                     lab_L100029: ;
                     band_v8948 = var_c23728;
                     };
                  };
               };
SOURCE(12216, 167)
            (void) DrawInterleavedImage_P660(device_v6412, band_v8948, samplesPerPixel_v6524, box_v8976, co_v6636, pixelToView_v6580
               , viewToDevice_v6608);
            };
         goto lab_L100024;
         lab_L100023: ;
SOURCE(12394, 41)
         {
            word pd102;
            pd102 = (* (( (ptr) (* (( (ptr) gf_c24240)+56)/* var_c21872 */  ))+23) );
            (void) ( *( (fPt) ((*  (ptr) pd102 ))))(bandStore_v8920, pd102);
            };
         };
      };
   }

/* file: ImagerImageWorksImpl, module: ImagerImageWorksImpl, compiled at: July 28, 1993 10:19:34 am PDT */ 
extern void XR_install_ImagerImageWorksImpl() {
   NoName_Q2424();
   }
extern void XR_run_ImagerImageWorksImpl() { XR_Start(&globalframe); }