core, basis, extra: Remove DOS line endings from files.

[factor.git] / extra / gml / modeling / modeling.factor

diff --git a/extra/gml/modeling/modeling.factor b/extra/gml/modeling/modeling.factor
index da86c90fa72d3dbae3757eaea151f1f714a7e9a0..4fc9cc9b7370b30200d183769620e801d2511737 100644 (file)
--- a/extra/gml/modeling/modeling.factor
+++ b/extra/gml/modeling/modeling.factor
@@ -1,25 +1,25 @@
-! Copyright (C) 2010 Slava Pestov.\r
-USING: kernel sequences euler.modeling gml.runtime ;\r
-IN: gml.modeling\r
-\r
-GML: poly2doubleface ( poly mode -- edge )\r
-    {\r
-        smooth-smooth\r
-        sharp-smooth\r
-        smooth-sharp\r
-        sharp-sharp\r
-        smooth-like-vertex\r
-        sharp-like-vertex\r
-        smooth-continue\r
-        sharp-continue\r
-    } nth polygon>double-face ;\r
-\r
-GML: extrude-simple ( edge dist sharp -- edge ) extrude-simple ;\r
-\r
-GML: bridgerings-simple ( e1 e2 sharp -- edge ) bridge-rings-simple ;\r
-\r
-GML: project_ptline ( p p0 p1 -- q ) project-pt-line ;\r
-\r
-GML: project_ptplane ( p dir n d -- q ) project-pt-plane ;\r
-\r
-GML: project_polyplane ( [p] dir n d -- [q] ) project-poly-plane ;\r
+! Copyright (C) 2010 Slava Pestov.
+USING: kernel sequences euler.modeling gml.runtime ;
+IN: gml.modeling
+
+GML: poly2doubleface ( poly mode -- edge )
+    {
+        smooth-smooth
+        sharp-smooth
+        smooth-sharp
+        sharp-sharp
+        smooth-like-vertex
+        sharp-like-vertex
+        smooth-continue
+        sharp-continue
+    } nth polygon>double-face ;
+
+GML: extrude-simple ( edge dist sharp -- edge ) extrude-simple ;
+
+GML: bridgerings-simple ( e1 e2 sharp -- edge ) bridge-rings-simple ;
+
+GML: project_ptline ( p p0 p1 -- q ) project-pt-line ;
+
+GML: project_ptplane ( p dir n d -- q ) project-pt-plane ;
+
+GML: project_polyplane ( [p] dir n d -- [q] ) project-poly-plane ;