Tisk velkeho (nad 60 stran) .ps do knizky

[Dominik Formanek]

Zdravim,

prave jsem slepil jednoduchy generator, ktery seradi stranky po 4 A4 (tj. 16 A5). Kazde 4 listy se prelozi a hrbet sesije.
Vysledek je knizka A5.

Dominik Formánek

#################################################################
# Formánek-velkoobchod spol. s r.o. # Mobil  : +420-602-286-104 #
# Rybářská 14                       # Tel/fax: +420-321-721-887 #
# Kolín 2                           # Tel/fax: +420-321-727-727 #
# 280 00                            # Tel/fax: +420-321-721-371 #
#################################################################

-------------- next part --------------
#!/usr/bin/perl -w
# Generovani stranek (poradi) do knizky po 4 listech (A4) do 16 v A5.
# Kazde 4 listy se skladaji zvlast!
# Autor: Dominik Formanek (dominik at formanek.cz) - 4.12.2000

$ARGC=@ARGV;

if ($ARGC!=2) {
    print "$0 pocet_stran jmeno.ps\n";
    exit(1);
}

$celkem = $ARGV[0];
$jmeno = $ARGV[1];

$zbytek=$celkem % 16;
$plne=($celkem-$zbytek);

open TISK,'>tisk_knih';
print TISK '#!/bin/sh'."\n";

if ($zbytek!=$celkem) {

    print TISK 'psselect -p ';
    $i=0;
    until ($i>$plne-1) {
	print TISK $i+16,",",($i+1),',',($i+2),',',($i+15),',',
	      ($i+14),',',($i+3),',',($i+4),',',($i+13),',',
	      ($i+12),',',($i+5),',',($i+6),',',($i+11),',',
	      ($i+10),',',($i+7),',',($i+8),',',($i+9);
	$i=$i+16;
    if ($i<=$plne-1) {print TISK ',';}
    }
    print TISK " $jmeno temp1.ps\n";

    print TISK 'pstops "4:0L at .7(21cm,0)+1L at .7(21cm,14.85cm)" temp1.ps strany_telo2.ps'."\n";
    print TISK 'pstops "4:2L at .7(21cm,0)+3L at .7(21cm,14.85cm)" temp1.ps tempx.ps'."\n";
    print TISK 'pstops "1:-0" tempx.ps strany_telo1.ps'."\n";
    print TISK 'rm temp1.ps tempx.ps'."\n";

}

if ($zbytek!=0) {

    print TISK 'psselect -p ';
    $i=$plne+1;
    until ($i>$celkem) {
	print TISK $i;
	$i=$i+1;
	if ($i<=$celkem) {print TISK ',';}
    }
    print TISK " $jmeno temp2.ps\n";

    print TISK 'psbook temp2.ps temp1.ps'."\n";
    print TISK 'pstops "4:0L at .7(21cm,0)+1L at .7(21cm,14.85cm)" temp1.ps strany_konec2.ps'."\n";
    print TISK 'pstops "4:2L at .7(21cm,0)+3L at .7(21cm,14.85cm)" temp1.ps tempx.ps'."\n";
    print TISK 'pstops "1:-0" tempx.ps strany_konec1.ps'."\n";
    print TISK 'rm temp1.ps temp2.ps tempx.ps'."\n";
}

-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 232 bytes
Desc: not available
URL: <http://lists.felk.cvut.cz/pipermail/cstex/attachments/20001204/34e7b0ce/attachment-0001.bin>