Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

[factor.git] / extra / adsoda / adsoda.factor

diff --git a/extra/adsoda/adsoda.factor b/extra/adsoda/adsoda.factor
index c659e109ce3715d9f99f2184d935b47c633a7999..cc09ad52813e4df2fbabc61f431e77f168549c54 100755 (executable)
--- a/extra/adsoda/adsoda.factor
+++ b/extra/adsoda/adsoda.factor
@@ -57,7 +57,7 @@ t to: remove-hidden-solids?
 \r
 : with-pv ( i quot -- ) [ swap >pv call ] with-scope  ; inline\r
 \r
-: dimension ( array -- x )      length 1- ; inline \r
+: dimension ( array -- x )      length 1 - ; inline \r
 : change-last ( seq quot -- ) \r
     [ [ dimension ] keep ] dip change-nth  ; inline\r
 \r
@@ -99,7 +99,7 @@ TUPLE: light name { direction array } color ;
 : point-inside-or-on-halfspace? ( halfspace v -- ? ) \r
     position-point VERY-SMALL-NUM neg > ;\r
 : project-vector (  seq -- seq )     \r
-    pv> [ head ] [ 1+  tail ] 2bi append ; \r
+    pv> [ head ] [ 1 +  tail ] 2bi append ; \r
 : get-intersection ( matrice -- seq )     \r
     [ 1 tail* ] map     flip first ;\r
 \r
@@ -336,7 +336,7 @@ TUPLE: solid dimension silhouettes
 : compute-adjacencies ( solid -- solid )\r
     dup dimension>> [ >= ] curry \r
     [ keep swap ] curry MAX-FACE-PER-CORNER swap\r
-    [ [ test-faces-combinaisons ] 2keep 1- ] while drop ;\r
+    [ [ test-faces-combinaisons ] 2keep 1 - ] while drop ;\r
 \r
 : find-adjacencies ( solid -- solid ) \r
     erase-old-adjacencies   \r
@@ -435,7 +435,7 @@ TUPLE: space name dimension solids ambient-color lights ;
     [ [ non-empty-solid? ] filter ] change-solids ;\r
 \r
 : projected-space ( space solids -- space ) \r
-   swap dimension>> 1-  <space>    \r
+   swap dimension>> 1 -  <space>    \r
    swap >>dimension    swap  >>solids ;\r
 \r
 : get-silhouette ( solid -- silhouette )    \r