/* Author: Jens Schwaiger */

import space_tube;

size(10cm,0);
currentprojection=perspective(4,3,4);
real x(real t) {return (1/sqrt(1+0.5*t^2))*cos(2pi*t);}
real y(real t) {return (1/sqrt(1+0.5*t^2))*sin(2pi*t);}
real z(real t) {return 0.9*t;}

path3 p=graph(x,y,z,0,2.7,Spline);

currentlight=(0,0.10,-0.3);
picture pic=spacetube(p,100,16,orange,0.7black);
add(pic);

/* Author: Jens Schwaiger */

import space_tube;

size(10cm,0);
currentprojection=perspective(4,3,4);

guide3 p=roundedguide((1,0,0)--(0,0,0)--(0,0,1)--(0,1,1)--cycle,.4);
p=rotate(30,Y)*p;
currentlight=(0,0.10,-0.3);

guide cs(real s){return scale(0.15)*unitsquare;};

picture pic=spacetube(p,120,32,cs,lightblue,0.7black);
add(pic);

/* Author: Jens Schwaiger */

import space_tube;

size(10cm,0);
currentprojection=perspective(4,3,4);
currentlight=(0,0.10,1.3);

real x(real t) {return (1/sqrt(1+0.5*t^2))*cos(2pi*t);}
real y(real t) {return (1/sqrt(1+0.5*t^2))*sin(2pi*t);}
real z(real t) {return 0.9*t;}
path3 p=graph(x,y,z,1,2.7,Spline);

guide cs(real u){int m=-6;
  real x(real t){ return (1+1/m)*cos(t)-(1/m)*(0.7(1-u))*cos((1+m)*t);};
  real y(real t){ return (1+1/m)*sin(t)-(1/m)*(0.7(1-u))*sin((1+m)*t);};
  return scale(0.25)*(graph(x,y,0,2pi)..cycle);//
};                                      

picture
pic=spacetube(p,120,24,cs,cover=true,twist=0,orange,black);

add(pic);
shipout(defaultfilename,bbox(0.2cm,black,RadialShade(white,paleblue)));

import space_tube;

size(10cm,0);
currentprojection=orthographic(0,0,1);

real x(real t) {return cos(t)+2*cos(2*t);}
real y(real t) {return sin(t)-2*sin(2*t);}
real z(real t) {return 2*sin(3t);}

path3 p=scale3(4)*graph(x,y,z,0,2*pi,Spline)--cycle;
guide arc=graph(x,y,0,2*pi)--cycle;
guide cs(real s){return arc;};

picture
pic=spacetube(p,200,100,cs,twist=0,0.8*blue,invisible);
add(pic);
shipout(bbox(0.2cm,black,RadialShade(white,paleblue)));