% program IMAGMOUS1 displays image & allows mouse to give paramters variables
% if not already set, get arbitrary points from this image using the mouse
% D. Bakewell Tu/4/5/1999
fpoint2 = 2;
while fpoint2 == 2;
	imshow(rotimag)
   hold on
   truesize
	x = [];
   y = [];
   n = 0;
   switch fauto
   	case 1
        	mp=input('choose no. electrode + gap periods = ')
      case 2
      	mp=invar(6)   
   	end % end switch fauto      
	edgpnts=round(2*mp + 2);
   switch fauto
   case 1
      	message=['Please place cursor X consequitively on electrd edges & CLICK']
         for n=1:1:edgpnts;
         	[xi,yi] = ginput(1);
         	plot(xi,yi,'c+','EraseMode','none')
         	x(n)=xi;
         	y(n)=yi;
      	end % end for
      	fpoint2 = menu('last point: satsfid wth selections?','Yes','No');
    	case 2
         offset=7
         ed=1:1:edgpnts;
         edoff=offset+1:1:edgpnts+offset
         y(ed)=invar(edoff)
         fpoint2=1
	end % end switch fauto   
end % end fpoint2 while