poster-tube-lid: make into a perl script

diff --git a/.gitignore b/.gitignore
index 36df2f908f2a508d9b324cf87e0759b1cb2d4d1d..2908e784b5207641d71a0040f5a50951b0e4b656 100644 (file)
--- 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 (file)
new mode 100755 (executable)
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