qi-hardware/eda-tools
1
0
Fork 0
mirror of git://projects.qi-hardware.com/eda-tools.git synced 2025-01-10 01:20:15 +02:00
Code

prettygerbv: restructured project file generation to skip missing layers

Browse Source
This commit is contained in:
Werner Almesberger 2011-03-22 10:25:53 -03:00
parent 7d249d127b
commit 4e5278a5d8
1 changed files with 47 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
gerber/prettygerbv
View File

@ -34,6 +34,31 @@ EOF
} }
layers_begin()
{
curr_layer=$1
echo '(gerbv-file-version! "2.0A")' >_gvp
}
layer()
{
file=$1
shift
[ -e "$file" ] || return
cat <<EOF >>_gvp
(define-layer! $curr_layer (cons 'filename "$file") $*)
EOF
curr_layer=`expr $curr_layer - 1`
}
layers_end()
{
echo '(set-render-type! 2)' >>_gvp
}
run_gerbv() run_gerbv()
{ {
gerbv -p _gvp --dpi=600 -x png -o "$1" gerbv -p _gvp --dpi=600 -x png -o "$1"
@ -42,30 +67,28 @@ run_gerbv()
front() front()
{ {
cat <<EOF >_gvp layers_begin 4
(gerbv-file-version! "2.0A") layer $NAME-Front.gtl $COPPER
(define-layer! 4 (cons 'filename "$NAME-Front.gtl") $COPPER) layer $NAME-SoldP_Front.gtp $PASTE
(define-layer! 3 (cons 'filename "$NAME-SoldP_Front.gtp") $PASTE) layer $NAME-Mask_Front.gts $INV $MASK
(define-layer! 2 (cons 'filename "$NAME-Mask_Front.gts") $INV $MASK) layer $NAME-SilkS_Front.gto $SILK
(define-layer! 1 (cons 'filename "$NAME-SilkS_Front.gto") $SILK) layer $NAME-PCB_Edges.gbr $EDGE
(define-layer! 0 (cons 'filename "$NAME-PCB_Edges.gbr") $EDGE) layers_end
(set-render-type! 2)
EOF
run_gerbv "$1" run_gerbv "$1"
} }
back() back()
{ {
cat <<EOF >_gvp layers_begin 4
(gerbv-file-version! "2.0A") layer $NAME-Back.gbl $COPPER
(define-layer! 4 (cons 'filename "$NAME-Back.gbl") $COPPER) layer $NAME-SoldP_Back.gbp $PASTE
(define-layer! 3 (cons 'filename "$NAME-SoldP_Back.gbp") $PASTE) layer $NAME-Mask_Back.gbs $INV $MASK
(define-layer! 2 (cons 'filename "$NAME-Mask_Back.gbs") $INV $MASK) layer $NAME-SilkS_Back.gbo $SILK
(define-layer! 1 (cons 'filename "$NAME-SilkS_Back.gbo") $SILK) layer $NAME-PCB_Edges.gbr $EDGE
(define-layer! 0 (cons 'filename "$NAME-PCB_Edges.gbr") $EDGE) layers_end
(set-render-type! 2)
EOF
run_gerbv _tmp.png run_gerbv _tmp.png
convert -flop _tmp.png "$1" convert -flop _tmp.png "$1"
rm -f _tmp.png rm -f _tmp.png
@ -74,13 +97,12 @@ EOF
conn() conn()
{ {
cat <<EOF >_gvp layers_begin 2
(gerbv-file-version! "2.0A") layer $NAME-Back.gbl $BACK
(define-layer! 2 (cons 'filename "$NAME-Back.gbl") $BACK) layer $NAME-Front.gtl $FRONT
(define-layer! 1 (cons 'filename "$NAME-Front.gtl") $FRONT) layer $NAME-PCB_Edges.gbr $EDGE2
(define-layer! 0 (cons 'filename "$NAME-PCB_Edges.gbr") $EDGE2) layers_end
(set-render-type! 2)
EOF
run_gerbv "$1" run_gerbv "$1"
} }