summaryrefslogtreecommitdiff
path: root/gs/contrib/pcl3/ps/margins-EnvDLRotated.ps
diff options
context:
space:
mode:
Diffstat (limited to 'gs/contrib/pcl3/ps/margins-EnvDLRotated.ps')
-rw-r--r--gs/contrib/pcl3/ps/margins-EnvDLRotated.ps73
1 files changed, 0 insertions, 73 deletions
diff --git a/gs/contrib/pcl3/ps/margins-EnvDLRotated.ps b/gs/contrib/pcl3/ps/margins-EnvDLRotated.ps
deleted file mode 100644
index f483d5b46..000000000
--- a/gs/contrib/pcl3/ps/margins-EnvDLRotated.ps
+++ /dev/null
@@ -1,73 +0,0 @@
-%!PS-Adobe-3.0
-%%Title: Margin test file for the page size EnvDLRotated
-%%Copyright: Copyright (C) 1997, 1998, 1999, 2000 by Martin Lottermoser. All rights reserved.
-%%Creator: makemtf 1.19
-%%CreationDate: Sun Aug 19 12:16:20 CEST 2001
-%%Pages: 1
-%%DocumentNeededResources: font Courier
-%%DocumentMedia: EnvDLRotated 624 312 0 () ()
-%%Comments: The first entry in the preceding line should really be an empty
-%%+ string. That it is not is a concession to bugs in ghostview and gv.
-%%LanguageLevel: 2
-%%EndComments
-
-%%BeginProlog
-/in {72 mul} def
-/mm {0.0 mul} dup 0 72 25.4 div put def
-
-/crossdict 8 dict def % 4 defined here, 4 more defined at runtime
-crossdict begin
- /reverse {0.0 mul} dup 0 25.4 72 div put def
- /temp 100 string def
- /showrounded {10.0 mul round 10.0 div temp cvs show} def
- /append { % <string> <substring> append <string+substring>
- exch dup dup length % <substring> <string> <string> <length>
- 4 -1 roll putinterval
- } def
-end
-
-/cross { % <right> <top> <x> <y> cross -
- crossdict begin
- /y exch def /x exch def
- % 1 pt distance from the edges:
- 25 mm 1 sub mul /top exch def
- 25 mm 1 sub mul /right exch def
- 0 setlinewidth
- newpath
- x y moveto
- right 0 rmoveto
- x y lineto
- 0 top rlineto
- stroke
- x y moveto
- right -0.2 mul dup 0 lt {70 sub} if
- top -0.2 mul dup 0 lt { 8 sub} if
- rmoveto
- (\() show x reverse showrounded (, ) show
- y reverse showrounded (\)) show
- end
-} def
-%%EndProlog
-
-%%BeginSetup
-%%BeginFeature: *PageSize EnvDLRotated
-1 dict begin /PageSize [623.62 311.81] def currentdict end setpagedevice
-%%EndFeature
-%%IncludeResource: font Courier
-/Courier findfont 8 scalefont setfont
-%%EndSetup
-
-%%Page: 1 1
-
-312 156 moveto (Page size: EnvDLRotated)
-dup stringwidth -2 div exch -2 div exch rmoveto show
-
--1 -1 25 mm 25 mm cross
- 1 -1 623.62 25 mm sub 25 mm cross
--1 1 25 mm 311.81 25 mm sub cross
- 1 1 623.62 25 mm sub 311.81 25 mm sub cross
-
-showpage
-
-%%Trailer
-%%EOF