Postscript code for PCB coils

[Anonymous]

If anyone wants to try one for themselves :-
%! PCB Coil program Nick Fisher 5/7/2002
% default unit for postscript is a point: 1/72 of an inch
% these functions let you use inch and mm for dimensions
% you must add "mm" or "inch" after the number though
% see for example radius definition
/inch { 72 mul } def
/mm { 2.8346 mul } def
% coil specs
/trackwidth 1 def
/turns 30 def
/spacing 2 def
/radius 100 mm def
/centrex radius 22 add def
/centrey radius 22 add def
/centrey1 centrey spacing 2 div add def
% fills to save etching too much copper
0 setgray
0 0 moveto
0 centrey 2 mul lineto
centrex 2 mul centrey 2 mul lineto
centrex 2 mul 0 lineto
closepath
fill
1 setgray
centrex centrey centrex 0 360 arc
fill
0 setgray
centrex centrey radius turns spacing mul 22 add sub 0 360 arc
fill
trackwidth setlinewidth
% pads
centrex centrey radius spacing 2 div add sub trackwidth 0 360 arc
stroke
centrex centrey radius spacing turns 1.5 add mul sub sub trackwidth 0 360 arc
stroke
%the coil
0 1 turns
{
/turn exch def
centrex centrey radius turn spacing mul sub 270 90 arc
centrex centrey1 radius turn 0.5 add spacing mul sub 90 270 arc
}
for
stroke
showpage
% the end

 

[Anonymous]

Where can I download the PCB coil program?