jasmine/dactyl-manuform
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Connected thumb (mostly)

Browse source
This commit is contained in:
Tom Short 2017-03-03 13:26:14 -05:00
parent f982b99491
commit dc7053c1e4
1 changed files with 66 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

72
src/dactyl_keyboard/dactyl-manuform.clj
View file

@ -4,6 +4,11 @@
[scad-clj.model :refer :all] [scad-clj.model :refer :all]
[unicode-math.core :refer :all])) [unicode-math.core :refer :all]))
(def nrows 4)
(def lastrow (dec nrows))
(def cornerrow (dec lastrow))
;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;
;; Switch Hole ;; ;; Switch Hole ;;
;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;
@ -87,7 +92,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;
(def columns (range 0 6)) (def columns (range 0 6))
(def rows (range 0 4)) (def rows (range 0 nrows))
(def α (/ π 12)) (def α (/ π 12))
(def β (/ π 26)) (def β (/ π 26))
@ -139,7 +144,7 @@
(for [column columns (for [column columns
row rows row rows
:when (or (.contains [2 3] column) :when (or (.contains [2 3] column)
(not= row (last rows)))] (not= row lastrow))]
(->> single-plate (->> single-plate
(key-place column row))))) (key-place column row)))))
@ -148,7 +153,7 @@
(for [column columns (for [column columns
row rows row rows
:when (or (.contains [2 3] column) :when (or (.contains [2 3] column)
(not= row (last rows)))] (not= row lastrow))]
(->> (sa-cap (if (= column 5) 1 1)) (->> (sa-cap (if (= column 5) 1 1))
(key-place column row))))) (key-place column row)))))
@ -180,7 +185,7 @@
(for [column (drop-last columns) (for [column (drop-last columns)
row rows row rows
:when (or (.contains [2] column) :when (or (.contains [2] column)
(not= row (last rows)))] (not= row lastrow))]
(triangle-hulls (triangle-hulls
(key-place (inc column) row web-post-tl) (key-place (inc column) row web-post-tl)
(key-place column row web-post-tr) (key-place column row web-post-tr)
@ -294,18 +299,73 @@
(def thumb (def thumb
(union (union
; thumb-connectors
(thumb-1x-layout single-plate) (thumb-1x-layout single-plate)
(thumb-15x-layout single-plate) (thumb-15x-layout single-plate)
(thumb-15x-layout larger-plate) (thumb-15x-layout larger-plate)
)) ))
(def thumb-post-tr (translate [(- (/ mount-width 2) post-adj) (- (/ mount-height 1.15) post-adj) 0] web-post))
(def thumb-post-tl (translate [(+ (/ mount-width -2) post-adj) (- (/ mount-height 1.15) post-adj) 0] web-post))
(def thumb-post-bl (translate [(+ (/ mount-width -2) post-adj) (+ (/ mount-height -1.15) post-adj) 0] web-post))
(def thumb-post-br (translate [(- (/ mount-width 2) post-adj) (+ (/ mount-height -1.15) post-adj) 0] web-post))
(def thumb-connectors
(union
(triangle-hulls ; top two
(thumb-tl-place thumb-post-tr)
(thumb-tl-place thumb-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 thumb-post-bl)
(thumb-ml-place web-post-br)
(thumb-tl-place thumb-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 0 cornerrow web-post-bl)
(thumb-tl-place thumb-post-tr)
(key-place 0 cornerrow web-post-br)
(thumb-tr-place thumb-post-tl)
(key-place 1 cornerrow web-post-bl)
(key-place 1 cornerrow web-post-br)
(thumb-tr-place thumb-post-tr)
(key-place 2 cornerrow web-post-tl)
(key-place 2 cornerrow web-post-bl)
)
))
(spit "repl.scad" (spit "repl.scad"
(write-scad (union (write-scad (union
key-holes key-holes
connectors connectors
thumb thumb
thumbcaps thumb-connectors
; thumbcaps
caps caps
; front-wall ; front-wall
; right-wall ; right-wall