🚀 go-pugleaf

$B4d0f!wElBg$G$9!#(B

pstoedit2.3.3 $B;n$7$F$_$^$7$?$,!"(Bcomposite font $B$KBP1~$7$F$J$$MM$G$9!#(B
quick hack $B$G$9$,!"0J2<$N%Q%C%A$O$$$+$,$G$7$g$&$+!#(B

$B!t(B idraw3.1j $B%b!<%I$b:n$C$F$_$^$7$?$,M_$7$$J}$$$i$C$7$c$$$^$9$+!)(B

------------ 8< ---------------- cut here ---------------- 8< ------------
*** pstoedit_2.3.3/pstoedit.pro	Fri Dec 15 21:43:37 1995
--- pstoedit_2.3.3+idraw/pstoedit.pro	Thu Feb  1 08:20:11 1996
***************
*** 217,231 ****
  		% FONTNAME command 
  		(/) -print
  		currentfont begin
! 		/FontName where {
! 			pop FontName s100 cvs % FontName is a name or is already a string
  		} {
! 			(Courier)
! 		} ifelse -print
! 		end
  		( findfont ) -print
  
- 
  		% FONTSIZE command 
  		currentfont begin
  		FontMatrix 0 get % get the x-scale of the font matrix
--- 217,239 ----
  		% FONTNAME command 
  		(/) -print
  		currentfont begin
! 		FontType 0 eq { 
! 			% it should be composite font
! 			FDepVector dup
! 			0 get /FontName get s100 cvs -print
! 			(\%) -print
! 			1 get /FontName get s100 cvs -print
  		} {
! 			/FontName known {
! 				FontName s100 cvs -print
! 			} {
! 				(Courier) -print
! 			} ifelse
! 		} ifelse
! 		end 
! 		
  		( findfont ) -print
  
  		% FONTSIZE command 
  		currentfont begin
  		FontMatrix 0 get % get the x-scale of the font matrix
***************
*** 235,242 ****
--- 243,252 ----
  		% now we have dx' and dy' on stack
  		% scale is sqrt ( dx' ** 2 + dy' ** 2)
  		dup mul exch dup mul add sqrt
+ 		FontType 0 ne {
  		1000 mul % standard fonts have factor of .001 (let's hope)
  %		round 
+ 		} if
  		s100 cvs -print
  		end
  		( scalefont setfont\n) -print
------------ 8< ---------------- cut here ---------------- 8< ------------
--
Takashi IWAI ($B4d0f(B $BN4(B)	e-mail: iwai@dragon.mm.t.u-tokyo.ac.jp
			WWW: http://bahamut.mm.t.u-tokyo.ac.jp/~iwai/