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

Add pinky connectors row and col

Browse source
This commit is contained in:
Leo Lou 2018-06-13 15:59:02 +09:00
parent 24980a4560
commit bb24129763
1 changed files with 25 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/dactyl_keyboard/dactyl.clj
View file

@ -274,6 +274,27 @@
(map (partial apply hull) (map (partial apply hull)
(partition 3 1 shapes)))) (partition 3 1 shapes))))
(def pinky-connectors
(apply union
(concat
;; Row connections
(for [row (range 0 lastrow)]
(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)))
;; Column connections
(for [row (range 0 cornerrow)]
(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)))
)))
(def connectors (def connectors
(apply union (apply union
(concat (concat
@ -302,7 +323,8 @@
(key-place column row web-post-br) (key-place column row web-post-br)
(key-place column (inc row) web-post-tr) (key-place column (inc row) web-post-tr)
(key-place (inc column) row web-post-bl) (key-place (inc column) row web-post-bl)
(key-place (inc column) (inc row) web-post-tl)))))) (key-place (inc column) (inc row) web-post-tl)))
)))
;;;;;;;;;;;; ;;;;;;;;;;;;
;; Thumbs ;; ;; Thumbs ;;
@ -664,6 +686,7 @@
(def model-right (difference (def model-right (difference
(union (union
key-holes key-holes
pinky-connectors
connectors connectors
thumb thumb
thumb-connectors thumb-connectors
@ -690,6 +713,7 @@
(difference (difference
(union (union
key-holes key-holes
pinky-connectors
connectors connectors
thumb thumb
thumb-connectors thumb-connectors