|
18 | 18 | (def α (/ π 12)) ; curvature of the columns
|
19 | 19 | (def β (/ π 36)) ; curvature of the rows
|
20 | 20 | (def centerrow (- nrows 3)) ; controls front-back tilt
|
21 |
| -(def centercol 3) ; controls left-right tilt / tenting (higher number is more tenting) |
| 21 | +(def centercol 4) ; controls left-right tilt / tenting (higher number is more tenting) |
22 | 22 | (def tenting-angle (/ π 12)) ; or, change this for more precise tenting control
|
23 | 23 | (def column-style
|
24 | 24 | (if (> nrows 5) :orthographic :standard)) ; options include :standard, :orthographic, and :fixed
|
|
27 | 27 |
|
28 | 28 | (defn column-offset [column] (cond
|
29 | 29 | (= column 2) [0 2.82 -4.5] ; middle finger
|
30 |
| - (= column 3) [0 0 -1] ; ring finger |
| 30 | + (= column 3) [0 0 -2] ; ring finger |
31 | 31 | ;(>= column 4) [0 0 0] ; keep pinky in line with first rows
|
32 | 32 | (>= column 4) [0 -3 -3] ; original [0 -5.8 5.64]
|
33 | 33 | :else [0 0 0]))
|
|
596 | 596 | (def usb-holder-space (translate (map + usb-holder-position [0 (* -1 wall-thickness) 1]) usb-holder-cube))
|
597 | 597 | (def usb-holder-holder (translate usb-holder-position (cube 19 12 4)))
|
598 | 598 |
|
599 |
| -(def usb-jack (translate (map + usb-holder-position [0 10 3]) (cube 8.1 20 3.1))) |
| 599 | +(def usb-jack (translate (map + usb-holder-position [0 10 3]) (cube 15 20 6))) ; the cube defines the shape of the usb port in the wall |
600 | 600 |
|
601 |
| -(def pro-micro-position (map + (key-position 0 1 (wall-locate3 -1 0)) [-6 2 -15])) |
| 601 | +(def pro-micro-position (map + (key-position 0 1 (wall-locate3 -1 0)) [-6 2 -26])) |
602 | 602 | (def pro-micro-space-size [4 10 12]) ; z has no wall;
|
603 | 603 | (def pro-micro-wall-thickness 2)
|
604 | 604 | (def pro-micro-holder-size [(+ pro-micro-wall-thickness (first pro-micro-space-size)) (+ pro-micro-wall-thickness (second pro-micro-space-size)) (last pro-micro-space-size)])
|
|
652 | 652 |
|
653 | 653 | (defn screw-insert-all-shapes [bottom-radius top-radius height]
|
654 | 654 | (union (screw-insert 0 0 bottom-radius top-radius height [6.25 7.75 0]) ; under y/t key
|
655 |
| - (screw-insert 0 lastrow bottom-radius top-radius height [-1 2 0]) ; under top of middle thumb colomo |
| 655 | + (screw-insert 0 lastrow bottom-radius top-radius height [-2.5 2 0]) ; under top of middle thumb colomo |
656 | 656 | ; (screw-insert lastcol lastrow bottom-radius top-radius height [-5 13 0])
|
657 | 657 | ; (screw-insert lastcol 0 bottom-radius top-radius height [-3 6 0])
|
658 |
| - (screw-insert lastcol lastrow bottom-radius top-radius height [-2.2 13.2 0]) ; under ctrl key |
| 658 | + (screw-insert lastcol lastrow bottom-radius top-radius height [-2.5 13.5 0]) ; under ctrl key |
659 | 659 | (screw-insert lastcol 0 bottom-radius top-radius height [-2 8 0]) ; under esc key
|
660 | 660 | (screw-insert 1 lastrow bottom-radius top-radius height [-3 -19 0]))) ; under bottom of middle thumb colomn
|
661 | 661 |
|
|
0 commit comments