|
|
(ns dactyl-keyboard.dactyl
|
|
|
(:refer-clojure :exclude [use import])
|
|
|
(:require [clojure.core.matrix :refer [array matrix mmul]]
|
|
|
[scad-clj.scad :refer :all]
|
|
|
[scad-clj.model :refer :all]
|
|
|
[unicode-math.core :refer :all]))
|
|
|
|
|
|
|
|
|
(defn deg2rad [degrees]
|
|
|
(* (/ degrees 180) pi))
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;
|
|
|
;; Shape parameters ;;
|
|
|
;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
(def nrows 5)
|
|
|
(def ncols 7)
|
|
|
|
|
|
(def α (/ π 12)) ; curvature of the columns
|
|
|
(def β (/ π 36)) ; curvature of the rows
|
|
|
(def centerrow (- nrows 3)) ; controls front-back tilt
|
|
|
(def centercol 4) ; controls left-right tilt / tenting (higher number is more tenting)
|
|
|
(def tenting-angle (/ π 12)) ; or, change this for more precise tenting control
|
|
|
|
|
|
(def pinky-15u true) ; controls whether the outer column uses 1.5u keys
|
|
|
(def first-15u-row 0) ; controls which should be the first row to have 1.5u keys on the outer column
|
|
|
(def last-15u-row 3) ; controls which should be the last row to have 1.5u keys on the outer column
|
|
|
|
|
|
(def extra-row true) ; adds an extra bottom row to the outer column(s)
|
|
|
(def inner-column true) ; adds an extra inner column (two less rows than nrows)
|
|
|
(def thumb-style "cf") ; toggles between "manuform", "mini", and "cf" thumb cluster
|
|
|
|
|
|
(def column-style :standard)
|
|
|
|
|
|
(defn column-offset [column]
|
|
|
(if inner-column
|
|
|
(cond (<= column 1) [0 -2 0]
|
|
|
(= column 3) [0 2.82 -4.5]
|
|
|
(>= column 5) [0 -12 5.64] ; original [0 -5.8 5.64]
|
|
|
:else [0 0 0])
|
|
|
(cond (= column 0) [0 -2 0]
|
|
|
(= column 2) [0 2.82 -4.5]
|
|
|
(>= column 4) [0 -12 5.64] ; original [0 -5.8 5.64]
|
|
|
:else [0 0 0])))
|
|
|
|
|
|
(def thumb-offsets [6 -3 7])
|
|
|
|
|
|
(def keyboard-z-offset 8) ; controls overall height; original=9 with centercol=3; use 16 for centercol=2
|
|
|
|
|
|
(def extra-width 2.5) ; extra space between the base of keys; original= 2
|
|
|
(def extra-height 1.0) ; original= 0.5
|
|
|
|
|
|
(def wall-z-offset -8) ; length of the first downward-sloping part of the wall (negative)
|
|
|
(def wall-xy-offset 5) ; offset in the x and/or y direction for the first downward-sloping part of the wall (negative)
|
|
|
(def wall-thickness 2) ; wall thickness parameter; originally 5
|
|
|
|
|
|
; If you use Cherry MX or Gateron switches, this can be turned on.
|
|
|
; If you use other switches such as Kailh, you should set this as false
|
|
|
(def create-side-nubs? false)
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
;; General variables ;;
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
(def lastrow (dec nrows))
|
|
|
(def cornerrow (dec lastrow))
|
|
|
(def lastcol (dec ncols))
|
|
|
(def extra-cornerrow (if extra-row lastrow cornerrow))
|
|
|
(def innercol-offset (if inner-column 1 0))
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;
|
|
|
;; Switch Hole ;;
|
|
|
;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
(def keyswitch-height 14.15)
|
|
|
(def keyswitch-width 14.15)
|
|
|
|
|
|
(def sa-profile-key-height 12.7)
|
|
|
|
|
|
(def plate-thickness 4)
|
|
|
(def side-nub-thickness 4)
|
|
|
(def retention-tab-thickness 1.5)
|
|
|
(def retention-tab-hole-thickness (- (+ plate-thickness 0.5) retention-tab-thickness))
|
|
|
(def mount-width (+ keyswitch-width 3.2))
|
|
|
(def mount-height (+ keyswitch-height 2.7))
|
|
|
|
|
|
(def single-plate
|
|
|
(let [top-wall (->> (cube (+ keyswitch-width 3) 1.5 (+ plate-thickness 0.5))
|
|
|
(translate [0
|
|
|
(+ (/ 1.5 2) (/ keyswitch-height 2))
|
|
|
(- (/ plate-thickness 2) 0.25)]))
|
|
|
left-wall (->> (cube 1.8 (+ keyswitch-height 3) (+ plate-thickness 0.5))
|
|
|
(translate [(+ (/ 1.8 2) (/ keyswitch-width 2))
|
|
|
0
|
|
|
(- (/ plate-thickness 2) 0.25)]))
|
|
|
side-nub (->> (binding [*fn* 30] (cylinder 1 2.75))
|
|
|
(rotate (/ π 2) [1 0 0])
|
|
|
(translate [(+ (/ keyswitch-width 2)) 0 1])
|
|
|
(hull (->> (cube 1.5 2.75 side-nub-thickness)
|
|
|
(translate [(+ (/ 1.5 2) (/ keyswitch-width 2))
|
|
|
0
|
|
|
(/ side-nub-thickness 2)])))
|
|
|
(translate [0 0 (- plate-thickness side-nub-thickness)]))
|
|
|
plate-half (union top-wall left-wall (if create-side-nubs? (with-fn 100 side-nub)))
|
|
|
top-nub (->> (cube 5 5 retention-tab-hole-thickness)
|
|
|
(translate [(+ (/ keyswitch-width 2.5)) 0 (- (/ retention-tab-hole-thickness 2) 0.5)]))
|
|
|
top-nub-pair (union top-nub
|
|
|
(->> top-nub
|
|
|
(mirror [1 0 0])
|
|
|
(mirror [0 1 0])))]
|
|
|
(difference
|
|
|
(union plate-half
|
|
|
(->> plate-half
|
|
|
(mirror [1 0 0])
|
|
|
(mirror [0 1 0])))
|
|
|
(->>
|
|
|
top-nub-pair
|
|
|
(rotate (/ π 2) [0 0 1])))))
|
|
|
|
|
|
;;;;;;;;;;;;;;;;
|
|
|
;; SA Keycaps ;;
|
|
|
;;;;;;;;;;;;;;;;
|
|
|
|
|
|
(def sa-length 18.25)
|
|
|
(def sa-double-length 37.5)
|
|
|
(def sa-cap {1 (let [bl2 (/ 18.5 2)
|
|
|
m (/ 17 2)
|
|
|
key-cap (hull (->> (polygon [[bl2 bl2] [bl2 (- bl2)] [(- bl2) (- bl2)] [(- bl2) bl2]])
|
|
|
(extrude-linear {:height 0.1 :twist 0 :convexity 0})
|
|
|
(translate [0 0 0.05]))
|
|
|
(->> (polygon [[m m] [m (- m)] [(- m) (- m)] [(- m) m]])
|
|
|
(extrude-linear {:height 0.1 :twist 0 :convexity 0})
|
|
|
(translate [0 0 6]))
|
|
|
(->> (polygon [[6 6] [6 -6] [-6 -6] [-6 6]])
|
|
|
(extrude-linear {:height 0.1 :twist 0 :convexity 0})
|
|
|
(translate [0 0 12])))]
|
|
|
(->> key-cap
|
|
|
(translate [0 0 (+ 5 plate-thickness)])
|
|
|
(color [220/255 163/255 163/255 1])))
|
|
|
2 (let [bl2 sa-length
|
|
|
bw2 (/ 18.25 2)
|
|
|
key-cap (hull (->> (polygon [[bw2 bl2] [bw2 (- bl2)] [(- bw2) (- bl2)] [(- bw2) bl2]])
|
|
|
(extrude-linear {:height 0.1 :twist 0 :convexity 0})
|
|
|
(translate [0 0 0.05]))
|
|
|
(->> (polygon [[6 16] [6 -16] [-6 -16] [-6 16]])
|
|
|
(extrude-linear {:height 0.1 :twist 0 :convexity 0})
|
|
|
(translate [0 0 12])))]
|
|
|
(->> key-cap
|
|
|
(translate [0 0 (+ 5 plate-thickness)])
|
|
|
(color [127/255 159/255 127/255 1])))
|
|
|
1.5 (let [bl2 (/ 18.25 2)
|
|
|
bw2 (/ 27.94 2)
|
|
|
key-cap (hull (->> (polygon [[bw2 bl2] [bw2 (- bl2)] [(- bw2) (- bl2)] [(- bw2) bl2]])
|
|
|
(extrude-linear {:height 0.1 :twist 0 :convexity 0})
|
|
|
(translate [0 0 0.05]))
|
|
|
(->> (polygon [[11 6] [-11 6] [-11 -6] [11 -6]])
|
|
|
(extrude-linear {:height 0.1 :twist 0 :convexity 0})
|
|
|
(translate [0 0 12])))]
|
|
|
(->> key-cap
|
|
|
(translate [0 0 (+ 5 plate-thickness)])
|
|
|
(color [240/255 223/255 175/255 1])))})
|
|
|
|
|
|
;; Fill the keyholes instead of placing a a keycap over them
|
|
|
(def keyhole-fill (->> (cube keyswitch-height keyswitch-width plate-thickness)
|
|
|
(translate [0 0 (/ plate-thickness 2)])))
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
;; Placement Functions ;;
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
(def columns (range (+ innercol-offset 0) ncols))
|
|
|
(def rows (range 0 nrows))
|
|
|
|
|
|
(def innercolumn 0)
|
|
|
(def innerrows (range 0 (- nrows 2)))
|
|
|
|
|
|
(def cap-top-height (+ plate-thickness sa-profile-key-height))
|
|
|
(def row-radius (+ (/ (/ (+ mount-height extra-height) 2)
|
|
|
(Math/sin (/ α 2)))
|
|
|
cap-top-height))
|
|
|
(def column-radius (+ (/ (/ (+ mount-width extra-width) 2)
|
|
|
(Math/sin (/ β 2)))
|
|
|
cap-top-height))
|
|
|
(def column-x-delta (+ -1 (- (* column-radius (Math/sin β)))))
|
|
|
|
|
|
(defn offset-for-column [col, row]
|
|
|
(if (and pinky-15u
|
|
|
(= col lastcol)
|
|
|
(<= row last-15u-row)
|
|
|
(>= row first-15u-row))
|
|
|
4.7625
|
|
|
0))
|
|
|
|
|
|
(defn apply-key-geometry [translate-fn rotate-x-fn rotate-y-fn column row shape]
|
|
|
(let [column-angle (* β (- centercol column))
|
|
|
placed-shape (->> shape
|
|
|
(translate-fn [(offset-for-column column, row) 0 (- row-radius)])
|
|
|
(rotate-x-fn (* α (- centerrow row)))
|
|
|
(translate-fn [0 0 row-radius])
|
|
|
(translate-fn [0 0 (- column-radius)])
|
|
|
(rotate-y-fn column-angle)
|
|
|
(translate-fn [0 0 column-radius])
|
|
|
(translate-fn (column-offset column)))
|
|
|
column-z-delta (* column-radius (- 1 (Math/cos column-angle)))]
|
|
|
(->> (case column-style placed-shape)
|
|
|
(rotate-y-fn tenting-angle)
|
|
|
(translate-fn [0 0 keyboard-z-offset]))))
|
|
|
|
|
|
(defn key-place [column row shape]
|
|
|
(apply-key-geometry translate
|
|
|
(fn [angle obj] (rotate angle [1 0 0] obj))
|
|
|
(fn [angle obj] (rotate angle [0 1 0] obj))
|
|
|
column row shape))
|
|
|
|
|
|
(defn rotate-around-x [angle position]
|
|
|
(mmul
|
|
|
[[1 0 0]
|
|
|
[0 (Math/cos angle) (- (Math/sin angle))]
|
|
|
[0 (Math/sin angle) (Math/cos angle)]]
|
|
|
position))
|
|
|
|
|
|
(defn rotate-around-y [angle position]
|
|
|
(mmul
|
|
|
[[(Math/cos angle) 0 (Math/sin angle)]
|
|
|
[0 1 0]
|
|
|
[(- (Math/sin angle)) 0 (Math/cos angle)]]
|
|
|
position))
|
|
|
|
|
|
(defn key-position [column row position]
|
|
|
(apply-key-geometry (partial map +) rotate-around-x rotate-around-y column row position))
|
|
|
|
|
|
(def key-holes
|
|
|
(apply union
|
|
|
(for [column columns
|
|
|
row rows
|
|
|
:when (or (.contains [(+ innercol-offset 2) (+ innercol-offset 3)] column)
|
|
|
(and (.contains [(+ innercol-offset 4) (+ innercol-offset 5)] column) extra-row (= ncols (+ innercol-offset 6)))
|
|
|
(and (.contains [(+ innercol-offset 4)] column) extra-row (= ncols (+ innercol-offset 5)))
|
|
|
(and inner-column (not= row cornerrow)(= column 0))
|
|
|
(not= row lastrow))]
|
|
|
(->> single-plate
|
|
|
; (rotate (/ π 2) [0 0 1])
|
|
|
(key-place column row)))))
|
|
|
(def caps
|
|
|
(apply union
|
|
|
(conj (for [column columns
|
|
|
row rows
|
|
|
:when (or (and (= column 0) (< row 3))
|
|
|
(and (.contains [1 2] column) (< row 4))
|
|
|
(.contains [3 4 5 6] column))]
|
|
|
(->> (sa-cap (if (and pinky-15u (= column lastcol) (not= row lastrow)) 1.5 1))
|
|
|
(key-place column row)))
|
|
|
(list (key-place 0 0 (sa-cap 1))
|
|
|
(key-place 0 1 (sa-cap 1))
|
|
|
(key-place 0 2 (sa-cap 1))))))
|
|
|
|
|
|
(def caps-fill
|
|
|
(apply union
|
|
|
(conj (for [column columns
|
|
|
row rows
|
|
|
:when (or (.contains [(+ innercol-offset 2) (+ innercol-offset 3)] column)
|
|
|
(and (.contains [(+ innercol-offset 4) (+ innercol-offset 5)] column) extra-row (= ncols (+ innercol-offset 6)))
|
|
|
(and (.contains [(+ innercol-offset 4)] column) extra-row (= ncols (+ innercol-offset 5)))
|
|
|
(and inner-column (not= row cornerrow)(= column 0))
|
|
|
(not= row lastrow))]
|
|
|
(key-place column row keyhole-fill))
|
|
|
(list (key-place 0 0 keyhole-fill)
|
|
|
(key-place 0 1 keyhole-fill)
|
|
|
(key-place 0 2 keyhole-fill)))))
|
|
|
|
|
|
;placement for the innermost column
|
|
|
(def key-holes-inner
|
|
|
(if inner-column
|
|
|
(apply union
|
|
|
(for [row innerrows]
|
|
|
(->> single-plate
|
|
|
; (rotate (/ π 2) [0 0 1])
|
|
|
(key-place 0 row))))))
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;
|
|
|
;; Web Connectors ;;
|
|
|
;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
(def web-thickness 4.5)
|
|
|
(def post-size 0.1)
|
|
|
(def web-post (->> (cube post-size post-size web-thickness)
|
|
|
(translate [0 0 (+ (/ web-thickness -2)
|
|
|
plate-thickness)])))
|
|
|
|
|
|
(def post-adj (/ post-size 2))
|
|
|
(def web-post-tr (translate [(- (/ mount-width 1.95) post-adj) (- (/ mount-height 1.95) post-adj) 0] web-post))
|
|
|
(def web-post-tl (translate [(+ (/ mount-width -1.95) post-adj) (- (/ mount-height 1.95) post-adj) 0] web-post))
|
|
|
(def web-post-bl (translate [(+ (/ mount-width -1.95) post-adj) (+ (/ mount-height -1.95) post-adj) 0] web-post))
|
|
|
(def web-post-br (translate [(- (/ mount-width 1.95) post-adj) (+ (/ mount-height -1.95) post-adj) 0] web-post))
|
|
|
|
|
|
; wide posts for 1.5u keys in the main cluster
|
|
|
(if pinky-15u
|
|
|
(do (def wide-post-tr (translate [(- (/ mount-width 1.2) post-adj) (- (/ mount-height 2) post-adj) 0] web-post))
|
|
|
(def wide-post-tl (translate [(+ (/ mount-width -1.2) post-adj) (- (/ mount-height 2) post-adj) 0] web-post))
|
|
|
(def wide-post-bl (translate [(+ (/ mount-width -1.2) post-adj) (+ (/ mount-height -2) post-adj) 0] web-post))
|
|
|
(def wide-post-br (translate [(- (/ mount-width 1.2) post-adj) (+ (/ mount-height -2) post-adj) 0] web-post)))
|
|
|
(do (def wide-post-tr web-post-tr)
|
|
|
(def wide-post-tl web-post-tl)
|
|
|
(def wide-post-bl web-post-bl)
|
|
|
(def wide-post-br web-post-br)))
|
|
|
|
|
|
(defn triangle-hulls [& shapes]
|
|
|
(apply union
|
|
|
(map (partial apply hull)
|
|
|
(partition 3 1 shapes))))
|
|
|
|
|
|
(def connectors
|
|
|
(apply union
|
|
|
(concat
|
|
|
;; Row connections
|
|
|
(for [column (range (+ innercol-offset 0) (dec ncols))
|
|
|
row (range 0 lastrow)]
|
|
|
(triangle-hulls
|
|
|
(key-place (inc column) row web-post-tl)
|
|
|
(key-place column row web-post-tr)
|
|
|
(key-place (inc column) row web-post-bl)
|
|
|
(key-place column row web-post-br)))
|
|
|
|
|
|
;; Column connections
|
|
|
(for [column columns
|
|
|
row (range 0 cornerrow)]
|
|
|
(triangle-hulls
|
|
|
(key-place column row web-post-bl)
|
|
|
(key-place column row web-post-br)
|
|
|
(key-place column (inc row) web-post-tl)
|
|
|
(key-place column (inc row) web-post-tr)))
|
|
|
|
|
|
;; Diagonal connections
|
|
|
(for [column (range 0 (dec ncols))
|
|
|
row (range 0 cornerrow)]
|
|
|
(triangle-hulls
|
|
|
(key-place column row web-post-br)
|
|
|
(key-place column (inc row) web-post-tr)
|
|
|
(key-place (inc column) row web-post-bl)
|
|
|
(key-place (inc column) (inc row) web-post-tl))))))
|
|
|
|
|
|
(def inner-connectors
|
|
|
(if inner-column
|
|
|
(apply union
|
|
|
(concat
|
|
|
;; Row connections
|
|
|
(for [column (range 0 1)
|
|
|
row (range 0 (- nrows 2))]
|
|
|
(triangle-hulls
|
|
|
(key-place (inc column) row web-post-tl)
|
|
|
(key-place column row web-post-tr)
|
|
|
(key-place (inc column) row web-post-bl)
|
|
|
(key-place column row web-post-br)))
|
|
|
|
|
|
;; Column connections
|
|
|
(for [row (range 0 (dec cornerrow))]
|
|
|
(triangle-hulls
|
|
|
(key-place innercolumn row web-post-bl)
|
|
|
(key-place innercolumn row web-post-br)
|
|
|
(key-place innercolumn (inc row) web-post-tl)
|
|
|
(key-place innercolumn (inc row) web-post-tr)))
|
|
|
|
|
|
;; Diagonal connections
|
|
|
(for [column (range 0 (dec ncols))
|
|
|
row (range 0 2)]
|
|
|
(triangle-hulls
|
|
|
(key-place column row web-post-br)
|
|
|
(key-place column (inc row) web-post-tr)
|
|
|
(key-place (inc column) row web-post-bl)
|
|
|
(key-place (inc column) (inc row) web-post-tl)))))))
|
|
|
|
|
|
(def extra-connectors
|
|
|
(if extra-row
|
|
|
(apply union
|
|
|
(concat
|
|
|
(for [column (range 3 ncols)
|
|
|
row (range cornerrow lastrow)]
|
|
|
(triangle-hulls
|
|
|
(key-place column row web-post-bl)
|
|
|
(key-place column row web-post-br)
|
|
|
(key-place column (inc row) web-post-tl)
|
|
|
(key-place column (inc row) web-post-tr)))
|
|
|
|
|
|
(for [column (range 3 (dec ncols))
|
|
|
row (range cornerrow lastrow)]
|
|
|
(triangle-hulls
|
|
|
(key-place column row web-post-br)
|
|
|
(key-place column (inc row) web-post-tr)
|
|
|
(key-place (inc column) row web-post-bl)
|
|
|
(key-place (inc column) (inc row) web-post-tl)))
|
|
|
|
|
|
(for [column (range 4 (dec ncols))
|
|
|
row (range lastrow nrows)]
|
|
|
(triangle-hulls
|
|
|
(key-place (inc column) row web-post-tl)
|
|
|
(key-place column row web-post-tr)
|
|
|
(key-place (inc column) row web-post-bl)
|
|
|
(key-place column row web-post-br)))))))
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;
|
|
|
;; Manuform Thumb ;;
|
|
|
;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
(def thumborigin
|
|
|
(map + (key-position (+ innercol-offset 1) cornerrow [(/ mount-width 2) (- (/ mount-height 2)) 0])
|
|
|
thumb-offsets))
|
|
|
|
|
|
(defn thumb-tr-place [shape]
|
|
|
(->> shape
|
|
|
(rotate (deg2rad 10) [1 0 0])
|
|
|
(rotate (deg2rad -23) [0 1 0])
|
|
|
(rotate (deg2rad 10) [0 0 1])
|
|
|
(translate thumborigin)
|
|
|
(translate [-12 -16 3])
|
|
|
))
|
|
|
(defn thumb-tl-place [shape]
|
|
|
(->> shape
|
|
|
(rotate (deg2rad 10) [1 0 0])
|
|
|
(rotate (deg2rad -23) [0 1 0])
|
|
|
(rotate (deg2rad 10) [0 0 1])
|
|
|
(translate thumborigin)
|
|
|
(translate [-32 -15 -2])))
|
|
|
(defn thumb-mr-place [shape]
|
|
|
(->> shape
|
|
|
(rotate (deg2rad -6) [1 0 0])
|
|
|
(rotate (deg2rad -34) [0 1 0])
|
|
|
(rotate (deg2rad 48) [0 0 1])
|
|
|
(translate thumborigin)
|
|
|
(translate [-29 -40 -13])
|
|
|
))
|
|
|
(defn thumb-ml-place [shape]
|
|
|
(->> shape
|
|
|
(rotate (deg2rad 6) [1 0 0])
|
|
|
(rotate (deg2rad -34) [0 1 0])
|
|
|
(rotate (deg2rad 40) [0 0 1])
|
|
|
(translate thumborigin)
|
|
|
(translate [-51 -25 -12])))
|
|
|
(defn thumb-br-place [shape]
|
|
|
(->> shape
|
|
|
(rotate (deg2rad -16) [1 0 0])
|
|
|
(rotate (deg2rad -33) [0 1 0])
|
|
|
(rotate (deg2rad 54) [0 0 1])
|
|
|
(translate thumborigin)
|
|
|
(translate [-37.8 -55.3 -25.3])
|
|
|
))
|
|
|
(defn thumb-bl-place [shape]
|
|
|
(->> shape
|
|
|
(rotate (deg2rad -4) [1 0 0])
|
|
|
(rotate (deg2rad -35) [0 1 0])
|
|
|
(rotate (deg2rad 52) [0 0 1])
|
|
|
(translate thumborigin)
|
|
|
(translate [-56.3 -43.3 -23.5])
|
|
|
))
|
|
|
|
|
|
(defn thumb-1x-layout [shape]
|
|
|
(union
|
|
|
(thumb-mr-place shape)
|
|
|
(thumb-ml-place shape)
|
|
|
(thumb-br-place shape)
|
|
|
(thumb-bl-place shape)))
|
|
|
|
|
|
(defn thumb-15x-layout [shape]
|
|
|
(union
|
|
|
(thumb-tr-place shape)
|
|
|
(thumb-tl-place shape)))
|
|
|
|
|
|
(def larger-plate
|
|
|
(let [plate-height (/ (- sa-double-length mount-height) 3)
|
|
|
top-plate (->> (cube mount-width plate-height web-thickness)
|
|
|
(translate [0 (/ (+ plate-height mount-height) 2)
|
|
|
(- plate-thickness (/ web-thickness 2))]))
|
|
|
]
|
|
|
(union top-plate (mirror [0 1 0] top-plate))))
|
|
|
|
|
|
(def larger-plate-half
|
|
|
(let [plate-height (/ (- sa-double-length mount-height) 3)
|
|
|
top-plate (->> (cube mount-width plate-height web-thickness)
|
|
|
(translate [0 (/ (+ plate-height mount-height) 2)
|
|
|
(- plate-thickness (/ web-thickness 2))]))
|
|
|
]
|
|
|
(union top-plate (mirror [0 0 0] top-plate))))
|
|
|
|
|
|
(def thumbcaps
|
|
|
(union
|
|
|
(thumb-1x-layout (sa-cap 1))
|
|
|
(thumb-15x-layout (rotate (/ π 2) [0 0 1] (sa-cap 1.5)))))
|
|
|
|
|
|
(def thumbcaps-fill
|
|
|
(union
|
|
|
(thumb-1x-layout keyhole-fill)
|
|
|
(thumb-15x-layout (rotate (/ π 2) [0 0 1] keyhole-fill))))
|
|
|
|
|
|
(def thumb
|
|
|
(union
|
|
|
(thumb-1x-layout (rotate (/ π 2) [0 0 0] single-plate))
|
|
|
(thumb-tr-place (rotate (/ π 2) [0 0 1] single-plate))
|
|
|
(thumb-tr-place larger-plate)
|
|
|
(thumb-tl-place (rotate (/ π 2) [0 0 1] single-plate))
|
|
|
(thumb-tl-place larger-plate-half)))
|
|
|
|
|
|
(def thumb-post-tr (translate [(- (/ mount-width 2) post-adj) (- (/ mount-height 1.1) post-adj) 0] web-post))
|
|
|
(def thumb-post-tl (translate [(+ (/ mount-width -2) post-adj) (- (/ mount-height 1.1) post-adj) 0] web-post))
|
|
|
(def thumb-post-bl (translate [(+ (/ mount-width -2) post-adj) (+ (/ mount-height -1.1) post-adj) 0] web-post))
|
|
|
(def thumb-post-br (translate [(- (/ mount-width 2) post-adj) (+ (/ mount-height -1.1) post-adj) 0] web-post))
|
|
|
|
|
|
(def thumb-connectors
|
|
|
(union
|
|
|
(triangle-hulls ; top two
|
|
|
(thumb-tl-place thumb-post-tr)
|
|
|
(thumb-tl-place (translate [-0.33 -0.25 0] web-post-br))
|
|
|
(thumb-tr-place thumb-post-tl)
|
|
|
(thumb-tr-place thumb-post-bl))
|
|
|
(triangle-hulls ; bottom two on the right
|
|
|
(thumb-br-place web-post-tr)
|
|
|
(thumb-br-place web-post-br)
|
|
|
(thumb-mr-place web-post-tl)
|
|
|
(thumb-mr-place web-post-bl))
|
|
|
(triangle-hulls ; bottom two on the left
|
|
|
(thumb-bl-place web-post-tr)
|
|
|
(thumb-bl-place web-post-br)
|
|
|
(thumb-ml-place web-post-tl)
|
|
|
(thumb-ml-place web-post-bl))
|
|
|
(triangle-hulls ; centers of the bottom four
|
|
|
(thumb-br-place web-post-tl)
|
|
|
(thumb-bl-place web-post-bl)
|
|
|
(thumb-br-place web-post-tr)
|
|
|
(thumb-bl-place web-post-br)
|
|
|
(thumb-mr-place web-post-tl)
|
|
|
(thumb-ml-place web-post-bl)
|
|
|
(thumb-mr-place web-post-tr)
|
|
|
(thumb-ml-place web-post-br))
|
|
|
(triangle-hulls ; top two to the middle two, starting on the left
|
|
|
(thumb-tl-place thumb-post-tl)
|
|
|
(thumb-ml-place web-post-tr)
|
|
|
(thumb-tl-place (translate [0.25 0.1 0] web-post-bl))
|
|
|
(thumb-ml-place web-post-br)
|
|
|
(thumb-tl-place (translate [-0.33 -0.25 0] web-post-br))
|
|
|
(thumb-mr-place web-post-tr)
|
|
|
(thumb-tr-place thumb-post-bl)
|
|
|
(thumb-mr-place web-post-br)
|
|
|
(thumb-tr-place thumb-post-br))
|
|
|
(triangle-hulls ; top two to the main keyboard, starting on the left
|
|
|
(thumb-tl-place thumb-post-tl)
|
|
|
(key-place (+ innercol-offset 0) cornerrow web-post-bl)
|
|
|
(thumb-tl-place thumb-post-tr)
|
|
|
(key-place (+ innercol-offset 0) cornerrow web-post-br)
|
|
|
(thumb-tr-place thumb-post-tl)
|
|
|
(key-place (+ innercol-offset 1) cornerrow web-post-bl)
|
|
|
(thumb-tr-place thumb-post-tr)
|
|
|
(key-place (+ innercol-offset 1) cornerrow web-post-br)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-tl)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-bl)
|
|
|
(thumb-tr-place thumb-post-tr)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-bl)
|
|
|
(thumb-tr-place thumb-post-br)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-br)
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-bl)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-tl)
|
|
|
(key-place (+ innercol-offset 3) cornerrow web-post-bl)
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 3) cornerrow web-post-br))
|
|
|
(triangle-hulls
|
|
|
(key-place (+ innercol-offset 1) cornerrow web-post-br)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-tl)
|
|
|
(key-place (+ innercol-offset 2) cornerrow web-post-bl)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 2) cornerrow web-post-br)
|
|
|
(key-place (+ innercol-offset 3) cornerrow web-post-bl))
|
|
|
(if extra-row
|
|
|
(union
|
|
|
(triangle-hulls
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-br)
|
|
|
(key-place (+ innercol-offset 4) lastrow web-post-tl)
|
|
|
(key-place (+ innercol-offset 4) lastrow web-post-bl))
|
|
|
(triangle-hulls
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 3) cornerrow web-post-br)
|
|
|
(key-place (+ innercol-offset 4) lastrow web-post-tl)
|
|
|
(key-place (+ innercol-offset 4) cornerrow web-post-bl)))
|
|
|
(union
|
|
|
(triangle-hulls
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-br)
|
|
|
(key-place (+ innercol-offset 4) cornerrow web-post-bl))
|
|
|
(triangle-hulls
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 3) cornerrow web-post-br)
|
|
|
(key-place (+ innercol-offset 4) cornerrow web-post-bl))))))
|
|
|
|
|
|
;;;;;;;;;;;;;;;;
|
|
|
;; Mini Thumb ;;
|
|
|
;;;;;;;;;;;;;;;;
|
|
|
|
|
|
(defn minithumb-tr-place [shape]
|
|
|
(->> shape
|
|
|
(rotate (deg2rad 14) [1 0 0])
|
|
|
(rotate (deg2rad -15) [0 1 0])
|
|
|
(rotate (deg2rad 10) [0 0 1]) ; original 10
|
|
|
(translate thumborigin)
|
|
|
(translate [-15 -10 5]))) ; original 1.5u (translate [-12 -16 3])
|
|
|
(defn minithumb-tl-place [shape]
|
|
|
(->> shape
|
|
|
(rotate (deg2rad 10) [1 0 0])
|
|
|
(rotate (deg2rad -23) [0 1 0])
|
|
|
(rotate (deg2rad 25) [0 0 1]) ; original 10
|
|
|
(translate thumborigin)
|
|
|
(translate [-35 -16 -2]))) ; original 1.5u (translate [-32 -15 -2])))
|
|
|
(defn minithumb-mr-place [shape]
|
|
|
(->> shape
|
|
|
(rotate (deg2rad 10) [1 0 0])
|
|
|
(rotate (deg2rad -23) [0 1 0])
|
|
|
(rotate (deg2rad 25) [0 0 1])
|
|
|
(translate thumborigin)
|
|
|
(translate [-23 -34 -6])))
|
|
|
(defn minithumb-br-place [shape]
|
|
|
(->> shape
|
|
|
(rotate (deg2rad 6) [1 0 0])
|
|
|
(rotate (deg2rad -34) [0 1 0])
|
|
|
(rotate (deg2rad 35) [0 0 1])
|
|
|
(translate thumborigin)
|
|
|
(translate [-39 -43 -16])))
|
|
|
(defn minithumb-bl-place [shape]
|
|
|
(->> shape
|
|
|
(rotate (deg2rad 6) [1 0 0])
|
|
|
(rotate (deg2rad -32) [0 1 0])
|
|
|
(rotate (deg2rad 35) [0 0 1])
|
|
|
(translate thumborigin)
|
|
|
(translate [-51 -25 -11.5]))) ; (translate [-51 -25 -12])))
|
|
|
|
|
|
(defn minithumb-1x-layout [shape]
|
|
|
(union
|
|
|
(minithumb-mr-place shape)
|
|
|
(minithumb-br-place shape)
|
|
|
(minithumb-tl-place shape)
|
|
|
(minithumb-bl-place shape)))
|
|
|
|
|
|
(defn minithumb-15x-layout [shape]
|
|
|
(union
|
|
|
(minithumb-tr-place shape)))
|
|
|
|
|
|
(def minithumbcaps
|
|
|
(union
|
|
|
(minithumb-1x-layout (sa-cap 1))
|
|
|
(minithumb-15x-layout (rotate (/ π 2) [0 0 1] (sa-cap 1)))))
|
|
|
|
|
|
(def minithumbcaps-fill
|
|
|
(union
|
|
|
(minithumb-1x-layout keyhole-fill)
|
|
|
(minithumb-15x-layout (rotate (/ π 2) [0 0 1] keyhole-fill))))
|
|
|
|
|
|
(def minithumb
|
|
|
(union
|
|
|
(minithumb-1x-layout single-plate)
|
|
|
(minithumb-15x-layout single-plate)))
|
|
|
|
|
|
(def minithumb-post-tr (translate [(- (/ mount-width 2) post-adj) (- (/ mount-height 2) post-adj) 0] web-post))
|
|
|
(def minithumb-post-tl (translate [(+ (/ mount-width -2) post-adj) (- (/ mount-height 2) post-adj) 0] web-post))
|
|
|
(def minithumb-post-bl (translate [(+ (/ mount-width -2) post-adj) (+ (/ mount-height -2) post-adj) 0] web-post))
|
|
|
(def minithumb-post-br (translate [(- (/ mount-width 2) post-adj) (+ (/ mount-height -2) post-adj) 0] web-post))
|
|
|
|
|
|
(def minithumb-connectors
|
|
|
(union
|
|
|
(triangle-hulls ; top two
|
|
|
(minithumb-tl-place web-post-tr)
|
|
|
(minithumb-tl-place web-post-br)
|
|
|
(minithumb-tr-place minithumb-post-tl)
|
|
|
(minithumb-tr-place minithumb-post-bl))
|
|
|
(triangle-hulls ; bottom two
|
|
|
(minithumb-br-place web-post-tr)
|
|
|
(minithumb-br-place web-post-br)
|
|
|
(minithumb-mr-place web-post-tl)
|
|
|
(minithumb-mr-place web-post-bl))
|
|
|
(triangle-hulls
|
|
|
(minithumb-mr-place web-post-tr)
|
|
|
(minithumb-mr-place web-post-br)
|
|
|
(minithumb-tr-place minithumb-post-br))
|
|
|
(triangle-hulls ; between top row and bottom row
|
|
|
(minithumb-br-place web-post-tl)
|
|
|
(minithumb-bl-place web-post-bl)
|
|
|
(minithumb-br-place web-post-tr)
|
|
|
(minithumb-bl-place web-post-br)
|
|
|
(minithumb-mr-place web-post-tl)
|
|
|
(minithumb-tl-place web-post-bl)
|
|
|
(minithumb-mr-place web-post-tr)
|
|
|
(minithumb-tl-place web-post-br)
|
|
|
(minithumb-tr-place web-post-bl)
|
|
|
(minithumb-mr-place web-post-tr)
|
|
|
(minithumb-tr-place web-post-br))
|
|
|
(triangle-hulls ; top two to the middle two, starting on the left
|
|
|
(minithumb-tl-place web-post-tl)
|
|
|
(minithumb-bl-place web-post-tr)
|
|
|
(minithumb-tl-place web-post-bl)
|
|
|
(minithumb-bl-place web-post-br)
|
|
|
(minithumb-mr-place web-post-tr)
|
|
|
(minithumb-tl-place web-post-bl)
|
|
|
(minithumb-tl-place web-post-br)
|
|
|
(minithumb-mr-place web-post-tr))
|
|
|
(triangle-hulls ; top two to the main keyboard, starting on the left
|
|
|
(minithumb-tl-place web-post-tl)
|
|
|
(key-place (+ innercol-offset 0) cornerrow web-post-bl)
|
|
|
(minithumb-tl-place web-post-tr)
|
|
|
(key-place (+ innercol-offset 0) cornerrow web-post-br)
|
|
|
(minithumb-tr-place minithumb-post-tl)
|
|
|
(key-place (+ innercol-offset 1) cornerrow web-post-bl)
|
|
|
(minithumb-tr-place minithumb-post-tr)
|
|
|
(key-place (+ innercol-offset 1) cornerrow web-post-br)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-tl)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-bl)
|
|
|
(minithumb-tr-place minithumb-post-tr)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-bl)
|
|
|
(minithumb-tr-place minithumb-post-br)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-br)
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-bl)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-tl)
|
|
|
(key-place (+ innercol-offset 3) cornerrow web-post-bl)
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 3) cornerrow web-post-br)
|
|
|
)
|
|
|
(triangle-hulls
|
|
|
(key-place (+ innercol-offset 1) cornerrow web-post-br)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-tl)
|
|
|
(key-place (+ innercol-offset 2) cornerrow web-post-bl)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 2) cornerrow web-post-br)
|
|
|
(key-place (+ innercol-offset 3) cornerrow web-post-bl))
|
|
|
(if extra-row
|
|
|
(union
|
|
|
(triangle-hulls
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-br)
|
|
|
(key-place (+ innercol-offset 4) lastrow web-post-tl)
|
|
|
(key-place (+ innercol-offset 4) lastrow web-post-bl))
|
|
|
(triangle-hulls
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 3) cornerrow web-post-br)
|
|
|
(key-place (+ innercol-offset 4) lastrow web-post-tl)
|
|
|
(key-place (+ innercol-offset 4) cornerrow web-post-bl)))
|
|
|
(union
|
|
|
(triangle-hulls
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-br)
|
|
|
(key-place (+ innercol-offset 4) cornerrow web-post-bl))
|
|
|
(triangle-hulls
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 3) cornerrow web-post-br)
|
|
|
(key-place (+ innercol-offset 4) cornerrow web-post-bl))))))
|
|
|
|
|
|
;;;;;;;;;;;;;;;;
|
|
|
;; CF Thumb ;;
|
|
|
;;;;;;;;;;;;;;;;
|
|
|
|
|
|
(defn cfthumb-tl-place [shape]
|
|
|
(->> shape
|
|
|
(rotate (deg2rad 10) [1 0 0])
|
|
|
(rotate (deg2rad -24) [0 1 0])
|
|
|
(rotate (deg2rad 10) [0 0 1])
|
|
|
(translate thumborigin)
|
|
|
(translate [-13 -9.8 4])))
|
|
|
(defn cfthumb-tr-place [shape]
|
|
|
(->> shape
|
|
|
(rotate (deg2rad 6) [1 0 0])
|
|
|
(rotate (deg2rad -24) [0 1 0])
|
|
|
(rotate (deg2rad 10) [0 0 1])
|
|
|
(translate thumborigin)
|
|
|
(translate [-7.5 -29.5 0])))
|
|
|
(defn cfthumb-ml-place [shape]
|
|
|
(->> shape
|
|
|
(rotate (deg2rad 8) [1 0 0])
|
|
|
(rotate (deg2rad -31) [0 1 0])
|
|
|
(rotate (deg2rad 14) [0 0 1])
|
|
|
(translate thumborigin)
|
|
|
(translate [-30.5 -17 -6])))
|
|
|
(defn cfthumb-mr-place [shape]
|
|
|
(->> shape
|
|
|
(rotate (deg2rad 4) [1 0 0])
|
|
|
(rotate (deg2rad -31) [0 1 0])
|
|
|
(rotate (deg2rad 14) [0 0 1])
|
|
|
(translate thumborigin)
|
|
|
(translate [-22.2 -41 -10.3])))
|
|
|
(defn cfthumb-br-place [shape]
|
|
|
(->> shape
|
|
|
(rotate (deg2rad 2) [1 0 0])
|
|
|
(rotate (deg2rad -37) [0 1 0])
|
|
|
(rotate (deg2rad 18) [0 0 1])
|
|
|
(translate thumborigin)
|
|
|
(translate [-37 -46.4 -22])))
|
|
|
(defn cfthumb-bl-place [shape]
|
|
|
(->> shape
|
|
|
(rotate (deg2rad 6) [1 0 0])
|
|
|
(rotate (deg2rad -37) [0 1 0])
|
|
|
(rotate (deg2rad 18) [0 0 1])
|
|
|
(translate thumborigin)
|
|
|
(translate [-47 -23 -19])))
|
|
|
|
|
|
(defn cfthumb-1x-layout [shape]
|
|
|
(union
|
|
|
(cfthumb-tr-place (rotate (/ π 2) [0 0 0] shape))
|
|
|
(cfthumb-mr-place shape)
|
|
|
(cfthumb-br-place shape)
|
|
|
(cfthumb-tl-place (rotate (/ π 2) [0 0 0] shape))))
|
|
|
|
|
|
(defn cfthumb-15x-layout [shape]
|
|
|
(union
|
|
|
(cfthumb-bl-place shape)
|
|
|
(cfthumb-ml-place shape)))
|
|
|
|
|
|
(def cfthumbcaps
|
|
|
(union
|
|
|
(cfthumb-1x-layout (sa-cap 1))
|
|
|
(cfthumb-15x-layout (rotate (/ π 2) [0 0 1] (sa-cap 1.5)))))
|
|
|
|
|
|
(def cfthumbcaps-fill
|
|
|
(union
|
|
|
(cfthumb-1x-layout keyhole-fill)
|
|
|
(cfthumb-15x-layout (rotate (/ π 2) [0 0 1] keyhole-fill))))
|
|
|
|
|
|
(def cfthumb
|
|
|
(union
|
|
|
(cfthumb-1x-layout single-plate)
|
|
|
(cfthumb-15x-layout larger-plate-half)
|
|
|
(cfthumb-15x-layout single-plate)))
|
|
|
|
|
|
(def cfthumb-connectors
|
|
|
(union
|
|
|
(triangle-hulls ; top two
|
|
|
(cfthumb-tl-place web-post-tl)
|
|
|
(cfthumb-tl-place web-post-bl)
|
|
|
(cfthumb-ml-place thumb-post-tr)
|
|
|
(cfthumb-ml-place web-post-br))
|
|
|
(triangle-hulls
|
|
|
(cfthumb-ml-place thumb-post-tl)
|
|
|
(cfthumb-ml-place web-post-bl)
|
|
|
(cfthumb-bl-place thumb-post-tr)
|
|
|
(cfthumb-bl-place web-post-br))
|
|
|
(triangle-hulls ; bottom two
|
|
|
(cfthumb-br-place web-post-tr)
|
|
|
(cfthumb-br-place web-post-br)
|
|
|
(cfthumb-mr-place web-post-tl)
|
|
|
(cfthumb-mr-place web-post-bl))
|
|
|
(triangle-hulls
|
|
|
(cfthumb-mr-place web-post-tr)
|
|
|
(cfthumb-mr-place web-post-br)
|
|
|
(cfthumb-tr-place web-post-tl)
|
|
|
(cfthumb-tr-place web-post-bl))
|
|
|
(triangle-hulls
|
|
|
(cfthumb-tr-place web-post-br)
|
|
|
(cfthumb-tr-place web-post-bl)
|
|
|
(cfthumb-mr-place web-post-br))
|
|
|
(triangle-hulls ; between top row and bottom row
|
|
|
(cfthumb-br-place web-post-tl)
|
|
|
(cfthumb-bl-place web-post-bl)
|
|
|
(cfthumb-br-place web-post-tr)
|
|
|
(cfthumb-bl-place web-post-br)
|
|
|
(cfthumb-mr-place web-post-tl)
|
|
|
(cfthumb-ml-place web-post-bl)
|
|
|
(cfthumb-mr-place web-post-tr)
|
|
|
(cfthumb-ml-place web-post-br)
|
|
|
(cfthumb-tr-place web-post-tl)
|
|
|
(cfthumb-tl-place web-post-bl)
|
|
|
(cfthumb-tr-place web-post-tr)
|
|
|
(cfthumb-tl-place web-post-br))
|
|
|
(triangle-hulls ; top two to the main keyboard, starting on the left
|
|
|
(cfthumb-ml-place thumb-post-tl)
|
|
|
(key-place (+ innercol-offset 0) cornerrow web-post-bl)
|
|
|
(cfthumb-ml-place thumb-post-tr)
|
|
|
(key-place (+ innercol-offset 0) cornerrow web-post-br)
|
|
|
(cfthumb-tl-place web-post-tl)
|
|
|
(key-place (+ innercol-offset 1) cornerrow web-post-bl)
|
|
|
(cfthumb-tl-place web-post-tr)
|
|
|
(key-place (+ innercol-offset 1) cornerrow web-post-br)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-tl)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-bl)
|
|
|
(cfthumb-tl-place web-post-tr)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-bl)
|
|
|
(cfthumb-tl-place web-post-br)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-br)
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-bl)
|
|
|
(cfthumb-tl-place web-post-br)
|
|
|
(cfthumb-tr-place web-post-tr))
|
|
|
(triangle-hulls
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 3) cornerrow web-post-br)
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-tl)
|
|
|
(key-place (+ innercol-offset 3) cornerrow web-post-bl))
|
|
|
(triangle-hulls
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-br)
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-tl)
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-bl))
|
|
|
(triangle-hulls
|
|
|
(cfthumb-tr-place web-post-br)
|
|
|
(cfthumb-tr-place web-post-tr)
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-bl))
|
|
|
(triangle-hulls
|
|
|
(key-place (+ innercol-offset 1) cornerrow web-post-br)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-tl)
|
|
|
(key-place (+ innercol-offset 2) cornerrow web-post-bl)
|
|
|
(key-place (+ innercol-offset 2) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 2) cornerrow web-post-br)
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-tl)
|
|
|
(key-place (+ innercol-offset 3) cornerrow web-post-bl))
|
|
|
(if extra-row
|
|
|
(union
|
|
|
(triangle-hulls
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-br)
|
|
|
(key-place (+ innercol-offset 4) lastrow web-post-tl)
|
|
|
(key-place (+ innercol-offset 4) lastrow web-post-bl))
|
|
|
(triangle-hulls
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 3) cornerrow web-post-br)
|
|
|
(key-place (+ innercol-offset 4) lastrow web-post-tl)
|
|
|
(key-place (+ innercol-offset 4) cornerrow web-post-bl)))
|
|
|
(union
|
|
|
(triangle-hulls
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-br)
|
|
|
(key-place (+ innercol-offset 4) cornerrow web-post-bl))
|
|
|
(triangle-hulls
|
|
|
(key-place (+ innercol-offset 3) lastrow web-post-tr)
|
|
|
(key-place (+ innercol-offset 3) cornerrow web-post-br)
|
|
|
(key-place (+ innercol-offset 4) cornerrow web-post-bl))))))
|
|
|
|
|
|
;switching connectors, switchplates, etc. depending on thumb-style used
|
|
|
(when (= thumb-style "manuform")
|
|
|
(def thumb-type thumb)
|
|
|
(def thumb-connector-type thumb-connectors)
|
|
|
(def thumbcaps-type thumbcaps)
|
|
|
(def thumbcaps-fill-type thumbcaps-fill))
|
|
|
|
|
|
(when (= thumb-style "cf")
|
|
|
(def thumb-type cfthumb)
|
|
|
(def thumb-connector-type cfthumb-connectors)
|
|
|
(def thumbcaps-type cfthumbcaps)
|
|
|
(def thumbcaps-fill-type cfthumbcaps-fill))
|
|
|
|
|
|
(when (= thumb-style "mini")
|
|
|
(def thumb-type minithumb)
|
|
|
(def thumb-connector-type minithumb-connectors)
|
|
|
(def thumbcaps-type minithumbcaps)
|
|
|
(def thumbcaps-fill-type minithumbcaps-fill))
|
|
|
|
|
|
;;;;;;;;;;
|
|
|
;; Case ;;
|
|
|
;;;;;;;;;;
|
|
|
|
|
|
(defn bottom [height p]
|
|
|
(->> (project p)
|
|
|
(extrude-linear {:height height :twist 0 :convexity 0})
|
|
|
(translate [0 0 (- (/ height 2) 10)])))
|
|
|
|
|
|
(defn bottom-hull [& p]
|
|
|
(hull p (bottom 0.001 p)))
|
|
|
|
|
|
(def left-wall-x-offset (if inner-column 4 9))
|
|
|
(def left-wall-z-offset 1)
|
|
|
|
|
|
(defn left-key-position [row direction]
|
|
|
(map - (key-position 0 row [(* mount-width -0.5) (* direction mount-height 0.5) 0]) [left-wall-x-offset 0 left-wall-z-offset]) )
|
|
|
|
|
|
(defn left-key-place [row direction shape]
|
|
|
(translate (left-key-position row direction) shape))
|
|
|
|
|
|
(defn wall-locate1 [dx dy] [(* dx wall-thickness) (* dy wall-thickness) -1])
|
|
|
(defn wall-locate2 [dx dy] [(* dx wall-xy-offset) (* dy wall-xy-offset) wall-z-offset])
|
|
|
(defn wall-locate3 [dx dy] [(* dx (+ wall-xy-offset wall-thickness)) (* dy (+ wall-xy-offset wall-thickness)) wall-z-offset])
|
|
|
|
|
|
(defn wall-brace [place1 dx1 dy1 post1 place2 dx2 dy2 post2]
|
|
|
(union
|
|
|
(hull
|
|
|
(place1 post1)
|
|
|
(place1 (translate (wall-locate1 dx1 dy1) post1))
|
|
|
(place1 (translate (wall-locate2 dx1 dy1) post1))
|
|
|
(place1 (translate (wall-locate3 dx1 dy1) post1))
|
|
|
(place2 post2)
|
|
|
(place2 (translate (wall-locate1 dx2 dy2) post2))
|
|
|
(place2 (translate (wall-locate2 dx2 dy2) post2))
|
|
|
(place2 (translate (wall-locate3 dx2 dy2) post2)))
|
|
|
(bottom-hull
|
|
|
(place1 (translate (wall-locate2 dx1 dy1) post1))
|
|
|
(place1 (translate (wall-locate3 dx1 dy1) post1))
|
|
|
(place2 (translate (wall-locate2 dx2 dy2) post2))
|
|
|
(place2 (translate (wall-locate3 dx2 dy2) post2)))))
|
|
|
|
|
|
(defn key-wall-brace [x1 y1 dx1 dy1 post1 x2 y2 dx2 dy2 post2]
|
|
|
(wall-brace (partial key-place x1 y1) dx1 dy1 post1
|
|
|
(partial key-place x2 y2) dx2 dy2 post2))
|
|
|
|
|
|
(def right-wall
|
|
|
(if pinky-15u
|
|
|
(union
|
|
|
; corner between the right wall and back wall
|
|
|
(if (> first-15u-row 0)
|
|
|
(key-wall-brace lastcol 0 0 1 web-post-tr lastcol 0 1 0 web-post-tr)
|
|
|
(union (key-wall-brace lastcol 0 0 1 web-post-tr lastcol 0 0 1 wide-post-tr)
|
|
|
(key-wall-brace lastcol 0 0 1 wide-post-tr lastcol 0 1 0 wide-post-tr)))
|
|
|
; corner between the right wall and front wall
|
|
|
(if (= last-15u-row extra-cornerrow)
|
|
|
(union (key-wall-brace lastcol extra-cornerrow 0 -1 web-post-br lastcol extra-cornerrow 0 -1 wide-post-br)
|
|
|
(key-wall-brace lastcol extra-cornerrow 0 -1 wide-post-br lastcol extra-cornerrow 1 0 wide-post-br))
|
|
|
(key-wall-brace lastcol extra-cornerrow 0 -1 web-post-br lastcol extra-cornerrow 1 0 web-post-br))
|
|
|
|
|
|
(if (>= first-15u-row 2)
|
|
|
(for [y (range 0 (dec first-15u-row))]
|
|
|
(union (key-wall-brace lastcol y 1 0 web-post-tr lastcol y 1 0 web-post-br)
|
|
|
(key-wall-brace lastcol y 1 0 web-post-br lastcol (inc y) 1 0 web-post-tr))))
|
|
|
|
|
|
(if (>= first-15u-row 1)
|
|
|
(for [y (range (dec first-15u-row) first-15u-row)] (key-wall-brace lastcol y 1 0 web-post-tr lastcol (inc y) 1 0 wide-post-tr)))
|
|
|
|
|
|
(for [y (range first-15u-row (inc last-15u-row))] (key-wall-brace lastcol y 1 0 wide-post-tr lastcol y 1 0 wide-post-br))
|
|
|
(for [y (range first-15u-row last-15u-row)] (key-wall-brace lastcol (inc y) 1 0 wide-post-tr lastcol y 1 0 wide-post-br))
|
|
|
|
|
|
(if (<= last-15u-row (- extra-cornerrow 1))
|
|
|
(for [y (range last-15u-row (inc last-15u-row))] (key-wall-brace lastcol y 1 0 wide-post-br lastcol (inc y) 1 0 web-post-br)))
|
|
|
|
|
|
(if (<= last-15u-row (- extra-cornerrow 2))
|
|
|
(for [y (range (inc last-15u-row) extra-cornerrow)]
|
|
|
(union (key-wall-brace lastcol y 1 0 web-post-br lastcol (inc y) 1 0 web-post-tr)
|
|
|
(key-wall-brace lastcol (inc y) 1 0 web-post-tr lastcol (inc y) 1 0 web-post-br))))
|
|
|
)
|
|
|
(union (key-wall-brace lastcol 0 0 1 web-post-tr lastcol 0 1 0 web-post-tr)
|
|
|
(if extra-row
|
|
|
(union (for [y (range 0 (inc lastrow))] (key-wall-brace lastcol y 1 0 web-post-tr lastcol y 1 0 web-post-br))
|
|
|
(for [y (range 1 (inc lastrow))] (key-wall-brace lastcol (dec y) 1 0 web-post-br lastcol y 1 0 web-post-tr)))
|
|
|
(union (for [y (range 0 lastrow)] (key-wall-brace lastcol y 1 0 web-post-tr lastcol y 1 0 web-post-br))
|
|
|
(for [y (range 1 lastrow)] (key-wall-brace lastcol (dec y) 1 0 web-post-br lastcol y 1 0 web-post-tr)))
|
|
|
)
|
|
|
(key-wall-brace lastcol extra-cornerrow 0 -1 web-post-br lastcol extra-cornerrow 1 0 web-post-br)
|
|
|
)))
|
|
|
|
|
|
(def cf-thumb-offset (if inner-column -0.3 -1.7))
|
|
|
(def cf-thumb-wall
|
|
|
(union
|
|
|
; thumb walls
|
|
|
(wall-brace cfthumb-mr-place 0 -1 web-post-br cfthumb-tr-place 0 -1 web-post-br)
|
|
|
(wall-brace cfthumb-mr-place 0 -1 web-post-br cfthumb-mr-place 0 -1.15 web-post-bl)
|
|
|
(wall-brace cfthumb-br-place 0 -1 web-post-br cfthumb-br-place 0 -1 web-post-bl)
|
|
|
(wall-brace cfthumb-bl-place cf-thumb-offset 1 thumb-post-tr cfthumb-bl-place 0 1 thumb-post-tl)
|
|
|
(wall-brace cfthumb-br-place -1 0 web-post-tl cfthumb-br-place -1 0 web-post-bl)
|
|
|
(wall-brace cfthumb-bl-place -1 0 thumb-post-tl cfthumb-bl-place -1 0 web-post-bl)
|
|
|
; cfthumb corners
|
|
|
(wall-brace cfthumb-br-place -1 0 web-post-bl cfthumb-br-place 0 -1 web-post-bl)
|
|
|
(wall-brace cfthumb-bl-place -1 0 thumb-post-tl cfthumb-bl-place 0 1 thumb-post-tl)
|
|
|
; cfthumb tweeners
|
|
|
(wall-brace cfthumb-mr-place 0 -1.15 web-post-bl cfthumb-br-place 0 -1 web-post-br)
|
|
|
(wall-brace cfthumb-bl-place -1 0 web-post-bl cfthumb-br-place -1 0 web-post-tl)
|
|
|
(wall-brace cfthumb-tr-place 0 -1 web-post-br (partial key-place (+ innercol-offset 3) lastrow) 0 -1 web-post-bl)
|
|
|
; clunky bit on the top left cfthumb connection (normal connectors don't work well)
|
|
|
(bottom-hull
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate2 -1 0) web-post))
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate3 -1 0) web-post))
|
|
|
(cfthumb-bl-place (translate (wall-locate2 cf-thumb-offset 1) thumb-post-tr))
|
|
|
(cfthumb-bl-place (translate (wall-locate3 cf-thumb-offset 1) thumb-post-tr)))
|
|
|
(hull
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate2 -1 0) web-post))
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate3 -1 0) web-post))
|
|
|
(cfthumb-bl-place (translate (wall-locate2 cf-thumb-offset 1) thumb-post-tr))
|
|
|
(cfthumb-bl-place (translate (wall-locate3 cf-thumb-offset 1) thumb-post-tr))
|
|
|
(cfthumb-ml-place thumb-post-tl))
|
|
|
(hull
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 web-post)
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate1 -1 0) web-post))
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate2 -1 0) web-post))
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate3 -1 0) web-post))
|
|
|
(cfthumb-ml-place thumb-post-tl))
|
|
|
(hull
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 web-post)
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate1 -1 0) web-post))
|
|
|
(key-place 0 (- cornerrow innercol-offset) web-post-bl)
|
|
|
(cfthumb-ml-place thumb-post-tl))
|
|
|
(hull
|
|
|
(cfthumb-bl-place thumb-post-tr)
|
|
|
(cfthumb-bl-place (translate (wall-locate1 cf-thumb-offset 1) thumb-post-tr))
|
|
|
(cfthumb-bl-place (translate (wall-locate2 cf-thumb-offset 1) thumb-post-tr))
|
|
|
(cfthumb-bl-place (translate (wall-locate3 cf-thumb-offset 1) thumb-post-tr))
|
|
|
(cfthumb-ml-place thumb-post-tl))
|
|
|
; connectors below the inner column to the thumb & second column
|
|
|
(if inner-column
|
|
|
(union
|
|
|
(hull
|
|
|
(key-place 0 (dec cornerrow) web-post-bl)
|
|
|
(key-place 0 (dec cornerrow) web-post-br)
|
|
|
(key-place 0 cornerrow web-post-tr))
|
|
|
(hull
|
|
|
(key-place 0 cornerrow web-post-tr)
|
|
|
(key-place 1 cornerrow web-post-tl)
|
|
|
(key-place 1 cornerrow web-post-bl))
|
|
|
(hull
|
|
|
(key-place 0 (dec cornerrow) web-post-bl)
|
|
|
(key-place 0 cornerrow web-post-tr)
|
|
|
(key-place 1 cornerrow web-post-bl))
|
|
|
(hull
|
|
|
(key-place 0 (dec cornerrow) web-post-bl)
|
|
|
(key-place 1 cornerrow web-post-bl)
|
|
|
(cfthumb-ml-place thumb-post-tl))))))
|
|
|
|
|
|
(def mini-thumb-wall
|
|
|
(union
|
|
|
; thumb walls
|
|
|
(wall-brace minithumb-mr-place 0 -1 web-post-br minithumb-tr-place 0 -1 minithumb-post-br)
|
|
|
(wall-brace minithumb-mr-place 0 -1 web-post-br minithumb-mr-place 0 -1 web-post-bl)
|
|
|
(wall-brace minithumb-br-place 0 -1 web-post-br minithumb-br-place 0 -1 web-post-bl)
|
|
|
(wall-brace minithumb-bl-place 0 1 web-post-tr minithumb-bl-place 0 1 web-post-tl)
|
|
|
(wall-brace minithumb-br-place -1 0 web-post-tl minithumb-br-place -1 0 web-post-bl)
|
|
|
(wall-brace minithumb-bl-place -1 0 web-post-tl minithumb-bl-place -1 0 web-post-bl)
|
|
|
; minithumb corners
|
|
|
(wall-brace minithumb-br-place -1 0 web-post-bl minithumb-br-place 0 -1 web-post-bl)
|
|
|
(wall-brace minithumb-bl-place -1 0 web-post-tl minithumb-bl-place 0 1 web-post-tl)
|
|
|
; minithumb tweeners
|
|
|
(wall-brace minithumb-mr-place 0 -1 web-post-bl minithumb-br-place 0 -1 web-post-br)
|
|
|
(wall-brace minithumb-bl-place -1 0 web-post-bl minithumb-br-place -1 0 web-post-tl)
|
|
|
(wall-brace minithumb-tr-place 0 -1 minithumb-post-br (partial key-place (+ innercol-offset 3) lastrow) 0 -1 web-post-bl)
|
|
|
; clunky bit on the top left minithumb connection (normal connectors don't work well)
|
|
|
(bottom-hull
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate2 -1 0) web-post))
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate3 -1 0) web-post))
|
|
|
(minithumb-bl-place (translate (wall-locate2 -0.3 1) web-post-tr))
|
|
|
(minithumb-bl-place (translate (wall-locate3 -0.3 1) web-post-tr)))
|
|
|
(hull
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate2 -1 0) web-post))
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate3 -1 0) web-post))
|
|
|
(minithumb-bl-place (translate (wall-locate2 -0.3 1) web-post-tr))
|
|
|
(minithumb-bl-place (translate (wall-locate3 -0.3 1) web-post-tr))
|
|
|
(minithumb-tl-place web-post-tl))
|
|
|
(hull
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 web-post)
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate1 -1 0) web-post))
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate2 -1 0) web-post))
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate3 -1 0) web-post))
|
|
|
(minithumb-tl-place web-post-tl))
|
|
|
(hull
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 web-post)
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate1 -1 0) web-post))
|
|
|
(key-place 0 (- cornerrow innercol-offset) web-post-bl)
|
|
|
(minithumb-tl-place web-post-tl))
|
|
|
(hull
|
|
|
(minithumb-bl-place web-post-tr)
|
|
|
(minithumb-bl-place (translate (wall-locate1 -0.3 1) web-post-tr))
|
|
|
(minithumb-bl-place (translate (wall-locate2 -0.3 1) web-post-tr))
|
|
|
(minithumb-bl-place (translate (wall-locate3 -0.3 1) web-post-tr))
|
|
|
(minithumb-tl-place web-post-tl))
|
|
|
; connectors below the inner column to the thumb & second column
|
|
|
(if inner-column
|
|
|
(union
|
|
|
(hull
|
|
|
(key-place 0 (dec cornerrow) web-post-bl)
|
|
|
(key-place 0 (dec cornerrow) web-post-br)
|
|
|
(key-place 0 cornerrow web-post-tr))
|
|
|
(hull
|
|
|
(key-place 0 cornerrow web-post-tr)
|
|
|
(key-place 1 cornerrow web-post-tl)
|
|
|
(key-place 1 cornerrow web-post-bl))
|
|
|
(hull
|
|
|
(key-place 0 (dec cornerrow) web-post-bl)
|
|
|
(key-place 0 cornerrow web-post-tr)
|
|
|
(key-place 1 cornerrow web-post-bl))
|
|
|
(hull
|
|
|
(key-place 0 (dec cornerrow) web-post-bl)
|
|
|
(key-place 1 cornerrow web-post-bl)
|
|
|
(minithumb-tl-place minithumb-post-tl))))))
|
|
|
|
|
|
(def manuform-thumb-wall
|
|
|
(union
|
|
|
; thumb walls
|
|
|
(wall-brace thumb-mr-place 0 -1 web-post-br thumb-tr-place 0 -1 thumb-post-br)
|
|
|
(wall-brace thumb-mr-place 0 -1 web-post-br thumb-mr-place 0 -1 web-post-bl)
|
|
|
(wall-brace thumb-br-place 0 -1 web-post-br thumb-br-place 0 -1 web-post-bl)
|
|
|
(wall-brace thumb-ml-place -0.3 1 web-post-tr thumb-ml-place 0 1 web-post-tl)
|
|
|
(wall-brace thumb-bl-place 0 1 web-post-tr thumb-bl-place 0 1 web-post-tl)
|
|
|
(wall-brace thumb-br-place -1 0 web-post-tl thumb-br-place -1 0 web-post-bl)
|
|
|
(wall-brace thumb-bl-place -1 0 web-post-tl thumb-bl-place -1 0 web-post-bl)
|
|
|
; thumb corners
|
|
|
(wall-brace thumb-br-place -1 0 web-post-bl thumb-br-place 0 -1 web-post-bl)
|
|
|
(wall-brace thumb-bl-place -1 0 web-post-tl thumb-bl-place 0 1 web-post-tl)
|
|
|
; thumb tweeners
|
|
|
(wall-brace thumb-mr-place 0 -1 web-post-bl thumb-br-place 0 -1 web-post-br)
|
|
|
(wall-brace thumb-ml-place 0 1 web-post-tl thumb-bl-place 0 1 web-post-tr)
|
|
|
(wall-brace thumb-bl-place -1 0 web-post-bl thumb-br-place -1 0 web-post-tl)
|
|
|
(wall-brace thumb-tr-place 0 -1 thumb-post-br (partial key-place (+ innercol-offset 3) lastrow) 0 -1 web-post-bl)
|
|
|
; clunky bit on the top left thumb connection (normal connectors don't work well)
|
|
|
(bottom-hull
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate2 -1 0) web-post))
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate3 -1 0) web-post))
|
|
|
(thumb-ml-place (translate (wall-locate2 -0.3 1) web-post-tr))
|
|
|
(thumb-ml-place (translate (wall-locate3 -0.3 1) web-post-tr)))
|
|
|
(hull
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate2 -1 0) web-post))
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate3 -1 0) web-post))
|
|
|
(thumb-ml-place (translate (wall-locate2 -0.3 1) web-post-tr))
|
|
|
(thumb-ml-place (translate (wall-locate3 -0.3 1) web-post-tr))
|
|
|
(thumb-tl-place thumb-post-tl))
|
|
|
(hull
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 web-post)
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate1 -1 0) web-post))
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate2 -1 0) web-post))
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate3 -1 0) web-post))
|
|
|
(thumb-tl-place thumb-post-tl))
|
|
|
(hull
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 web-post)
|
|
|
(left-key-place (- cornerrow innercol-offset) -1 (translate (wall-locate1 -1 0) web-post))
|
|
|
(key-place 0 (- cornerrow innercol-offset) web-post-bl)
|
|
|
(key-place 0 (- cornerrow innercol-offset) (translate (wall-locate1 0 0) web-post-bl))
|
|
|
(thumb-tl-place thumb-post-tl))
|
|
|
; connectors below the inner column to the thumb & second column
|
|
|
(if inner-column
|
|
|
(union
|
|
|
(hull
|
|
|
(key-place 0 (dec cornerrow) web-post-bl)
|
|
|
(key-place 0 (dec cornerrow) web-post-br)
|
|
|
(key-place 0 cornerrow web-post-tr))
|
|
|
(hull
|
|
|
(key-place 0 cornerrow web-post-tr)
|
|
|
(key-place 1 cornerrow web-post-tl)
|
|
|
(key-place 1 cornerrow web-post-bl))
|
|
|
(hull
|
|
|
(key-place 0 (dec cornerrow) web-post-bl)
|
|
|
(key-place 0 cornerrow web-post-tr)
|
|
|
(key-place 1 cornerrow web-post-bl))
|
|
|
(hull
|
|
|
(key-place 0 (dec cornerrow) web-post-bl)
|
|
|
(key-place 1 cornerrow web-post-bl)
|
|
|
(thumb-tl-place thumb-post-tl))))
|
|
|
(hull
|
|
|
(thumb-ml-place web-post-tr)
|
|
|
(thumb-ml-place (translate (wall-locate1 -0.3 1) web-post-tr))
|
|
|
(thumb-ml-place (translate (wall-locate2 -0.3 1) web-post-tr))
|
|
|
(thumb-ml-place (translate (wall-locate3 -0.3 1) web-post-tr))
|
|
|
(thumb-tl-place thumb-post-tl))))
|
|
|
|
|
|
;switching walls depending on thumb-style used
|
|
|
(def thumb-wall-type
|
|
|
(case thumb-style
|
|
|
"manuform" manuform-thumb-wall
|
|
|
"cf" cf-thumb-wall
|
|
|
"mini" mini-thumb-wall))
|
|
|
|
|
|
(def case-walls
|
|
|
(union
|
|
|
thumb-wall-type
|
|
|
right-wall
|
|
|
; back wall
|
|
|
(for [x (range 0 ncols)] (key-wall-brace x 0 0 1 web-post-tl x 0 0 1 web-post-tr))
|
|
|
(for [x (range 1 ncols)] (key-wall-brace x 0 0 1 web-post-tl (dec x) 0 0 1 web-post-tr))
|
|
|
; left wall
|
|
|
(for [y (range 0 (- lastrow innercol-offset))] (union (wall-brace (partial left-key-place y 1) -1 0 web-post (partial left-key-place y -1) -1 0 web-post)
|
|
|
(hull (key-place 0 y web-post-tl)
|
|
|
(key-place 0 y web-post-bl)
|
|
|
(left-key-place y 1 web-post)
|
|
|
(left-key-place y -1 web-post))))
|
|
|
(for [y (range 1 (- lastrow innercol-offset))] (union
|
|
|
(wall-brace (partial left-key-place (dec y) -1) -1 0 web-post (partial left-key-place y 1) -1 0 web-post)
|
|
|
(hull (key-place 0 y web-post-tl)
|
|
|
(key-place 0 (dec y) web-post-bl)
|
|
|
(left-key-place y 1 web-post)
|
|
|
(left-key-place (dec y) -1 web-post)
|
|
|
)))
|
|
|
(wall-brace (partial key-place 0 0) 0 1 web-post-tl (partial left-key-place 0 1) (if inner-column -0.6 -0.3) (if inner-column 1 1.3) web-post)
|
|
|
(wall-brace (partial left-key-place 0 1) (if inner-column -0.6 -0.3) (if inner-column 1 1.3) web-post (partial left-key-place 0 1) -1 0 web-post)
|
|
|
; front wall
|
|
|
(key-wall-brace (+ innercol-offset 3) lastrow 0 -1 web-post-bl (+ innercol-offset 3) lastrow 0 -1 web-post-br)
|
|
|
(key-wall-brace (+ innercol-offset 3) lastrow 0 -1 web-post-br (+ innercol-offset 4) extra-cornerrow 0 -1 web-post-bl)
|
|
|
(for [x (range (+ innercol-offset 4) ncols)] (key-wall-brace x extra-cornerrow 0 -1 web-post-bl x extra-cornerrow 0 -1 web-post-br))
|
|
|
(for [x (range (+ innercol-offset 5) ncols)] (key-wall-brace x extra-cornerrow 0 -1 web-post-bl (dec x) extra-cornerrow 0 -1 web-post-br))
|
|
|
))
|
|
|
|
|
|
; Offsets for the controller/trrs holder cutout
|
|
|
(def holder-offset
|
|
|
(case nrows
|
|
|
4 -3.5
|
|
|
5 (if inner-column 0 -6.5)
|
|
|
6 (if inner-column 3.2 2.2)))
|
|
|
|
|
|
(def notch-offset
|
|
|
(case nrows
|
|
|
4 3.35
|
|
|
5 0.15
|
|
|
6 -5.07))
|
|
|
|
|
|
; Cutout for MCU holder
|
|
|
(def usb-holder-ref (key-position 0 0 (map - (wall-locate2 0 -1) [0 (/ mount-height 2) 0])))
|
|
|
(def usb-holder-position (map + [(+ 18.8 holder-offset) 18.7 1.3] [(first usb-holder-ref) (second usb-holder-ref) 1.8]))
|
|
|
(def usb-holder-space (translate (map + usb-holder-position [-1.5 (* -1 wall-thickness) 2.1]) (cube 28.666 30 10.4)))
|
|
|
(def usb-holder-notch-l (translate (map + usb-holder-position [-12 (+ 4.4 notch-offset) 2.1]) (cube 10 1.3 10.4)))
|
|
|
(def usb-holder-notch-r (translate (map + usb-holder-position [9 (+ (if inner-column 4.4 6.4) notch-offset) 2.1]) (cube 10 1.3 10.4)))
|
|
|
|
|
|
; Screw insert definition & position
|
|
|
(defn screw-insert-shape [bottom-radius top-radius height]
|
|
|
(union
|
|
|
(->> (binding [*fn* 30]
|
|
|
(cylinder [bottom-radius top-radius] height)))))
|
|
|
|
|
|
(defn screw-insert [column row bottom-radius top-radius height offset]
|
|
|
(let [shift-right (= column lastcol)
|
|
|
shift-left (= column 0)
|
|
|
shift-up (and (not (or shift-right shift-left)) (= row 0))
|
|
|
shift-down (and (not (or shift-right shift-left)) (>= row lastrow))
|
|
|
position (if shift-up (key-position column row (map + (wall-locate2 0 1) [0 (/ mount-height 2) 0]))
|
|
|
(if shift-down (key-position column row (map - (wall-locate2 0 -2.5) [0 (/ mount-height 2) 0]))
|
|
|
(if shift-left (map + (left-key-position row 0) (wall-locate3 -1 0))
|
|
|
(key-position column row (map + (wall-locate2 1 0) [(/ mount-width 2) 0 0])))))]
|
|
|
(->> (screw-insert-shape bottom-radius top-radius height)
|
|
|
(translate (map + offset [(first position) (second position) (/ height 2)])))))
|
|
|
|
|
|
; Offsets for the screw inserts dependent on extra-row & pinky-15u
|
|
|
(when (and pinky-15u extra-row)
|
|
|
(def screw-offset-tr [1 7 0])
|
|
|
(def screw-offset-br [7 14 0]))
|
|
|
(when (and pinky-15u (false? extra-row))
|
|
|
(def screw-offset-tr [1 7 0])
|
|
|
(def screw-offset-br [6.5 15.5 0]))
|
|
|
(when (and (false? pinky-15u) extra-row)
|
|
|
(def screw-offset-tr [-3.5 6.5 0])
|
|
|
(def screw-offset-br [-3.5 -6.5 0]))
|
|
|
(when (and (false? pinky-15u) (false? extra-row))
|
|
|
(def screw-offset-tr [-4 6.5 0])
|
|
|
(def screw-offset-br [-6 13 0]))
|
|
|
|
|
|
; Offsets for the screw inserts dependent on thumb-style & inner-column
|
|
|
(when (and (= thumb-style "cf") inner-column)
|
|
|
(def screw-offset-bl [9 4 0])
|
|
|
(def screw-offset-tm [9.5 -4.5 0])
|
|
|
(def screw-offset-bm [13 -7 0]))
|
|
|
(when (and (= thumb-style "cf") (false? inner-column))
|
|
|
(def screw-offset-bl [-3.5 2 0])
|
|
|
(def screw-offset-tm [9.5 -4.5 0])
|
|
|
(def screw-offset-bm [13 -7 0]))
|
|
|
(when (and (= thumb-style "mini") inner-column)
|
|
|
(def screw-offset-bl [14 8 0])
|
|
|
(def screw-offset-tm [9.5 -4.5 0])
|
|
|
(def screw-offset-bm [-1 -7 0]))
|
|
|
(when (and (= thumb-style "mini") (false? inner-column))
|
|
|
(def screw-offset-bl [-1 4.2 0])
|
|
|
(def screw-offset-tm [9.5 -4.5 0])
|
|
|
(def screw-offset-bm [-1 -7 0]))
|
|
|
(when (and (= thumb-style "manuform") inner-column)
|
|
|
(def screw-offset-bl [5 -6 0])
|
|
|
(def screw-offset-tm [9.5 -4.5 0])
|
|
|
(def screw-offset-bm [8 -1 0]))
|
|
|
(when (and (= thumb-style "manuform") (false? inner-column))
|
|
|
(def screw-offset-bl [-11.7 -8 0])
|
|
|
(def screw-offset-tm [9.5 -4.5 0])
|
|
|
(def screw-offset-bm [8 -1 0]))
|
|
|
|
|
|
(defn screw-insert-all-shapes [bottom-radius top-radius height]
|
|
|
(union (screw-insert 0 0 bottom-radius top-radius height [8 10.5 0])
|
|
|
(screw-insert 0 lastrow bottom-radius top-radius height screw-offset-bl)
|
|
|
(screw-insert lastcol lastrow bottom-radius top-radius height screw-offset-br)
|
|
|
(screw-insert lastcol 0 bottom-radius top-radius height screw-offset-tr)
|
|
|
(screw-insert (+ 2 innercol-offset) 0 bottom-radius top-radius height screw-offset-tm)
|
|
|
(screw-insert (+ 1 innercol-offset) lastrow bottom-radius top-radius height screw-offset-bm)))
|
|
|
|
|
|
; Hole Depth Y: 4.4
|
|
|
(def screw-insert-height 6)
|
|
|
|
|
|
; Hole Diameter C: 4.1-4.4
|
|
|
(def screw-insert-bottom-radius (/ 4.0 2))
|
|
|
(def screw-insert-top-radius (/ 3.9 2))
|
|
|
(def screw-insert-holes (screw-insert-all-shapes screw-insert-bottom-radius screw-insert-top-radius screw-insert-height))
|
|
|
|
|
|
; Wall Thickness W:\t1.65
|
|
|
(def screw-insert-outers (screw-insert-all-shapes (+ screw-insert-bottom-radius 1.65) (+ screw-insert-top-radius 1.65) (+ screw-insert-height 1)))
|
|
|
(def screw-insert-screw-holes (screw-insert-all-shapes 1.7 1.7 350))
|
|
|
|
|
|
; Connectors between outer column and right wall when 1.5u keys are used
|
|
|
(def pinky-connectors
|
|
|
(if pinky-15u
|
|
|
(apply union
|
|
|
(concat
|
|
|
;; Row connections
|
|
|
(for [row (range first-15u-row (inc last-15u-row))]
|
|
|
(triangle-hulls
|
|
|
(key-place lastcol row web-post-tr)
|
|
|
(key-place lastcol row wide-post-tr)
|
|
|
(key-place lastcol row web-post-br)
|
|
|
(key-place lastcol row wide-post-br)))
|
|
|
(if-not (= last-15u-row extra-cornerrow) (for [row (range last-15u-row (inc last-15u-row))]
|
|
|
(triangle-hulls
|
|
|
(key-place lastcol (inc row) web-post-tr)
|
|
|
(key-place lastcol row wide-post-br)
|
|
|
(key-place lastcol (inc row) web-post-br))))
|
|
|
(if-not (= first-15u-row 0) (for [row (range (dec first-15u-row) first-15u-row)]
|
|
|
(triangle-hulls
|
|
|
(key-place lastcol row web-post-tr)
|
|
|
(key-place lastcol (inc row) wide-post-tr)
|
|
|
(key-place lastcol row web-post-br))))
|
|
|
|
|
|
;; Column connections
|
|
|
(for [row (range first-15u-row last-15u-row)]
|
|
|
(triangle-hulls
|
|
|
(key-place lastcol row web-post-br)
|
|
|
(key-place lastcol row wide-post-br)
|
|
|
(key-place lastcol (inc row) web-post-tr)
|
|
|
(key-place lastcol (inc row) wide-post-tr)))
|
|
|
(if-not (= last-15u-row extra-cornerrow) (for [row (range last-15u-row (inc last-15u-row))]
|
|
|
(triangle-hulls
|
|
|
(key-place lastcol row web-post-br)
|
|
|
(key-place lastcol row wide-post-br)
|
|
|
(key-place lastcol (inc row) web-post-tr))))
|
|
|
(if-not (= first-15u-row 0) (for [row (range (dec first-15u-row) first-15u-row)]
|
|
|
(triangle-hulls
|
|
|
(key-place lastcol row web-post-br)
|
|
|
(key-place lastcol (inc row) wide-post-tr)
|
|
|
(key-place lastcol (inc row) web-post-tr))))
|
|
|
))))
|
|
|
|
|
|
(def model-right (difference
|
|
|
(union
|
|
|
key-holes
|
|
|
key-holes-inner
|
|
|
pinky-connectors
|
|
|
extra-connectors
|
|
|
connectors
|
|
|
inner-connectors
|
|
|
thumb-type
|
|
|
thumb-connector-type
|
|
|
(difference (union case-walls
|
|
|
screw-insert-outers)
|
|
|
usb-holder-space
|
|
|
usb-holder-notch-l
|
|
|
usb-holder-notch-r
|
|
|
screw-insert-holes))
|
|
|
(translate [0 0 -20] (cube 350 350 40))))
|
|
|
|
|
|
(spit "things/right.scad"
|
|
|
(write-scad model-right))
|
|
|
|
|
|
(spit "things/left.scad"
|
|
|
(write-scad (mirror [-1 0 0] model-right)))
|
|
|
|
|
|
(spit "things/right-test.scad"
|
|
|
(write-scad (union model-right
|
|
|
thumbcaps-type
|
|
|
caps)))
|
|
|
|
|
|
(spit "things/right-plate.scad"
|
|
|
(write-scad
|
|
|
(extrude-linear
|
|
|
{:height 2.6 :center false}
|
|
|
(project
|
|
|
(difference
|
|
|
(union
|
|
|
key-holes
|
|
|
key-holes-inner
|
|
|
pinky-connectors
|
|
|
extra-connectors
|
|
|
connectors
|
|
|
inner-connectors
|
|
|
thumb-type
|
|
|
thumb-connector-type
|
|
|
case-walls
|
|
|
thumbcaps-fill-type
|
|
|
caps-fill
|
|
|
screw-insert-outers)
|
|
|
(translate [0 0 -10] screw-insert-screw-holes))))))
|
|
|
|
|
|
(spit "things/right-plate-laser.scad"
|
|
|
(write-scad
|
|
|
(cut
|
|
|
(translate [0 0 -0.1]
|
|
|
(difference (union case-walls
|
|
|
screw-insert-outers)
|
|
|
(translate [0 0 -10] screw-insert-screw-holes))))))
|
|
|
|
|
|
(defn -main [dum] 1) ; dummy to make it easier to batch
|