1 files changed, 76 insertions, 0 deletions
diff --git a/gs/contrib/pcl3/ps/margins-A4.ps b/gs/contrib/pcl3/ps/margins-A4.ps
new file mode 100644
index 000000000..6202ea593
--- /dev/null
+++ b/gs/contrib/pcl3/ps/margins-A4.ps
@@ -0,0 +1,76 @@
+%!PS-Adobe-3.0
+%%Title: Margin test file for the page size A4
+%%Copyright: Copyright (C) 1997, 1998, 1999, 2000 by Martin Lottermoser. All rights reserved.
+%%Creator: makemtf 1.19
+%%CreationDate: Sun Aug 19 12:16:16 CEST 2001
+%%Pages: 1
+%%DocumentNeededResources: font Courier
+%%DocumentMedia: A4 595 842 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: 1
+%%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 A4
+/languagelevel where {pop languagelevel} {1} ifelse 2 lt
+{ a4 }
+{ 1 dict begin /PageSize [595.27 841.88] def currentdict end setpagedevice }
+ifelse
+%%EndFeature
+%%IncludeResource: font Courier
+/Courier findfont 8 scalefont setfont
+%%EndSetup
+
+%%Page: 1 1
+
+297 421 moveto (Page size: A4)
+dup stringwidth -2 div exch -2 div exch rmoveto show
+
+-1 -1  25 mm			25 mm			cross
+ 1 -1  595.27 25 mm sub	25 mm			cross
+-1  1  25 mm			841.88 25 mm sub	cross
+ 1  1  595.27 25 mm sub	841.88 25 mm sub	cross
+
+showpage
+
+%%Trailer
+%%EOF