From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <dead-md@yandex.ru>
X-Real-To: <community@altlinux.ru>
From: dm <dead-mustdie@nm.ru>
Organization: =?koi8-r?b?9yDWydrOySDX06MgzsU=?= =?koi8-r?b?INTByw==?=,
	=?koi8-r?b?y8HLIM7BINPBzc/N?= =?koi8-r?b?IMTFzMUuLi4=?=
To: community@altlinux.ru
Subject: Re: [Comm] pdf =?windows-1251?b?4g==?= =?windows-1251?b?IOrt6OPzLg==?=
Date: Wed, 22 Sep 2004 13:11:00 +0400
User-Agent: KMail/1.6.2
References: <20040922100720.5acc7888.dov@media-link.info>
In-Reply-To: <20040922100720.5acc7888.dov@media-link.info>
MIME-Version: 1.0
Content-Disposition: inline
Content-Type: Multipart/Mixed;
  boundary="Boundary-00=_kGUUBiTRqOYWqwt"
Message-Id: <200409221311.00552.dead-mustdie@nm.ru>
X-BeenThere: community@altlinux.ru
X-Mailman-Version: 2.1.5
Precedence: list
Reply-To: community@altlinux.ru
List-Id: Mailing list for ALT Linux users <community.altlinux.ru>
List-Unsubscribe: <https://lists.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://lists.altlinux.ru/pipermail/community>
List-Post: <mailto:community@altlinux.ru>
List-Help: <mailto:community-request@altlinux.ru?subject=help>
List-Subscribe: <https://lists.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Wed, 22 Sep 2004 12:18:18 -0000
Archived-At: <http://lore.altlinux.org/community/200409221311.00552.dead-mustdie@nm.ru/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>


--Boundary-00=_kGUUBiTRqOYWqwt
Content-Type: text/plain;
  charset="windows-1251"
Content-Transfer-Encoding: 8bit
Content-Disposition: inline

Здравствуйте, Dolgov OV!

Среда 22 Сентябрь 2004 11:07, Вы писали:

> Может кто такое проделывал?
> Есть PDF 160 страниц размером 1/4 А4 листа.
> Чем бы эту заразу распечатать с расположением 4 шт. на листе А4 в
> строго определенном порядке, дабы на выходе получить книжку, сбитую
> степлером посередине?

Посмотрите, может быть подойдёт этот скрипт? Сам не проверял, выловил 
уже очень давно в этой же рассылке, лежит в архиве. Судя по 
комментариям, он может именно то, что надо, нужно только количество 
листов в тетради указать правильно и подогнать масштабирование. На 
входе ему нужен ps, так что файл придётся сначала преобразовать.

-- 
-------------------------------------
dm <deadmustdie at pisem point net>

--Boundary-00=_kGUUBiTRqOYWqwt
Content-Type: application/x-shellscript;
  name="psbr"
Content-Transfer-Encoding: 8bit
Content-Disposition: attachment;
	filename="psbr"

#!/bin/sh

SHEETSNUMBER=6	# ЛПМ-ЧП МЙУФПЧ Ч ФЕФТБДЙ
PAGESNUMBER=180	# ЛПМ-ЧП УФТБОЙГ Ч ЙУИПДОПН ДПЛХНЕОФЕ Ч ЖПТНБФЕ Postscript
FILENAME=cvs.ps	# ЙУИПДОЩК ДПЛХНЕОФ
PAGEFORMAT=a4	# ЖПТНБФ МЙУФБ ДМС РЕЮБФЙ
ZOOM=.7		# НБУЫФБВЙТПЧБОЙЕ (ЕУМЙ ДПЛХНЕОФ ВЩМ УЧЕТУФБО ДМС ЖПТНБФБ A4,
		# Б ЦЕМБЕНЩК ТБЪНЕТ МЙУФБ Ч ФЕФТБДЙ A5, ФП ZOOM=.7)
		# УН. man psbook, pstops, psselect
		
		# рЕЮБФШ
		# уОБЮБМБ РЕЮБФБЕФУС ЖБКМ N_front-filename,
		# ЪБФЕН МЙУФЩ РЕТЕЛМБДЩЧБАФУС (ЧПЪНПЦОП, ЪДЕУШ
		# РТЙДЕФУС РПЬЛУРЕТЙНЕФЙТПЧБФШ) Й РЕЮБФБЕФУС
		# N_back_-filename. Й ФБЛ ДМС ЧУЕИ N.

SHEETSINBOOK=$((${SHEETSNUMBER}*4))
I=1
LOOP=1

while [ $I -lt $PAGESNUMBER ]; do
	J=$(($I+$SHEETSINBOOK-1))
	psselect ${I}-${J} ${FILENAME} ${LOOP}-${FILENAME}
	pstops -p${PAGEFORMAT} "4:-3L@${ZOOM}(21cm,0)+0L@${ZOOM}(21cm,14.85cm)" ${LOOP}-${FILENAME} ${LOOP}_front-${FILENAME}
	pstops -p${PAGEFORMAT} "4:1L@${ZOOM}(21cm,0)+-2L@${ZOOM}(21cm,14.85cm)" ${LOOP}-${FILENAME} ${LOOP}_back_-${FILENAME}
	rm -f ${LOOP}-${FILENAME}
	I=$(($J+1))
	LOOP=$(($LOOP+1))
done

--Boundary-00=_kGUUBiTRqOYWqwt--