A8arrange.sh

<< front >>
13	12
4	5
1	8
16	9
   back
11	14
6	3
7	2
10	15

# requirements: qpdf, psutils
# input.pdf must be a multiple of 16
N=$(qpdf --show-npages input.pdf)

I=1
I=$((I+16))

while $I < $N

qpdf --empty --pages input.pdf $I-$((I+15)) -- input$I.ps

pstops -pa4 '16:[email protected](0.5w,0.75h)[email protected](0.5w,0.5h)[email protected](0.5w,0.25h)[email protected](0.5w,0)[email protected](0.5w,1.0h)[email protected](0.5w,0.75h)[email protected](0.5w,0.5h)[email protected](0.5w,0.25h),[email protected](0.5w,0.75h)[email protected](0.5w,0.5h)[email protected](0.5w,0.25h)[email protected](0.5w,0)[email protected](0.5w,1.0h)[email protected](0.5w,0.75h)[email protected](0.5w,0.5h)[email protected](0.5w,0.25h)' input$I.ps output$I.ps

P1 (S1 front)
29	28
4	5
1	8
32	25

P2 (S1 back)
27	30
6	3
7	2
26	31

P3 (S2 front)
17	24
16	9
13	12
20	21

P4 (S2 back)
23	18
10	15
11	14
22	19

pstops -pa4 '32:[email protected](0.5w,0.75h)[email protected](0.5w,0.5h)[email protected](0.5w,0.25h)[email protected](0.5w,0)[email protected](0.5w,1.0h)[email protected](0.5w,0.75h)[email protected](0.5w,0.5h)[email protected](0.5w,0.25h),[email protected](0.5w,0.75h)[email protected](0.5w,0.5h)[email protected](0.5w,0.25h)[email protected](0.5w,0)[email protected](0.5w,1.0h)[email protected](0.5w,0.75h)[email protected](0.5w,0.5h)[email protected](0.5w,0.25h),[email protected](0.5w,0.75h)[email protected](0.5w,0.5h)[email protected](0.5w,0.25h)[email protected](0.5w,0)[email protected](0.5w,1.0h)[email protected](0.5w,0.75h)[email protected](0.5w,0.5h)[email protected](0.5w,0.25h),[email protected](0.5w,0.75h)[email protected](0.5w,0.5h)[email protected](0.5w,0.25h)[email protected](0.5w,0)[email protected](0.5w,1.0h)[email protected](0.5w,0.75h)[email protected](0.5w,0.5h)[email protected](0.5w,0.25h)' input.ps output.ps