Advertisement
ChristophX86

Calculate Pixel Distance

Jul 8th, 2012
122
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 0.27 KB | None | 0 0
  1. Func _CalculatePixelDistance($x1, $y1, $z1=0, $x2=0, $y2=0, $z2=0)
  2.     Local $x, $y, $z, $d
  3.     If ($x2 = $x1) And ($y2 = $y1) And ($z1 = $z2) Then
  4.         Return 0
  5.     Else
  6.         $x = $x2 - $x1
  7.         $y = $y2 - $y1
  8.         $z = $z2 - $z1
  9.         $d = Sqrt($x^2 + $y^2 + $z^2)
  10.         Return $d
  11.     EndIf
  12. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement