Графический вывод и текст - PullRequest
Новая
       18

Графический вывод и текст

1 голос
/ 06 июня 2011

Я искал способ более точно «увидеть» результаты изображения в сочетании с текстом.Когда я создаю несколько фигур: 

  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, он помещается в прямоугольник.Есть ли способ просмотреть вывод больше как есть?

enter image description here

РЕДАКТИРОВАТЬ:

Вот скриншот (с Windows Snipping Tool) после того, как я изменил средураспечатать.Image after printout environment setting

После этого я конвертирую 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% (для сравнения).Здесь вы можете увидеть, как это выглядит в акробате и на бумаге.

adobe reader at 40%

Это с Adobe на 100%

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-файлам.У меня вообще нет разницы?

1 Ответ

3 голосов
/ 06 июня 2011

Переключите Экранная среда в «Распечатка» (меню Format -> Screen Environment -> Printout), и эта графика на экране будет выглядеть точно так же, как в экспортированном PDF. Не изменяйте размер графики внутри ноутбука вручную! Просто увеличьте увеличение, чтобы увидеть мелкие детали.

Причиной такого поведения является то, что Export в Mathematica по умолчанию использует среду стиля экрана «Распечатка», а не «Работающий» при экспорте в PDF .

P.S. С этим вопросом связано: « Как экспортировать графику в« рабочем »стиле, а не в« распечатке »? ». Также связано: « Общие проблемы экспорта и решения PDF / EMF ». Попробуйте решение, предложенное Mr.Wizard , если вы хотите экспортировать графику так, как она выглядит по умолчанию.

EDIT

Более понятный пример: 

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]

и сравните ...

enter image description here enter image description here

...