diff options
Diffstat (limited to 'gs/contrib/pcl3/ps/margins-EnvDLRotated.ps')
-rw-r--r-- | gs/contrib/pcl3/ps/margins-EnvDLRotated.ps | 73 |
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 |