Merge branch 'master' of git://factorcode.org/git/factor

[factor.git] / unmaintained / adsoda / tools / tools.factor

diff --git a/unmaintained/adsoda/tools/tools.factor b/unmaintained/adsoda/tools/tools.factor
index efa3a55013f9a31917004cfade814176061848a9..6c4f4c3029a71f75ecbc3ebfc36056ee27585e4c 100755 (executable)
--- a/unmaintained/adsoda/tools/tools.factor
+++ b/unmaintained/adsoda/tools/tools.factor
@@ -79,7 +79,8 @@ IN: adsoda.tools
     translate ;\r
 \r
 : refs-to-points ( points faces -- faces )\r
-   [ swap [ nth 10 v*n { 100 100 100 } v+ ] curry map    ] with map\r
+   [ swap [ nth 10 v*n { 100 100 100 } v+ ] curry map ] \r
+   with map\r
 ;\r
 ! V{ { 0.1 0.2 } { 1.1 1.3 } } V{ { 1 0 } { 0 1 } }\r
 ! V{ { { 1.1 1.3 } { 0.1 0.2 } } { { 0.1 0.2 } { 1.1 1.3 } } }\r
@@ -102,13 +103,15 @@ refs-to-points
 ;\r
 : 2-faces-to-prism ( seq seq -- seq )\r
   2dup\r
-    [ do-cycle 2 clump ] bi@ concat-nth  !  3 faces rectangulaires\r
+    [ do-cycle 2 clump ] bi@ concat-nth  \r
+    !  3 faces rectangulaires\r
     swap prefix\r
     swap prefix\r
 ;    \r
 \r
 : Xpoints-to-prisme ( seq height -- cube )\r
-    ! from 3 points gives a list of faces representing a cube of height "height"\r
+    ! from 3 points gives a list of faces representing \r
+    ! a cube of height "height"\r
     ! and of based on the three points\r
     ! a face is a group of 3 or mode points.   \r
     [ dup dup  3points-to-normal ] dip \r
@@ -121,7 +124,8 @@ refs-to-points
 \r
 \r
 : Xpoints-to-plane4D ( seq x y -- 4Dplane )\r
-    ! from 3 points gives a list of faces representing a cube in 4th dim\r
+    ! from 3 points gives a list of faces representing \r
+    ! a cube in 4th dim\r
     ! from x to y (height = y-x)\r
     ! and of based on the X points\r
     ! a face is a group of 3 or mode points.   \r
@@ -130,7 +134,8 @@ refs-to-points
 ;\r
 \r
 : 3pointsfaces-to-3Dsolidfaces ( seq -- seq )\r
-    [ 1 Xpoints-to-prisme [ 100 110 Xpoints-to-plane4D ] map concat ] map \r
+    [ 1 Xpoints-to-prisme [ 100 \r
+        110 Xpoints-to-plane4D ] map concat ] map \r
 \r
 ;\r
 \r