#! /usr/bin/perl
use strict;
use warnings;
if( @ARGV < 2 ) {
print( STDERR "usage: $0 <pins> <body width (mil)>\n" );
exit( -1 );
}
my $pins = int( abs( $ARGV[0] ) );
my $body_width = int( abs( $ARGV[1] ) );
my $pin_dist = 50;
my $pad_inner_ext = 15;
my $pad_outer_ext = 70;
my $pad_width = 20;
my $silk_dist = 10;
my $pcb_clearance = 3000;
my $pcb_solder_add = 600;
my $arc_rad = 25;
my $pcb_silk_width = 700;
my $pins_side = int( $pins / 2 );
if( $pins_side * 2 != $pins ) {
print( STDERR "number of pins not divisble by 2\n" );
exit( -1 );
}
sub mil2pcb
{
my $mil = shift;
my $pcb = $mil / 0.01;
my $pcb_i = $pcb < 0 ? int( $pcb - 0.5 ) : int( $pcb + 0.5 );
return $pcb_i;
}
sub pad
{
my ($x1, $y1, $x2, $y2, $no) = @_;
my $dx = abs( $x2 - $x1 );
my $dy = abs( $y2 - $y1 );
my $width = $dx < $dy ? $dx : $dy;
my $width2 = $width / 2;
my $cx = ($x1 + $x2) / 2;
my $cy = ($y1 + $y2) / 2;
my $dx1 = $x1 - $cx;
my $dx2 = $x2 - $cx;
my $dy1 = $y1 - $cy;
