#! /bin/awk -f
#
#       change values for setlinecap, setlinejoin and setmiterlimit
#
#       by M. Shiotani (92/05/13), A. Numaguchi (92/05/30)
#
#       usage : sgksline [lc=<0,1,2>] [lj=<0,1,2>] [ml=<miterlimit>] <file>
#               lc = 0:butt cap, 1:round cap, 2:projecting square cap
#               lj = 0:miter join, 1:round join, 2:bevel join
#               ml = miterlimit for lj=0
#               
BEGIN            { lc = 0; lj = 0; ml = 10; err=0 }
NR==1		 { if (lc<0||lc>3) {err=1; exit}
		   if (lj<0||lj>3) {err=1; exit}
		   if (ml<0)       {err=1; exit}  }
/setlinecap/     { print lc " setlinecap"    ; next }
/setlinejoin/    { print lj " setlinejoin"   ; next }
/setmiterlimit/  { print ml " setmiterlimit" ; next }
                 { print }

END { if (NR==0||err==1) {
 print "usage : sgksline [lc=<0,1,2>] [lj=<0,1,2>] [ml=<miterlimit>] <file>"
 print "        lc = 0:butt cap, 1:round cap, 2:projecting square cap"
 print "        lj = 0:miter join, 1:round join, 2:bevel join"
 }
}
