Free parse strings.
[geda-pcb/pcjc2.git] / lib / zif.inc
blob5f8fc392fbb8b2e1f1f5c25c788af847dd775532
1 define(`PKG_ZIF',
2         `define(`NUMPINS', `$4')
3         define(`CENTER', eval(NUMPINS*19))
4 Element(0x00 "$1" "`$2'" "$3" 100 CENTER 0 100 0x00)
7 define(`X', 0)
8 define(`count', 1)
9 forloop(`i', 1, NUMPINS,
10         `PAD(X, 12, X, 97, 24, count)' `define(`count', incr(count))'
11         `define(`X', eval(X+39))'
13 PAD(-124, -41, -124, -151, 82, eval(NUMPINS+1))
14 PAD(eval(X+124-39), -41, eval(X+124-39), -151, 82, eval(NUMPINS+2))
15 )')
17 # -------------------------------------------------------------------