#!/usr/bin/perl -w
# $URL: svn+ssh://mrwhat@ssh.boim.com/home/mrwhat/svn/Walker/trunk/testMotorMount.pl $
# $Id: testMotorMount.pl 362 2014-01-23 16:07:16Z mrwhat $
#
# test drawing of motor mount parts
$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 = 181;  # width of drawing, pixels?!?? -- most programs seem to ignore units, use mm
$hPx = 181;  # height of drawing, pixels?!??

require 'laserCutPartsGroups.pl';
require 'JansenDefs.pl';
require 'motorMount.pl';

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

local $br = $Brad + 0.5*$fuzz; # not quite press tight
print STDERR "Bx=$Bx\tbr=$br\tAy=$Ay\tArad=$Arad\n";
&printMainFlat(90, 80, 0 ,$Bx,$br,$Ay,$irA,4);
&printMainFlat(90,100,180,$Bx,$br,$Ay,$irA,0);

#&printMotorStacker(90,38.6,180,$rad4); # test alignment
&printMotorStacker(50,58,0,$rad4);

## need two of these for each motor mount
&roundSpacer(90+$motorRad+6+20,38.6,6,$rad4+0.5*$fuzz);

### printing here for testing.  This should be on 3mm, while all else is 4.5
#&printMotorTabGA16(90,38.6,0,3,$rad4,6); # test alignment
&printMotorTabGA16(50,20,0,3,$rad4,6);


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