add Normalize() -- sort rect coordinares

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6354 8c9fc860-2736-0410-a75d-ab315db34111

source/WMRectangles.Mod

@@ -98,4 +98,21 @@ TYPE
 		RETURN t
 	END ResizeRect;
 
+	PROCEDURE Normalize*(VAR rect: Rectangle);
+	VAR
+		temp: LONGINT;
+	BEGIN
+		IF rect.l > rect.r THEN
+			temp := rect.l;
+			rect.l := rect.r;
+			rect.r := temp;
+		END;
+
+		IF rect.t > rect.b THEN
+			temp := rect.t;
+			rect.t := rect.b;
+			rect.b := temp;
+		END;
+	END Normalize;
+
 END WMRectangles.