BlinkenArea - GitList
Repositories
Blog
Wiki
partlib
Code
Commits
Branches
Tags
Search
Tree:
8c1680e
Branches
Tags
master
stefan.experimental
partlib
pcb_set_solderstop.pl
initial commit
Stefan Schuermans
commited
8c1680e
at 2012-10-03 10:15:25
pcb_set_solderstop.pl
Blame
History
Raw
#! /usr/bin/perl use strict; my $line; while( $line = <> ) { chomp $line; chomp $line; # via: no solderstop hole if( $line =~ /^([ \t]*)Via\[([-0-9]+) ([-0-9]+) ([-0-9]+) ([-0-9]+) [-0-9]+ (.*)$/ ) { print( "$1Via[$2 $3 $4 $5 0 $6\n" ); # pin: solderstop hole diameter 6 mil more than copper diameter } elsif( $line =~ /^([ \t]*)Pin\[([-0-9]+) ([-0-9]+) ([-0-9]+) ([-0-9]+) [-0-9]+ (.*)$/ ) { my $solderstop = $4 + 600; print( "$1Pin[$2 $3 $4 $5 $solderstop $6\n" ); # pad: solderstop width 6 mil more than copper width } elsif( $line =~ /^([ \t]*)Pad\[([-0-9]+) ([-0-9]+) ([-0-9]+) ([-0-9]+) ([-0-9]+) ([-0-9]+) [-0-9]+ (.*)$/ ) { my $solderstop = $6 + 600; print( "$1Pad[$2 $3 $4 $5 $6 $7 $solderstop $8\n" ); # keep unknown lines } else { print( "$line\n" ); } } # while( $line = <> )
