Bertrand: C:/Users/Dennis/src/lang/bertrand/BERTRAND/bertrand/graphics.h Source File

00001 /* DO NOT EDIT THIS FILE.  It contains C->PostScript communication
00002    definitions that were automatically generated from graphics.cps */
00003 
00004 #define snews_setup()  pprintf(PostScript, _CPS_snews_setup, 307)
00005 static char _CPS_snews_setup[] = "/painted\246S\264/win framebuffer /new DefaultWindow send\264{ /FrameLabel\237Bertrand Output\264/PaintClient { /painted\246\316\246\303}\264/DestroyClient {\222X\n\246\225}\264/ClientMenu [\223ZAP{\222X\n\246\225\2463killprocessgroup } ] /new DefaultMenu send\264} win send /reshapefromuser win send /map win send { painted {\246O}\246k\246\222}\246\200win /ClientCanvas\246]\246\252/Screen\270\200\016\300\302";
00006 #define snews_line(P$0,P$1,P$2,P$3)  pprintf(PostScript, _CPS_snews_line, 11, P$0, P$1, P$2, P$3)
00007 static char _CPS_snews_line[] = "%d%d\274%d%d\273\305";
00008 #define snews_string(P$0,P$1,P$2)  pprintf(PostScript, _CPS_snews_string, 20, P$0, P$1, P$2, P$0)
00009 static char _CPS_snews_string[] = "%s\246\305\275\200\002\246A%d\266\246\307%d\274%s\304";
00010 #define _CPS_SEENDEFS
00011 #ifndef FILE
00012 #include <stdio.h>
00013 #endif
00014 FILE *PostScript, *PostScriptInput;
00015 FILE *ps_open_PostScript();
00016 #define ps_flush_PostScript() (fflush(PostScript),(ferror(PostScript) ? exit(0) : 0))
00017 #define ps_close_PostScript() (fclose(PostScript),PostScript = 0)
00018 #define ps_moveto(P$0,P$1)  pprintf(PostScript, _CPS_ps_moveto, 5, P$0, P$1)
00019 extern char _CPS_ps_moveto[];
00020 #define ps_rmoveto(P$0,P$1)  pprintf(PostScript, _CPS_ps_rmoveto, 5, P$0, P$1)
00021 extern char _CPS_ps_rmoveto[];
00022 #define ps_lineto(P$0,P$1)  pprintf(PostScript, _CPS_ps_lineto, 5, P$0, P$1)
00023 extern char _CPS_ps_lineto[];
00024 #define ps_rlineto(P$0,P$1)  pprintf(PostScript, _CPS_ps_rlineto, 5, P$0, P$1)
00025 extern char _CPS_ps_rlineto[];
00026 #define ps_closepath() putc('\263', PostScript)
00027 #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)
00028 extern char _CPS_ps_arc[];
00029 #define ps_stroke() putc('\305', PostScript)
00030 #define ps_fill() putc('\267', PostScript)
00031 #define ps_show(P$0)  pprintf(PostScript, _CPS_ps_show, 3, P$0)
00032 extern char _CPS_ps_show[];
00033 #define ps_cshow(P$0,L$0)  pprintf(PostScript, _CPS_ps_cshow, 4, L$0, P$0)
00034 extern char _CPS_ps_cshow[];
00035 #define ps_findfont(P$0)  pprintf(PostScript, _CPS_ps_findfont, 3, P$0)
00036 extern char _CPS_ps_findfont[];
00037 #define ps_scalefont(P$0)  pprintf(PostScript, _CPS_ps_scalefont, 3, P$0)
00038 extern char _CPS_ps_scalefont[];
00039 #define ps_setfont() putc('\302', PostScript)
00040 #define ps_gsave() putc('\272', PostScript)
00041 #define ps_grestore() putc('\271', PostScript)
00042 int ps_next_user_token;
00043 #define ps_define_stack_token(u) ps_DO_defuser(u_token = next_user_token++)
00044 #define ps_define_value_token(u) (pprintf(PostScript, "/u load ", -1), \
00045 ps_define_stack_token(u))
00046 #define ps_define_word_token(u) (pprintf(PostScript, "/u cvx ", -1), \
00047 ps_define_stack_token(u))
00048 #define ps_DO_defuser(P$0)  pprintf(PostScript, _CPS_ps_DO_defuser, 4, P$0)
00049 extern char _CPS_ps_DO_defuser[];
00050 #define ps_DO_finddef(P$0,P$1)  pprintf(PostScript, _CPS_ps_DO_finddef, 7, P$0, P$1)
00051 extern char _CPS_ps_DO_finddef[];
00052 #define ps_finddef(font,usertoken) ps_DO_finddef(font,(usertoken)=ps_next_user_token++)
00053 #define ps_DO_scaledef(P$0,P$1,P$2)  pprintf(PostScript, _CPS_ps_DO_scaledef, 9, P$0, P$1, P$2)
00054 extern char _CPS_ps_DO_scaledef[];
00055 #define ps_scaledef(font,scale,usertoken) ps_DO_scaledef(font,scale,(usertoken) = ps_next_user_token++)
00056 #define ps_usetfont(P$0)  pprintf(PostScript, _CPS_ps_usetfont, 3, P$0)
00057 extern char _CPS_ps_usetfont[];