function [pp]=draw_proj(projVec, dpattern, clearmode)

if clearmode ~= 0,
  clf;
end

for i=1:size(projVec,1),
  if i==1,
     pp=plot(projVec(i,3), projVec(i,4), dpattern);
  else 
     plot(projVec(i,3), projVec(i,4), dpattern);
  end
  if i==1,
    hold on;
  end
end
return

