bulb

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;
my $pi = 3.1415;
sub mm2pcb
{
  my $mm = shift;
  my $pcb = $mm * 1.0e5 / 25.4;
  return int($pcb >= 0.0 ? $pcb + 0.5 : $pcb - 0.5)
}
sub line
{
  my $sx = shift;
  my $sy = shift;
  my $ex = shift;
  my $ey = shift;
  printf "\tElementLine[%d %d %d %d 1000]\n",
         mm2pcb($sx), mm2pcb($sy), mm2pcb($ex), mm2pcb($ey);
}
sub pad
{
  my $sx = shift;
  my $sy = shift;
  my $ex = shift;
  my $ey = shift;
  my $w = shift;
  my $name = shift;
  my $no = shift;
  printf "\tPad[%d %d %d %d %d 3000 %d \"%s\" \"%d\" \"square\"]\n",
         mm2pcb($sx), mm2pcb($sy), mm2pcb($ex), mm2pcb($ey),
         mm2pcb($w), mm2pcb($w) + 600, $name, $no;
}
sub element
{
  my $idx = shift;
  my $cx = shift;
  my $cy = shift;
  my $angle = shift;
  my $ov_tx = shift;
  my $ov_ty = shift;
  my $rx = cos($angle);
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX