Problem: postscript printed morphs fall off the page. Traced this back to


PostscriptCanvas

writeSetupForRect:aRect
	"RAA 5/7/2001"
	| scaleForTranslate |

	scaleForTranslate _ EPSCanvas bobsPostScriptHacks ifTrue:
[initialScale] ifFalse: [1].

	"I thought the above was a good idea once, but GeeMail seems to like
the line below better"
	scaleForTranslate _ 1.

	target print:'% psBounds origin'; cr.
	target translate: psBounds origin.
	target print:'% flip'; cr.
	target 
		translate: 0 @ (aRect extent y * scaleForTranslate);
		scale: initialScale @ initialScale negated;
		print:' [ {true setstrokeadjust} stopped ] pop
[ currenttransfer /exec cvx 1.2 /exp cvx ] cvx bind  settransfer'; cr.


Fixed the problem by commenting out "scaleForTranslate _ 1", which means the
calculated scaling is used in the translation.
However, there was apparently a reason for introducing this statement? Why?
If the scaleForTranslate is different from the initialScale it seems logical
to expect that morphs don't fit the page anymore?
(NB also the plugin image has this problem)

Hans