🚀 go-pugleaf

Dear Sirs

   I am in the following trouble. If anybody has any hint please e-mail me.

I have a software of the Machintosh called Font Downloader 4.0.  
If I set this file in the System folder,  I can see a new switch in the 
dialog box of the printing.  That switch enables me to download the 
figure or graphs to the PostScript file instead of the Laser Writer.  

I made a PostScript file using this technique.  However it could not be 
printed by either NeXT or Sun's lpr command.  Are there any problem in 
the PostScript file made in this way?
The included the PostScript file in Question below.

Thank in advance

Hideyuki Cateau

High energy theory group
Department of Physics
Tokyo Metropolitan Univ.
1-1 Minami-Osawa, Hachioji
192 Japan

e-mail:cateau@tansei.cc.u-tokyo.ac.jp
fax   :0426-77-2483
phone :0426-77-1111 ext.3375 or 3376 or 3377

...............................................................
%!PS-Adobe-2.0
%%Title: Untitled-1
%%Creator: Mathematica
%%CreationDate: Wednesday, February 19, 1992
%%Pages: (atend)
%%BoundingBox: ? ? ? ?
%%PageBoundingBox: 30 31 582 761
%%For: high energy theory
%%IncludeProcSet: "(AppleDict md)" 68 0
%%EndComments
%%EndProlog
%%BeginDocumentSetup
md begin

T T -31 -30 761 582 100 72 72 1 F F F F T T T psu
(high energy theory; document: Untitled-1)jn
0 mf
od
%%EndDocumentSetup
%%Page: ? 1
op
0 0 xl
1 1 pen
0 0 gm
(nc 0 0 730 552 6 rc)kp
64 gr
0 0 lin
(nc 45 44 59 497 6 rc)kp
45 44 59 511 2 rc
55 45 gm
45 44 59 511 2 rc
55 45 gm
1 setTxMode
2 fs
bu fc
{}mark T /Helvetica-Oblique /|______Helvetica-Oblique 0 rf
bn
10.39993 fz
bu fc
2 F /|______Helvetica-Oblique fnt
bn
1.30097 0.(In[1]:=)ashow
64 gr
59 44 59 511 2 rc
(nc 61 62 75 497 6 rc)kp
61 62 75 529 2 rc
71 63 gm
61 62 75 529 2 rc
71 63 gm
1 setTxMode
1 fs
bu fc
{}mark T /Courier-Bold /|______Courier-Bold 0 rf
bn
11.66667 fz
bu fc
2 F /|______Courier-Bold fnt
bn
(Plot[Log[x+1],{x,3,10}])show
64 gr
75 62 75 529 2 rc
0 0 gm
(nc 83 62 257 497 6 rc)kp
0 0 lin
psb
/Mnodistort true def
/Mpstart {
    MathPictureStart
} bind def
/Mpend {
    MathPictureEnd
} bind def
/Mscale {
    0 1 0 1
    5 -1 roll
    MathScale
} bind def
/Plain
	/Courier findfont
def
/Bold
	/Courier-Bold findfont
def
/Italic
	/Courier-Oblique findfont
def
/MathPictureStart {
	gsave
	newpath
	Mleft
	Mbottom
	translate
	1 -1 scale
	/Mtmatrix
	matrix currentmatrix
	def
	Plain
	Mfontsize scalefont
	setfont
0 setgray 0 setlinewidth
} bind def
/MathPictureEnd {
	grestore
} bind def
/Mdot {
	moveto
	0 0 rlineto
	stroke
} bind def
/Mtetra {
	moveto
	lineto
	lineto
	lineto
	fill
} bind def
/Metetra {
	moveto
	lineto
	lineto
	lineto
	closepath
	gsave
	fill
	grestore
	0 setgray
	stroke
} bind def
/Mistroke {
	flattenpath
	0 0 0
	{
	4 2 roll
	pop pop
	}
	{
	4 -1 roll
	2 index
	sub dup mul
	4 -1 roll
	2 index
	sub dup mul
	add sqrt
	4 -1 roll
	add
	3 1 roll
	}
	{
	stop
	}
	{
	stop
	}
	pathforall
	pop pop
	currentpoint
	stroke
	moveto
	currentdash
	3 -1 roll
	add
	setdash
} bind def
/Mfstroke {
	stroke
	currentdash
	pop 0
	setdash
} bind def
/Msboxa {
	newpath
	5 -1 roll
	Mvboxa
	pop
	6 -1 roll
	5 -1 roll
	4 -1 roll
	Msboxa1
	5 -3 roll
	Msboxa1
	[
	7 -2 roll
	[ 2 index 2 index
	10 -1 roll
	9 -1 roll
	]
	6 1 roll
	5 -2 roll
	]
} bind def
	
/Msboxa1 {
	sub
	2 div
	dup
	2 index
	1 add
	mul
	3 -1 roll
	-1 add
	3 -1 roll
	mul
} bind def
/Mvboxa {
	gsave
	newpath
	[ true
	3 -1 roll
	{
	Mbbox
	5 -1 roll
	{
	0
	5 1 roll
	}
	{
	7 -1 roll
	exch sub
	(m) stringwidth pop
	.3 mul
	sub
	7 1 roll
	6 -1 roll
	4 -1 roll
	Mmin
	3 -1 roll
	5 index
	add
	5 -1 roll
	4 -1 roll
	Mmax
	4 -1 roll
	}
	ifelse
	false
	}
	forall
	{ stop } if
	counttomark
	1 add
	4 roll
	]
	grestore
} bind def
/Mbbox {
	0 0 moveto
	false charpath
	flattenpath
	pathbbox
	newpath
} bind def
/Mmin {
	2 copy
	gt
	{ exch } if
	pop
} bind def
/Mmax {
	2 copy
	lt
	{ exch } if
	pop
} bind def
/Mshowa {
	4 -2 roll
	moveto
	2 index
	Mtmatrix setmatrix
	Mvboxa
	7 1 roll
	6 -1 roll
	5 -1 roll
	4 -1 roll
	Mshowa1
	4 1 roll
	Mshowa1
	rmoveto
	currentpoint
	0 1
	4 index length
	-1 add
	{
	2 index
	4 index
	2 index
	get
	3 index
	add
	moveto
	4 index
	exch get
	show
	} for
	pop pop pop pop
	Mgmatrix setmatrix
} bind def
/Mshowa1 {
	2 copy
	add
	4 1 roll
	sub
	mul
	sub
	-2 div
} bind def
/MathScale {
	Mwidth
	Mheight
	Mlp
	translate
	scale
	pop pop pop pop
	/Mgmatrix
	matrix currentmatrix
	def
} bind def
/Mlp {
	3 copy
	Mlpfirst
	{
	Mnodistort
	{
	Mmin
	dup
	} if
	4 index
	2 index
	2 index
	Mlprun
	11 index
	11 -1 roll
	10 -4 roll
	Mlp1
	8 index
	9 -5 roll
	Mlp1
	4 -1 roll
	and
	{ exit } if
	3 -1 roll
	pop pop
	} loop
	exch
	3 1 roll
	7 -3 roll
	pop pop pop
} bind def
/Mlpfirst {
	3 -1 roll
	dup length
	2 copy
	-2 add
	get
	aload
	pop pop pop
	4 -2 roll
	-1 add
	get
	aload
	pop pop pop
	6 -1 roll
	3 -1 roll
	5 -1 roll
	sub
	div
	4 1 roll
	exch sub
	div
} bind def
/Mlprun {
	2 copy
	4 index
	0 get
	dup
	4 1 roll
	Mlprun1
	3 copy
	8 -2 roll
	9 -1 roll
	{
	3 copy
	Mlprun1
	3 copy
	11 -3 roll
	/gt Mlpminmax
	8 3 roll
	11 -3 roll
	/lt Mlpminmax
	8 3 roll
	} forall
	pop pop pop pop
	3 1 roll
	pop pop
	aload pop
	5 -1 roll
	aload pop
	exch
	6 -1 roll
	Mlprun2
	8 2 roll
	4 -1 roll
	Mlprun2
	6 2 roll
	3 -1 roll
	Mlprun2
	4 2 roll
	exch
	Mlprun2
	6 2 roll
} bind def
/Mlprun1 {
	aload pop
	exch
	6 -1 roll
	5 -1 roll
	mul add
	4 -2 roll
	mul
	3 -1 roll
	add
} bind def
/Mlprun2 {
	2 copy
	add 2 div
	3 1 roll
	exch sub
} bind def
/Mlpminmax {
	cvx
	2 index
	6 index
	2 index
	exec
	{
	7 -3 roll
	4 -1 roll
	} if
	1 index
	5 index
	3 -1 roll
	exec
	{
	4 1 roll
	pop
	5 -1 roll
	aload
	pop pop
	4 -1 roll
	aload pop
	[
	8 -2 roll
	pop
	5 -2 roll
	pop
	6 -2 roll
	pop
	5 -1 roll
	]
	4 1 roll
	pop
	}
	{
	pop pop pop
	} ifelse
} bind def
/Mlp1 {
	5 index
	3 index	sub
	5 index
	2 index mul
	1 index
	le
	1 index
	0 le
	or
	dup
	not
	{
	1 index
	3 index	div
	.99999 mul
	8 -1 roll
	pop
	7 1 roll
	}
	if
	8 -1 roll
	2 div
	7 -2 roll
	pop sub
	5 index
	6 -3 roll
	pop pop
	mul sub
	exch
} bind def
/Mfontsize	12 def
/Mleft		79.000000 def
/Mbottom	257.000000 def
/Mwidth		282.000000 def
/Mheight	174.000000 def
%!
%%Creator: Mathematica
%%AspectRatio: 0.61803 
MathPictureStart
% Scaling calculations
-0.38435 0.13605 -0.79191 0.58185 [
[(4)] 0.15986 0.3593 0 1 Msboxa
[(5)] 0.29592 0.3593 0 1 Msboxa
[(6)] 0.43197 0.3593 0 1 Msboxa
[(7)] 0.56803 0.3593 0 1 Msboxa
[(8)] 0.70408 0.3593 0 1 Msboxa
[(9)] 0.84014 0.3593 0 1 Msboxa
[(10)] 0.97619 0.3593 0 1 Msboxa
[(1.4)] 0.01131 0.02269 1 0 Msboxa
[(1.6)] 0.01131 0.13906 1 0 Msboxa
[(1.8)] 0.01131 0.25543 1 0 Msboxa
[(2.2)] 0.01131 0.48817 1 0 Msboxa
[(2.4)] 0.01131 0.60454 1 0 Msboxa
[ -0.001 -0.001 0 0 ]
[ 1.001 0.61903 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
%%Object: Graphics
[ ] 0 setdash
0 setgray
gsave
gsave
0.002 setlinewidth
0 0.3718 moveto
1 0.3718 lineto
stroke
0.15986 0.36555 moveto
0.15986 0.37805 lineto
stroke
0 setgray
[(4)] 0.15986 0.3593 0 1 Mshowa
0.29592 0.36555 moveto
0.29592 0.37805 lineto
stroke
0 setgray
[(5)] 0.29592 0.3593 0 1 Mshowa
0.43197 0.36555 moveto
0.43197 0.37805 lineto
stroke
0 setgray
[(6)] 0.43197 0.3593 0 1 Mshowa
0.56803 0.36555 moveto
0.56803 0.37805 lineto
stroke
0 setgray
[(7)] 0.56803 0.3593 0 1 Mshowa
0.70408 0.36555 moveto
0.70408 0.37805 lineto
stroke
0 setgray
[(8)] 0.70408 0.3593 0 1 Mshowa
0.84014 0.36555 moveto
0.84014 0.37805 lineto
stroke
0 setgray
[(9)] 0.84014 0.3593 0 1 Mshowa
0.97619 0.36555 moveto
0.97619 0.37805 lineto
stroke
0 setgray
[(10)] 0.97619 0.3593 0 1 Mshowa
0.02381 0 moveto
0.02381 0.61803 lineto
stroke
0.01756 0.02269 moveto
0.03006 0.02269 lineto
stroke
0 setgray
[(1.4)] 0.01131 0.02269 1 0 Mshowa
0.01756 0.13906 moveto
0.03006 0.13906 lineto
stroke
0 setgray
[(1.6)] 0.01131 0.13906 1 0 Mshowa
0.01756 0.25543 moveto
0.03006 0.25543 lineto
stroke
0 setgray
[(1.8)] 0.01131 0.25543 1 0 Mshowa
0.01756 0.48817 moveto
0.03006 0.48817 lineto
stroke
0 setgray
[(2.2)] 0.01131 0.48817 1 0 Mshowa
0.01756 0.60454 moveto
0.03006 0.60454 lineto
stroke
0 setgray
[(2.4)] 0.01131 0.60454 1 0 Mshowa
grestore
grestore
0 0 moveto
1 0 lineto
1 0.618034 lineto
0 0.618034 lineto
closepath
clip
newpath
0 setgray
gsave
gsave
0.004 setlinewidth
0.02381 0.01472 moveto
0.06349 0.05567 lineto
0.10317 0.09392 lineto
0.14286 0.12982 lineto
0.18254 0.16363 lineto
0.22222 0.19558 lineto
0.2619 0.22587 lineto
0.30159 0.25466 lineto
0.34127 0.2821 lineto
0.38095 0.30829 lineto
0.42063 0.33336 lineto
0.46032 0.35739 lineto
0.5 0.38047 lineto
0.53968 0.40267 lineto
0.57937 0.42406 lineto
0.61905 0.44468 lineto
0.65873 0.4646 lineto
0.69841 0.48386 lineto
0.7381 0.5025 lineto
0.77778 0.52056 lineto
0.81746 0.53808 lineto
0.85714 0.55509 lineto
0.89683 0.57161 lineto
0.93651 0.58768 lineto
0.97619 0.60332 lineto
stroke
grestore
grestore
% End of Graphics
MathPictureEnd
pse
(nc 265 44 279 497 6 rc)kp
265 44 279 511 2 rc
275 45 gm
265 44 279 511 2 rc
275 45 gm
1 setTxMode
2 fs
10.39993 fz
bu fc
2 F /|______Helvetica-Oblique fnt
bn
0.93434 0.(Out[1]=)ashow
64 gr
279 44 279 511 2 rc
(nc 281 62 295 497 6 rc)kp
281 62 295 529 2 rc
291 63 gm
281 62 295 529 2 rc
291 63 gm
1 setTxMode
0 fs
bu fc
{}mark T /Courier /|______Courier 0 rf
bn
11.66667 fz
bu fc
2 F /|______Courier fnt
bn
(-Graphics-)show
64 gr
295 62 295 529 2 rc
13 83 gm
(nc 0 42 13 497 6 rc)kp
0 -32766 13 32766 2 rc
9 43 gm
1 setTxMode
bu fc
{}mark T /Times-Roman /|______Times-Roman 0 rf
bn
10 fz
bu fc
2 F /|______Times-Roman fnt
bn
-0.12208 0.(Untitled-1)ashow
730 273 gm
(nc 716 42 730 497 6 rc)kp
64 gr
716 -32766 730 32766 2 rc
725 267 gm
1 setTxMode
12 fz
bu fc
2 F /|______Times-Roman fnt
bn
(1)show
F T cp
%%Trailer
cd
end
%%Pages: 1 0
%%EOF