From ac29316f373359f2ca9bbc9fa0ad82a1b542ab32 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 4 Nov 2015 22:21:49 +0000
Subject: [PATCH] warptest3: try this

---
 warptest3.scad | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 warptest3.scad

diff --git a/warptest3.scad b/warptest3.scad
new file mode 100644
index 0000000..f6f260f
--- /dev/null
+++ b/warptest3.scad
@@ -0,0 +1,30 @@
+// -*- C -*-
+
+dy= 145;
+dx=  65;
+
+h1= 8;
+h2= 12;
+ratio = 0.8;
+
+module Plan(){
+  polygon([[ -dx/2,  0    ],
+	   [     0,  dy/2 ],
+	   [  dx/2,  0    ],
+	   [     0, -dy/2 ]]);
+}
+
+module Solid(){
+  rotate([0,0, -45]) {
+    hull(){
+      linear_extrude(height= h1) {
+	Plan();
+      }
+      linear_extrude(height= h2) {
+	scale(ratio) Plan();
+      }
+    }
+  }
+}
+
+Solid();
-- 
2.30.2