pawn.scad

   1 // -*- C -*-
   2
   3 // shape parameters
   4
   5 r1 =  3;
   6 r2 =  6; a2 = 30;
   7 r3 = r2;
   8 r4 =  8; a4 = 30;
   9 r5 = 12;
  10 h6 =  5; a6 = 5;
  11
  12 // coordinates
  13
  14                        z1 =  0;
  15 h2 = r2 * sin(a2);     z2 = z1 - h2;
  16 h3 = r3 * sin(a2);     z3 = z2 - h3;
  17 h4 = r4 * sin(a4);     z4 = z3 - h4;
  18 h5 = r5 * sin(a4-a6);  z5 = z4 - h5;
  19                        z6 = z5 - h6;
  20
  21 x1 =  0 - r1;
  22 x2 = x1 + r2 * (1-cos(a2));
  23 x3 = x2 + r3 * (1-cos(a2));
  24 x4 = x3 - r4 * (1-cos(a4));
  25 x5 = x4 - r5 * (1-cos(a4-a6));
  26 x6 = x5 - h6 * tan(a6);
  27
  28 $fa=1;
  29 $fs=0.1;
  30
  31 module ConvexSegment(xc, zc, r, zmin, zmax){
  32   intersection(){
  33     translate([xc,zc]) circle(r=r);
  34     translate([-50,zmin-0.01]) square([55,zmax-zmin+0.02]);
  35   }
  36 }
  37
  38 module PawnTemplate(){
  39   intersection(){
  40     union(){
  41       ConvexSegment(x1 + r1, z1, r1, z1, 50);
  42       ConvexSegment(x1 + r2, z1, r2, z2, z1);
  43       translate([x5 + r5 * cos(a6), z5]) circle(r=r5);
  44       polygon([[x6,z6-1],
  45                [x5,z5],
  46                [1,z5],
  47                [1,z6-1]]);
  48       difference(){
  49         translate([-50,z4]) square([52,z2-z4]);
  50 //      circle(
  51       }
  52     }
  53     translate([-100,z6]) square([100.1, 200]);
  54   }
  55 }
  56
  57 PawnTemplate();