# Che figura apparira'? source("http://macosa.dima.unige.it/R/curve.txt") box(0,10, 0,10) for(i in 0:100) poligono(5,5, 10*i/100, 4,45, 7) for(i in 0:100) cerchio(5,8, 0.8*i/100, "white") cerchio(5,8, 0.8, 1) segmento(5,7.2, 5,4, 4) segmento(5,4, 4,0, 4); segmento(5,4, 6,0, 4) segmento(5,6.7, 3,4, 4); segmento(5,6.7, 7,4, 4) segmento(4,0, 3.5,0, 1); segmento(6,0, 6.5,0, 1) cerchio(5.3,8.3, 0.05,3); cerchio(4.7,8.3, 0.05,3) segmento(4.85,7.6, 5.15,7.6,2) segmento(5,8.1, 5,7.8, 6)