Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Creating and using master pages

Status
Not open for further replies.

mleimann

Technical User
Mar 1, 2010
1
DE
Hi out there.

For a long part of my life I've tried to 'create' and 'use' master pages (similar to PCL Overlays) in PostScript, as described in the attachment. I might have ruined a big part of the world's forests by now, please forgive me.

Can anyone help me to get this fixed?

I've already tried a lot of combinations like this


%!PS-Adobe-1.0
%%Creator: CreateMaster.ps
%%EndProlog
%%Page: 1 1
/XJXCreateMaster where { pop 1 XJXCreateMaster } if
/XJXFFMPrint where { pop true XJXFFMPrint } if
initmatrix initclip clippath pathbbox/YMAX exch def/XMAX exch def/YMIN exch def
/XMIN exch def/YTOP YMAX YMIN add 1 sub def
newpath 0.25 72 mul YTOP 0.5 72 mul sub 11 sub moveto
/V 72 6 div def
/Courier findfont 11 scalefont setfont
/S currentfont/FontInfo known{currentfont begin FontInfo/isFixedPitch known
{FontInfo begin isFixedPitch end}{false}ifelse end}{false}ifelse
{{X exch 0 exch ashow}}{{X exch 0 exch 32 exch widthshow}}ifelse def
/H 72 11 div def/X H( )stringwidth pop sub def
(Test)S
/R{0.25 72 mul currentpoint exch pop newpath moveto
}def
R /L{0 V neg rmoveto currentpoint YMIN le{gsave showpage grestore
newpath 0.25 72 mul YTOP 0.5 72 mul sub 11 sub moveto
}if pop }def L
showpage
%%Trailer


%!PS-Adobe-1.0
%%Creator: UseMaster.ps
%%EndProlog
%%Page: 1 1
/XJXUseMaster where { pop 1 XJXUseMaster } if
/XJXFFMPrint where { pop true XJXFFMPrint } if
initmatrix initclip clippath pathbbox/YMAX exch def/XMAX exch def/YMIN exch def
/XMIN exch def/YTOP YMAX YMIN add 1 sub def
newpath 0.25 72 mul YTOP 0.5 72 mul sub 11 sub moveto
/V 72 6 div def
/Courier findfont 11 scalefont setfont
/S currentfont/FontInfo known{currentfont begin FontInfo/isFixedPitch known
{FontInfo begin isFixedPitch end}{false}ifelse end}{false}ifelse
{{X exch 0 exch ashow}}{{X exch 0 exch 32 exch widthshow}}ifelse def
/H 72 11 div def/X H( )stringwidth pop sub def
( text)S
/R{0.25 72 mul currentpoint exch pop newpath moveto
}def
R /L{0 V neg rmoveto currentpoint YMIN le{gsave showpage grestore
newpath 0.25 72 mul YTOP 0.5 72 mul sub 11 sub moveto
}if pop }def L
showpage
%%Trailer


Thanks (for saving the forests)

Michael
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top