function sss1asp(n,m,nres,zerosize)
% SSS1ASP, Function for SSS1, this overlays all 0's, on the current image.
% Intended to be used by SSS1, when the Effective Sample Size is
% nowhere large enough.
% Inputs:
% n - number of rows in image
% m - number of columns in image
% nres - resolution of SSS symbols: (called ivitype(2) in sss1.m)
% 1 - 1x1 single pixels
% 2 - 2x2 blocks
% zerosize - Size of Zeros to Plot
% Outputs:
% Only graphics added to current axes.
% Copyright (c) J. S. Marron 1999
if nres == 1 ; % then are working with single pixels
i0cent = vec2mat((1:n),m) ;
j0cent = vec2mat((1:m)',n) ;
elseif nres == 2 ; % then are working with 2x2 blocks
mo2 = floor(m / 2) ;
no2 = floor(n / 2) ;
i0cent = reshape((1:(2*no2))',2,no2)' ;
i0cent = mean(i0cent') ;
% midpoints of 2 x 2 blocks
i0cent = vec2mat(i0cent,mo2) ;
i0cent = reshape(i0cent,no2*mo2,1) ;
j0cent = reshape((1:(2*mo2))',2,mo2)' ;
j0cent = mean(j0cent') ;
% midpoints of 2 x 2 blocks
j0cent = vec2mat(j0cent',no2) ;
j0cent = reshape(j0cent,no2*mo2,1) ;
end ;
i0cent = reshape(i0cent,size(i0cent,1)*size(i0cent,2),1) ;
j0cent = reshape(j0cent,size(j0cent,1)*size(j0cent,2),1) ;
hold on ; % overlay 0's where sample size is small
plot(j0cent,i0cent,'go') ;
vachil = get(gca,'Children') ;
set(vachil(1),'MarkerSize',zerosize) ;
hold off ;