Lively Kernel canvas
// this script is evaluated on world load
BigText20
Unbordered20null
nulltruehc2<-function(r,R,turns=15,curves=10,points=200){k<-R/r-1;t<-sequence(points)*turns*3.1416/points;for(iin1:curves){z<-i/10.0+.4scale<-r*(z+k);x<-r*k*cos(t)+z*r*cos(k*t);y<-r*k*sin(t)-z*r*sin(k*t);if(i==1){plot(x/scale,y/scale,col='red',type='l',xlim=c(-1,1),ylim=c(-1,1));}else{lines(x/scale,y/scale,col='red',type='l',xlim=c(-1,1),ylim=c(-1,1));}}}hc2(5,7,curves=25,points=250,turns=13);15truetruefalsetruetruefalse