From: Phil Hagelberg Date: Sun, 31 Mar 2019 21:53:12 +0000 (-0700) Subject: Add two middle switches, raise microcontroller pads. X-Git-Url: https://git.armaanb.net/?p=atreides.git;a=commitdiff_plain;h=efcf961441966f0dfb305b80bf78b3da62ca0f3f Add two middle switches, raise microcontroller pads. --- diff --git a/atreus.rkt b/atreus.rkt index 43c0ae3..3783c5a 100644 --- a/atreus.rkt +++ b/atreus.rkt @@ -9,7 +9,7 @@ (define spacing 19) (define angle 10) -(define column-offsets '(8 5 0 6 11 59 59 11 6 0 5 8)) +(define column-offsets '(8 5 0 6 11 53 53 11 6 0 5 8)) (define (switch-module x y rotation label net-pos net-neg) ;; TODO: set timestamps? @@ -81,11 +81,8 @@ (define microcontroller-module `(module A_STAR (layer Front) (tedit 4FDC31C8) (tstamp 543EF800) - (at 134 70 270) + (at 134 65 270) (path /543EEB02) - (fp_text value A-STAR (at -3 0 270) (layer F.SilkS) - (effects (font (size 3.048 2.54) (thickness 0.4572)))) - (fp_line (start -15.24 7.62) (end 10.1 7.62) (layer F.SilkS) (width 0.381)) (fp_line (start 10.1 7.62) (end 10.1 -7.62) (layer F.SilkS) (width 0.381)) (fp_line (start 10.1 -7.62) (end -15.24 -7.62) (layer F.SilkS) (width 0.381)) @@ -178,11 +175,7 @@ [diode-net `(net ,(+ 16 diode) ,(string->symbol (format "N-diode-~s" diode)))] [column-net `(net ,(+ net-col 5) - ,(string->symbol (format "N-col-~s" net-col)))] - ;; rotate middle keys additional 90° after calculating position - [rotation (cond [(= 5 col) 80] - [(= 6 col) 280] - [true rotation])]) + ,(string->symbol (format "N-col-~s" net-col)))]) (switch-module x′ y′ rotation label (if left? diode-net column-net) (if left? column-net diode-net)))) @@ -219,15 +212,17 @@ (for/list ([col (in-range cols)] #:when true [row (if (or (= 5 col) (= 6 col)) - '(0) (in-range rows))]) + '(0 1) (in-range rows))]) (list (switch row col) (diode row col)))) (define edge-cuts - (for/list [(s '([31 22] [84 22] [127 30] [127 54] [130 54] [130 60] [138 60] - [138 54] [141 54] [141 30] [185 22] + (for/list [(s '([31 22] [84 22] [127 30] + [129 49] [129 75] [139 75] + [139 49] [141 30] [185 22] [237 22] [250 95] [161 112] [107 112] [18 95])) - (e '([84 22] [127 30] [127 54] [130 54] [130 60] [138 60] [138 54] - [141 54] [141 30] [185 22] + (e '([84 22] [127 30] + [129 49] [129 75] [139 75] [139 49] + [141 30] [185 22] [237 22] [250 95] [161 112] [107 112] [18 95] [31 22]))] `(gr_line (start ,@s) (end ,@e) (angle 90) (layer Edge.Cuts) (width 0.3)))) @@ -252,4 +247,10 @@ (curry read-string 999999)) op) (display ")" op)))) +;; TODOs: + +;; controller traces +;; middle switch traces +;; middle switch diodes below + (write-placement "atreus.kicad_pcb") diff --git a/header.rktd b/header.rktd index 28c6a73..c49b9a7 100644 --- a/header.rktd +++ b/header.rktd @@ -79,17 +79,15 @@ (outputdirectory "")) ) - (gr_text Atreus (at 137.5 85) (layer F.SilkS) - (effects (font (size 4 3) (thickness 0.3048)))) - (gr_text Atreus (at 137.5 85) (layer F.SilkS) + (gr_text Atreus (at 131.5 84) (layer F.SilkS) (effects (font (size 4 3) (thickness 0.3048)))) (gr_text "Phil Hagelberg" (at 145.25 107.5) (layer F.SilkS) (effects (font (size 2.032 1.524) (thickness 0.3048)))) (gr_text "GPLv3" (at 68.5 98.5 350) (layer F.SilkS) (effects (font (size 1.5 1.1) (thickness 0.2)))) - (gr_text http://atreus.technomancy.us (at 63 100.5 350) (layer F.SilkS) + (gr_text https://atreus.technomancy.us (at 63 100.5 350) (layer F.SilkS) (effects (font (size 2.032 1.524) (thickness 0.3048)))) - (gr_text "rev 2, Nov. 2014" (at 200.5 101.5 10) (layer F.SilkS) + (gr_text "rev 3, Apr 2019" (at 200.5 101.5 10) (layer F.SilkS) (effects (font (size 2.032 1.524) (thickness 0.3048)))) - (gr_text "© 2014" (at 117 107.75) (layer F.SilkS) + (gr_text "© 2014-2019" (at 117 107.75) (layer F.SilkS) (effects (font (size 2.032 1.524) (thickness 0.3048))))