*** devPS.c-old	2003-07-09 19:32:56.000000000 +0900
--- devPS.c	2003-07-09 19:33:26.000000000 +0900
***************
*** 885,890 ****
--- 885,894 ----
  {
      fprintf(fp, "/ps %.0f def %s %.0f s\n", size, TypeFaceDef[typeface], size);
  }
+ static void PostScriptSetJapaneseFont(FILE *fp, int typeface, double size)
+ {
+     fprintf(fp, "/Ryumin-Light-EUC-H findfont %.0f scalefont setfont\n", size);
+ }
  
  static void
  PostScriptSetLineTexture(FILE *fp, char *dashlist, int nlty, double lwd)
***************
*** 1433,1450 ****
      }
  }
  
  static void SetFont(int style, int size, NewDevDesc *dd)
  {
      PostScriptDesc *pd = (PostScriptDesc *) dd->deviceSpecific;
!     if(style < 1 || style > 5)
  	style = 1;
      if(size < 1 || size > pd->maxpointsize)
  	size = 10;
      if(size != pd->current.fontsize || style != pd->current.fontstyle) {
! 	PostScriptSetFont(pd->psfp, style-1, size);
  	pd->current.fontsize = size;
  	pd->current.fontstyle = style;
      }
  }
  
  #ifdef Win32
--- 1437,1461 ----
      }
  }
  
+ /* begin Japanese EUC text Ad-Hoc patch */
+ #define JAPANESE_FONT_STYLE 99
+ /* end Japanese EUC text Ad-Hoc patch */
  static void SetFont(int style, int size, NewDevDesc *dd)
  {
      PostScriptDesc *pd = (PostScriptDesc *) dd->deviceSpecific;
!     if(style != JAPANESE_FONT_STYLE && (style < 1 || style > 5))
  	style = 1;
      if(size < 1 || size > pd->maxpointsize)
  	size = 10;
      if(size != pd->current.fontsize || style != pd->current.fontstyle) {
!         if(style == JAPANESE_FONT_STYLE) 
! 	   PostScriptSetJapaneseFont(pd->psfp, style-1, size);
!         else
!            PostScriptSetFont(pd->psfp, style-1, size);
  	pd->current.fontsize = size;
  	pd->current.fontstyle = style;
      }
+    
  }
  
  #ifdef Win32
***************
*** 1813,1819 ****
  {
      PostScriptDesc *pd = (PostScriptDesc *) dd->deviceSpecific;
  
!     SetFont(font, (int)floor(cex * ps + 0.5), dd);
      if(R_ALPHA(col) == 0) {
  	SetColor(col, dd);
  	PostScriptText(pd->psfp, x, y, str, hadj, 0.0, rot);
--- 1824,1835 ----
  {
      PostScriptDesc *pd = (PostScriptDesc *) dd->deviceSpecific;
  
!     /* begin Japanese EUC text Ad-Hoc patch */
!     if(((unsigned char)*str) > 0x80) 
!       SetFont(JAPANESE_FONT_STYLE, (int)floor(cex * ps + 0.5), dd);
!     else  
!     /* end Japanese EUC text Ad-Hoc patch */
!       SetFont(font, (int)floor(cex * ps + 0.5), dd);
      if(R_ALPHA(col) == 0) {
  	SetColor(col, dd);
  	PostScriptText(pd->psfp, x, y, str, hadj, 0.0, rot);