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