sub getPos{
	($x,$y,$s)=@_;($d=$x+$y)*($d++)/2
	+($d%2?$y:$x)-($d>$s)*($d-$s)**2
}