($xa,$ya,$ta)=glob<>; ($x11,$y11)=glob<>; ($x12,$y12)=glob<>; ($x21,$y21)=glob<>; ($x22,$y22)=glob<>; $pi=atan2(0,-1); $d1y=$y12-$y11; $d1x=$x12-$x11; $a1=atan2($d1y,$d1x); $d2y=$y22-$y21; $d2x=$x22-$x21; $a2=atan2($d2y,$d2x); $t=$a1-$a2; $s=sin($t); $c=cos($t); $x=$xa-$x21; $y=$ya-$y21; $xb=$x*$c-$y*$s+$x11; $yb=$x*$s+$y*$c+$y11; print $xb,$",$yb,$",$ta+$t*180/$pi;