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

[reprap-play.git] / poster-tube-lid.scad.pl

diff --git a/poster-tube-lid.scad.pl b/poster-tube-lid.scad.pl
deleted file mode 100755 (executable)
index 4a862cd..0000000
--- a/poster-tube-lid.scad.pl
+++ /dev/null
@@ -1,130 +0,0 @@
-#!/usr/bin/perl -w
-# -*- C -*-
-
-use strict;
-use autodie;
-
-my $settings = <<'END';
-
-main_dia = 71.2 + 0.50;
-top_thick = 4;
-
-main_cnr = 4.0;
-
-rivet_posn = 6.0;
-rivet_thick = 1.67;
-rivet_width = 4.15 + 1.0;
-rivet_tall = 5.51 + 0.49;
-
-over_rivet_gap = 1.0;
-side_rivet_gap = 1.5;
-
-bayo_interf = 0.75;
-bayo_behind = 3.5;
-bayo_interf_width = 2.0;
-bayo_interf_slope = 0.75;
-
-seal_thick = 0.1;
-seal_recess = [ 2.0, 2.0 ]; // recess depth, recess height
-
-side_taper = 1.0;
-
-bayo_above_gap = 1.0;
-
-bayo_entry = bayo_behind/3;
-
-// calculated
-
-bayo_entry_x = bayo_entry;
-bayo_entry_z = bayo_entry;
-bayo_inramp_x = bayo_entry;
-bayo_inramp_z = bayo_entry;
-
-side_height = rivet_posn + bayo_behind + rivet_thick/2;
-side_thick = rivet_tall + over_rivet_gap;
-
-top_z = top_thick + seal_thick;
-
-bayo_entry = bayo_behind / 3.0;
-bayo_top_z = bayo_behind + rivet_thick + over_rivet_gap;
-bayo_entry_ramp = bayo_entry + bayo_interf;
-
-rivet_entry_width = rivet_width + side_rivet_gap;
-
-$fs=0.5;
-$fa=5;
-
-// bayonet definition
-
-bayo_a = [ bayo_entry_x, 0 ];
-bayo_p = [ 0, bayo_entry_z ];
-bayo_n = [ 0, bayo_behind-bayo_inramp_z ];
-bayo_m = [ bayo_inramp_x, bayo_behind ];
-bayo_l = bayo_m + bayo_interf * [ 1/bayo_interf_slope,  1 ];
-bayo_k = bayo_l + [ bayo_interf_width, 0 ];
-bayo_j = bayo_k + bayo_interf * [ 1/bayo_interf_slope, -1 ];
-bayo_i = bayo_j + [ rivet_width, 0 ];
-bayo_h = [ bayo_i[0], bayo_behind + rivet_thick + over_rivet_gap ];
-bayo_g = [ bayo_m[0] - rivet_width, bayo_h[1] ];
-
-bayo_e = [-bayo_p[0], bayo_p[1]] - [rivet_entry_width,0];
-bayo_d = [-bayo_a[0], bayo_a[1]] - [rivet_entry_width,0];
-bayo_c = bayo_d + [0,-5];
-bayo_b = bayo_a + [0,-5];
-
-bayo_f = [ bayo_e[0], bayo_g[1] + (bayo_e[0] - bayo_g[0]) ];
-
-bayo_polygon = [ bayo_a,
-                bayo_b,
-                bayo_c,
-                bayo_d,
-                bayo_e,
-                bayo_f,
-                bayo_g,
-                bayo_h,
-                bayo_i,
-                bayo_j,
-                bayo_k,
-                bayo_l,
-                bayo_m,
-                bayo_n,
-                bayo_p ];
-
-echo(bayo_polygon);
-
-END
-
-my $mainbody = <<'END';
-
-module MainProfile(){
-  main_cnr_pos = [ side_thick, top_z ] - [1,1]*main_cnr;
-  translate(main_cnr_pos){
-    intersection(){
-      difference(){
-       circle(r = main_cnr);
-       circle(r = main_cnr * 0.5);
-      }
-      square([10,10]);
-    }
-  }
-  polygon([[ -1,                    seal_thick        ],
-          [ -1,                    top_z             ],
-          [ main_cnr_pos[0],       top_z             ],
-          [ side_thick,            main_cnr_pos[1]   ],
-          [ side_thick,            -side_height      ],
-          [ side_taper,            -side_height      ],
-          [ 0,                     -rivet_posn       ],
-          [ 0,                     -(seal_recess[0] + seal_recess[1]) ],
-          [ seal_recess[0],        -(seal_recess[0]) ],
-          [ seal_recess[0],        seal_thick        ],
-          ]);
-}
-
-translate([-20,0]) MainProfile();
-
-polygon(bayo_polygon);
-
-END
-
-print $settings, $mainbody or die $!;
-