#! /bin/awk -f
#
#       change values for setlinecap, setlinejoin and setmiterlimit
#
#       by M. Shiotani (92/05/13)
#
#       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 }

/setlinecap/	 { print lc " setlinecap"    ; next }
/setlinejoin/	 { print lj " setlinejoin"   ; next }
/setmiterlimit/	 { print ml " setmiterlimit" ; next }
                 { print }
