rDistance:=SQRT((P_1.x-P_0.x)*(P_1.x-P_0.x) + (P_1.y-P_0.y)*(P_1.y-P_0.y));