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

First cut at on-wall-place

Browse source
This commit is contained in:
Tom Short 2017-03-07 07:37:21 -05:00
parent dd6dd53b3d
commit 90e5023244
1 changed files with 20 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -11,6 +11,9 @@
(def cornerrow (dec lastrow)) (def cornerrow (dec lastrow))
(def α (/ π 12)) ; curvature of the columns (def α (/ π 12)) ; curvature of the columns
(def β (/ π (if (= nrows 4) 26 36))) ; curvature of the rows (def β (/ π (if (= nrows 4) 26 36))) ; curvature of the rows
(def centerrow (- cornerrow 1)) ; controls front-back tilt
(def centercol 3) ; controls left-right tilt / tenting
;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;
;; Switch Hole ;; ;; Switch Hole ;;
@ -108,15 +111,13 @@
(defn key-place [column row shape] (defn key-place [column row shape]
(let [row-placed-shape (->> shape (let [row-placed-shape (->> shape
(translate [0 0 (- row-radius)]) (translate [0 0 (- row-radius)])
(rotate (* α (rotate (* α (- centerrow row)) [1 0 0])
(- cornerrow row 1) ; controls front-back tilt
) [1 0 0])
(translate [0 0 row-radius])) (translate [0 0 row-radius]))
column-offset (cond column-offset (cond
(= column 2) [0 2.82 -4.5] (= column 2) [0 2.82 -4.5]
(>= column 4) [0 -5.8 5.64] (>= column 4) [0 -5.8 5.64]
:else [0 0 0]) :else [0 0 0])
column-angle (* β (- 3 column)) ; controls left-right tilt / tenting column-angle (* β (- centercol column))
placed-shape (->> row-placed-shape placed-shape (->> row-placed-shape
(translate [0 0 (- column-radius)]) (translate [0 0 (- column-radius)])
(rotate column-angle [0 1 0]) (rotate column-angle [0 1 0])
@ -435,9 +436,21 @@
(wall-brace thumb-tr-place 0 -1 thumb-post-br (partial key-place 3 lastrow) 0 -1 web-post-bl) (wall-brace thumb-tr-place 0 -1 thumb-post-br (partial key-place 3 lastrow) 0 -1 web-post-bl)
)) ))
(defn on-wall-place [column depth shape]
(key-place column 0
(->> shape
(rotate (* α centerrow) [-1 0 0])
(rotate (+ (* β (- centercol column)) (/ π 12)) [0 -1 0])
(translate [0 (/ mount-height 2) -15])
; (Math/sin (/ α 2)))
)))
(def test-shape (on-wall-place 1 20 (cube 5 30 10)))
(def teensy-width 20) (def teensy-width 20)
(def teensy-height 12) (def teensy-height 12)
(def teensy-length 33) (def teensy-length 33)
(def teensy-pcb-thickness 1.6)
(def teensy-offset-height 5)
(def usb-cutout (def usb-cutout
(let [hole-height 6.2 (let [hole-height 6.2
@ -449,11 +462,11 @@
(->> (color [20/255 163/255 163/255 1]) (->> (color [20/255 163/255 163/255 1])
(hull side-cylinder (hull side-cylinder
(mirror [-1 0 0] side-cylinder)) (mirror [-1 0 0] side-cylinder))
(rotate (/ π 2) [1 0 0])
(translate [0 (/ teensy-length 2) (- side-radius)]) (translate [0 (/ teensy-length 2) (- side-radius)])
(translate [0 0 (- 1)]) (translate [0 0 (- 1)])
(translate [0 0 (- teensy-offset-height)]) (translate [0 0 (- teensy-offset-height)])
(key-place 0 1)))) (on-wall-place 1 20))))
(spit "repl.scad" (spit "repl.scad"
@ -463,6 +476,7 @@
thumb thumb
thumb-connectors thumb-connectors
case-walls case-walls
test-shape
; usb-cutout ; usb-cutout
; thumbcaps ; thumbcaps
; caps ; caps