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

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

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

USAGE =  "% cdclpsfix <file>"

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

    if (ARGV[1] == "-help" || 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
}
