#!/usr/bin/perl -w
# $URL: svn+ssh://mrwhat@ssh.boim.com/home/mrwhat/svn/Walker/trunk/stackers61x61.pl $
# $Id: stackers61x61.pl 423 2014-05-18 15:30:08Z mrwhat $
#
# script to draw generic stackers
# mostly to get 0.5-1mm shims, and 2mm stackers, which are only available at Ponoko
$preview = 0;  # preview mode depricated.  Just hand-edit SVG for production

require 'laserCutPartsPrimitives.pl';
require 'JansenDefs.pl';

($wPx,$hPx) = &parseSizeFromFileName($0);
&printPonokoHeader($wPx,$hPx,$preview);

print "<g transform=\"translate(.1,5.4)\">";
for (local $i=0; $i<6;$i++) { &stackerRow(3,$dHole*$i,$i?1:0); }
print "</g>";

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