From 429f184a95af2d2ccbb87932b2d1b2939eaf4d11 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 2 May 2023 15:46:04 +0100
Subject: [PATCH] yubikey-5c-nano-loop: wip

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 yubikey-5c-nano-loop.scad | 19 +++++++++++++++----
 1 file changed, 15 insertions(+), 4 deletions(-)

diff --git a/yubikey-5c-nano-loop.scad b/yubikey-5c-nano-loop.scad
index 5594ec2..a0e2add 100644
--- a/yubikey-5c-nano-loop.scad
+++ b/yubikey-5c-nano-loop.scad
@@ -6,26 +6,37 @@ base = [ 8.4, 4.1 ];
 base_th = 0.7;
 base_slope = 2.0;
 
-hoop_th = 2.8;
+hoop_th = 2.4;
 hoop_inner_dia = 2.5;
 
+$fa = 3;
+$fs = 0.1;
+
 // caclulated
 
 module Base() {
   hull(){
     linextr(-base_th, -base_th + 0.01)
       square(base, center=true);
-    linextr(-base_th, 0)
+    linextr(-base_th, 0) {
       square(base - 2 * base_th * base_slope * [1,1], center=true);
+      for (m=[0,1]) {
+	mirror([m,0,0]) LoopPlan();
+      }
+    }
   }
 }
 
+module LoopPlan() {
+  translate([hoop_inner_dia/2 + hoop_th/2, 0])
+    circle(r = hoop_th/2);
+}
+
 module Loop() {
   intersection(){
     rotate([90, 0,0]){
       rotate_extrude(){
-	translate([hoop_inner_dia/2 + hoop_th/2, 0])
-	  circle(r = hoop_th/2);
+	LoopPlan();
       }
     }
     linextr(-0.1, hoop_inner_dia*2)
-- 
2.30.2