% open LADCP windows spread over the dislay

%

% test how large the dislay is

if (get(0, 'screensize') == [1 1 1 1])  % No Display

   return

end

dis.child=get(0,'children');

if length(dis.child)>0

	disp(' found windows, >>close all, will clear all windows ')

        for n=1:length(dis.child)

         figure(dis.child(n)), clf

        end

        pause(0.01)

else

  dis.screensize=get(0,'screensize');

  dis.dy=20;

  dis.dxmul=1;

  dis.dymul=1;

  dis.dxf=[1.5 2];

  if dis.screensize(3)>dis.screensize(4)*2

 % wide screen 2nd monitor?

   disp(' detected wide screen or 2nd monitor')

   dis.dxmul=3/4.5;

   dis.dy=80;

   dis.dxf=[2 2.7];

  end

  if dis.screensize(3)<dis.screensize(4)

 % tall screen 2nd monitor?

   disp(' detected tall screen or 2nd monitor')

   dis.dxmul=1.2;

   dis.dymul=0.7;

   dis.dy=30;

   dis.dxf=[1.5 2];

  end

% put them on the right hand side

   dis.windowdx=fix(dis.screensize(3)/3*dis.dxmul);

   dis.windowdxs=fix(dis.screensize(3)/4*dis.dxmul);

   dis.windowdys=fix(dis.screensize(4)/3*dis.dymul);

   dis.windowdym=fix(dis.screensize(4)/2*dis.dymul);

   dis.windowdyl=fix(dis.screensize(4)/1.5*dis.dymul);

% 

  dis.large=[1];

  dis.medium=[2,4];

  dis.small=[3,5:10,12:13];

  dis.warn=11;

% 

  dis.x0=(dis.screensize(3)-dis.windowdx-2);

  dis.x1=(dis.screensize(3)-dis.dxf(1)*dis.windowdx);

  dis.x2=(dis.screensize(3)-dis.dxf(2)*dis.windowdx);

  dis.Y0=dis.screensize(4)-80;

  dis.Y=dis.Y0-dis.windowdys;

  for n=1:length(dis.small)

	 figure(dis.small(n));

	 set(dis.small(n),'Position',...

	     [dis.x2 dis.Y dis.windowdxs dis.windowdys]);

         dis.Y=dis.Y-dis.dy;

  end

  dis.Y=dis.Y0-dis.windowdym;

  for n=1:length(dis.medium)

	 figure(dis.medium(n));

	 set(dis.medium(n),'Position',...

	     [dis.x1 dis.Y dis.windowdx dis.windowdym]);

         dis.Y=dis.Y-dis.dy*1.5; 

  end

  dis.Y=dis.Y0-dis.windowdyl;

  for n=1:length(dis.large)

	 figure(dis.large(n));

	 set(dis.large(n),'Position',...

	     [dis.x0 dis.Y dis.windowdx dis.windowdyl]);

         dis.Y=dis.Y-dis.dy*2;

  end

  dis.Y=dis.Y0-dis.windowdys;

  figure(dis.warn(1))

	 set(dis.warn(1),'Position',...

	     [50 dis.Y dis.windowdx dis.windowdys]);

end

pause(0.1)