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

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