// -*- C -*-

include <commitid.scad>

pxp6012_rad = 22.5 / 2 + 0.5;
pxp6012_rad_outer = 32.0 / 2 - 0.5;

s1930_y = 30.2 + 0.2;
s1930_x =   22 + 0.2;
s1930_y_outer = 36.4 + 0.2;
s1930_x_outer = 27.6 + 0.2;

s1930_recess = 3;
s1930_around = 3;

wallthick = 3.0;

module TestWall(){
  sw_ctr = [25, 0, 25];

  rotate([0,0,-90]){
    difference(){
      union(){
	cube([50, wallthick, 42]);
      }

      translate([30, -1, 20])
	rotate([-90,0,0])
	cylinder(r = pxp6012_rad, h=10, $fn=60);

      rotate([90,0,0])
	Commitid_BestCount([15,40]);
    }
  }

  difference(){
    union(){
      cube([50, wallthick, 50]);
      translate(sw_ctr) {
	rotate([90,0,0])
	  cube([s1930_x_outer + s1930_around,
		s1930_y_outer + s1930_around,
		s1930_recess*2],
	       center=true);
      }
    }

    translate(sw_ctr) {
      rotate([90,0,0]) {
	cube([s1930_x, s1930_y, 10], center=true);
	translate([0,0, -5])
	  cube([s1930_x_outer, s1930_y_outer, 10], center=true);
      }
    }
  }    
}

ts_floorceil = 1.5;
ts_outer = [20,20,20];
ts_wall = [wallthick,wallthick,ts_floorceil];

seal_h = 3;
seal_w = 1;

module TestSealSelector(){
  oz = ts_outer[2];
  muchxy = [30,30,0];
  seal_horiz_spare = wallthick - seal_w;
  seal_horiz_flat_outer = seal_horiz_spare/2;
  seal_horiz_flat_inner = seal_horiz_spare - seal_horiz_flat_outer;
//  translate([0,0, oz/2]){
    %translate(-muchxy/2) mirror([0,0,1]) cube(ts_outer + muchxy + [0,0,10]);
    hull(){
      translate([1,1,0] * seal_horiz_flat_outer)
	mirror([0,0,1])
	cube(ts_outer - 2 * [1,1,0] * seal_horiz_flat_outer);
      translate([1,1,0] * seal_horiz_flat_inner + [0, 0, seal_h])
	mirror([0,0,1])
	cube(ts_outer - 2 * [1,1,0] * seal_horiz_flat_inner);
    }
//  }
}

module TestSeal(){
  difference(){
    cube(ts_outer);
    translate(ts_wall) cube(ts_outer - ts_wall*2);
  }
}

//TestWall();
//TestSeal();
TestSealSelector();