josh/dactyl-keyboard
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adjust screw inserts

Browse Source
This commit is contained in:
Tom Short
2017-04-02 14:48:37 -04:00
parent db1cad5635
commit d508393224
2 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/dactyl_keyboard/dactyl.clj
View File

@@ -645,7 +645,7 @@
(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))
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 -1) [0 (/ mount-height 2) 0]))
(if shift-left (map + (left-key-position row 0) (wall-locate3 -1 0))
@@ -658,7 +658,7 @@
(defn screw-insert-all-shapes [bottom-radius top-radius height]
(union (screw-insert 0 0 bottom-radius top-radius height)
(screw-insert 0 lastrow bottom-radius top-radius height)
(screw-insert 3 lastrow bottom-radius top-radius height)
(screw-insert 2 (+ lastrow 0.3) bottom-radius top-radius height)
(screw-insert 3 0 bottom-radius top-radius height)
(screw-insert lastcol 1 bottom-radius top-radius height)
))