Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.stsci.edu/ftp/software/tex/posters/poster.patch558 Дата изменения: Mon Sep 19 22:30:26 1994 Дата индексирования: Sun Dec 23 01:27:22 2007 Кодировка: Поисковые слова: http astrokuban.info astrokuban

This is a patch file for dvips. Put it in the dvips
directory and apply it with the command:

patch -p0 < patch.version

*** Makefile.orig Thu Aug 12 11:44:31 1993
--- Makefile Mon Sep 19 13:39:16 1994
***************
*** 143,149 ****
pprescan.o papersiz.o flib.o color.o bbox.o emspecial.o

all : afm2tfm dvips tex.pro texps.pro texc.pro special.pro finclude.pro \
! color.pro crop.pro

dvips : $(OBJ)
$(CC) $(CFLAGS) $(OBJ) $(LIBS) $(FLIBS) -o dvips
--- 144,150 ----
pprescan.o papersiz.o flib.o color.o bbox.o emspecial.o

all : afm2tfm dvips tex.pro texps.pro texc.pro special.pro finclude.pro \
! color.pro crop.pro poster.pro

dvips : $(OBJ)
$(CC) $(CFLAGS) $(OBJ) $(LIBS) $(FLIBS) -o dvips
***************
*** 184,192 ****
crop.pro : crop.lpro squeeze
./squeeze crop.pro

install : afm2tfm dvips MakeTeXPK \
tex.pro texc.pro texps.pro special.pro finclude.pro color.pro \
! crop.pro config.ps psfonts.map epsf.tex epsf.sty rotate.tex \
rotate.sty colordvi.tex colordvi.sty blackdvi.tex blackdvi.sty \
dvips.tex dvipsmac.tex dvips.1 afm2tfm.1
- mkdir $(BINDIR)
--- 185,196 ----
crop.pro : crop.lpro squeeze
./squeeze crop.pro

+ poster.pro : poster.lpro squeeze
+ ./squeeze poster.pro
+
install : afm2tfm dvips MakeTeXPK \
tex.pro texc.pro texps.pro special.pro finclude.pro color.pro \
! crop.pro poster.pro config.ps psfonts.map epsf.tex epsf.sty rotate.tex \
rotate.sty colordvi.tex colordvi.sty blackdvi.tex blackdvi.sty \
dvips.tex dvipsmac.tex dvips.1 afm2tfm.1
- mkdir $(BINDIR)
***************
*** 204,209 ****
--- 208,214 ----
$(INSTALL) -c -m 644 finclude.pro $(HEADERDIR)
$(INSTALL) -c -m 644 color.pro $(HEADERDIR)
$(INSTALL) -c -m 644 crop.pro $(HEADERDIR)
+ $(INSTALL) -c -m 644 poster.pro $(HEADERDIR)
$(INSTALL) -c -m 644 config.ps $(CONFIGDIR)/$(CONFIGFILE)
$(INSTALL) -c -m 644 psfonts.map $(CONFIGDIR)
$(INSTALL) -c -m 644 epsf.tex $(TEXMACRODIR)
*** dospecial.c.orig Sat Sep 10 21:07:12 1994
--- dospecial.c Mon Sep 19 13:46:50 1994
***************
*** 73,78 ****
--- 73,84 ----
extern int prettycolumn ;
extern Boolean disablecomments ;

+ /* Added for posters, HEP */
+ extern Boolean makeposter ;
+ extern int nrows, ncols ;
+ extern int posterpages ; /* Each sheet of the poster requires a
+ ** collated copy. */
+
#ifdef DEBUG
extern integer debug_flag;
#endif
***************
*** 188,194 ****
{"ury", Number},
{"rwi", Number},
{"rhi", Number},
! {"clip", None}};

#ifdef VMS
#ifndef __GNUC__ /* GNUC tolower is too simple */
--- 194,202 ----
{"ury", Number},
{"rwi", Number},
{"rhi", Number},
! {"clip", None},
! {"nrows", Number},
! {"ncols", Number}};

#ifdef VMS
#ifndef __GNUC__ /* GNUC tolower is too simple */
***************
*** 379,384 ****
--- 387,406 ----
}
return ;
}
+ else if (strncmp(p, "poster", 6)==0) {
+ makeposter = 1 ;
+ p += 6 ;
+ nrows = 1 ;
+ ncols = 1 ;
+ while ( (p=GetKeyVal(p, &j)) != NULL) {
+ if( j == 17 )
+ nrows = ValNum ;
+ if( j == 18 )
+ ncols = ValNum ;
+ }
+ posterpages = nrows * ncols ;
+ return ;
+ }
break ;
case 'x':
if (strncmp(p, "xtex:", 5)==0) return ;
***************
*** 539,544 ****
--- 561,568 ----
return;
}
if (strncmp(p, "papersize", 9) == 0)
+ return ;
+ if (strncmp(p, "poster", 6)==0)
return ;
#ifdef TPIC
if (strncmp(p, "pn ", 3) == 0) {setPenSize(p+2); return;}
*** dvips.c.orig Sat Sep 10 21:00:02 1994
--- dvips.c Mon Sep 19 13:49:38 1994
***************
*** 16,25 ****
--- 16,27 ----
/* and put in GNU_CC:[INCLUDE.LOCAL] */
#include "ctype.h"
#include "descrip.h"
+ #include "ssdef.h"
#else
#include climsgdef
#include ctype
#include descrip
+ #include ssdef
#endif
#endif
/*
***************
*** 26,31 ****
--- 28,34 ----
* First we define some globals.
*/
#ifdef VMS
+ static void vmscli (void);
static char ofnme[252],infnme[252],pap[40],thh[20];
#endif
fontdesctype *fonthead ; /* list of all fonts mentioned so far */
***************
*** 167,172 ****
--- 170,178 ----
extern int dontmakefont ;
struct papsiz *papsizes ; /* all available paper size */
int headersready ; /* ready to check headers? */
+ Boolean makeposter ; /* each page is a poster */
+ integer nrows, ncols ; /* poster size */
+ integer posterpages = 1 ; /* how many poster sheets/page */
#if defined(MSDOS) || defined(OS2) || defined(ATARIST)
char *mfjobname = NULL; /* name of mfjob file if given */
FILE *mfjobfile = NULL; /* mfjob file for font making instructions */
***************
*** 174,183 ****
--- 180,191 ----
#ifdef DEBUG
integer debug_flag = 0;
#endif /* DEBUG */
+ #ifndef VMS
char queryline[256]; /* interactive query of options */
int qargc;
char *qargv[32];
char queryoptions;
+ #endif /* !VMS */
/*
* This routine calls the following externals:
*/
***************
*** 426,431 ****
--- 434,440 ----
}
return (VOID *)qq ;
}
+ #ifndef VMS
/* this asks for a new set of arguments from the command line */
void
queryargs()
***************
*** 441,446 ****
--- 450,456 ----
}
qargv[qargc] = (char *)NULL;
}
+ #endif /* !VMS */

/*
* Finally, our main routine.
***************
*** 1044,1050 ****
--- 1054,1063 ----
(void)add_header(SPECIALHEADER) ;
if (usescolor) /* IBM: color */
(void)add_header(COLORHEADER) ;
+ if (makeposter)
+ (void)add_header(POSTERHEADER) ;
sects = sections ;
+ pagecopies *= posterpages ;
totalpages *= collatedcopies ;
if (sects == NULL || sects->next == NULL) {
sectioncopies = collatedcopies ;
***************
*** 1066,1072 ****
initprinter(0) ;
outbangspecials() ;
}
! for (i=0; i sects = sections ;
while (sects != NULL) {
if (sepfiles) {
--- 1079,1085 ----
initprinter(0) ;
outbangspecials() ;
}
! for (i=0; i<(collatedcopies); i++) {
sects = sections ;
while (sects != NULL) {
if (sepfiles) {
***************
*** 1109,1116 ****
#endif
}
#endif
! exit(0) ;
/*NOTREACHED*/
}
#ifdef VMS
#include "[]vmscli.c"
--- 1122,1133 ----
#endif
}
#endif
! #if defined (VMS) && defined (__DECC)
! return 0 ;
/*NOTREACHED*/
+ #else
+ exit(0) ;
+ #endif /* VMS VAXC */
}
#ifdef VMS
#include "[]vmscli.c"
*** output.c.orig Mon Aug 15 23:26:46 1994
--- output.c Mon Sep 19 13:56:08 1994
***************
*** 67,72 ****
--- 67,77 ----
extern integer hpapersize, vpapersize ;
char preamblecomment[256] ; /* usually "TeX output ..." */
/*
+ ** For posters:
+ */
+ extern Boolean makeposter ;
+ extern int nrows, ncols ;
+ /*
* We need a few statics to take care of things.
*/
static integer rhh, rvv ;
***************
*** 82,88 ****
0, 40258437L, 52099154L, "letter", ""
} ;
#ifdef CREATIONDATE
! #if (!defined(VMS) && !defined(MSDOS) && !(defined(OS2) && defined(_MSC_VER)) && !defined(ATARIST)
/* VAXC/MSDOS don't like/need this !! */
#include
#include /* time(), at least on BSD Unix */
--- 87,93 ----
0, 40258437L, 52099154L, "letter", ""
} ;
#ifdef CREATIONDATE
! #if (!defined(VMS) && !defined(MSDOS)) && !(defined(OS2) && defined(_MSC_VER)) && !defined(ATARIST)
/* VAXC/MSDOS don't like/need this !! */
#include
#include /* time(), at least on BSD Unix */
***************
*** 1142,1147 ****
--- 1147,1158 ----
paperspec(finpapsiz->specdat, 0) ;
}
if (manualfeed) cmdout("@manualfeed") ;
+ if (makeposter) {
+ numout((integer)nrows) ;
+ numout((integer)ncols) ;
+ cmdout("@poster") ;
+ newline() ;
+ }
if (landscape) cmdout("@landscape") ;
if (numcopies != 1) {
numout((integer)numcopies) ;
*** paths.h.orig Mon Aug 15 22:26:23 1994
--- paths.h Mon Sep 19 13:39:20 1994
***************
*** 29,34 ****
--- 29,35 ----
#define PSFONTHEADER "texps.pro"
#define IFONTHEADER "finclude.pro"
#define SPECIALHEADER "special.pro"
+ #define POSTERHEADER "poster.pro"
#define COLORHEADER "color.pro" /* IBM: color */
#define CROPHEADER "crop.pro"
#define PSMAPFILE "psfonts.map"
*** poster.lpro.orig Mon Sep 19 13:39:20 1994
--- poster.lpro Mon Sep 19 13:39:20 1994
***************
*** 0 ****
--- 1,150 ----
+ % Functions for posters.
+
+ % The basic idea, taken from the printposter program in the Blue Book,
+ % is to translate before printing each page, making sure that the
+ % desired part of the large page falls on the paper. Each poster page
+ % has a size given by the number of rows and columns of pieces of paper
+ % needed to print. Regardless of whether the document is landscape
+ % mode, rows go across the page, parallel with the lines of text, and
+ % columns go down the page. The poster mechanism is invoked from
+ % within a document by a \special of the form
+ %
+ % \special{poster nrows=x ncols=y}
+ %
+ % Each sheet of the poster requires a separate pass through the
+ % document. That is, a poster where each page is one row of sheets
+ % of paper high, and three columns wide, requires three passes
+ % through the document. All of the left edge sheets are printed
+ % first. Then all of the center sheets, followed by all of the
+ % right edge sheets are printed. The user then must collate the
+ % sheets for each page, cut off the edges of some of the sheets,
+ % and paste them together.
+
+ TeXDict begin
+
+ /inch {Resolution mul} N
+
+ /leftmargin {0.5 inch} N
+ /rightmargin {0.5 inch} N
+ /botmargin {0.5 inch} N
+ /topmargin {0.5 inch} N
+ /ticklen {0.2 inch} N
+ /tickoffs {0.2 inch} N
+
+ % Save poster dimensions in sheets of paper. The arguments are nrows
+ % and ncols as given by the user in the \special command.
+
+ /@poster
+ {
+ /columns X
+ /rows X
+ } N
+
+ % Re-defined bop.
+
+ /bop % %t %d bop - -- begin a brand new page, %t=pageno %d=seqno
+ {
+ userdict /bop-hook known { bop-hook } if
+ /SI save N
+ @rigin
+ %
+ % Now we check the resolution. If it's correct, we use RV as V,
+ % otherwise we use QV.
+ %
+ 0 0 moveto
+ /V matrix currentmatrix
+ dup 1 get dup mul exch 0 get dup mul add .99 lt
+ {/QV} {/RV} ifelse load def
+ % pop pop
+
+ postersheet
+ } N
+
+ % Set clip path near the edges of the a sheet. This
+ % doesn't really buy you anything except to insure
+ % that the fiducial marks don't get covered up.
+
+ /pageclip
+ {
+ leftmargin 1 inch sub tickoffs sub topmargin 1 inch sub tickoffs sub moveto
+ 0 pageheight tickoffs dup add add rlineto
+ pagewidth tickoffs dup add add 0 rlineto
+ 0 pageheight tickoffs dup add add neg rlineto
+ closepath clip
+ } N
+
+ % Draw fiducial marks to help line things up once you
+ % have cut off the wasted paper. There is a little
+ % bit of overlap between what is printed on neighboring
+ % pagex, so the cuts don't have to be precise.
+ % We suppress the marks where there is no joint between
+ % sheets, i.e. where they would not get covered up.
+
+ /fiducials
+ {
+ save
+ leftmargin 1 inch sub topmargin 1 inch sub pageheight add translate
+ 0.2 setlinewidth
+
+ rowcount 0 eq colcount 0 eq and not % Upper left mark
+ {
+ newpath 0 pageheight tickoffs add neg moveto 0 ticklen neg rlineto stroke
+ newpath tickoffs neg pageheight neg moveto ticklen neg 0 rlineto stroke
+ }
+ if
+
+ rowcount 0 eq colcount columns 1 sub eq and not % Upper right mark
+ {
+ newpath pagewidth pageheight tickoffs add neg moveto
+ 0 tickoffs neg rlineto stroke
+ newpath pagewidth tickoffs add pageheight neg moveto
+ tickoffs 0 rlineto stroke
+ }
+ if
+
+ rowcount rows 1 sub eq colcount 0 eq and not % Lower left mark
+ {
+ newpath 0 tickoffs moveto 0 ticklen rlineto stroke
+ newpath tickoffs neg 0 moveto ticklen neg 0 rlineto stroke
+ }
+ if
+
+ rowcount rows 1 sub eq colcount columns 1 sub eq and not % Lower right mark
+ {
+ newpath pagewidth tickoffs moveto 0 ticklen rlineto stroke
+ newpath pagewidth tickoffs add 0 moveto ticklen 0 rlineto stroke
+ }
+ if
+
+ restore
+ } N
+
+ % Given a sheet counter, figure out which row and column this sheet
+ % is in, and translate so that the appropriate part of the page
+ % falls on the paper. Put down fiducial marks where cuts need to be
+ % made when pasting the poster together.
+
+ /postersheet
+ { /seq X
+
+ seq rows columns mul mod /sheet X
+
+ hsize Resolution mul 72 div leftmargin sub rightmargin sub /pagewidth X
+ vsize VResolution mul 72 div topmargin sub botmargin sub /pageheight X
+
+ % Given the sheet count, which row and column are we on?
+ % Note that (0,0) is the upper left, and (columns-1,rows-1) is the
+ % lower right.
+
+ sheet columns idiv /rowcount exch N
+ sheet columns mod /colcount exch N
+
+ fiducials
+ pageclip
+ pagewidth colcount neg mul
+ pageheight rowcount neg mul
+ translate
+
+ } N
+
+ end