i n 1 : a " - A pX " , b " - A pY " 
 
 i n 1 : e " - B pX " , f " - B pY " 
 
 p o l ( e - a , f - b ) 
 
 t = j 
 
 i n 1 : x " - [KmpX " , y " - [KmpY " , h " - [KmpH " 
 
 p o l ( x - a , y - b ) 
 
 r e c ( i , j - t ) 
 
 o u t : l " - ihS" , g " - t~OP]" 
 
 l = i 
 
 g = j 
 
 p o l ( h - 7 6 . 3 , l ) 
 
 r e c ( i , j - a d m s ( 5 . 4 2 3 8 ) ) 
 
 o u t : m " - eݍ" , n " - ݍbؚ^" 
 
 m = j 
 
 n = i 
 
 s a v e : x , y , h , l , h , m , n 