From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 7 Oct 2017 23:06:52 +0000 (+0100)
Subject: poster-tube-lid: make into a perl script
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=d6e3cc4eec4343d6300927d1c6797e3883583d84;p=reprap-play.git

poster-tube-lid: make into a perl script
---

diff --git a/.gitignore b/.gitignore
index 36df2f9..2908e78 100644
--- a/.gitignore
+++ b/.gitignore
@@ -33,3 +33,4 @@ sewing-table-front-profile.eps
 sewing-table-end-profile.dxf
 sewing-table-end-profile.eps
 sewing-table,Demo-flat.png
+poster-tube-lid.scad
diff --git a/poster-tube-lid.scad b/poster-tube-lid.scad.pl
old mode 100644
new mode 100755
similarity index 93%
rename from poster-tube-lid.scad
rename to poster-tube-lid.scad.pl
index 13a5a8b..2bb7d1d
--- a/poster-tube-lid.scad
+++ b/poster-tube-lid.scad.pl
@@ -1,4 +1,10 @@
-// -*- C -*-
+#!/usr/bin/perl -w
+# -*- C -*-
+
+use strict;
+use autodie;
+
+print <<'END' or die $!;
 
 main_dia = 71.2 + 0.50;
 top_thick = 4;
@@ -55,3 +61,5 @@ module MainProfile(){
 }
 
 MainProfile();
+
+END