===================================================================
RCS file: /home/cvs/OpenXM_contrib/pari-2.2/src/test/64/Attic/ploth,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- OpenXM_contrib/pari-2.2/src/test/64/Attic/ploth	2001/10/02 11:17:13	1.1
+++ OpenXM_contrib/pari-2.2/src/test/64/Attic/ploth	2002/09/11 07:27:12	1.2
@@ -1,5 +1,6 @@
+   echo = 1 (on)
 ? default(realprecision,9)
-   realprecision = 9 significant digits
+   realprecision = 19 significant digits (9 digits displayed)
 ? t=plothsizes();
 ? plotinit(0,t[1]-11,t[2]-11)
 ? plotscale(0,0,1000,0,1000);
@@ -10,7 +11,7 @@
 ? plotmove(0,0,900);plotlines(0,900,0)
 ? plotlines(0,vector(5,k,50*k),vector(5,k,10*k*k))
 ? plotmove(0,243,583);plotcursor(0)
-% = [243, 583]
+[243, 583]
 ? plot(x=-5,5,sin(x))
 
 0.9995545 x""x_''''''''''''''''''''''''''''''''''_x""x'''''''''''''''''''|
@@ -37,38 +38,37 @@
 -0.999555 |...................x__x".................................."x__x
           -5                                                             5
 ? ploth(x=-5,5,sin(x))
-% = [-5.00000000, 5.00000000, -0.999996411, 0.999996410]
+[-4.99999999, 5.00000000, -0.999996410, 0.999996411]
 ? ploth(t=0,2*Pi,[sin(5*t),sin(7*t)])
-% = [0.E-92, 6.28318530, -0.999998764, 0.999998764]
+[0.E-92, 6.28318531, -0.999998763, 0.999998764]
 ? ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],1,100)
-% = [-0.999874128, 0.999874127, -0.999874128, 0.999874127]
+[-0.999874127, 0.999874128, -0.999874127, 0.999874128]
 ? ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],2,100)
   ***   multi-curves cannot be plot recursively.
 ? ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],3,100)
-% = [-1.00000000, 1.00000000, -1.00000000, 1.00000000]
+[-0.999999999, 1.00000000, -0.999999999, 1.00000000]
 ? plothraw(vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500))
-% = [0.E-92, 500.000000, 0.E-92, 500.000000]
+[0.E-92, 500.000000, 0.E-92, 500.000000]
 ? plothraw(vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500),1)
-% = [0.E-92, 500.000000, 0.E-92, 500.000000]
+[0.E-92, 500.000000, 0.E-92, 500.000000]
 ? plotpoints(0,225,334)
 ? plotpoints(0,vector(10,k,10*k),vector(10,k,5*k*k))
 ? psploth(x=-5,5,sin(x))
-% = [-5.00000000, 5.00000000, -0.999996411, 0.999996410]
+[-4.99999999, 5.00000000, -0.999996410, 0.999996411]
 ? psplothraw(vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500),1)
-% = [0.E-92, 500.000000, 0.E-92, 500.000000]
+[0.E-92, 500.000000, 0.E-92, 500.000000]
 ? plotmove(0,50,50);plotrbox(0,50,50)
 ? plotrline(0,150,100)
 ? plotcolor(0,4);
 ? plotcursor(0)
-% = [200, 150]
+[200, 150]
 ? plotrmove(0,5,5);plotcursor(0)
-% = [205, 155]
+[205, 155]
 ? plotrpoint(0,20,20)
 ? plotmove(0,100,100);plotstring(0,Pi)
 ? plotmove(0,200,200);plotstring(0,"(0,0)")
 ? plotdraw([0,10,10])
 ? psdraw([0,10,10])
 ? print("Total time spent: ",gettime);
-Total time spent: 2196
+Total time spent: 819
 ? \q
-Good bye!