[Comm] pstops question

=?iso-8859-1?q?viro_=CE=C1_mail=2Eru?= =?iso-8859-1?q?viro_=CE=C1_mail=2Eru?=
Пн Апр 28 16:13:28 MSD 2003


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

В 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

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

Спасибо.




Подробная информация о списке рассылки community