+
+//static Rect islandnamer;
+
+void find_islandname(void) {
+ Rect sunshiner;
+ char sunshine[MAXIMGIDENT], archisland[MAXIMGIDENT];
+ const RgbImage *ri= page0_rgbimage;
+
+ 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);
+
+ 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");
+ }
+
+}