Index: tkCanvPs.c
===================================================================
RCS file: /proj/rd/cvsroot/saods9/tk8.6.4/generic/tkCanvPs.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -r1.1 -r1.2
18a19,22
> /*** waj ***/
> float psScale =1;
> /*** waj ***/
> 
365a370
> 	    result = TCL_ERROR;
370a376
> 	    result = TCL_ERROR;
461c467
< 			    + 1.0),
---
> 			    + 0.0),
463c469
< 			    + 1.0));
---
> 			    + 0.0));
469c475
< 		    (int) (psInfo.pageX - psInfo.scale*deltaY + 1.0),
---
> 		    (int) (psInfo.pageX - psInfo.scale*deltaY + 0.0),
471c477
< 			    + 1.0));
---
> 			    + 0.0));
546a553,563
>  	/*** waj ***/
>  	Tcl_AppendPrintfToObj(psObj, "%g %g translate\n",
>  		(Tk_PostscriptY((double) psInfo.x,(Tk_PostscriptInfo) &psInfo) -
>  		 Tk_PostscriptY((double) psInfo.x2,(Tk_PostscriptInfo) &psInfo))
>  		*(1.-psScale)/2.,
>  		(Tk_PostscriptY((double) psInfo.y,(Tk_PostscriptInfo) &psInfo) -
>  		 Tk_PostscriptY((double) psInfo.y2,(Tk_PostscriptInfo) &psInfo))
>  		*(1.-psScale)/2.);
>   
>  	Tcl_AppendPrintfToObj(psObj, "%.4g %.4g scale\n", psScale, psScale);
>  	/*** waj ***/
