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

Refactor sa double length

Browse source
This commit is contained in:
Leo Lou 2018-04-21 10:56:08 +09:00
parent 9ba3cb697b
commit 5a32d11c53
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/dactyl_keyboard/dactyl.clj
View file

@ -102,7 +102,6 @@
;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;
(def sa-length 18.25) (def sa-length 18.25)
(def sa-double-length 37.5)
(def sa-cap {1 (let [bl2 (/ 18.5 2) (def sa-cap {1 (let [bl2 (/ 18.5 2)
m (/ 17 2) m (/ 17 2)
key-cap (hull (->> (polygon [[bl2 bl2] [bl2 (- bl2)] [(- bl2) (- bl2)] [(- bl2) bl2]]) key-cap (hull (->> (polygon [[bl2 bl2] [bl2 (- bl2)] [(- bl2) (- bl2)] [(- bl2) bl2]])
@ -117,7 +116,7 @@
(->> key-cap (->> key-cap
(translate [0 0 (+ 5 plate-thickness)]) (translate [0 0 (+ 5 plate-thickness)])
(color [220/255 163/255 163/255 1]))) (color [220/255 163/255 163/255 1])))
2 (let [bl2 (/ sa-double-length 2) 2 (let [bl2 sa-length
bw2 (/ 18.25 2) bw2 (/ 18.25 2)
key-cap (hull (->> (polygon [[bw2 bl2] [bw2 (- bl2)] [(- bw2) (- bl2)] [(- bw2) bl2]]) key-cap (hull (->> (polygon [[bw2 bl2] [bw2 (- bl2)] [(- bw2) (- bl2)] [(- bw2) bl2]])
(extrude-linear {:height 0.1 :twist 0 :convexity 0}) (extrude-linear {:height 0.1 :twist 0 :convexity 0})