New model!

1 files changed, 0 insertions, 337 deletions

diff --git a/src/dactyl_cave/cave.clj b/src/dactyl_cave/cave.clj
deleted file mode 100644
index 05bfaed..0000000
--- a/src/dactyl_cave/cave.clj
+++ /dev/null
@@ -1,337 +0,0 @@
-(ns dactyl-cave.cave
-  (:use [scad-clj.scad])
-  (:use [scad-clj.model])
-  (:use [unicode-math.core])
-  (:use [dactyl-cave.key]))
-
-(defn key-place [column row shape]
-  (let [α (/ π 12)
-        row-radius (+ (/ (/ pillar-depth 2)
-                         (Math/sin (/ α 2)))
-                      full-height)
-        row-placed-shape (->> shape
-                              (translate [0 0 (- row-radius)])
-                              (rotate (* α (- 2 row)) [1 0 0])
-                              (translate [0 0 row-radius]))
-        β (/ π 36)
-        column-radius (+ (/ (/ (+ pillar-width 127/90) 2)
-                            (Math/sin (/ β 2)))
-                         full-height)
-        column-offset (condp = column
-                        2 [0 127/45 -254/45]
-                        4 [0 (/ pillar-depth -3) 254/45]
-                        5 [0 (/ pillar-depth -4) 254/45]
-                        [0 0 0])
-        column-angle (if (<= column 4)
-                       (* β (- 2 column))
-                       (* β -3.25))
-        placed-shape (->> row-placed-shape
-                          (translate [0 0 (- column-radius)])
-                          (rotate column-angle [0 1 0])
-                          (translate [0 0 column-radius])
-                          (translate column-offset))]
-    (translate [0 0 127/18]
-               (rotate (/ π 12) [0 1 0]
-                       placed-shape))))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Limits
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(def bottom-limit
-  (->> (cube (* pillar-width 17.75)
-             (* pillar-depth 17)
-             508/9)
-       (translate [(+ (/ pillar-width 2) 127/45)
-                   0 -254/9])))
-
-(def back-limit
-  (->> (cube (* pillar-width 9)
-             (* pillar-depth 2)
-             254/3)
-       (translate [pillar-width
-                   (+ (* pillar-depth 4.1))
-                   254/9])))
-
-(def front-right-limit
-     (->> (cube (* pillar-width 2)
-              (* pillar-depth 2)
-              254/3)
-        (translate [(+ (* pillar-width 4.125))
-                    (+ (* pillar-depth -3.25))])))
-
-(def front-left-limit
-  (->> (cube (* pillar-width 2.5)
-             (* pillar-depth 2)
-             254/3)
-       (translate [(+ (* pillar-width -3))
-                   (+ (* pillar-depth -3))
-                   254/9])))
-
-(def front-limit
-  (->> (cube (* pillar-width 9)
-             (* pillar-depth 2)
-             254/3)
-       (translate [(* pillar-width 1/2) (+ (* pillar-depth -4.25)) 254/9])))
-
- (* (/ 25.4 90) pillar-depth (- 3.1 -3.2))
-
-
-(def left-limit
-   (->> (cube (* pillar-width 1)
-              (* pillar-depth 8)
-              254/3)
-        (translate [(+ (* pillar-depth -3.25)) 0 254/9])))
-
-(def right-limit
-   (->> (cube (* pillar-width )
-                (* pillar-depth 8)
-                1016/9)
-        (translate [(+ (* pillar-depth 5.5)) 0 254/9]))  )
-
-(*  (/ 25.4 90) (- (- (* pillar-depth 5.4) (* pillar-width 1/2))
-                   (+ (* pillar-depth -3.25) (* pillar-width 1/2))
-                   ))
-
-(def limits
-   (union
-   #_front-right-limit
-   front-left-limit
-   front-limit
-   left-limit
-   right-limit
-   bottom-limit
-   back-limit))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Base
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(def main-sphere
-  (let [radius (/ (/ pillar-depth 2)
-                  (Math/sin (/ (/ π 36) 2)))]
-    (->> (sphere radius)
-         (translate [(* pillar-width 2.5) 0 (+ radius 127/90)])))  )
-
-(def base-cube
-  (->> (cube (* pillar-width 7.75)
-             (* pillar-depth 7)
-             508/9)
-       (translate [(+ (/ pillar-width 2) 2921/450)
-                   0 254/9])))
-
-(def base
-  (difference
-   base-cube
-   main-sphere
-   limits))
-
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Walls
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-#_(def wall-sphere
-  (let [radius (/ (/ pillar-depth 2)
-                  (Math/sin (/ (/ π 36) 2)))]
-    (->> (sphere radius)
-         (scale [1 2/3 1])
-         (translate [(* pillar-width 2.5) 0 (+ radius 5 (* pillar-depth ))]))))
-
-(def wall-sphere
-  (let [radius (/ (/ pillar-depth 2)
-                  (Math/sin (/ (/ π 36) 2)))]
-    (->> (sphere radius)
-         (scale [1 2/3 1])
-         (translate [0 0 radius])
-         (translate [0 0 127/18])
-         (rotate (/ π 12) [0 1 0])
-         (translate [0 0 (* pillar-depth 3/4)]))))
-
-(def wall-thickness 127/30)
-
-(def back-wall
-  (difference
-   (translate [0 (- wall-thickness) 0] back-limit)
-   back-limit
-   right-limit
-   left-limit
-   bottom-limit
-   wall-sphere))
-
-(def walls
-  (difference
-   (union
-    (translate [0 (- wall-thickness) 0] back-limit)
-    (translate [(- wall-thickness) 0 0] right-limit)
-    (translate [0 wall-thickness 0] front-limit)
-    (translate [wall-thickness 0 0] left-limit)    
-    )
-   wall-sphere
-   limits))
-
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Wire holes
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(def teensy-center [(* -1.6 pillar-width)
-                    (* 2.8 pillar-depth)
-                    254/45])
-
-(def teensy-tray-slot
-  (->> (cube (* 1.125 pillar-width)
-             40
-             508/45)
-       (translate teensy-center)))
-
-(def hole-destination
-  (->> (cube 5.7 5.7 5.7)
-       (translate [(first teensy-center)
-                   (second teensy-center)
-                   2.8 #_3.1])))
-
-(defn bottom-cube [column row]
-  (->> (cube 6 6 6)
-       (key-place column row)
-       (project)
-       (extrude-linear {:height 5.7 :twist 0 :convexity 0})
-       (translate [0 0 2.8])))
-
-(defn wire-hole [column row]
-  (union
-   (hull
-    (key-place column row (cube 6 6 keyswitch-height))
-    (bottom-cube column row))
-   (hull
-    hole-destination
-    (bottom-cube column row))))
-
-
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Full Model
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(def fingers
-  (let [all-key-coords (for [column (range 0 6)
-                         row (range 0 5)
-                         ;; Removing bottom left key
-                         :when (or (not= column 0)
-                                   (not= row 4))]
-                         [column row])
-        middle-key-coords (for [column (range 0 6)
-                                row (range 1 4)
-                                ;; Removing bottom left key
-                                :when (or (not= column 0)
-                                          (not= row 4))]
-                            [column row])
-        top-key-coords (for [column (range 0 6)]
-                         [column 0])
-        bottom-key-coords (conj (for [column (range 1 6)]
-                                  [column 4])
-                                [0 3])        
-
-        ]
-    (difference
-     (union base
-            #_walls
-            (apply union
-                   (map #(key-place (first %) (second %)
-                                    (->> (cube pillar-width  pillar-depth
-                                               (* 3 pillar-height))
-                                         (translate [0 0 (/ pillar-height -2)])))
-                        all-key-coords)))
-     (apply union
-            (concat
-             (map #(key-place (first %) (second %) keyswitch-full-hole)
-                  middle-key-coords)
-             (map #(key-place (first %) (second %) keyswitch-bottom-hole)
-                  top-key-coords)
-             (map #(key-place (first %) (second %) (mirror [0 -1 0] keyswitch-bottom-hole))
-                  bottom-key-coords)
-             ))
-     limits
-     teensy-tray-slot)))
-
-
-(def wire-network
-  (union
-   (wire-hole 0 0)
-   (wire-hole 1 0)
-   (wire-hole 2 0)
-   (wire-hole 3 0)
-   (wire-hole 4 0)
-   (wire-hole 5 0)
-   (wire-hole 0 1)
-   (wire-hole 0 2)
-   (wire-hole 0 3)
-   (wire-hole 0 4)   
-   (wire-hole 1 4)))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Actual Output
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-#_(spit "key.scad"
-      (write-scad (difference
-                   pillar
-                   )))
-
-(spit "key.scad"
-      (write-scad (difference
-                   (union
-                    #_walls
-                    #_wall-sphere
-                    #_fingers
-                    (difference fingers wire-network)
-                    #_(mirror [-1 0 0]
-                              (difference fingers wire-network))
-                    )
-                   #_(cube 400 800 800)
-                   )))
-
-#_(spit "key.scad"
-      (write-scad (scale [(/ 25.4 90) (/ 25.4 90) (/ 25.4 90)]
-                         (difference
-                          (union
-                           #_walls
-                           #_wall-sphere
-                           #_fingers
-                           (difference fingers wire-network)
-                           #_(mirror [-1 0 0]
-                                     (difference fingers wire-network))
-                           )
-                          #_(cube 400 800 800)
-                          ))))
-
-
-#_(spit "key.scad"
-      (write-scad (scale [(/ 25.4 90) (/ 25.4 90) (/ 25.4 90)]
-                         (difference
-                          fingers
-                          wire-hole-1
-                          wire-hole-2))))
-
-#_(spit "key.scad"
-      (write-scad (scale [(/ 25.4 90) (/ 25.4 90) (/ 25.4 90)]
-                         (differe
-                          #_wall
-                          #_base
-                          #_rim
-                          #_(mirror [1 0 0] fingers)
-                          fingers
-                          wire-hole-1))))
-
-#_(spit "key.scad"
-      (write-scad (scale [(/ 25.4 90) (/ 25.4 90) (/ 25.4 90)]
-                         (union
-                          fingers
-                          (->> fingers
-                               project
-                               (extrude-linear {:height 1 :twist 0 :convexity 0})
-                               (scale [1.5 1.15 1])
-                               )
-                          )
-                         )))
-