Contour plot/Code/ado.cin: Difference between revisions

From Citizendium
Jump to navigation Jump to search
imported>Dmitrii Kouznetsov
m (should I mention all the pic generatirs which ise this code?)
imported>Chris Day
(No difference)

Revision as of 00:04, 2 February 2009

// one of functions required for generaiton of figures
// ContourPlotExample.jpg  AnalyticTetrationBaseSqrt2v00.jpg
// 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");}

//

Retrieved from "https://citizendium.org/wiki/index.php?title=Contour_plot/Code/ado.cin&oldid=473712"