mm2mils100(-PinSpacing/2 - PinWidth/2), \
mm2mils100(PinHeight/2 - PinWidth/2), \
mm2mils100(PinWidth), \
- 0, \
+ mm2mils100(1.5), \
mm2mils100(PinWidth+0.4), \
'"pin1" "1" 0x0100]'
mm2mils100(PinSpacing/2 + PinWidth/2), \
mm2mils100(PinHeight/2 - PinWidth/2), \
mm2mils100(PinWidth), \
- 0, \
+ mm2mils100(1.5), \
mm2mils100(PinWidth+0.4), \
'"pin2" "2" 0x0100]'
ElementLine [ 15600 -6150 15600 6150 1000 ]
ElementLine [ 15600 6150 -15600 6150 1000 ]
ElementLine [ -15600 6150 -15600 -6150 1000 ]
- Pin [ -10000 0 4500 4500 0 5500 "" "" 0x0001 ]
- Pin [ 10000 0 4500 4500 0 5500 "" "" 0x0001 ]
+ Pin [ -10000 0 4500 4500 0 5500 "1" "1" 0x0001 ]
+ Pin [ 10000 0 4500 4500 0 5500 "1" "1" 0x0001 ]
Pad [ -10000 0 10000 0 14000 18000 16000 "1" "1" 0x0000 ]
)
(get-value package)
(gnetlist:get-package-attribute package "footprint")
(gnetlist:get-package-attribute package "loadstatus")
+ (gnetlist:get-package-attribute package "provided")
+ (gnetlist:get-package-attribute package "mfg_part_number")
(gnetlist:get-package-attribute package "vendor")
(gnetlist:get-package-attribute package "vendor_part_number")) ;; sdb change
(get-parts-table (cdr packages)))))))
(define partslistgag:write-top-header
(lambda (port)
- (display "\"device\",\"value\",\"footprint\",\"loadstatus\",\"vendor\",\"vendor_part_number\",\"quantity\",\"refdes\"\n" port)))
+ (display "\"device\",\"value\",\"footprint\",\"loadstatus\",\"provided\",\"mfg_part_number\",\"vendor\",\"vendor_part_number\",\"quantity\",\"refdes\"\n" port)))
(define (partslistgag:write-partslist ls port)
(if (null? ls)