From d7d148c5ebecf411066d0bcfa3a107c6fc182ee8 Mon Sep 17 00:00:00 2001 From: Phil Hagelberg Date: Mon, 2 Mar 2020 08:13:44 -0800 Subject: [PATCH] Deck Mark V --- case/case.rkt | 2 +- case/deck.rkt | 8 +++-- case/pine64-fragment.svg | 71 +++++++++++++++++++++++++--------------- case/pine64.svg | 45 +++++++++++++++++++------ 4 files changed, 87 insertions(+), 39 deletions(-) diff --git a/case/case.rkt b/case/case.rkt index f20aa3e..7af8b30 100644 --- a/case/case.rkt +++ b/case/case.rkt @@ -24,7 +24,7 @@ (define alps-switch-height 13.087) (define cherry-switch-width 13.62) (define cherry-switch-height 13.72) -(define cherry? true) +(define cherry? false) (define switch-height (if cherry? cherry-switch-height alps-switch-height)) (define switch-width (if cherry? cherry-switch-width alps-switch-width)) diff --git a/case/deck.rkt b/case/deck.rkt index f2876cb..f7999f8 100644 --- a/case/deck.rkt +++ b/case/deck.rkt @@ -61,7 +61,7 @@ ;; the bottom middle has only one screw but ;; two hull positions (list (list (/ width 2) mid-bottom)) - (drop hull-coords 5))]) + (take (drop hull-coords 5) 2))]) `(circle ((r ,(number->string screw-radius)) (cx ,(number->string (first s))) (cy ,(number->string (second s)))))))) @@ -102,7 +102,7 @@ ;; screen viewable: 116x68 (define screen-slots - (let ((x 170) + (let ((x 180) (y "-65")) (list `(rect ((x ,(format "~s" x)) (y ,y) @@ -188,5 +188,9 @@ ;; live-reload with: ;; qiv --watch deck-switch.svg +;; TODO: headphone jack is missing +;; TODO: check HDMI width (write-out-layer 'switch) +;; TODO: flip the bottom horizontally! +;; TODO: remove heat sink cutout (write-out-layer 'bottom) diff --git a/case/pine64-fragment.svg b/case/pine64-fragment.svg index 3b31532..e3f9308 100644 --- a/case/pine64-fragment.svg +++ b/case/pine64-fragment.svg @@ -1,5 +1,8 @@ - + + + - - - - - - - - + - - + d="M 131.74718,266.625 H 109.389 v -18.60778 h 22.35818 z" + style="fill:none;fill-opacity:1;stroke:#000000;stroke-width:0.14999999;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1" + inkscape:connector-curvature="0" /> + + + + - - diff --git a/case/pine64.svg b/case/pine64.svg index a715f5d..51972f5 100644 --- a/case/pine64.svg +++ b/case/pine64.svg @@ -26,8 +26,8 @@ inkscape:pageopacity="0.0" inkscape:pageshadow="2" inkscape:zoom="1.5180232" - inkscape:cx="310.28237" - inkscape:cy="111.81058" + inkscape:cx="290.35167" + inkscape:cy="122.18401" inkscape:document-units="mm" inkscape:current-layer="layer1" showgrid="false" @@ -52,7 +52,7 @@ inkscape:groupmode="layer" id="layer1"> + id="g5839"> - + d="M 131.74718,266.625 H 109.389 v -18.60778 h 22.35818 z" + style="fill:none;fill-opacity:1;stroke:#000000;stroke-width:0.14999999;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1" + inkscape:connector-curvature="0" /> + + + + -- 2.39.2