| Server IP : 85.214.239.14 / Your IP : 3.145.110.145 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /proc/2/task/2/cwd/proc/2/cwd/proc/3/root/proc/self/root/usr/share/ghostscript/10.00.0/lib/ |
Upload File : |
%!
% Copyright (C) 2001-2021 Artifex Software, Inc.
% All Rights Reserved.
%
% This software is provided AS-IS with no warranty, either express or
% implied.
%
% This software is distributed under license and may not be copied,
% modified or distributed except as expressly authorized under the terms
% of the license contained in the file LICENSE in this distribution.
%
% Refer to licensing information at http://www.artifex.com or contact
% Artifex Software, Inc., 1305 Grant Avenue - Suite 200, Novato,
% CA 94945, U.S.A., +1(415)492-9861, for further information.
%
% Prefix this to very well-behaved PostScript files for n-up printing.
/cdef { 1 index where { pop pop } { def } ifelse } def
%%%%%%%%%%%%%%%% Begin parameters %%%%%%%%%%%%%%%%
% All parameters are also settable from the command line with -d, e.g.,
% -d.Nx=3
/.Nx 2 cdef % # of pages across the physical page
/.Ny 2 cdef % # of pages down the physical page
/.Landscape false cdef % if true, rotate page by 90 degrees
%%%%%%%%%%%%%%%% End parameters %%%%%%%%%%%%%%%%
vmstatus pop pop 0 eq { save pop } if
.Landscape {
currentpagedevice /PageSize get aload pop
exch 2 array astore
1 dict dup /PageSize 4 -1 roll put
setpagedevice
} if
/.BP currentpagedevice /BeginPage get def
/.EP currentpagedevice /EndPage get def
/.Ps 1 string def % survive save/restore
/.Pn { .Ps 0 get } def
true setglobal % protect from restore
/.ELevel [0] def
/.Rmat matrix def
false setglobal
/.max { 2 copy lt { exch } if pop } cdef
% Work around the common save ... showpage ... restore locution.
/restore {
.Rmat currentmatrix pop restore
vmstatus pop pop .ELevel 0 get lt { .Rmat setmatrix } if
} bind def
<<
/BeginPage {
.Nx .Ny .max
gsave
initclip clippath pathbbox exch 4 -1 roll sub 3 1 roll exch sub
grestore
2 copy exch .Nx div exch .Ny div
.Pn dup .Nx mod exch .Nx idiv .Ny 1 sub exch sub
% Stack: nmax pw ph pw/nx ph/ny ix iy
exch 3 index mul exch 2 index mul
translate
% Stack: nmax pw ph pw/nx ph/ny
4 -1 roll 4 index div 4 -1 roll 4 index div
% Stack: nmax pw/nx ph/ny pw/nmax ph/nmax
exch 4 -1 roll exch sub 2 div
3 1 roll sub 2 div
translate
% Stack: nmax
1 exch div dup scale
.BP
}
/EndPage {
dup 2 lt {
.ELevel 0 vmstatus pop pop put
.Ps 0 .Pn 1 add .Nx .Ny mul mod put
.Pn 0 eq {
.EP
} {
pop pop false
} ifelse
} {
pop pop false
} ifelse
}
>> setpagedevice
/.EOJ {
{ .Pn 0 eq { exit } if showpage } loop
} def
{ currentfile cvx exec .EOJ } exec