图形输出和文本

Question

我一直在寻找一种方法来更准确地“看到”图片结合文字的结果。 当我创建一些形状时：

  g1 = Graphics[{White, EdgeForm[Directive[Thick, Black]] , 
   Rectangle[{0, 0}, {19, 28}], LightGray, 
   Rectangle[{1, 19}, {9, 27}], Rectangle[{10, 19}, {18, 27}], 
   Rectangle[{1, 23}, {2, 27}]}, 
  Epilog -> { 
    Inset[Text[Style["Information      Here", FontSize -> 8]], {1, 
      25}, {Center, Top}, Automatic, {0, 1}], 
    Inset[Text[Style["some more stuff", FontSize -> 8]], {2, 
      25}, {Center, Bottom}, Automatic, {0, 1}]}]

它显示缩小版本但文本不适合矩形。 然而，当我将它移植到pdf时，它适合矩形。有没有办法查看输出 更多的是什么？

编辑：

在将环境更改为打印输出后，这是屏幕打印（使用Windows Snipping Tool）。

在此之后我将g1转换为final1：

final1 = Show[g1, AspectRatio -> Automatic, 
  PlotRange -> {{-0.5, 19.5}, {-0.5, 28.5}}]

这显示相同的结果，然后导出为PDF。

Export["final1.pdf", Show[final1, ImageSize -> {20 cm, 29 cm}]]

我打开PDF（Adobe阅读器9）并缩放到40％（用于比较）。在这里，您可以看到它在杂技演员和纸上的样子。

这是Adobe 100％

正如您所看到的那样，存在明显的差异。我甚至可以添加一行文字。

EDIT2：

Following Alexey suggestion with code:

In[27]:= SetOptions[$FrontEndSession, 
 PrintingStyleEnvironment -> "Printout"]

In[28]:= Export["finalprintout1.pdf", 
 Show[final1, ImageSize -> {20 cm, 29 cm}]]

Out[28]= "finalprintout1.pdf"

In[29]:= SetOptions[$FrontEndSession, 
 PrintingStyleEnvironment -> "Working"]

In[30]:= Export["finalworking.pdf", 
 Show[final1, ImageSize -> {20 cm, 29 cm}]]

Out[30]= "finalworking.pdf"

它产生相同的PDF。我没有任何区别？

Answer 1

将屏幕环境切换为“打印输出”（菜单Format -> Screen Environment -> Printout），此屏幕上的图形将与导出的PDF中的外观完全一致。不要用手调整笔记本内部的图形大小！只需增加放大倍率即可查看精细细节。

此行为的原因是Export in Mathematica uses by default the "Printout" screen style environment rather than "Working" when exporting to PDF。

P.S。这个问题是相关的：“How to export graphics in “Working” style environment rather than “Printout”?”。还相关：“General PDF/EMF export problems and solutons”。如果您希望导出默认显示的图形，请尝试the solution suggested by Mr.Wizard。

修改

更明确的例子：

g1 = Graphics[{White, EdgeForm[Directive[Thick, Black]], LightGray, 
   Rectangle[{1, 23}, {2, 27}]}, 
  Epilog -> {Inset[
     Text[Style["Information      Here", FontSize -> 50]], {1, 
      25}, {Center, Top}, Automatic, {0, 1}], 
    Inset[Text[Style["some more stuff", FontSize -> 50]], {2, 
      25}, {Center, Bottom}, Automatic, {0, 1}]}]

尝试在屏幕环境之间切换，您将看到不同之处。尝试Export进行PDF并比较：

Export["C:\\1.pdf", g1]

现在评估：

SetOptions[$FrontEndSession, PrintingStyleEnvironment -> "Working"]

再次导出：

Export["C:\\2.pdf", g1]

并比较......