=================================================================== RCS file: /home/cvs/OpenXM/src/cfep/tests/ccurve.rr,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -u -p -r1.1.1.1 -r1.2 --- OpenXM/src/cfep/tests/ccurve.rr 2006/03/03 23:31:12 1.1.1.1 +++ OpenXM/src/cfep/tests/ccurve.rr 2006/03/07 11:15:23 1.2 @@ -1,7 +1,6 @@ -/*!ox_asir_use_output */ /* From OpenXM: OpenXM/src/asir-contrib/packages/src/ccurve.rr,v 1.1 2004/03/11 12:25:20 takayama Exp */ /* From asir-book/Prog/ccurve */ -load("glib")$ +import("glib")$ def cCurve(P) { if (length(P) < 2) return(0); A = P[0][0]; @@ -24,7 +23,7 @@ def ccurve(N) { } glib_window(-1,-1,2,0.5); for (I=0; I