chiark / gitweb /
pawn wip introduce d
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Tue, 2 Oct 2012 17:26:54 +0000 (18:26 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Tue, 2 Oct 2012 17:26:54 +0000 (18:26 +0100)
pawn.scad

index 994ce56..4153639 100644 (file)
--- a/pawn.scad
+++ b/pawn.scad
@@ -32,11 +32,13 @@ x6 = x5 - h6 * tan(a6);
 htotal = r1 - z6;
 echo("height", htotal);
 
+d = 0.01;
+
 $fa=1;
 $fs=0.1;
 
 module SegmentBasisSquare(zmin, zmax, xmin){
-  translate([xmin, zmin-0.01]) square([-xmin+0.01, zmax-zmin+0.02]);
+  translate([xmin, zmin-d]) square([-xmin+d, zmax-zmin+d*2]);
 }
 module ConvexSegment(xc, zc, r, zmin, zmax){
   intersection(){
@@ -58,9 +60,9 @@ module PawnTemplate(){
   ConcaveSegment( x3 - r4,  z3,   r4, z4, z3);
   ConvexSegment(  xc5,      zc5,  r5, z5, z4);
   polygon([[x6, z6],
-          [x5, z5+0.01],
-          [0.01, z5],
-          [0.01, z6]]);
+          [x5, z5+d],
+          [d, z5],
+          [d, z6]]);
 }
 
 module Pawn(h=htotal){