#! /usr/local/bin/gawk -f
BEGIN { 

ID    =    "dclpsfix 0.3"
DATE  =                               "95/03/19(numaguti)" 

EX    =    "patch for dcl.ps file (remove comments and fix kdraw tone)"

USAGE =  "% dclpsfix <file>"

#----------------------------------------------------------------------------
# NO OPTION

	  if (ARGV[1]=="help") { 
	      print "  " ID,DATE
	      print " --- " EX
	      print " usage : " USAGE
              exit
          }
}

/^50 dict begin/ \
   { print " " $0
     print "1 setlinecap"
     print "1 setlinejoin"
     print "10 setmiterlimit" 
     next                    }

/^eoclip/ \
   { print " eoclip"
     print "originalCTM setmatrix"
     print "[ 2 0 0 2 0 0 ] concat"
     print "pathbbox /t exch def /r exch def /b exch def /l exch def"
     print "/l l cvi 16 idiv 16 mul cvi store"
     print "/b b cvi 16 idiv 16 mul cvi store"
     print "/w r l sub 16 div ceiling 16 mul cvi def"
     print "/h t b sub 16 div ceiling 16 mul cvi def"
     getline; getline; getline; getline
     next }

/^%!/ { print "%!"; next }

/^%%/ { if ( $1 == "%%BoundingBox:" ) print; next }

      { print }


