HEAP=[31, if(sizebyte(0)==16,362,366)];
\e
plotinit(0,500,500)
plotmove(0,0,0);plotbox(0,500,500)
plotmove(0,200,150)
plotcursor(0)
write("pari.ps", plotexport("ps", 0))
plotinit(1,700,700)
plotkill(1)
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)
plot(x=-5,5,sin(x),-1,1)
plotpoints(0,225,334)
plotpoints(0,vector(10,k,10*k),vector(10,k,5*k*k))
write("pari.ps", plotexport("ps", [0,20,20]))
write("pari.ps", plothexport("ps",x=-5,5,sin(x)))
write("pari.ps", plothexport("ps",t=0,2*Pi,[sin(5*t),sin(7*t)],1,100))
write("pari.ps", plothrawexport("ps",vector(100,k,k),vector(100,k,k*k/100)))
plotmove(0,50,50);plotrbox(0,50,50)
plotrline(0,200,150)
plotcursor(0)
plotrmove(0,5,5);plotcursor(0)
plotrpoint(0,20,20)
plotinit(3,600,600);plotscale(3,-7,7,-2,2);plotcursor(3)
plotmove(0,100,100);plotstring(0,Pi)
plotmove(0,200,200);plotstring(0,"(0,0)")
write("pari.ps", plotexport("ps", [0,10,10]))
if (getheap()!=HEAP, getheap())
