🚀 go-pugleaf

$@JR;3!w#P#F#U$G$9!#(B

In article <OKUDA.96Mar26143801@kitipc.ipc.kit.ac.jp>, you wrote:

> $@0u:~$9$k%W%j%s%?$O!"#F#u#j#i(B $@#X#e#r#o#x(B $@#A#c#o#l#o#r(B $@#6#3#6(B $@$G$9!#(B
> $@$3$N(B $@#A#c#o#l#o#r(B $@$O(B $@#C#M!]#I#C#S(B $@$H$$$&%W%j%s%?%5!<%P$K@\B3$5$l$F(B
>$@$$$^(B$@$9!#(B

SM-ICS + Acolor 635 $@$r;H$C$F$$$^$7$?$,!"(B

> $@$=$N$?$a$N(B $@#t#i#f#f(B $@$+$i(B $@#P#S(B $@$KJQ49$9$k$h$&$JJ}K!$O(B$@2?$+$J$$$b$N$+$H;W(B
>$@$$Ej9F$7$^$7$?!#(B

tiff $@%U%!%$%k$O(B Unix $@>e$G(B tiff2ps $@$GJQ49$7$F%W%j%s%H$7$F$$$^$7$?(B$@!#(B
$@3N$+!"(BCM-ICS $@$O(B Adobe $@=c@5$N(B PostScript $@%$%s%?!<%W%j%?!<$G$O$J$+$C(B
$@$?$H;W$$$^$9!J(BSM-ICS $@$O(B Adobe $@=c(B$@@5!K$,!"B?J,Bg>fIW$@$H;W$$$^$9!#(B

$@;d$,(B ftp$@$7$F$-$?$N$O(B tiff-3.3b15 $@$G$9$,!"$3$l$N(B tiff2ps $@$=$N$^$^(B
$@$G(B$@$O!"(B

    $@86E@!JMQ;f$N:82<6y!K$K%$%a!<%8$NCf?4$,Mh$F$7$^$&(B
      $@"*%$%a!<%8$N(B 1/4 $@$7$+0u:~$5$l$J$$(B
    $@0u:~%5%$%:$rJQ99$9$k>l9g$K=D2#N>J}$N%5%$%:$N;XDj$,I,MW(B
      $@"*=D2#Hf$rJ]$D$?$a$K$O7W;;$,I,MW(B

$@$J$N(B$@$G!"0lIt=$@5$7$F;H$C$F$$$^$7$?!#0J2<$O$=$N%Q%C%A$G$9!#(B

*** tiff2ps.c~	Wed Jul 27 11:01:16 1994
--- tiff2ps.c	Thu Mar 23 03:06:11 1995
***************
*** 247,252 ****
--- 247,256 ----
  	int npages;
  	time_t t;
  
+ #if 1
+ 	pw /= 2.54;   /* inch -> cm */
+ 	ph /= 2.54;
+ #endif
  	if (!TIFFGetField(tif, TIFFTAG_XPOSITION, &ox))
  		ox = 0;
  	if (!TIFFGetField(tif, TIFFTAG_YPOSITION, &oy))
***************
*** 283,293 ****
--- 287,312 ----
  			fprintf(fd, "%%%%Page: %d %d\n", npages, npages);
  			fprintf(fd, "gsave\n");
  			fprintf(fd, "100 dict begin\n");
+ #if 0
  			if (pw != 0 && ph != 0)
  				fprintf(fd, "%f %f scale\n",
  				    pw*PS_UNIT_SIZE, ph*PS_UNIT_SIZE);
  			else
  				fprintf(fd, "%f %f scale\n", prw, prh);
+ #else
+ 			if (pw != 0 && ph != 0) {
+ 				fprintf(fd, "%f %f scale\n-0.5 -0.5 translate\n",
+ 				    pw*PS_UNIT_SIZE, ph*PS_UNIT_SIZE);
+ 			} else if (pw != 0) {
+ 				fprintf(fd, "%f %f scale\n-0.5 -0.5 translate\n",
+ 				    pw*PS_UNIT_SIZE, pw*PS_UNIT_SIZE * prh/prw);
+ 			} else if (ph != 0) {
+ 				fprintf(fd, "%f %f scale\n-0.5 -0.5 translate\n",
+ 				    ph*PS_UNIT_SIZE * prw/prh, ph*PS_UNIT_SIZE);
+ 			} else {
+ 				fprintf(fd, "%f %f scale\n-0.5 -0.5 translate\n", prw, prh);
+ 			}
+ #endif
  			PSpage(fd, tif, w, h);
  			fprintf(fd, "end\n");
  			fprintf(fd, "grestore\n");
--
$@JR;3!w#P#F#U(B