prologues := 3;

beginfig(1)
drawdot(0,30);
draw (0,0) -- (3,4);
draw (0,5) -- (3,4);
draw (0,5) -- (5,5);
endfig;

end