$n=<>; for(1..$n){ $q=0; ($t,$p,$w,$v,$gx,$gy)=glob<>; $v+=1; $r=sqrt($v*$v+$w*$w); if($r==1){ $z=$t; }else{ $z=($r**$t-1)/($r-1); } $a=atan2($w,$v); { $c=cos($a*$t); $s=sin($a*$t); $dx=($gx-$c*$r**$t)/$z; $dy=($gy-$s*$r**$t)/$z; } for(0..$t-1){ $c=cos($a*($_-($t-1))); $s=sin($a*($_-($t-1))); $x=$dx*$c-$dy*$s; $y=$dx*$s+$dy*$c; print $x," ",$y,"\n"; } }