$n=<>; for(1..$n){ ($t,$p,$w,$v,$gx,$gy)=glob<>; $v+=1; $r=sqrt($v*$v+$w*$w); if($r==1){ $r=$r*$t; }else{ $r=($r**$t-1)/($r-1); } $a=atan2($w,$v); $dx=$gx/$r; $dy=$gy/$r; 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"; } }