f = io.open("tmp.asc","w")
f:write("Version 4\n")
f:write("SHEET 1 880 680\n")

loopInductance = 10e-8
loopResistance = 0.1
loopCapacitance = 1e-12

designatorL = 1
designatorC = 1


function Inductor(x,y,rot)
rot = rot or 270
f:write("SYMBOL ind "..((x-1)*16).." "..((y+1)*16).." R"..rot.."\n")
f:write("SYMATTR InstName L"..designatorL.."\n")
f:write("SYMATTR Value "..loopInductance.."\n")
f:write("SYMATTR SpiceLine Rser="..loopResistance.."\n")
designatorL = designatorL + 1
end


function Capacitor(x,y,rot)
rot = rot or 270
f:write("SYMBOL cap "..((x) * 16).." "..((y+1)*16).." R"..rot.."\n")
f:write("SYMATTR InstName C"..designatorC.."\n")
f:write("SYMATTR Value "..loopCapacitance.."\n")
designatorC = designatorC + 1
end

function Wire(x1,y1,x2,y2)
f:write("WIRE "..(x1*16).." "..(y1*16).." "..(x2*16).." "..(y2*16).."\n")
end


function Layer(x,y,n,cap)
for i = 0, n-1 do
Inductor(x+i*10,y)
Capacitor(x+i*10,y+3)
Wire(x+i*10,y,x+i*10,y+3)
Wire(x+i*10+4,y+3,x+i*10+5,y+3)
Wire(x+i*10+5,y+3,x+i*10+5,y)
if i ~= n-1 then Wire(x+i*10+5,y,x+i*10+15,y) end
if cap then
if i~=0 then Capacitor(x+i*10+1,y-1,180) end
if i~=n-1 then Capacitor(x+i*10+6,y-1,180) end
end
end
end

function coil(n,l)

for i = 0,l-1 do
Layer(i*5, -i*7, n+1-i, i~=l-1)
if i~=l-1 then
if i % 2 == 1 then
Wire (i*5, -i*7, i*5, -i*7-7)
Wire (i*5, -i*7-7,i*5+5, -i*7-7)
else
Wire (i*5+(n+1-i)*10-5, -i*7, i*5+(n+1-i)*10-5, -i*7-7)
Wire (i*5+(n+1-i)*10-5, -i*7-7,i*5+5+(n+1-i)*10-15, -i*7-7)
end
end
end
end

coil(20,4)

f.close()