From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <viro@mail.ru>
Date: Mon, 28 Apr 2003 16:13:28 +0400
From: viro@mail.ru
To: ALT Linux Mailing List <community@altlinux.ru>
Message-ID: <20030428121328.GA13763@vic.office.cint.ru>
Mime-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: 8bit
Subject: [Comm] pstops question
Sender: community-admin@altlinux.ru
Errors-To: community-admin@altlinux.ru
X-BeenThere: community@altlinux.ru
X-Mailman-Version: 2.0.9
Precedence: bulk
Reply-To: community@altlinux.ru
List-Unsubscribe: <http://www.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=unsubscribe>
List-Id: <community.altlinux.ru>
List-Post: <mailto:community@altlinux.ru>
List-Help: <mailto:community-request@altlinux.ru?subject=help>
List-Subscribe: <http://www.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=subscribe>
List-Archive: <http://www.altlinux.ru/pipermail/community/>
Archived-At: <http://lore.altlinux.org/community/20030428121328.GA13763@vic.office.cint.ru/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

Извините за вопрос не в тему.
Очень оплезнаю утилитка для распечатывания документации, но имею проблемы
с сужением поля для печати после использования этой утилиты.
В чистом виде выглядит это так.

В kwrite печатаю в файл (a.ps) пустую страницу.
Выполняю:
	pstops "1:0" a.ps b.ps
При печати a.ps в норме, b.ps со сдвигом.

diff a.ps b.ps
7c7
< %%Pages: 1
---
> %%Pages: 1 0
11a12,43
> %%BeginProcSet: PStoPS 1 15
> userdict begin
> [/showpage/erasepage/copypage]{dup where{pop dup load
>  type/operatortype eq{1 array cvx dup 0 3 index cvx put
>  bind def}{pop}ifelse}{pop}ifelse}forall
> [/letter/legal/executivepage/a4/a4small/b5/com10envelope
>  /monarchenvelope/c5envelope/dlenvelope/lettersmall/note
>  /folio/quarto/a5]{dup where{dup wcheck{exch{}put}
>  {pop{}def}ifelse}{pop}ifelse}forall
> /setpagedevice {pop}bind 1 index where{dup wcheck{3 1 roll put}
>  {pop def}ifelse}{def}ifelse
> /PStoPSmatrix matrix currentmatrix def
> /PStoPSxform matrix def/PStoPSclip{clippath}def
> /defaultmatrix{PStoPSmatrix exch PStoPSxform exch concatmatrix}bind def
> /initmatrix{matrix defaultmatrix setmatrix}bind def
> /initclip[{matrix currentmatrix PStoPSmatrix setmatrix
>  [{currentpoint}stopped{$error/newerror false put{newpath}}
>  {/newpath cvx 3 1 roll/moveto cvx 4 array astore cvx}ifelse]
>  {[/newpath cvx{/moveto cvx}{/lineto cvx}
>  {/curveto cvx}{/closepath cvx}pathforall]cvx exch pop}
>  stopped{$error/errorname get/invalidaccess eq{cleartomark
>  $error/newerror false put cvx exec}{stop}ifelse}if}bind aload pop
>  /initclip dup load dup type dup/operatortype eq{pop exch pop}
>  {dup/arraytype eq exch/packedarraytype eq or
>   {dup xcheck{exch pop aload pop}{pop cvx}ifelse}
>   {pop cvx}ifelse}ifelse
>  {newpath PStoPSclip clip newpath exec setmatrix} bind aload pop]cvx def
> /initgraphics{initmatrix newpath initclip 1 setlinewidth
>  0 setlinecap 0 setlinejoin []0 setdash 0 setgray
>  10 setmiterlimit}bind def
> end
> %%EndProcSet
469a502,504
> userdict/PStoPSxform PStoPSmatrix matrix currentmatrix
>  matrix invertmatrix matrix concatmatrix
>  matrix invertmatrix put
471c506,508
< %%Page: 1 1
---
> %%Page: (0) 1
> userdict/PStoPSsaved save put
> PStoPSxform concat
508a546
> PStoPSsaved restore

Может кто поможет - что надо почикать в полученном файле??

Спасибо.