-
-puts "========================"
-puts "OCC137"
-puts "========================"
-###############################################################
-#Patch description:
-#
-#MIT010717 : 3D selection management
-#>>> MIT010717 : Selection management
-#
-# * Package OpenGl (OpenGl_execstruct.c)
-#
-# @ Avoid drawing quality problem on selected face,
-# enable/disable Z offset on highlighted faces.
-#
-#>>> MIT010717 : drawing management
-#
-# * Package OpenGl (OpenGl_indexpolygon.c, ...)
-#
-# @ Avoid to undraw faces with confused points
-###############################################################
-puts "========================"
-
-vinit
-box b 10 10 10
-vdisplay b
-vfit
-vsetdispmode 1
-
-puts "Only bottom face should be highlighted."
-
-vselmode 4 1
-
-OCC137 1
-OCC137_z
-
-set x_coord 105
-set y_coord 350
-
-vmoveto $x_coord $y_coord
-
-set x_coord 105
-set y_coord 340
-
-checkcolor $x_coord $y_coord 0 1 1
-
-set x_coord 105
-set y_coord 340
-vviewparams 60.6309 7.07107 4.08248 0.592163 -0.60038 -0.537482 0.369921 -0.390032 0.843228 -3.28175 3.38875 3.0464
-
-checkcolor $x_coord $y_coord 0.78 0.54 0.09
-
-set only_screen 1
+\r
+puts "========================"\r
+puts "OCC137"\r
+puts "========================" \r
+###############################################################\r
+#Patch description:\r
+#\r
+#MIT010717 : 3D selection management\r
+#>>> MIT010717 : Selection management \r
+#\r
+# * Package OpenGl (OpenGl_execstruct.c) \r
+#\r
+# @ Avoid drawing quality problem on selected face, \r
+# enable/disable Z offset on highlighted faces. \r
+#\r
+#>>> MIT010717 : drawing management \r
+#\r
+# * Package OpenGl (OpenGl_indexpolygon.c, ...) \r
+#\r
+# @ Avoid to undraw faces with confused points \r
+###############################################################\r
+puts "========================"\r
+\r
+vinit\r
+box b 10 10 10\r
+vdisplay b\r
+vfit\r
+vsetdispmode 1\r
+\r
+puts "Only bottom face should be highlighted."\r
+\r
+vselmode 4 1\r
+\r
+OCC137 1\r
+OCC137_z\r
+\r
+set x_coord 105\r
+set y_coord 348\r
+\r
+vmoveto $x_coord $y_coord\r
+\r
+set x_coord 105\r
+set y_coord 340\r
+\r
+checkcolor $x_coord $y_coord 0 1 1\r
+\r
+set x_coord 105\r
+set y_coord 340\r
+vviewparams 60.6309 7.07107 4.08248 0.592163 -0.60038 -0.537482 0.369921 -0.390032 0.843228 -3.28175 3.38875 3.0464\r
+\r
+checkcolor $x_coord $y_coord 0.78 0.54 0.09\r
+ \r
+set only_screen 1\r