chiark / gitweb /
sewing-table: Swap elements of thehd (nfc)
[reprap-play.git] / sewing-table.scad.m4
index 0d1e813cdeece80975517fb9663e23cb94ad1e43..c84f359d68dd04053420b34ff85904b9ce2203f9 100644 (file)
@@ -62,7 +62,7 @@ module TileBase(botleft_post, topright_post){
     translate( [ botleft_post[0], botleft_post[1], -tile_th ]
               + 0.5 * [ post_dia, post_dia, 0 ] )
       Commitid_BestCount_M( topright_post-botleft_post
-                           + [0, thehd[0] ]
+                           + [0, thehd[1] ]
                            + [-post_dia,-post_dia] );
   }
 }
@@ -84,12 +84,12 @@ m4_define(`INREFFRAME',`
 m4_dnl  INREFFRAME(left_post, right_post, morevars)
 m4_dnl    INREFFRAME_EDGE { body; }
 m4_define(`INREFFRAME_EDGE',`
-  translate([-thehd[1], -thehd[0], -round_edge_rad])
+  translate([-thehd[0], -thehd[1], -round_edge_rad])
 ')
 
 module RoundEdge(left_post, right_post) {
   INREFFRAME(left_post, right_post,
-             `tlength = length + thehd[1] * 2;') m4_dnl '
+             `tlength = length + thehd[0] * 2;') m4_dnl '
     INREFFRAME_EDGE {
     difference(){
       rotate([0,90,0])
@@ -113,7 +113,7 @@ module RoundLeftCorner(this_post, right_post) {
 module InterlockCore(r, plusth, ymir) {
   dx = sqrt(3) * r;
   $fn= 80;
-  translate([0, -thehd[0], plusth]){
+  translate([0, -thehd[1], plusth]){
     mirror([0,ymir,0]){
       mirror([0,0,1]){
        linear_extrude(height=tile_th+plusth*2, convexity=10){
@@ -165,12 +165,12 @@ module TestPiece2(){ ////toplevel
   RoundEdge(holes[0], holes[1]);
   Interlock(holes[0], holes[0] + [0, -1]);
 }
+
 module Demo(){
-  translate([ -thehd[1], 0 ])
+  translate([ -thehd[0], 0 ])
     color("blue")
     TestPiece1();
-  translate([ +thehd[1], 0 ])
+  translate([ +thehd[0], 0 ])
     TestPiece2();
 }