Perles de Mongueurs - Produire un PDF au format booklet

Magazine
Marque
GNU/Linux Magazine
Numéro
127
Mois de parution
mai 2010


Résumé
Depuis le numéro 59, les Mongueurs de Perl vous proposent tous les mois de découvrir les scripts jetables qu’ils ont pu coder ou découvrir dans leur utilisation quotidienne de Perl. Bref, des choses trop courtes pour en faire un article, mais suffisamment intéressantes pour mériter d’être publiées. Ce sont les perles de Mongueurs.

Body

Je dispose d'un document PDF au format A5, que je veux imprimer sur des feuilles A4 puis agrafer pour faire un joli livret.

Certaines imprimantes sophistiquées permettent de le faire directement, mais ce n'est pas le cas de la mienne, ni probablement de celles des personnes qui vont essayer d'imprimer mon document. C'est pourquoi je préfère directement produire un document PDF au format A4, qu'il n'y aura plus qu'à imprimer en recto-verso.

L'ordre des pages est le suivant (en supposant un document avec un nombre de pages multiple de 4) :

    +-----+-----+    +-----+-----+

    |     |     |    |     |     |

    | n | 1 |    | 2 | n-1 |

    |     |     |    |     |     |

    +-----+-----+    +-----+-----+

    +-----+-----+    +-----+-----+

    |     |     |    |     |     |

    | n-2 | 3 |    | 4 | n-3 |

    |     |     |    |     |     |

    +-----+-----+    +-----+-----+

Autrement dit, pour tout groupe de quatre pages, 1, 2, 3, 4 devient 4, 1, 2, 3.

Donc, si on a la liste des pages dans un tableau @pages, les pages sont à traiter dans l'ordre suivant : dernière, première, première de ce qui reste, dernière de ce qui reste, et on répète tant qu'il y a des pages.

Soit en Perl :

    pop;

    shift;

    shift;

pop;

Pour produire le nouveau PDF, le plus simple est de charger l'ancien PDF et d'importer les pages dans le bon ordre en les traitant par groupe de quatre pour produire deux pages dans le nouveau document.

Si jamais le document à traiter n'a pas un nombre de pages suffisant, il suffit d'ajouter des pages bidons qui ne seront pas insérées.

Le module Perl de manipulation de PDF, PDF::API2 permet de faire tout cela.

    use strict;

    use warnings;

    use PDF::API2;

    # les fichiers

    my $oldfile = shift;

    (my $newfile = $oldfile) =~ s/\.pdf$/-booklet.pdf/;

    # charge l'ancien PDF

    my $old = PDF::API2->open($oldfile);

# configure le nouveau PDF

    my $new = PDF::API2->new( -file => $newfile );

$new->mediabox( 842, 595 );    # format A4 paysage

    # nombre de pages de l'ancien PDF

    my $pages = $old->pages;

    my @old   = 1 .. $old->pages;

# ajoute le nombre de pages nécessaires

    # pour avoir un multiple de 4

    push @old, 0 for 1 .. ( 4 - $pages ) % 4;

    # ajoute les pages par groupe de 4

    while (@old) {

        my ( $n, $page );

        $page = $new->page;

        add_page( $new, $page, $old, pop @old,   0,   0 );

        add_page( $new, $page, $old, shift @old, 421, 0 );

        $page = $new->page;

        add_page( $new, $page, $old, shift @old, 0,   0 );

        add_page( $new, $page, $old, pop @old,   421, 0 );

}

    # ajoute la page donnée du vieux document

    # dans la page fournie du nouveau à la position donnée

    sub add_page {

        my ( $new, $page, $old, $n, $x, $y ) = @_;

        return if !$n;    # ignore la page 0

        my $xo = $new->importPageIntoForm( $old, $n );

        my $gfx = $page->gfx;

$gfx->formimage( $xo, $x, $y, 1 );

    }

    $new->save;

Les fonctions importantes dans ce code sont :

  • importPageIntoForm(), qui prend une page d'un PDF existant et la charge dans notre nouveau document.
  • formimage(), qui permet d'ajouter l'objet renvoyé par importPageIntoForm() à la composante graphique d'une page du PDF.

Les 3 derniers paramètres sont les coordonnées où positionner l'objet dans la page et l'échelle (ici, on utilise 1 car on insère une page A5 dans une demi-page A4).

Dans le cas plus général (imprimer une documentation sous forme de livret pour économiser du papier), on veut en fait produire un livret A4 à partir d'un document en A4. La seule chose qui va changer, c'est l'échelle à laquelle on copie les pages. Le rapport est 0.707 (sqrt(2)/2). Ceci vient de la norme (ISO 216) définissant les dimensions du papier, qui est conçue de sorte que plier une feuille en deux conserve ses proportions. Le rapport des surfaces est de 1/2, et donc celui des longueurs de sqrt(2)/2.

Cependant, il est possible de devoir utiliser un ratio inférieur pour convertir un document en livret, en fonction des dimensions respectives des marges du document et des marges d'impression de l'imprimante. En effet, les marges originales du document seront elles aussi réduites. Le cas échéant, il faudra donc également repositionner les pages réduites pour que la marge d'impression ne morde pas sur le document.

Il a fallu 7 secondes à mon portable pour convertir un document de 3,8 mégaoctets et 572 pages, c'est-à-dire considérablement moins que le temps qu'il me faudra pour imprimer les 286 pages du document final. ;-)

Références

Formats de papier : http://fr.wikipedia.org/wiki/Format_de_papier

A vous !

Envoyez vos perles à perles@mongueurs.net, elles seront peut-être publiées dans un prochain numéro de Linux Magazine.




Article rédigé par

Par le(s) même(s) auteur(s)

Perles de Mongueurs

Magazine
Marque
GNU/Linux Magazine
Numéro
126
Mois de parution
avril 2010
Résumé
Depuis le numéro 59, les Mongueurs de Perl vous proposent tous les mois de découvrir les scripts jetables qu’ils ont pu coder ou découvrir dans leur utilisation quotidienne de Perl. Bref, des choses trop courtes pour en faire un article, mais suffisamment intéressantes pour mériter d’être publiées. Ce sont les perles de Mongueurs.

Les derniers articles Premiums

Les derniers articles Premium

Le combo gagnant de la virtualisation : QEMU et KVM

Magazine
Marque
Contenu Premium
Spécialité(s)
Résumé

C’est un fait : la virtualisation est partout ! Que ce soit pour la flexibilité des systèmes ou bien leur sécurité, l’adoption de la virtualisation augmente dans toutes les organisations depuis des années. Dans cet article, nous allons nous focaliser sur deux technologies : QEMU et KVM. En combinant les deux, il est possible de créer des environnements de virtualisation très robustes.

Brève introduction pratique à ZFS

Magazine
Marque
Contenu Premium
Spécialité(s)
Résumé

Il est grand temps de passer à un système de fichiers plus robuste et performant : ZFS. Avec ses fonctionnalités avancées, il assure une intégrité des données inégalée et simplifie la gestion des volumes de stockage. Il permet aussi de faire des snapshots, des clones, et de la déduplication, il est donc la solution idéale pour les environnements de stockage critiques. Découvrons ensemble pourquoi ZFS est LE choix incontournable pour l'avenir du stockage de données.

Générez votre serveur JEE sur-mesure avec Wildfly Glow

Magazine
Marque
Contenu Premium
Spécialité(s)
Résumé

Et, si, en une ligne de commandes, on pouvait reconstruire son serveur JEE pour qu’il soit configuré, sur mesure, pour les besoins des applications qu’il embarque ? Et si on pouvait aller encore plus loin, en distribuant l’ensemble, assemblé sous la forme d’un jar exécutable ? Et si on pouvait même déployer le tout, automatiquement, sur OpenShift ? Grâce à Wildfly Glow [1], c’est possible ! Tout du moins, pour le serveur JEE open source Wildfly [2]. Démonstration dans cet article.

Les listes de lecture

9 article(s) - ajoutée le 01/07/2020
Vous désirez apprendre le langage Python, mais ne savez pas trop par où commencer ? Cette liste de lecture vous permettra de faire vos premiers pas en découvrant l'écosystème de Python et en écrivant de petits scripts.
11 article(s) - ajoutée le 01/07/2020
La base de tout programme effectuant une tâche un tant soit peu complexe est un algorithme, une méthode permettant de manipuler des données pour obtenir un résultat attendu. Dans cette liste, vous pourrez découvrir quelques spécimens d'algorithmes.
10 article(s) - ajoutée le 01/07/2020
À quoi bon se targuer de posséder des pétaoctets de données si l'on est incapable d'analyser ces dernières ? Cette liste vous aidera à "faire parler" vos données.
Voir les 64 listes de lecture

Abonnez-vous maintenant

et profitez de tous les contenus en illimité

Je découvre les offres

Déjà abonné ? Connectez-vous