/* DO NOT EDIT THIS FILE.  It contains C->PostScript communication
   definitions that were automatically generated from paper.cps */

#define PSDefs()  pprintf(PostScript, _CPS_PSDefs, 55)
static char _CPS_PSDefs[] = "\246\310/PaperDict\246y\246\217{\230paper.psLoadFile\275}\246k\246\323\246DPaperDict\246\006\246\006";
#define ps_initialize(P__0,P__1,P__2,P__3)  pprintf(PostScript, _CPS_ps_initialize, 22, P__0, P__1, P__2, P__3)
static char _CPS_ps_initialize[] = "%d%d%d%dps_initialize ";
#define ps_ditroff_fix()  pprintf(PostScript, _CPS_ps_ditroff_fix, 11)
static char _CPS_ps_ditroff_fix[] = "/p {\246sxi }\264";
#define ps_nobox()  pprintf(PostScript, _CPS_ps_nobox, 9)
static char _CPS_ps_nobox[] = "/DoBox\246S\264";
#define ps_setupwindow(P__0)  pprintf(PostScript, _CPS_ps_setupwindow, 17, P__0)
static char _CPS_ps_setupwindow[] = "%sps_setupwindow ";
#define set_MAX(P__0)  pprintf(PostScript, _CPS_set_MAX, 7, P__0)
static char _CPS_set_MAX[] = "/MAX%d\264";
#define ps_startprolog()  pprintf(PostScript, _CPS_ps_startprolog, 30)
static char _CPS_ps_startprolog[] = "\246D/@DictHeight countdictstack\264";
#define ps_endprolog()  pprintf(PostScript, _CPS_ps_endprolog, 72)
static char _CPS_ps_endprolog[] = "[ { countdictstack @DictHeight\246{{\246O}\246k\246$\246D}\246\200] /@Dicts\266\264@PaperUserDict\246\006";
#define ps_startpage()  pprintf(PostScript, _CPS_ps_startpage, 82)
static char _CPS_ps_startpage[] = "/StartPage win send\246D/@DictHeight countdictstack\264@Dicts\246|\200\001\246\307-1\200\000 { @Dicts\266\246]\246\006}\246W";
#define ps_endpage()  pprintf(PostScript, _CPS_ps_endpage, 75)
static char _CPS_ps_endpage[] = "{ countdictstack @DictHeight\246{{\246O}\246k\246D}\246\200@PaperUserDict\246\006/EndPage win send ";
#define ps_paintimage()  pprintf(PostScript, _CPS_ps_paintimage, 14)
static char _CPS_ps_paintimage[] = "ps_paintimage ";
#define popstring(P__0)  pprintf(PostScript, _CPS_popstring, 11, P__0)
static char _CPS_popstring[] = "\246/%spopmsg\275";
#define get_exit() (ps_lookingat(PostScriptInput, 1))
#define get_page_selection(P__0) (ps_lookingat(PostScriptInput, 0) && (_CPS_RETURN_get_page_selection(P__0), 1))
#define _CPS_RETURN_get_page_selection(P__0) pscanf(PostScriptInput,"d", P__0)
#define _CPS_SEENDEFS
#ifndef FILE
#include <stdio.h>
#endif
#ifndef PSFILE
#include <psio.h>
#endif
extern PSFILE *PostScript, *PostScriptInput;
PSFILE *ps_open_PostScript();
#define ps_flush_PostScript() (psio_flush(PostScript),(psio_error(PostScript) ? exit(0) : 0))
#define ps_close_PostScript() (psio_close(PostScript),PostScript = 0)
#define ps_moveto(P__0,P__1)  pprintf(PostScript, _CPS_ps_moveto, 5, P__0, P__1)
extern char _CPS_ps_moveto[];
#define ps_rmoveto(P__0,P__1)  pprintf(PostScript, _CPS_ps_rmoveto, 5, P__0, P__1)
extern char _CPS_ps_rmoveto[];
#define ps_lineto(P__0,P__1)  pprintf(PostScript, _CPS_ps_lineto, 5, P__0, P__1)
extern char _CPS_ps_lineto[];
#define ps_rlineto(P__0,P__1)  pprintf(PostScript, _CPS_ps_rlineto, 5, P__0, P__1)
extern char _CPS_ps_rlineto[];
#define ps_closepath() psio_putc('\263', PostScript)
#define ps_arc(P__0,P__1,P__2,P__3,P__4)  pprintf(PostScript, _CPS_ps_arc, 11, P__0, P__1, P__2, P__3, P__4)
extern char _CPS_ps_arc[];
#define ps_stroke() psio_putc('\305', PostScript)
#define ps_fill() psio_putc('\267', PostScript)
#define ps_show(P__0)  pprintf(PostScript, _CPS_ps_show, 3, P__0)
extern char _CPS_ps_show[];
#define ps_cshow(P__0,L__0)  pprintf(PostScript, _CPS_ps_cshow, 4, L__0, P__0)
extern char _CPS_ps_cshow[];
#define ps_findfont(P__0)  pprintf(PostScript, _CPS_ps_findfont, 3, P__0)
extern char _CPS_ps_findfont[];
#define ps_scalefont(P__0)  pprintf(PostScript, _CPS_ps_scalefont, 3, P__0)
extern char _CPS_ps_scalefont[];
#define ps_setfont() psio_putc('\302', PostScript)
#define ps_gsave() psio_putc('\272', PostScript)
#define ps_grestore() psio_putc('\271', PostScript)
extern int ps_next_user_token;
#define ps_define_stack_token(u) ps_DO_defuser(u/**/_token = ps_next_user_token++)
#define ps_define_value_token(u) (pprintf(PostScript, "/u load ", sizeof "/u load " - 1), \
ps_define_stack_token(u))
#define ps_define_word_token(u) (pprintf(PostScript, "/u cvx ", sizeof "/u cvx " - 1), \
ps_define_stack_token(u))
#define ps_DO_defuser(P__0)  pprintf(PostScript, _CPS_ps_DO_defuser, 4, P__0)
extern char _CPS_ps_DO_defuser[];
#define ps_DO_finddef(P__0,P__1)  pprintf(PostScript, _CPS_ps_DO_finddef, 7, P__0, P__1)
extern char _CPS_ps_DO_finddef[];
#define ps_finddef(font,usertoken) ps_DO_finddef(font,(usertoken)=ps_next_user_token++)
#define ps_DO_scaledef(P__0,P__1,P__2)  pprintf(PostScript, _CPS_ps_DO_scaledef, 9, P__0, P__1, P__2)
extern char _CPS_ps_DO_scaledef[];
#define ps_scaledef(font,scale,usertoken) ps_DO_scaledef(font,scale,(usertoken) = ps_next_user_token++)
#define ps_usetfont(P__0)  pprintf(PostScript, _CPS_ps_usetfont, 3, P__0)
extern char _CPS_ps_usetfont[];