(FILECREATED "18-JAN-83 18:35:30" ("compiled on " {PHYLUM}ORB>WDBFNS.;9) "11-JAN-83 09:58:59" recompiled exprs: DISPLAYRAWBINMAP DISPLAYRAWBINSEGMENT in WORK dated "11-JAN-83 10:11:14") (FILECREATED "18-JAN-83 18:34:01" {PHYLUM}ORB>WDBFNS.;9 23602 changes to: (VARS WDBFNSCOMS) ( FNS DISPLAYRAWBINMAP DISPLAYRAWBINSEGMENT RAWDATATORAWBINARYDATA RAWTOBIN.ONE.SEGMENT \FLIN \FLOUT DISPLAYHEADERBOX DISPLAYMAPBOXES DISPLAYSEGMENT SCALEDOWN LONTO31 TOLON DISPLAYMAP DISPLAYNEXTSEGMENTPART DISPLAYLLSEG) previous date: "28-DEC-82 11:08:43" {PHYLUM}ORB>WDBFNS.;4 ) DISPLAYMAP D1 (P 7 MAXLON P 6 MAXLAT P 5 MINLON P 4 MINLAT P 3 YFACTOR P 2 XFACTOR P 1 POINTSTREAM P 0 HEADERSTREAM I 3 BBOX I 2 WINDOW I 1 POINTFILE I 0 HEADERFILE) @ @g A Ag bHj Ij B h@ g bCm \CmL ]ClZ ^Cl _NLBg [OMBg ZH HIBJKLMNO h(237Q DISPLAYSEGMENT 217Q EOFP 211Q GETWINDOWPROP 174Q GETWINDOWPROP 160Q LONTO31 143Q LATTO31 127Q LONTO31 114Q LATTO31 100Q CREATEW 75Q LISTGET 67Q UNPACKFILENAME 60Q WINDOWP 54Q SETFILEPTR 47Q SETFILEPTR 37Q \GETOFD 34Q OPENFILE 23Q OPENP 17Q \GETOFD 14Q OPENFILE 3 OPENP) (206Q WIDTH 171Q HEIGHT 72Q NAME 31Q INPUT 11Q INPUT) NIL DISPLAYSEGMENT D1 (P 15Q I P 13Q INCRYFACTOR P 12Q INCRXFACTOR P 11Q FIRSTLON P 10Q FIRSTLAT P 7 SMAXLON P 6 SMAXLAT P 5 SMINLON P 4 SMINLAT P 3 SEGRANK P 2 NPTS P 1 FILEPOS P 0 HEADERBYTELENGTH I 10Q BOXMAXLON I 7 BOXMAXLAT I 6 BOXMINLON I 5 BOXMINLAT I 4 YFACTOR I 3 XFACTOR I 2 WINDOW I 1 POINTFILE I 0 HEADERFILE)  l@ @ @  @ \G@ ]GE@ ^F@ _o Ad J @IH J@ _@ _FC OED B C_D_Jk OOABOO Ok_h(223Q DISPLAYNEXTSEGMENTPART 156Q MOVETO 152Q SCALEDOWN 143Q SCALEDOWN 134Q BIN31 126Q BIN31 120Q SETFILEPTR 110Q SETFILEPTR 103Q GETFILEPTR 75Q DF 61Q BIN31 51Q BIN31 36Q BIN31 24Q BIN31 15Q BIN16 11Q BIN16 5 GETFILEPTR) NIL (72Q (DISPLAYSEGMENT)) SCALEDOWN D1 (L (2 CONVFACTOR 1 ORIGIN 0 N)) @ABjNIL NIL NIL DISPLAYNEXTSEGMENTPART D1 (P 1 DELTAX P 0 DELTAY I 3 YFACTOR I 2 XFACTOR I 1 W I 0 PTFILE) @ @ IBHChdA (27Q RELDRAWTO 7 INT16 3 INT16) NIL NIL LATTO31 D1 (L (0 LAT)) @oojNIL NIL (11Q 11930470.0 4 90.0) LONTO31 D1 (I 0 LON) @l @ooj@oj(5 FGTP) NIL (31Q 26602660Q 20Q 26602660Q 13Q 360.0) TOLAT D1 (L (0 31BITN)) @ooNIL NIL (11Q 90.0 4 11930470.0) TOLON D1 (P 0 LONG I 0 31BITN) @oHo HoH(20Q FGTP) NIL (26Q 360.0 15Q 180.0 4 26602660Q) INT16 D1 (I 0 OFD) @ dno(3 BIN16) NIL (15Q 200000Q) BIN16 D1 (I 0 OFD) @ @ (10Q BIN 3 BIN) NIL NIL BIN31 D1 (P 0 FIRSTHALF I 0 OFD) !@ HHkj@ @ n(30Q BIN16 22Q BIN16 3 BIN16) NIL NIL RDSEGHEADER D1 (I 0 OFD) ?@ @ @ @ @ @ h@ @ h(66Q TOLON 63Q BIN31 57Q TOLAT 54Q BIN31 43Q TOLON 40Q BIN31 34Q TOLAT 31Q BIN31 25Q TOLON 22Q BIN31 16Q TOLAT 13Q BIN31 7 BIN16 3 BIN16) NIL NIL DISPLAYMAPBOXES D1 (P 7 MAXLON P 6 MAXLAT P 5 MINLON P 4 MINLAT P 3 YFACTOR P 2 XFACTOR P 1 POINTSTREAM P 0 HEADERSTREAM I 3 BBOX I 2 WINDOW I 1 POINTFILE I 0 HEADERFILE) @ @g A Ag bHj Ij B h@ g bCm \CmL ]ClZ ^Cl _Bg CoCo\oj[Bg jCoCo]oZH HIBJKLMNO h(320Q DISPLAYHEADERBOX 300Q EOFP 235Q GETWINDOWPROP 171Q GETWINDOWPROP 160Q LONTO31 143Q LATTO31 127Q LONTO31 114Q LATTO31 100Q CREATEW 75Q LISTGET 67Q UNPACKFILENAME 60Q WINDOWP 54Q SETFILEPTR 47Q SETFILEPTR 37Q \GETOFD 34Q OPENFILE 23Q OPENP 17Q \GETOFD 14Q OPENFILE 3 OPENP) (232Q WIDTH 166Q HEIGHT 72Q NAME 31Q INPUT 11Q INPUT) (271Q 5965233.0 263Q -180.0 252Q 180.0 221Q 11930470.0 213Q -90.0 203Q 90.0) DISPLAYHEADERBOX D1 (P 13Q INCRYFACTOR P 12Q INCRXFACTOR P 11Q FIRSTLON P 10Q FIRSTLAT P 7 SMAXLON P 6 SMAXLAT P 5 SMINLON P 4 SMINLAT P 3 SEGRANK P 2 NPTS P 1 FILEPOS P 0 HEADERBYTELENGTH I 10Q BOXMAXLON I 7 BOXMAXLAT I 6 BOXMINLON I 5 BOXMINLAT I 4 YFACTOR I 3 XFACTOR I 2 WINDOW I 1 POINTFILE I 0 HEADERFILE) o l@ @ @  @ \@ ]@ ^@ _@ _@ _hddBMFC LED OMCNLDggn h(153Q BITBLT 123Q SCALEDOWN 115Q SCALEDOWN 101Q TOLON 76Q BIN31 70Q TOLAT 65Q BIN31 57Q TOLON 54Q BIN31 47Q TOLAT 44Q BIN31 37Q TOLON 34Q BIN31 27Q TOLAT 24Q BIN31 15Q BIN16 11Q BIN16 5 GETFILEPTR) (144Q PAINT 141Q TEXTURE) NIL DISPLAYLLSEG D1 (P 5 BOXMAXLON P 4 BOXMAXLAT P 3 BOXMINLON P 2 BOXMINLAT P 1 YFACTOR P 0 XFACTOR I 5 BBOX I 4 WINDOW I 3 SECONDLON I 2 SECONDLAT I 1 FIRSTLON I 0 FIRSTLAT F 6 MINLAT F 7 MINLON F 10Q MAXLAT F 11Q MAXLON) `D h bEm c EmL cElZ cEl cWVDg XWWDg YA WI @ VH C WI B VH hdD h(210Q DRAWLINE 201Q SCALEDOWN 174Q LATTO31 170Q SCALEDOWN 162Q LONTO31 156Q SCALEDOWN 151Q LATTO31 145Q SCALEDOWN 137Q LONTO31 131Q GETWINDOWPROP 113Q GETWINDOWPROP 76Q LONTO31 60Q LATTO31 43Q LONTO31 27Q LATTO31 13Q CREATEW 6 WINDOWP) (126Q HEIGHT 110Q WIDTH) NIL RAWDATATORAWBINARYDATA D1 (P 1 OUTSTREAM P 0 INSTREAM I 1 OUTPUTFILE I 0 RAWDATAFILE) [@ @g Agg@  Ig Ig YHj Ij H H HI I (130Q CLOSEF 121Q RAWTOBIN.ONE.SEGMENT 113Q EOFP 106Q SKIPSEPRS 102Q SETFILEPTR 75Q SETFILEPTR 67Q \GETOFD 64Q OPENFILE 53Q OPENP 41Q PACKFILENAME 34Q UNPACKFILENAME 17Q \GETOFD 14Q OPENFILE 3 OPENP) (61Q OUTPUT 50Q OUTPUT 30Q BINMAP 25Q EXTENSION 11Q INPUT) NIL RAWTOBIN.ONE.SEGMENT D1 (P 3 I P 1 RANK P 0 NPTS I 1 OUTSTRM I 0 INSTRM) p@ @ H=oH IoI HllkKJ+hjnIAI jAH AHl A@ Kk[(147Q \FLOUT 144Q READ 135Q BOUT 124Q BOUT 110Q BOUT 45Q HELP 27Q HELP 7 READ 3 READ) NIL (41Q "incorrect rank" 23Q "incorrect number of points in segment") \FLIN D1 (I 1 OLDFLOATBOX I 0 STRM F 0 \FLOATP) 7A'PbAj@ Ak@ Al@ Al@ AoA (63Q HELP 44Q BIN 34Q BIN 24Q BIN 15Q BIN) NIL (57Q "not floating point number") \FLOUT D1 (I 1 FLN I 0 STRM) .AoA @Aj @Ak @Al @Al A(52Q BOUT 42Q BOUT 32Q BOUT 23Q BOUT 13Q HELP) NIL (7 "not floating point number") DISPLAYRAWBINMAP D1 (P 6 MAXLON P 5 MAXLAT P 4 MINLON P 3 MINLAT P 2 PIXELSPERLAT P 1 PIXELSPERLON P 0 INSTREAM I 2 BBOX I 1 W I 0 BINRAWFILE) @ @g aHj A h@ g bBm[BmL\BlZ]Bl^Ag MKZAg NLYH HAIJKLMN h(171Q DISPLAYRAWBINSEGMENT 154Q EOFP 143Q GETWINDOWPROP 127Q GETWINDOWPROP 53Q CREATEW 50Q LISTGET 42Q UNPACKFILENAME 33Q WINDOWP 27Q SETFILEPTR 17Q \GETOFD 14Q OPENFILE 3 OPENP) (140Q WIDTH 124Q HEIGHT 45Q NAME 11Q INPUT) NIL DISPLAYRAWBINSEGMENT D1 (P 11Q I P 7 NEXTLAT P 6 SMAXLON P 5 SMAXLAT P 4 SMINLON P 3 SMINLAT P 2 SEGRANK P 1 NPTS P 0 FILEPOS I 7 BOXMAXLON I 6 BOXMAXLAT I 5 BOXMINLON I 4 BOXMINLAT I 3 PPLAT I 2 PPLON I 1 WINDOW I 0 INSTRM) w @ @ @ S@ [@ \@ ]@ ^@ _@ EB ODC A Ikk OO+@ _@ EB ODC JgA Ok_h(152Q DRAWTO 141Q SCALEDOWN 132Q SCALEDOWN 125Q \FLIN 116Q \FLIN 74Q MOVETO 70Q SCALEDOWN 61Q SCALEDOWN 54Q \FLIN 46Q \FLIN 41Q \FLIN 34Q \FLIN 27Q \FLIN 22Q \FLIN 13Q BIN 7 BIN16 3 GETFILEPTR) (145Q PAINT) NIL (PRETTYCOMPRINT WDBFNSCOMS) (RPAQQ WDBFNSCOMS ((FNS DISPLAYMAP DISPLAYSEGMENT SCALEDOWN DISPLAYNEXTSEGMENTPART) (RECORDS BOUNDINGBOX HEADER) (COMS (* conversion functions for preprocessed data format.) (FNS LATTO31 LONTO31 TOLAT TOLON) (* misc numeric io functions) (FNS INT16 BIN16 BIN31) (* debugging functions.) (FNS RDSEGHEADER DISPLAYMAPBOXES DISPLAYHEADERBOX DISPLAYLLSEG) (* functions for converting the raw data into binary form.) (FNS RAWDATATORAWBINARYDATA RAWTOBIN.ONE.SEGMENT \FLIN \FLOUT) (FNS DISPLAYRAWBINMAP DISPLAYRAWBINSEGMENT)))) (RECORD BOUNDINGBOX (MINLAT MINLON MAXLAT MAXLON)) (RECORD HEADER (#POINTS SEGRANK BOUNDINGBOX INITLAT INITLON)) (PUTPROPS WDBFNS COPYRIGHT ("Xerox Corporation" 1982 1983)) NIL