summaryrefslogtreecommitdiff
path: root/support/hypertex/tanmoy/ghostview-1.5-hacked/gvpdf.pro
diff options
context:
space:
mode:
Diffstat (limited to 'support/hypertex/tanmoy/ghostview-1.5-hacked/gvpdf.pro')
-rw-r--r--support/hypertex/tanmoy/ghostview-1.5-hacked/gvpdf.pro78
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