warptest3.scad

   1 // -*- C -*-
   2
   3 dy= 145;
   4 dx=  65;
   5
   6 h1= 8;
   7 h2= 14;
   8 ratio = 0.8;
   9
  10 module Plan(){
  11   polygon([[ -dx/2,  0    ],
  12            [     0,  dy/2 ],
  13            [  dx/2,  0    ],
  14            [     0, -dy/2 ]]);
  15 }
  16
  17 module Solid(){
  18   rotate([0,0, -45]) {
  19     hull(){
  20       linear_extrude(height= h1) {
  21         Plan();
  22       }
  23       linear_extrude(height= h2) {
  24         scale(ratio) Plan();
  25       }
  26     }
  27   }
  28 }
  29
  30 Solid();