From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 8 Oct 2017 00:40:21 +0000 (+0100)
Subject: poster-tube-lid: go back to not being a perl script
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=7d1412a5306b87d013bc7f673c65a50cf42df40b;p=reprap-play.git

poster-tube-lid: go back to not being a perl script
---

diff --git a/.gitignore b/.gitignore
index 2908e78..36df2f9 100644
--- a/.gitignore
+++ b/.gitignore
@@ -33,4 +33,3 @@ 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.pl b/poster-tube-lid.scad
old mode 100755
new mode 100644
similarity index 94%
rename from poster-tube-lid.scad.pl
rename to poster-tube-lid.scad
index 4a862cd..b202b5d
--- a/poster-tube-lid.scad.pl
+++ b/poster-tube-lid.scad
@@ -1,10 +1,4 @@
-#!/usr/bin/perl -w
-# -*- C -*-
-
-use strict;
-use autodie;
-
-my $settings = <<'END';
+// -*- C -*-
 
 main_dia = 71.2 + 0.50;
 top_thick = 4;
@@ -92,10 +86,6 @@ bayo_polygon = [ bayo_a,
 
 echo(bayo_polygon);
 
-END
-
-my $mainbody = <<'END';
-
 module MainProfile(){
   main_cnr_pos = [ side_thick, top_z ] - [1,1]*main_cnr;
   translate(main_cnr_pos){
@@ -123,8 +113,3 @@ module MainProfile(){
 translate([-20,0]) MainProfile();
 
 polygon(bayo_polygon);
-
-END
-
-print $settings, $mainbody or die $!;
-