IEEE 802.15.4 subsystem
Sign in or create your account | Project List | Help
IEEE 802.15.4 subsystem Git Source Tree
Root/
Source at commit 876e12b0a9dcb707dc7c9dd3c5d09480afea848b created 13 years 3 months ago. By Werner Almesberger, atusb/cam: updated CAM process for new board | |
---|---|
1 | #!/usr/bin/perl |
2 | |
3 | $d = 2.54/1000*12; |
4 | $r = $d/2+0.1; |
5 | |
6 | |
7 | sub orig |
8 | { |
9 | $x0 = $_[0]; |
10 | $y0 = $_[1]; |
11 | } |
12 | |
13 | |
14 | sub mil |
15 | { |
16 | return $_[0]/1000*25.4; |
17 | } |
18 | |
19 | |
20 | sub cut |
21 | { |
22 | if (defined $x) { |
23 | if ($x == $_[0]+$x0 && $y == $_[1]+$y0) { |
24 | shift @_; |
25 | shift @_; |
26 | } else { |
27 | print "\n"; |
28 | } |
29 | } |
30 | while (@_) { |
31 | $x = shift @_; |
32 | $y = shift @_; |
33 | # ($x, $y) = (-$y, $x); |
34 | $x += $x0; |
35 | $y += $y0; |
36 | print "$x $y $z\n"; |
37 | } |
38 | } |
39 | |
40 | |
41 | sub one |
42 | { |
43 | &cut( |
44 | &mil( 0), &mil( 0), |
45 | &mil( 0), &mil(640), |
46 | &mil(1305), &mil(640), |
47 | &mil(1305), &mil( 0), |
48 | &mil( 0), &mil( 0)); |
49 | } |
50 | |
51 | |
52 | $z = -0.8; |
53 | # x: corner offset, compensation for rotation, array position |
54 | # y: corner offet |
55 | &orig(25+36*1, 2+17*0) |
56 | &one; |
57 |