# 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)