
\startuniqueMPgraphic{Rail}
	path p[];
	pair Pkt[];
	
	p[100] := unitsquare xscaled 15mm yscaled 50mm;
	p[101] := (lrcorner p[100]--urcorner p[100]) shifted (-5mm,0) ;
	
	Pkt[1] := point 1.2 of p[100];
	Pkt[2] := point 1.8 of p[100];
	
	p[102] := Pkt[1]--dir(194)*10mm;
	
	Pkt[3] := p[102] intersectionpoint p[101];
	
	p[103] := Pkt[2]--dir(166)*10mm;
	
	Pkt[4] := p[103] intersectionpoint p[101];
	
	p[104] := lrcorner p[100]--Pkt[1]--Pkt[3]--Pkt[4]--Pkt[2]--urcorner p[100];
	
	draw p[104];
	
	draw p[100];
	draw p[101] dashed withdots;

	for i = 1 upto 4 :
	 draw Pkt[i] withpen pencircle scaled 3pt withcolor red;
  endfor;
	
	label.lft(textext("Pkt 2"),Pkt[3]);
	label.lft(textext("Pkt 4"),Pkt[4]);
	label.rt(textext("Pkt 1"), Pkt[1]);
	label.rt(textext("Pkt 2"), Pkt[2]);
\stopuniqueMPgraphic

\startTEXpage

	\useMPgraphic{Rail}

\stopTEXpage