Arany-dodekaéder-kígyó
> restart:with(plots):with(plottools):
> r:=(1+sqrt(5))/2:  d:=r/4: ro1:= r/16:ro2:=r/10:
> t1:=tubeplot([r*sin(t),0,r*cos(t)],t=0..2*Pi,radius=ro1, color=PINK):
> t2:=tubeplot([(r+d*sin(5*t))*sin(t),d*cos(5*t),(r+d*sin(5*t))*cos(t)],
> t=0..2*Pi,radius=ro2, color=GREEN,tubepoints=10, numpoints=76):
> plots[display](t1,t2,scaling=CONSTRAINED);
> vrml(t1, `torusz.wrl`,  background_color=COLOR(RGB,0,1,1) );
> vrml(t2, `kigyo.wrl`,  background_color=COLOR(RGB,0,1,1) );