prologues := 1;
  beginfig(1);
    numeric u; u := 1cm;
    %sizes
    numeric h, w, r;
    h = 4u;
    w = 4u;
    %Field
    for i := 0 step u until h: 
      draw(0, i)--(w, i);
    endfor;
    for i := 0 step u until w: 
      draw(i, 0)--(i, h);
    endfor;
    drawarrow(0, 0)--(w, 0)
      withpen pencircle scaled 2bp;
    drawarrow(0, 0)--(0, h)
      withpen pencircle scaled 2bp;
    label.rt(btex $X$ etex, (w, 0));
    label.top(btex $Y$ etex, (0, h));
    %boat
    for i := 0 step u until 2u:
        pair X;
        X := (i, u);    
        draw X--(X + (1u, 1u))
            withpen pencircle scaled 3bp withcolor red; 
        draw (X + (1u, 0))--(X + (0, 1u))
            withpen pencircle scaled 3bp withcolor red; 
    endfor;
    %shot
    pair A;
    A := (1.5u, 1.5u);
    draw A
      withpen pencircle scaled 5bp withcolor green; 
    draw fullcircle scaled 0.6cm shifted (1.5cm, 1.5cm) withcolor green withpen pencircle scaled 5bp ;
    %missed
    pair X, Y, Z;
    X := (3.5u, 1.5u);
    %Y := (0.5u, 1.5u);
    Z := (1.5u, 2.5u);
    draw X
      withpen pencircle scaled 7bp withcolor blue; 
    %draw Y
      %withpen pencircle scaled 7bp withcolor blue; 
    draw Z
      withpen pencircle scaled 7bp withcolor blue; 
    
  endfig;
end.    



