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

[factor.git] / extra / euler / b-rep / b-rep-tests.factor

diff --git a/extra/euler/b-rep/b-rep-tests.factor b/extra/euler/b-rep/b-rep-tests.factor
index 63a7ce107708ee7ae765a20139c4d831e6529881..f5ef8981d8ba3b1fb4ee1ad2bcf1172764726667 100644 (file)
--- a/extra/euler/b-rep/b-rep-tests.factor
+++ b/extra/euler/b-rep/b-rep-tests.factor
@@ -1,79 +1,79 @@
-USING: accessors euler.b-rep euler.modeling euler.operators\r
-euler.b-rep.examples kernel locals math.vectors.simd.cords\r
-namespaces sequences tools.test ;\r
-IN: euler.b-rep.tests\r
-\r
-[ double-4{ 0.0 0.0 -1.0 0.0 } ]\r
-[ valid-cube-b-rep edges>> first face-normal ] unit-test\r
-\r
-[ double-4{ 0.0 0.0 -1.0 0.0 } -1.0 ]\r
-[ valid-cube-b-rep edges>> first face-plane ] unit-test\r
-\r
-[ t ] [ 0 multi-ringed-face-cube-b-rep faces>> nth base-face? ] unit-test\r
-[ t ] [ 5 multi-ringed-face-cube-b-rep faces>> nth base-face? ] unit-test\r
-[ f ] [ 6 multi-ringed-face-cube-b-rep faces>> nth base-face? ] unit-test\r
-\r
-:: mock-face ( p0 p1 p2 -- edge )\r
-    b-edge new vertex new p0 >>position >>vertex :> e0\r
-    b-edge new vertex new p1 >>position >>vertex :> e1\r
-    b-edge new vertex new p2 >>position >>vertex :> e2\r
-\r
-    e1 e0 next-edge<<\r
-    e2 e1 next-edge<<\r
-    e0 e2 next-edge<<\r
-    \r
-    e0 ;\r
-\r
-[\r
-    double-4{\r
-        0x1.279a74590331dp-1\r
-        0x1.279a74590331dp-1\r
-        0x1.279a74590331dp-1\r
-        0.0\r
-    }\r
-    -0x1.bb67ae8584cabp1\r
-] [\r
-    double-4{ 1 0 5 0 }\r
-    double-4{ 0 1 5 0 }\r
-    double-4{ 0 0 6 0 } mock-face face-plane\r
-] unit-test\r
-\r
-V{ t } clone sharpness-stack [\r
-    [ t ] [ get-sharpness ] unit-test\r
-    [ V{ f } ] [ f set-sharpness sharpness-stack get ] unit-test\r
-    [ V{ f t } t ] [ t push-sharpness sharpness-stack get get-sharpness ] unit-test\r
-    [ t V{ f } f ] [ pop-sharpness sharpness-stack get get-sharpness ] unit-test\r
-] with-variable\r
-\r
-[ t ] [ valid-cube-b-rep [ edges>> first ] keep is-valid-edge? ] unit-test\r
-[ f ] [ b-edge new valid-cube-b-rep is-valid-edge? ] unit-test\r
-\r
-[ t ] [\r
-    valid-cube-b-rep edges>>\r
-    [ [  0 swap nth ] [  1 swap nth ] bi connecting-edge ]\r
-    [    0 swap nth ] bi eq?\r
-] unit-test\r
-\r
-[ t ] [\r
-    valid-cube-b-rep edges>>\r
-    [ [  1 swap nth ] [  0 swap nth ] bi connecting-edge ]\r
-    [    6 swap nth ] bi eq?\r
-] unit-test\r
-\r
-[ t ] [\r
-    valid-cube-b-rep edges>>\r
-    [ [  0 swap nth ] [  3 swap nth ] bi connecting-edge ]\r
-    [   21 swap nth ] bi eq?\r
-] unit-test\r
-\r
-[ f ] [\r
-    valid-cube-b-rep edges>>\r
-    [  0 swap nth ] [  2 swap nth ] bi connecting-edge\r
-] unit-test\r
-\r
-[ double-4{ 0 0 -1 0 } ] [\r
-    [\r
-        { double-4{ 0 0 0 0 } double-4{ 0 1 0 0 } double-4{ 0 2 0 0 } double-4{ 1 1 0 0 } }\r
-        smooth-smooth polygon>double-face face-normal\r
-    ] make-b-rep drop\r
-] unit-test\r
+USING: accessors euler.b-rep euler.modeling euler.operators
+euler.b-rep.examples kernel locals math.vectors.simd.cords
+namespaces sequences tools.test ;
+IN: euler.b-rep.tests
+
+[ double-4{ 0.0 0.0 -1.0 0.0 } ]
+[ valid-cube-b-rep edges>> first face-normal ] unit-test
+
+[ double-4{ 0.0 0.0 -1.0 0.0 } -1.0 ]
+[ valid-cube-b-rep edges>> first face-plane ] unit-test
+
+[ t ] [ 0 multi-ringed-face-cube-b-rep faces>> nth base-face? ] unit-test
+[ t ] [ 5 multi-ringed-face-cube-b-rep faces>> nth base-face? ] unit-test
+[ f ] [ 6 multi-ringed-face-cube-b-rep faces>> nth base-face? ] unit-test
+
+:: mock-face ( p0 p1 p2 -- edge )
+    b-edge new vertex new p0 >>position >>vertex :> e0
+    b-edge new vertex new p1 >>position >>vertex :> e1
+    b-edge new vertex new p2 >>position >>vertex :> e2
+
+    e1 e0 next-edge<<
+    e2 e1 next-edge<<
+    e0 e2 next-edge<<
+    
+    e0 ;
+
+[
+    double-4{
+        0x1.279a74590331dp-1
+        0x1.279a74590331dp-1
+        0x1.279a74590331dp-1
+        0.0
+    }
+    -0x1.bb67ae8584cabp1
+] [
+    double-4{ 1 0 5 0 }
+    double-4{ 0 1 5 0 }
+    double-4{ 0 0 6 0 } mock-face face-plane
+] unit-test
+
+V{ t } clone sharpness-stack [
+    [ t ] [ get-sharpness ] unit-test
+    [ V{ f } ] [ f set-sharpness sharpness-stack get ] unit-test
+    [ V{ f t } t ] [ t push-sharpness sharpness-stack get get-sharpness ] unit-test
+    [ t V{ f } f ] [ pop-sharpness sharpness-stack get get-sharpness ] unit-test
+] with-variable
+
+[ t ] [ valid-cube-b-rep [ edges>> first ] keep is-valid-edge? ] unit-test
+[ f ] [ b-edge new valid-cube-b-rep is-valid-edge? ] unit-test
+
+[ t ] [
+    valid-cube-b-rep edges>>
+    [ [  0 swap nth ] [  1 swap nth ] bi connecting-edge ]
+    [    0 swap nth ] bi eq?
+] unit-test
+
+[ t ] [
+    valid-cube-b-rep edges>>
+    [ [  1 swap nth ] [  0 swap nth ] bi connecting-edge ]
+    [    6 swap nth ] bi eq?
+] unit-test
+
+[ t ] [
+    valid-cube-b-rep edges>>
+    [ [  0 swap nth ] [  3 swap nth ] bi connecting-edge ]
+    [   21 swap nth ] bi eq?
+] unit-test
+
+[ f ] [
+    valid-cube-b-rep edges>>
+    [  0 swap nth ] [  2 swap nth ] bi connecting-edge
+] unit-test
+
+[ double-4{ 0 0 -1 0 } ] [
+    [
+        { double-4{ 0 0 0 0 } double-4{ 0 1 0 0 } double-4{ 0 2 0 0 } double-4{ 1 1 0 0 } }
+        smooth-smooth polygon>double-face face-normal
+    ] make-b-rep drop
+] unit-test