partlib

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
#! /usr/bin/perl
use strict;
use warnings;
if (@ARGV < 1) {
  print STDERR "usage: $0 <angle in deg (cw)>\n";
  exit 2;
}
my $angle = shift(@ARGV);
my $angle_rad = $angle * 3.14159265 / 180.0;
my $angle_cos = cos($angle_rad);
my $angle_sin = sin($angle_rad);
sub round
{
  my ($val) = @_;
  return $val < 0 ? int($val - 0.5) : int($val + 0.5);
}
sub rotate
{
  my ($x, $y) = @_;
  my $xx = $angle_cos * $x - $angle_sin * $y;
  my $yy = $angle_sin * $x + $angle_cos * $y;
  return (round($xx), round($yy));
}
while (my $line = <>) {
  chomp $line;
  if ($line =~ /^\s+Pad\s*\[([0-9-]+)\s+([0-9-]+)\s+([0-9-]+)\s+([0-9-]+)\s+([0-9-]+)\s+([0-9-]+)\s+([0-9-]+)\s+"([^"]*)"\s+"([^"]*)"\s+("[^"]*"|0x[0-9A-Fa-f]+)\]\s*$/) {
    my ($x1, $y1, $x2, $y2, $width, $clear, $mask, $name, $no, $flags) =
       ($1, $2, $3, $4, $5, $6, $7, $8, $9, $10);
    my ($xx1, $yy1) = rotate($x1, $y1);
    my ($xx2, $yy2) = rotate($x2, $y2);
    $line = "\tPad[$xx1 $yy1 $xx2 $yy2 $width $clear $mask \"$name\" \"$no\" $flags]";
  }
  elsif ($line =~ /^\s+Pin\s*\[([0-9-]+)\s+([0-9-]+)\s+([0-9-]+)\s+([0-9-]+)\s+([0-9-]+)\s+([0-9-]+)\s+"([^"]*)"\s+"([^"]*)"\s+("[^"]*"|0x[0-9A-Fa-f]+)\]\s*$/) {
    my ($x, $y, $diam, $clear, $mask, $drill, $name, $no, $flags) =
       ($1, $2, $3, $4, $5, $6, $7, $8, $9);
    my ($xx, $yy) = rotate($x, $y);
    $line = "\tPin[$xx $yy $diam $clear $mask $drill \"$name\" \"$no\" $flags]";
  }
  elsif ($line =~ /^\s+ElementLine\s*\[([0-9-]+)\s+([0-9-]+)\s+([0-9-]+)\s+([0-9-]+)\s+([0-9-]+)\]\s*$/) {
    my ($x1, $y1, $x2, $y2, $width) = ($1, $2, $3, $4, $5);
    my ($xx1, $yy1) = rotate($x1, $y1);
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX