qi-hardware/ben-wpan
1
0
Fork 0
mirror of git://projects.qi-hardware.com/ben-wpan.git synced 2024-11-29 10:48:28 +02:00
Code

atusd/cam/pcb.pl: updated for new board shape

Browse Source
This commit is contained in:
Werner Almesberger 2010-09-12 12:43:52 -03:00
parent f8ae351347
commit 843a0bcb18
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
atusd/cam/pcb.pl
View File

@ -59,9 +59,9 @@ sub one
&cut($fn, &cut($fn,
&mil( 0)-$r, &mil( 0)-$r, &mil( 0)-$r, &mil( 0)-$r,
&mil( 0)-$r, &mil(1030)+$r, &mil( 0)-$r, &mil(1010)+$r,
&mil(1340)+$r, &mil(1030)+$r, &mil(1400)+$r, &mil(1010)+$r,
&mil(1340)+$r, &mil( 640)-$r, &mil(1400)+$r, &mil( 640)-$r,
&mil( 440)+$r, &mil( 640)-$r, &mil( 440)+$r, &mil( 640)-$r,
&mil( 440)+$r, &mil( 390)-$r, &mil( 440)+$r, &mil( 390)-$r,
&mil( 410)+$r, &mil( 360)-$r, &mil( 410)+$r, &mil( 360)-$r,
@ -75,11 +75,11 @@ sub one
$z = -0.8; $z = -0.8;
$col = 0; $col = 1;
$row = 1; $row = 1;
# x: corner offset, compensation for rotation, array position # x: corner offset, compensation for rotation, array position
# y: corner offet # y: corner offet
&orig(5+54*$col, 5+33*$row) &orig(5+53.5*$col, 5+33*$row)
&one(*same); &one(*same);
&orig(5+54*$col+15+&mil(1340), 5+33*$row+&mil(1030)); &orig(5+53.5*$col+15+&mil(1400), 5+33*$row+&mil(1010));
&one(*rot); &one(*rot);