Contour plot/Code/ado.cin: Difference between revisions
< Contour plot | Code
Jump to navigation
Jump to search
imported>Dmitrii Kouznetsov (New page: // one of functions required for generaiton of figure // 100px // Copyleft 2007 by Dmitrii Kouznetsov void ado(FILE *O, int x, int y, int X, int Y) {...) |
imported>Dmitrii Kouznetsov (//Category:code) |
||
| Line 16: | Line 16: | ||
fprintf(O,"/W {setlinewidth} bind def\n"); | fprintf(O,"/W {setlinewidth} bind def\n"); | ||
fprintf(O,"/RGB {setrgbcolor} bind def\n");} | fprintf(O,"/RGB {setrgbcolor} bind def\n");} | ||
//[[Category:code]] | |||
Revision as of 05:26, 26 May 2008
// one of functions required for generaiton of figure
// 
// Copyleft 2007 by Dmitrii Kouznetsov
void ado(FILE *O, int x, int y, int X, int Y)
{ fprintf(O,"%c!PS-Adobe-2.0 EPSF-2.0\n",'%');
fprintf(O,"%c%cBoundingBox: %d %d %d %d\n",'%','%',x,y,X,Y);
fprintf(O,"/M {moveto} bind def\n");
fprintf(O,"/L {lineto} bind def\n");
fprintf(O,"/S {stroke} bind def\n");
fprintf(O,"/s {show newpath} bind def\n");
fprintf(O,"/C {closepath} bind def\n");
fprintf(O,"/F {fill} bind def\n");
fprintf(O,"/o {.1 0 360 arc C S} bind def\n");
fprintf(O,"/times-Roman findfont 20 scalefont setfont\n");
fprintf(O,"/W {setlinewidth} bind def\n");
fprintf(O,"/RGB {setrgbcolor} bind def\n");}
//