margins-a4.ps

openmeetings组件之GS openmeetings组件之GS openmeetings组件之GS

%!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