pdf - solo - unir jpg

¿Puede Mathematica crear archivos PDF de varias páginas?

Question

Cuando uno importa un archivo pdf de varias páginas (el archivo que tengo en mente contiene imágenes de obras de arte, una por página) en Mathematica 8.0.1 por

book = Import ["simple.pdf"]

Mathematica devuelve una lista de objetos gráficos, uno para cada página. Tengo algunas manipulaciones que realizo en cada página, y luego quiero guardar las páginas cambiadas en un solo archivo PDF

Exportar ["DistortedSimple.pdf", distortedbook]

el archivo resultante tiene todas las imágenes en una sola página. ¿Existe una forma conveniente de exportar una lista de imágenes a PDF, una por página?

Answer 1

(¡Hola Kevin!)

Acabo de evaluar:

Print[ExampleData[#]] & /@ Take[ExampleData["TestImage"], 6]

Export["Desktop/Kevin.pdf", EvaluationNotebook[]]

utilizando V8.0.1 para OS X, y el PDF resultante se dividió en cuatro páginas. Así que creo que lo mejor que puedes hacer es (programáticamente) crear un cuaderno de tus imágenes modificadas y exportar ese cuaderno.

Answer 2

Parece que no es posible con Export , sin importar cuánto juego con el elemento Pages (aparte de las soluciones basadas en portátiles que otros ofrecen).

Una alternativa es instalar pdftk (una herramienta de línea de comandos relativamente pequeña que usaremos para ensamblar las páginas) y usar la siguiente función de Mathematica:

exportMultipagePDF[name_String, g_List, options___] :=
  Module[
    {fileNames, quote},
    quote[s_] := "/"" <> s <> "/"";
    fileNames = 
      Table[
        FileNameJoin[{$TemporaryDirectory, "mmapage" <> IntegerString[i] <> ".pdf"}],
        {i, Length[g]}
      ];
    Check[
      Export[#1, #2, "PDF", options] & @@@ Thread[{fileNames, g}], 
      Return[$Failed]
    ];
    If[
      Run["pdftk", Sequence @@ (quote /@ fileNames), "cat output", name] =!= 0,
      Return[$Failed]
    ];
    DeleteFile /@ fileNames;
  ]

En Windows, necesitaba citar los nombres de los archivos antes de pasarlos a PDFtk. No sé sobre otras plataformas, con suerte no causará ningún problema.

Pruébalo con

exportMultipagePDF["test.pdf", Table[Graphics[{Hue[x], Disk[]}], {x, 0, 1, .2}]]

Answer 3

Intente guardar el cuaderno como PDF en lugar de Exportar el conjunto de celdas como un PDF.

EDITAR:

Para asegurarse de tener los saltos de página donde desee, configure el Entorno de pantalla para imprimir (puede hacerlo a través de un comando de menú o mediante programación ) e inserte saltos de página con el comando de menú correspondiente . Esta página de guía puede ser útil.

Según su comentario, parece que necesita establecer la opción ImageSize para la imagen transformada para asegurarse de que sea del tamaño que desea cuando se muestra en pantalla.