Contour plot > Code > ado.cin

From Citizendium, the Citizens' Compendium

Jump to: navigation, search

This article is developing and not approved.
Main Article
Talk
Related Articles  [?]
Bibliography  [?]
External Links  [?]
Code [?]
 
http://en.citizendium.org/wiki?title=Contour_plot/Code/ado.cin&printable=yes
Code relating to the topic of Contour plot.

// one of functions required for generaiton of figures 

//   
// 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 "http://locke.citizendium.org:8080/wiki/Contour_plot/Code/ado.cin"
Views
Personal tools