显卡 output 和文字

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 时，它适合矩形。 有没有办法按原样查看 output？

编辑：

这是我将环境更改为打印输出后的屏幕打印（使用 Windows 截图工具）。

在此之后，我将 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 reader 9）并缩放到 40%（用于比较）。 在这里，您可以看到它在 acrobat 和纸上的样子。

这是 100% 的 Adobe

如您所见，有明显的区别。 我什至可以添加一行文字。

编辑2：

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 中的外观完全相同。 请勿手动调整 Notebook 内图形的大小。 只需增加放大倍率即可查看细节。

这种行为的原因是Mathematica 中的Export在导出到 PDF 时默认使用“Printout”屏幕样式环境而不是“Working” 。

PS这个问题是相关的：“ 如何在“工作”风格环境中导出图形而不是“打印输出”？ “。 还相关：“ 一般 PDF/EMF 导出问题和解决方案”。 如果您希望导出默认外观的图形，请尝试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]

并比较...