my @dim = $canvas->bbox("all");
    my $width = ($dim[2]-$dim[0]);
    my $height = ($dim[3]-$dim[1]); 
    
    my $ps = $canvas->
	postscript(  '-pagewidth'  => "8 i",
	 	     '-pageanchor' => "center",
		     '-width' => $width,
		     '-height' =>$height
                      );
    

##</code><code>##

    my @dim = $canvas->bbox("all");
    my $width = ($dim[2]-$dim[0]);
    my $height = ($dim[3]-$dim[1]); 
    my $pagex = ($dim[0]+$dim[2])/2;
    my $pagey = ($dim[1]+$dim[3])/2;
    
    my $ps = $canvas->
	postscript(  '-pagewidth'  => "8 i",
	 	     '-pageanchor' => "center",
	 	     '-pagex' => $pagex,
	 	     '-pagey' => $pagey,
#	 	     '-x' => $dim[0],
#	 	     '-y' => $dim[1],
		     '-width' => $width,
		     '-height' =>$height
                      );