
!distribute item $pm into l_,x_,y_

n_=!line $l_ of $lines
!distribute item $n_ into a_,b_,c_,d_,s_,C_
!if $s_!=1
 !exit
!endif
d1=$[abs($x_-($a_))+abs($y_-($b_))]
d2=$[abs($x_-($c_))+abs($y_-($d_))]
D_=$[abs($a_-($c_))+abs($b_-($d_))]
!if $d1>$d2 and $d1>$D_
 lines=!replace line number $l_ by $a_,$b_,$x_,$y_,1,$C_ in $lines
 !exit
!endif
!if $d2>$d1 and $d2>$D_
 lines=!replace line number $l_ by $x_,$y_,$c_,$d_,1,$C_ in $lines
 !exit
!endif

