$tl = _getTurnLine(45,2,2,0)
MsgBox(0,"",$tl[0] & "/" & $tl[1])



Func _getTurnLine($a,$x,$y,$m)
	local $turnLine[2]
	$deg = 4*Atan(1) / 180
	$angle = $a * $deg
	$turnLine[0] = tan($angle + ATan($m))
	$turnLine[1] = ($turnLine[0] * $x) - $y
	return $turnLine
EndFunc