+
+//static Rect islandnamer;
+
+void find_islandname(void) {
+ Rect sunshiner;
+ char sunshine[MAXIMGIDENT], archisland[MAXIMGIDENT];
+
+ RgbImage *ri= alloc_rgb_image(page0_rgbimage->w, page0_rgbimage->h);
+ const unsigned char *srcp;
+ unsigned char *destp, *endp;
+ for (srcp=page0_rgbimage->data, destp=ri->data,
+ endp= ri->data + 3 * ri->w * ri->h;
+ destp < endp;
+ srcp++, destp++) {
+ unsigned char c= *srcp & 0xf0;
+ *destp= c | (c>>4);
+ }
+
+ cim= page_images[0];
+
+ sunshiner.tl.x= cim->w - 1034 + 885;
+ sunshiner.br.x= cim->w - 1034 + 1020;
+ sunshiner.tl.y= 227;
+ sunshiner.br.y= 228;
+
+ ADJUST_BOX(sunshiner,"o*",30, 100,MUST, tl,y,-1);
+ ADJUST_BOX(sunshiner,"o*",30, 100,MUST, br,y,+1);
+ debug_rect("sunshiner",0, sunshiner);
+
+ MUST(sunshiner.br.y - sunshiner.tl.y > 20, MR(sunshiner));
+ sunshiner.br.y--;
+
+ ADJUST_BOX(sunshiner,"o",20, (cim->w - 1034 + 700), MUST, tl,x,-1);
+ ADJUST_BOX(sunshiner,"o",20, cim->w, MUST, br,x,+1);
+ debug_rect("sunshiner",1, sunshiner);
+
+ identify_rgbimage(ri, sunshiner, sunshine, "sunshine widget");
+ fprintf(stderr,"sunshine: `%s'\n",sunshine);
+
+ if (!memcmp(sunshine,"Ship ",5)) {
+ Rect islandnamer;
+
+ islandnamer.tl.x= cim->w - 1034 + 885;
+ islandnamer.br.x= cim->w - 1034 + 1020;
+ islandnamer.tl.y= 128;
+ islandnamer.br.y= 156;
+
+#define IR_VSHRINK_MUST(CONDMUST,PRWHY) \
+ do{ if (!(CONDMUST)) goto not_in_radar; }while(0)
+
+ ADJUST_BOX(islandnamer,"o",5, 0, IR_VSHRINK_MUST, tl,y,+1);
+ ADJUST_BOX(islandnamer,"o",5, cim->h, IR_VSHRINK_MUST, br,y,-1);
+
+ debug_rect("islandnamer",0, islandnamer);
+// int larger_islandnamebry= islandnamer.tl.y + 25;
+// MUST(islandnamer.br.y < larger_islandnamebry,
+// MR(islandnamer);MI(larger_islandnamebry));
+// islandnamer.br.y = larger_islandnamebry;
+ debug_rect("islandnamer",1, islandnamer);
+
+ int x,y,i;
+ for (x=islandnamer.tl.x; x<=islandnamer.br.x; x++)
+ for (y=islandnamer.tl.y; y<=islandnamer.br.y; y++) {
+ if (RI_PIXEL(ri,x,y)[0] < 0x40) {
+ for (i=0; i<3; i++) {
+ RI_PIXEL(ri,x,y)[i]= 0;
+ }
+ }
+ }
+
+ identify_rgbimage(ri, islandnamer, archisland, "island");
+ fprintf(stderr,"radar: `%s'\n",archisland);
+
+ assert(!"radar ok");
+
+ not_in_radar:
+ assert(!"not in radar?");
+ } else {
+ assert(!"not vessel");
+ }
+
+ free(ri);
+}