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

Fix top nub

Browse source
This commit is contained in:
Leo Lou 2018-06-14 13:44:06 +09:00
parent 76ba360f01
commit a2100456e3
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/dactyl_keyboard/dactyl.clj
View file

@ -72,7 +72,7 @@
(def sa-profile-key-height 12.7) (def sa-profile-key-height 12.7)
(def plate-thickness 3) (def plate-thickness 2)
(def side-nub-thickness 4) (def side-nub-thickness 4)
(def retention-tab-thickness 1.5) (def retention-tab-thickness 1.5)
(def retention-tab-hole-thickness (- plate-thickness retention-tab-thickness)) (def retention-tab-hole-thickness (- plate-thickness retention-tab-thickness))
@ -97,7 +97,7 @@
(/ side-nub-thickness 2)]))) (/ side-nub-thickness 2)])))
(translate [0 0 (- plate-thickness side-nub-thickness)])) (translate [0 0 (- plate-thickness side-nub-thickness)]))
plate-half (union top-wall left-wall (if create-side-nubs? (with-fn 100 side-nub))) plate-half (union top-wall left-wall (if create-side-nubs? (with-fn 100 side-nub)))
top-nub (->> (cube 5 5 (- plate-thickness retention-tab-hole-thickness)) top-nub (->> (cube 5 5 retention-tab-hole-thickness)
(translate [(+ (/ keyswitch-width 2)) 0 (/ retention-tab-hole-thickness 2)])) (translate [(+ (/ keyswitch-width 2)) 0 (/ retention-tab-hole-thickness 2)]))
top-nub-pair (union top-nub top-nub-pair (union top-nub
(->> top-nub (->> top-nub
@ -251,7 +251,7 @@
;; Web Connectors ;; ;; Web Connectors ;;
;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;
(def web-thickness 3) (def web-thickness 2)
(def post-size 0.1) (def post-size 0.1)
(def web-post (->> (cube post-size post-size web-thickness) (def web-post (->> (cube post-size post-size web-thickness)
(translate [0 0 (+ (/ web-thickness -2) (translate [0 0 (+ (/ web-thickness -2)