ALT Linux Community general discussions
 help / color / mirror / Atom feed
* [Comm] pstops question
@ 2003-04-28 12:13 viro
  0 siblings, 0 replies; only message in thread
From: viro @ 2003-04-28 12:13 UTC (permalink / raw)
  To: ALT Linux Mailing List

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

В 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

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

Спасибо.



^ permalink raw reply	[flat|nested] only message in thread

only message in thread, other threads:[~2003-04-28 12:13 UTC | newest]

Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2003-04-28 12:13 [Comm] pstops question viro

ALT Linux Community general discussions

This inbox may be cloned and mirrored by anyone:

	git clone --mirror http://lore.altlinux.org/community/0 community/git/0.git

	# If you have public-inbox 1.1+ installed, you may
	# initialize and index your mirror using the following commands:
	public-inbox-init -V2 community community/ http://lore.altlinux.org/community \
		mandrake-russian@linuxteam.iplabs.ru community@lists.altlinux.org community@lists.altlinux.ru community@lists.altlinux.com
	public-inbox-index community

Example config snippet for mirrors.
Newsgroup available over NNTP:
	nntp://lore.altlinux.org/org.altlinux.lists.community


AGPL code for this site: git clone https://public-inbox.org/public-inbox.git