update

project.clj

@@ -6,7 +6,8 @@
             :url "http://www.eclipse.org/legal/epl-v10.html"}
 :plugins [[lein-auto "0.1.3"]
             [lein-exec "0.3.7"]]
-  :aliases {"generate" ["exec" "-p" "src/dactyl_keyboard/dactyl.clj"]}
+  :aliases {"generate" ["exec" "-p" "src/dactyl_keyboard/dactyl.clj"],
+  "generate2" ["exec" "-p" "test/dactyl_cave/core_test.clj"]}
   :dependencies [[org.clojure/clojure "1.7.0"]
                  [unicode-math "0.2.0"]
                  [scad-clj "0.4.0"]])

src/dactyl_keyboard/dactyl.clj

@@ -765,6 +765,30 @@
 ;                                ; wire-posts
 ;                  )))
 
+;(spit "things/test.scad"
+;  (write-scad
+;    (extrude-linear
+;      {:height 2.6 :center false}
+;      (project
+;        (difference
+;          (union
+;            ;key-holes
+;            ;connectors
+;            ;thumb
+;            ;thumb-connectors
+;            case-walls
+;            ;thumbcaps
+;            ;(translate [5 5 0] thumbcaps)
+;            ;(translate [0 0 0] caps)
+;            ;(translate [4 4 0] caps)
+;            ;(translate [-4 -4 0] caps)
+;            ;(translate [-10 10 0] caps)
+;            ;rj9-space
+;
+;          ) ;(translate [0 0 -100] case-walls)
+;           ;(translate [0 0 -10] screw-insert-screw-holes)
+;          )))))
+
 (spit "things/right-plate.scad"
       (write-scad 
                    (cut

test/dactyl_cave/core_test.clj

@@ -1,7 +1,16 @@
 (ns dactyl-cave.core-test
-  (:require [clojure.test :refer :all]
+  ;(:require [clojure.test :refer :all]
-            [dactyl-cave.core :refer :all]))
+  ;          [dactyl-cave.core :refer :all]))
 
-(deftest a-test
+  (:refer-clojure :exclude [use import])
-  (testing "FIXME, I fail."
+  (:require [clojure.core.matrix :refer [array matrix mmul]]
-    (is (= 0 1))))
+            [scad-clj.scad :refer :all]
+            [scad-clj.model :refer :all]
+            [unicode-math.core :refer :all]))
+
+
+
+(spit "things/right-plate-polygon.scad"
+      (write-scad
+(polygon [[-83 0] [-81.7 11.88] [-80.76 21.6] [-74.64 41] [-71.67 45.4] [-73.5 47.3] [-70.74 52.21] [-57.39 62.9]])
+      ))