メビウスの帯

メビウスの帯を細かく分けて塗ります。面を描く順序と光源の位置によって表裏が決まるのので，描き始めの位置を調整します。

a=3;

r=0.5;

repeat(180,s,

t=(s+45)°;

h=1°;

x1=(a-sin(t))*cos(2*t);

y1=(a-sin(t))*sin(2*t);

z1=-cos(t);

x2=(a+sin(t))*cos(2*t);

y2=(a+sin(t))*sin(2*t);

z2=cos(t);

x3=(a+sin(t+h))*cos(2*(t+h));

y3=(a+sin(t+h))*sin(2*(t+h));

z3=cos(t+h);

x4=(a-sin(t+h))*cos(2*(t+h));

y4=(a-sin(t+h))*sin(2*(t+h));

z4=-cos(t+h);

pd=[[x1,y1,z1],[x2,y2,z2],[x3,y3,z3],[x4,y4,z4]];

plate3d(text(s),pd,["Color=skyblue"]);

);