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

Les nouvelles menaces liées à l’intelligence artificielle

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

Sommes-nous proches de la singularité technologique ? Peu probable. Même si l’intelligence artificielle a fait un bond ces dernières années (elle est étudiée depuis des dizaines d’années), nous sommes loin d’en perdre le contrôle. Et pourtant, une partie de l’utilisation de l’intelligence artificielle échappe aux analystes. Eh oui ! Comme tout système, elle est utilisée par des acteurs malveillants essayant d’en tirer profit pécuniairement. Cet article met en exergue quelques-unes des applications de l’intelligence artificielle par des acteurs malveillants et décrit succinctement comment parer à leurs attaques.

Migration d’une collection Ansible à l’aide de fqcn_migration

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

Distribuer du contenu Ansible réutilisable (rôle, playbooks) par l’intermédiaire d’une collection est devenu le standard dans l’écosystème de l’outil d’automatisation. Pour éviter tout conflit de noms, ces collections sont caractérisées par un nom unique, formé d’une espace de nom, qui peut-être employé par plusieurs collections (tel qu'ansible ou community) et d’un nom plus spécifique à la fonction de la collection en elle-même. Cependant, il arrive parfois qu’il faille migrer une collection d’un espace de noms à un autre, par exemple une collection personnelle ou communautaire qui passe à un espace de noms plus connus ou certifiés. De même, le nom même de la collection peut être amené à changer, si elle dépasse son périmètre d’origine ou que le produit qu’elle concerne est lui-même renommé.

Mise en place d'Overleaf Community pour l’écriture collaborative au sein de votre équipe

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

Si vous utilisez LaTeX pour vos documents, vous connaissez vraisemblablement Overleaf qui vous permet de rédiger de manière collaborative depuis n’importe quel poste informatique connecté à Internet. Cependant, la version gratuite en ligne souffre de quelques limitations et le stockage de vos projets est externalisé chez l’éditeur du logiciel. Si vous désirez maîtriser vos données et avoir une installation locale de ce bel outil, cet article est fait pour vous.

Abonnez-vous maintenant

et profitez de tous les contenus en illimité

Je découvre les offres

Déjà abonné ? Connectez-vous