From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 4 Nov 2015 22:21:49 +0000 (+0000)
Subject: warptest3: try this
X-Git-Tag: filamentspool-v2-release~133
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=ac29316f373359f2ca9bbc9fa0ad82a1b542ab32;p=reprap-play.git

warptest3: try this
---

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();