diff options
Diffstat (limited to 'support/hypertex/tanmoy/ghostview-1.5-hacked/gvpdf.pro')
-rw-r--r-- | support/hypertex/tanmoy/ghostview-1.5-hacked/gvpdf.pro | 78 |
1 files changed, 78 insertions, 0 deletions
diff --git a/support/hypertex/tanmoy/ghostview-1.5-hacked/gvpdf.pro b/support/hypertex/tanmoy/ghostview-1.5-hacked/gvpdf.pro new file mode 100644 index 0000000000..33550fc2dd --- /dev/null +++ b/support/hypertex/tanmoy/ghostview-1.5-hacked/gvpdf.pro @@ -0,0 +1,78 @@ +% This file is part of the hacked version of the ghostview package +% which is distributed under the terms of the gnu license. The +% modification referred to above is by Tanmoy Bhattacharya, +% <tanmoy@qcd.lanl.gov> on Nov 17, 1994. Neither the modification, +% nor the original program provides any warranty. +100 dict dup begin +/setcorner {pop pop} bind def +/oval {3 index 3 index moveto + 3 index 1 index lineto + 1 index 1 index lineto + 1 index 3 index lineto + closepath 4 {pop} repeat} bind def +/mymatrix matrix defaultmatrix def +/pdfmark{ + ] dup length dict dup 3 -1 roll false exch + {exch{put dup false}{true}ifelse}forall pop exch pop + exch % type dict + dup /Border known % type dict bool + {dup /Border get + dup length + dup 3 eq % type dict Border length bool + {pop aload pop + dup 0 eq % type dict cx cy w bool + {pop pop pop false} % type dict false + {gsave mymatrix setmatrix + setlinewidth setcorner true} % type dict true + ifelse} %type dict bool + {4 eq % type dict Border bool + {aload pop + 1 index 0 eq % type dict cx cy w str bool + {pop pop pop pop false} % type dict false + {gsave mymatrix setmatrix + 0 setdash setlinewidth setcorner true} + % type dict true + ifelse} %type dict bool + {pop gsave mymatrix setmatrix % type dict + [] 0 setstroke + 0 setlinewidth + 0 0 setcorner + true} % type dict true + ifelse} % type dict bool + ifelse} % type dict bool + {gsave mymatrix setmatrix + [] 0 setstroke + 0 setlinewidth + 0 0 setcorner + true} % type dict true + ifelse % type dict bool + {dup /Color known % type dict bool + {dup /Color get + dup length + dup 3 eq % type dict Color length bool + {pop aload pop setrgbcolor} % type dict + {4 eq % type dict Color bool + {aload pop setcmykcolor} % type dict + {pop} % type dict + ifelse} % type dict + ifelse} % type dict + if % type dict + dup /Rect known + {dup /Rect get + dup length + 4 eq % type dict Rect bool + {aload pop newpath + oval stroke} % type dict + {pop} % type dict + ifelse} % type dict + if + grestore} % type dict + if + (\012\045\045[pdfinfo:\012) print + [ 3 1 roll + {} forall + ] == + (\045\045]\012) print + flush +}bind def +end /gvpdf exch def gvpdf begin |