function disppage(strokes,thick,penc,linec)
% disppage(strokes,thick,penc,linec)

if(nargin<4) linec=[]; end
if(nargin<3) penc=[]; end
if(nargin<2) thick=[]; end
if(isempty(linec)) linec='-'; end
if(isempty(penc)) penc='y'; end
if(isempty(thick)) thick=1.5; end

clf; hold on;
for ii=1:length(strokes)
  hh=plot(strokes{ii}(1,:),strokes{ii}(2,:),linec);
  set(hh,'Color',penc);
  set(hh,'LineWidth',thick);
end

%axis([0 1600 0 2400]);
%set(gca,'Visible','off');
axis equal;