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

PostgreSQL au centre de votre SI avec PostgREST

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

Dans un système d’information, il devient de plus en plus important d’avoir la possibilité d’échanger des données entre applications. Ce passage au stade de l’interopérabilité est généralement confié à des services web autorisant la mise en œuvre d’un couplage faible entre composants. C’est justement ce que permet de faire PostgREST pour les bases de données PostgreSQL.

La place de l’Intelligence Artificielle dans les entreprises

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

L’intelligence artificielle est en train de redéfinir le paysage professionnel. De l’automatisation des tâches répétitives à la cybersécurité, en passant par l’analyse des données, l’IA s’immisce dans tous les aspects de l’entreprise moderne. Toutefois, cette révolution technologique soulève des questions éthiques et sociétales, notamment sur l’avenir des emplois. Cet article se penche sur l’évolution de l’IA, ses applications variées, et les enjeux qu’elle engendre dans le monde du travail.

Petit guide d’outils open source pour le télétravail

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

Ah le Covid ! Si en cette période de nombreux cas resurgissent, ce n’est rien comparé aux vagues que nous avons connues en 2020 et 2021. Ce fléau a contraint une large partie de la population à faire ce que tout le monde connaît sous le nom de télétravail. Nous avons dû changer nos habitudes et avons dû apprendre à utiliser de nombreux outils collaboratifs, de visioconférence, etc., dont tout le monde n’était pas habitué. Dans cet article, nous passons en revue quelques outils open source utiles pour le travail à la maison. En effet, pour les adeptes du costume en haut et du pyjama en bas, la communauté open source s’est démenée pour proposer des alternatives aux outils propriétaires et payants.

Sécurisez vos applications web : comment Symfony vous protège des menaces courantes

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

Les frameworks tels que Symfony ont bouleversé le développement web en apportant une structure solide et des outils performants. Malgré ces qualités, nous pouvons découvrir d’innombrables vulnérabilités. Cet article met le doigt sur les failles de sécurité les plus fréquentes qui affectent même les environnements les plus robustes. De l’injection de requêtes à distance à l’exécution de scripts malveillants, découvrez comment ces failles peuvent mettre en péril vos applications et, surtout, comment vous en prémunir.

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 65 listes de lecture

Abonnez-vous maintenant

et profitez de tous les contenus en illimité

Je découvre les offres

Déjà abonné ? Connectez-vous