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

Update dactyl.clj

Browse source 
Increased thickness of the 'switchplate' to 4.5mm. Increased thickness of the web connectors to 4.5mm as well to smooth out the bottom of the switchplate.
This commit is contained in:
carbonfet 2020-11-13 00:02:41 -05:00 committed by GitHub
parent 892d14fc5a
commit 9567c87d75
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
src/dactyl_keyboard/dactyl.clj
View file

@ -89,19 +89,19 @@
(def plate-thickness 4) (def plate-thickness 4)
(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 0.5) retention-tab-thickness))
(def mount-width (+ keyswitch-width 3.2)) (def mount-width (+ keyswitch-width 3.2))
(def mount-height (+ keyswitch-height 2.7)) (def mount-height (+ keyswitch-height 2.7))
(def single-plate (def single-plate
(let [top-wall (->> (cube (+ keyswitch-width 3) 1.5 plate-thickness) (let [top-wall (->> (cube (+ keyswitch-width 3) 1.5 (+ plate-thickness 0.5))
(translate [0 (translate [0
(+ (/ 1.5 2) (/ keyswitch-height 2)) (+ (/ 1.5 2) (/ keyswitch-height 2))
(/ plate-thickness 2)])) (- (/ plate-thickness 2) 0.25)]))
left-wall (->> (cube 1.8 (+ keyswitch-height 3) plate-thickness) left-wall (->> (cube 1.8 (+ keyswitch-height 3) (+ plate-thickness 0.5))
(translate [(+ (/ 1.8 2) (/ keyswitch-width 2)) (translate [(+ (/ 1.8 2) (/ keyswitch-width 2))
0 0
(/ plate-thickness 2)])) (- (/ plate-thickness 2) 0.25)]))
side-nub (->> (binding [*fn* 30] (cylinder 1 2.75)) side-nub (->> (binding [*fn* 30] (cylinder 1 2.75))
(rotate (/ π 2) [1 0 0]) (rotate (/ π 2) [1 0 0])
(translate [(+ (/ keyswitch-width 2)) 0 1]) (translate [(+ (/ keyswitch-width 2)) 0 1])
@ -112,7 +112,7 @@
(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 retention-tab-hole-thickness) top-nub (->> (cube 5 5 retention-tab-hole-thickness)
(translate [(+ (/ keyswitch-width 2.5)) 0 (/ retention-tab-hole-thickness 2)])) (translate [(+ (/ keyswitch-width 2.5)) 0 (- (/ retention-tab-hole-thickness 2) 0.5)]))
top-nub-pair (union top-nub top-nub-pair (union top-nub
(->> top-nub (->> top-nub
(mirror [1 0 0]) (mirror [1 0 0])
@ -306,7 +306,7 @@
;; Web Connectors ;; ;; Web Connectors ;;
;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;
(def web-thickness 3.5) (def web-thickness 4.5)
(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)
@ -532,7 +532,7 @@
(union (union
(triangle-hulls ; top two (triangle-hulls ; top two
(thumb-tl-place thumb-post-tr) (thumb-tl-place thumb-post-tr)
(thumb-tl-place minithumb-post-br) (thumb-tl-place web-post-br)
(thumb-tr-place thumb-post-tl) (thumb-tr-place thumb-post-tl)
(thumb-tr-place thumb-post-bl)) (thumb-tr-place thumb-post-bl))
(triangle-hulls ; bottom two on the right (triangle-hulls ; bottom two on the right
@ -557,9 +557,9 @@
(triangle-hulls ; top two to the middle two, starting on the left (triangle-hulls ; top two to the middle two, starting on the left
(thumb-tl-place thumb-post-tl) (thumb-tl-place thumb-post-tl)
(thumb-ml-place web-post-tr) (thumb-ml-place web-post-tr)
(thumb-tl-place minithumb-post-bl) (thumb-tl-place web-post-bl)
(thumb-ml-place web-post-br) (thumb-ml-place web-post-br)
(thumb-tl-place minithumb-post-br) (thumb-tl-place web-post-br)
(thumb-mr-place web-post-tr) (thumb-mr-place web-post-tr)
(thumb-tr-place thumb-post-bl) (thumb-tr-place thumb-post-bl)
(thumb-mr-place web-post-br) (thumb-mr-place web-post-br)