/********************************/
/*	overlays valdes 8 30 82	*/
/*				*/
/*	Image overlay		*/
/********************************/
#include	"focas1.h"
#include	"iisfv.h"

/*Put isophote overlay in window*/
iisispht (window, p, o, a, res, color)
int     window;
struct image   *p;
struct objrec  *o;
struct areas   *a;
int     res;
int     color;
{
    int     i, j, l, yi, t[4];
    float   red;
    char    flag;

/*
    if (iisdev == 3)
	color = 0;
*/

    if (res == 0) {
	res = 1;
	red = 1.;
    } else if (res < 0) {
	res = -res;
	red = 1. / res;
    } else {
	red = res;
	res = 1;
    }

    flag = iiswda[window].flag;
    iisflag (window, 2);
    for (i = p->dy - 1, l = 0; i >= 0; i--) {
	yi = a->i.ychst - p->y0 - i;
	if ((yi >= 0) && (yi < a->i.nlines)) {
	    for (; l < a->i.nx[yi]; l++) {
		t[0] = (a->i.xla[l] - p->x0) / red;
		t[2] = (a->i.xra[l] - p->x0) / red + res - 1;
		t[1] = t[3] = i / red;
		for (j = 0; j < res; j++) {
		    iisvec (window, t, color);
		    t[1]++;
		    t[3]++;
		}
	    }
	}
    }
    iisflag (window, flag);
}