/*
**  DrawGauss.src
**
**  Purpose:
**    Exemplify using GnuDraw from Ox
*/
new;
library pgraph;

print "Start the program using";
print "  oxl -DGNUDRAW -g drawgauss.src";
print "to use GnuDraw instead of OxDraw";
x= seqa(1,1,1000);
y= rndn(1000,1);
call xlabel("X");
call ylabel("Y");

/* GnuDraw saves EPS files instead of TKF's by default */
_ptek="graphs/drawgauss.eps";
call xy(x, y);

end;
