mirror of
git://projects.qi-hardware.com/kicad-libs.git
synced 2024-11-08 08:24:59 +02:00
components/gencon.pl: add variants with one or two shield/mounting pads
This commit is contained in:
parent
e640742621
commit
723c6fdb43
@ -11,23 +11,54 @@
|
|||||||
#
|
#
|
||||||
|
|
||||||
|
|
||||||
|
sub intro
|
||||||
|
{
|
||||||
|
local ($name, $h, $s) = @_;
|
||||||
|
my $b = $s ? $h + 150 : $h;
|
||||||
|
|
||||||
|
$name .= "_S$s" if $s;
|
||||||
|
|
||||||
|
print "#\n# $name\n#\n";
|
||||||
|
print "DEF $name CON 0 40 Y N 1 F N\n";
|
||||||
|
print "F0 \"CON\" 0 " . ($h + 50) . " 60 H V C CNN\n";
|
||||||
|
print "F1 \"$name\" 0 " . (-$b - 50) . " 60 H V C CNN\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
sub box
|
||||||
|
{
|
||||||
|
local ($h, $s) = @_;
|
||||||
|
my $b = $s ? $h + 150 : $h;
|
||||||
|
|
||||||
|
print "S -100 -$b 100 $h 0 1 0 N\n";
|
||||||
|
for (my $i = 0; $i != $s; $i++) {
|
||||||
|
my $n = sprintf("S%d", $i+1);
|
||||||
|
|
||||||
|
print "X $n $n " . (400 * ($i - 0.5) * 2) . " " .
|
||||||
|
(-$h - 100) . " 300 " .
|
||||||
|
("R", "L")[$i] . " 50 50 1 1 P\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
# Single and dual row, with the same number of pins in each row
|
# Single and dual row, with the same number of pins in each row
|
||||||
|
|
||||||
sub even
|
sub even
|
||||||
{
|
{
|
||||||
local ($x) = @_;
|
local ($x, $s) = @_;
|
||||||
|
|
||||||
for (my $y = 1; $y <= 2; $y++) {
|
for (my $y = 1; $y <= 2; $y++) {
|
||||||
my $name = "CONN_$x";
|
my $name = "CONN_$x";
|
||||||
$name .= "X$y" if $y > 1;
|
|
||||||
print "#\n# $name\n#\n";
|
|
||||||
print "DEF $name CON 0 40 Y N 1 F N\n";
|
|
||||||
my $h = $x / 2 * 100;
|
my $h = $x / 2 * 100;
|
||||||
print "F0 \"CON\" 0 " . ($h + 50) . " 60 H V C CNN\n";
|
|
||||||
print "F1 \"$name\" 0 " . (-$h - 50) . " 60 H V C CNN\n";
|
$name .= "X$y" if $y > 1;
|
||||||
|
&intro($name, $h, $s);
|
||||||
|
|
||||||
print "DRAW\n";
|
print "DRAW\n";
|
||||||
print "S -100 -$h 100 $h 0 1 0 N\n";
|
&box($h, $s);
|
||||||
|
|
||||||
my $n = 1;
|
my $n = 1;
|
||||||
|
|
||||||
for (my $px = 1; $px <= $x; $px++) {
|
for (my $px = 1; $px <= $x; $px++) {
|
||||||
for (my $py = 1; $py <= $y; $py++) {
|
for (my $py = 1; $py <= $y; $py++) {
|
||||||
print "X $n $n " . (400 * ($py - 1.5) * 2) .
|
print "X $n $n " . (400 * ($py - 1.5) * 2) .
|
||||||
@ -46,16 +77,12 @@ sub even
|
|||||||
|
|
||||||
sub odd
|
sub odd
|
||||||
{
|
{
|
||||||
local ($x) = @_;
|
local ($x, $s) = @_;
|
||||||
|
|
||||||
my $name = "CONN_$x" . "_" . ($x - 1);
|
|
||||||
print "#\n# $name\n#\n";
|
|
||||||
print "DEF $name CON 0 40 Y N 1 F N\n";
|
|
||||||
my $h = $x / 2 * 100;
|
my $h = $x / 2 * 100;
|
||||||
print "F0 \"CON\" 0 " . ($h + 50) . " 60 H V C CNN\n";
|
|
||||||
print "F1 \"$name\" 0 " . (-$h - 50) . " 60 H V C CNN\n";
|
&intro("CONN_$x" . "_" . ($x - 1), $h, $s);
|
||||||
print "DRAW\n";
|
print "DRAW\n";
|
||||||
print "S -100 -$h 100 $h 0 1 0 N\n";
|
&box($h, $s);
|
||||||
for (my $px = 1; $px <= $x; $px++) {
|
for (my $px = 1; $px <= $x; $px++) {
|
||||||
print "X $px $px -400 " .
|
print "X $px $px -400 " .
|
||||||
($h - $px * 100 + 50) . " 300 R 50 50 1 1 P\n";
|
($h - $px * 100 + 50) . " 300 R 50 50 1 1 P\n";
|
||||||
@ -72,7 +99,9 @@ sub odd
|
|||||||
print "EESchema-LIBRARY Version 2.3 Date: `date`\n";
|
print "EESchema-LIBRARY Version 2.3 Date: `date`\n";
|
||||||
print "#encoding utf-8\n";
|
print "#encoding utf-8\n";
|
||||||
for ($x = 1; $x <= 40; $x++) {
|
for ($x = 1; $x <= 40; $x++) {
|
||||||
&even($x);
|
for ($s = 0; $s <= 2; $s++) {
|
||||||
&odd($x) if $x > 1;
|
&even($x, $s);
|
||||||
|
&odd($x, $s) if $x > 1;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
print "#\n#End Library\n";
|
print "#\n#End Library\n";
|
||||||
|
Loading…
Reference in New Issue
Block a user