[R] [FORGED] difference metric info of same font on different device

[Jinsong Zhao]

On 2017/4/10 10:06, Paul Murrell wrote:
> Hi
>
> I think you are hitting the limit of what R's PostScript device can do
> with CID fonts (particularly with Latin characters).
>
> Have you tried the cairo_ps() device ?
>
> Paul

Thank you very much. It works very well. It's more simple than 
postscript() with CIDFont setting.

Best,
Jinsong

>
> On 7/04/2017 8:05 p.m., Jinsong Zhao wrote:
>> Hi there,
>>
>> I try to plot with custom fonts, which have good shape Latin and CJK
>> characters. I set up all the fonts correctly. However, when I plot the
>> same code on png() and postscript(), I get different result. The main
>> problem is the space between characters is narrower in postscript() than
>> that in png(), and some character also overlap in postscript().  You can
>> see the differences from the attached png files.
>>
>> Is there any way to get the same plot using postscript() and png()?
>> Thanks in advance.
>>
>> Best,
>> Jinsong
>>
>> The code I used is here:
>>
>> windowsFonts(song = windowsFont("SourceHanSerifSC-Regular"),
>>              hei  = windowsFont("SourceHanSansSC-Regular"),
>>              hwhei  = windowsFont("SourceHanSansHWSC-Regular"),
>>              fzsong  = windowsFont("FZShuSong-Z01"),
>>              fzhei = windowsFont("FZHei-B01"))
>>
>> postscriptFonts(song = CIDFont("SourceHanSerifSC-Regular",
>> "UniSourceHanSerifCN-UTF8-H", "UTF-8", ""),
>>                 hei  = CIDFont("SourceHanSansSC-Regular",
>> "UniSourceHanSansCN-UTF8-H", "UTF-8", ""),
>>                 hwhei  = CIDFont("SourceHanSansHWSC-Regular",
>> "UniSourceHanSansHWCN-UTF8-H", "UTF-8", ""),
>>                 fzsong  = CIDFont("FZShuSong-Z01",    "GBK-EUC-H",
>> "GBK", ""),
>>                 fzhei = CIDFont("FZHei-B01", "GBK-EUC-H", "GBK", ""))
>>
>> fa <- c("sans", "serif", "song", "hei", "hwhei", "fzsong", "fzhei")
>>
>> postscript("font.eps", fonts = fa, onefile = FALSE, width = 4, height =
>> 4, horizontal = FALSE)
>>
>> #png("font.png", width=4*300, height=4*300, res =300)
>>
>> plot(0,xlab="",ylab="",type="n")
>> text(1, -0.75, expression(CO[2]-Hei), family = "hei")
>> text(1, -0.5, expression(CO[2]-HWHei), family = "hwhei")
>> text(1, -0.25, expression(CO[2]-FZHei), family = "fzhei")
>> text(1, 0.0, expression(CO[2]-Sans), family = "sans")
>> text(1, 0.25, expression(CO[2]-FZSong), family = "fzsong")
>> text(1, 0.5, expression(CO[2]-Song), family = "song")
>> text(1, 0.75, expression(CO[2]-Serif), family = "serif")
>>
>> dev.off()
>>