#!/usr/bin/perl -w
# $URL: svn+ssh://mrwhat@ssh.boim.com/home/mrwhat/svn/Walker/trunk/payloadTest.pl $
# $Id: payloadTest.pl 383 2014-02-06 21:20:49Z mrwhat $
#
# script to draw thin Jansen walker parts for laser cutting in SVG
$preview = $#ARGV < 0;  # set to 0 for actual size code generation... will generate REAL code if given any argument

# ponoko laser cutting sheets come in 181x181mm, 384x384mm, 384 wide x 790mm long
$wPx = 512;  # width of drawing, pixels?!?? -- most programs seem to ignore units, use mm
$hPx = 512;  # height of drawing, pixels?!??

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

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

&printPayloadBox(180,100,0);  # top/bot/front/back plates
#&printPayloadSides(100-1,178,0); # check lid catches
#&printPayloadSides(190,178,0); # check bottom tabs
#&printPayloadSides(266,178,0); # check bottom tabs
#&printPayloadSides(262,175,-90); # check side tabs
&printPayloadSides(58,175,-90); # check side tabs

=begin comment old style hinge-top lid
#&printPayloadBotEnds(10+80,120,0);  # payload bottom plate and end plates.
&printPayloadBotEnds(10,120,0);  # payload bottom plate and end plates.
#&printOldPayloadBotEnds(10,227,0); # print old payload bay for reference
##&printPayloadLid(10+65+3.4-179,10+110,0);
&printPayloadLid(10+65+2*3.4,10,0);

# this should be done on 4.5mm stock, printing here to check drawing only
#&printPayloadSide(38.2,315,90);  # check front/back end tab alignment
#&printPayloadSide(176.4,259,0); # check bottom tab hole alignment
#&printPayloadSide(176.4,136,180); # check top knotch alignment
&printPayloadSideSet(176.4,344,0);
=end
=cut

print "</g></g></svg>\n";  # end of mm scale, cut-line drawing group, and whole drawing 
