Bon nadal i bon fractal

func<-function (x) {c(x,x+60,x-60,x)}
v0<-func(func(func(func(func(func(0))))))
df=data.frame(dx=cos(v0*pi/180),dy=sin(v0*pi/180))
punts<-cumsum(df)
xmax <- max(punts[,1])
par(mar=c(2, 4.1, 1.5, 2.1))
plot(x=punts$dx,y=punts$dy,type="l",asp=1, axes=FALSE,
     xlab="", ylab="", ylim=c(-150,150))
text(xmax/2,-80,labels = "Bon Nadal i feliç 2019", col="red", cex=3)
text(xmax,-170,labels = "Pere López Brosa 2018", col="gray", cex=.8,
     pos=2)