i n 1 : a " - w{pX " , b " - w{pY " 
 
 i n 1 : c " - vhpX " , d " - vhpY " 
 
 o u t : i " - " , j " - eMO҉" 
 
 o u t : w " - eMO҉^Ry" 
 
 p o l ( c - a , d - b ) 
 
 j < 0 = > j = j + 3 6 0 
 
 w = i n t ( j ) + 0 . 0 1 * i n t ( 6 0 * f r a c ( j ) ) + 0 . 0 0 6 * f r a c ( 6 0 * f r a c ( j ) ) 