|
32 | 32 | (>= column 4) [0 -3 -3] ; original [0 -5.8 5.64]
|
33 | 33 | :else [0 0 0]))
|
34 | 34 |
|
35 |
| -(def thumb-offsets [6 -3 7]) |
| 35 | +(def thumb-offsets [6 -3 7]) ; location of thumb cluster relative to main keyboard body |
36 | 36 |
|
37 | 37 | (def keyboard-z-offset 16.5) ; controls overall height; original=9 with centercol=3; use 16 for centercol=2
|
38 | 38 |
|
|
333 | 333 | (rotate (deg2rad -23) [0 1 0])
|
334 | 334 | (rotate (deg2rad 25) [0 0 1]) ; original 10
|
335 | 335 | (translate thumborigin)
|
336 |
| - (translate [-35 -16 -2]))) ; original 1.5u (translate [-32 -15 -2]))) |
| 336 | + (translate [-34 -15.15 -1.4]))) ; original (translate [-35 -16 -2]))) |
337 | 337 |
|
338 | 338 |
|
339 | 339 | (defn thumb-mr-place [shape]
|
|
342 | 342 | (rotate (deg2rad -23) [0 1 0])
|
343 | 343 | (rotate (deg2rad 25) [0 0 1])
|
344 | 344 | (translate thumborigin)
|
345 |
| - (translate [-23 -34 -6]))) |
| 345 | + (translate [-21 -33 -4.3]))) ; (translate [-23 -34 -6]) |
346 | 346 | (defn thumb-br-place [shape]
|
347 | 347 | (->> shape
|
348 | 348 | (rotate (deg2rad 6) [1 0 0])
|
349 | 349 | (rotate (deg2rad -34) [0 1 0])
|
350 | 350 | (rotate (deg2rad 35) [0 0 1])
|
351 | 351 | (translate thumborigin)
|
352 |
| - (translate [-39 -43 -16]))) |
| 352 | + (translate [-36 -42 -13.7]))) ; (translate [-39 -43 -16]) |
353 | 353 | (defn thumb-bl-place [shape]
|
354 | 354 | (->> shape
|
355 | 355 | (rotate (deg2rad 6) [1 0 0])
|
356 | 356 | (rotate (deg2rad -32) [0 1 0])
|
357 | 357 | (rotate (deg2rad 35) [0 0 1])
|
358 | 358 | (translate thumborigin)
|
359 |
| - (translate [-51 -25 -11.5]))) ; (translate [-51 -25 -12]))) |
| 359 | + (translate [-48.5 -24 -10.3]))) ; (translate [-51 -25 -12]))) |
360 | 360 |
|
361 | 361 |
|
362 | 362 | (defn thumb-1x-layout [shape]
|
|
0 commit comments