#!/usr/bin/perl -w
# $URL: svn+ssh://mrwhat@ssh.boim.com/home/mrwhat/svn/Walker/trunk/catchTab63x61.pl $
# $Id: catchTab63x61.pl 416 2014-04-19 14:36:01Z mrwhat $
#
# script to draw Walker parts which can be cut from 2.5mm (0.100") stock
#
#  It appears that the supplier in Tucson has 0.098" stock which is actually 2.2mm thick.
#  (This may be the same thing as the "2mm" stock at Ponoko)
#  This is a good thickness (<~= 4.5mm/2) for cranklinks, EF, BH, D-fork, and gear side plates

$preview = $#ARGV < 0;  # set to 0 for actual size code generation... will generate REAL code if given any argument

require 'laserCutPartsGroups.pl';
require 'JansenDefs.pl';
require 'payloadBox.pl';

# ponoko laser cutting sheets come in 181x181mm, 384x384mm, 384 wide x 790mm long
($wPx,$hPx) = &parseSizeFromFileName($0);  # get this from file name to make SURE it matches

&printPonokoHeader($wPx,$hPx,$preview);

local $x0 = 18.4;
local $x1 = $x0 + 8.2;
local $dx = 18;
local $y0 = 11.3;
local $dy = 19.2;
&printCatchTab($x0    ,$y0,180,1);
&printCatchTab($x0+$dx,$y0);    $y0 += $dy;

&printCatchTab($x1    ,$y0,180,1);
&printCatchTab($x1+$dx,$y0);    $y0 += $dy;

&printCatchTab($x0    ,$y0,180,1);
&printCatchTab($x0+$dx,$y0);    $y0 += $dy;

print "</g></svg>\n"; # end of drawing
