%!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 runtimecrossdict 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  } defend/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 1297 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	crossshowpage%%Trailer%%EOF