3D curve (param3d)

animation 54K

kp=xget("pixmap");xset("pixmap",1);
xselect() //raise graphic window
np=10;
t=0:0.1:np*%pi;
if driver()=='Pos' then st=1.5;else st=0.5;end
for i=1:st:30
  xset("wwpc");
  param3d((t/(np*%pi)*%pi).*sin(t),(t/(np*%pi)*%pi).*cos(t),...
      i*t/(np*%pi),35,45,'X@Y@Z',[2,4]);
  xset("wshow");
end
xset("pixmap",kp);