%
% ground.m
%
function ground(c,orient)
plot(c(1)+[-.5 .5],c(2)+[0 0],'k','linewidth',2)
hold on
plot(c(1)+[-.35 .35],c(2)-.15*[1 1],'k','linewidth',2)
plot(c(1)+[-.2 .2],c(2)-.3*[1 1],'k','linewidth',2)
if strcmp(orient,'v')    
  rand
else
   rand
end
axis equal
return