PIANOss(-1,1, -1,1); cerchio(0,0, 1, "blue")
for(i in 0:(24*5) ) {a <- 360/(24*5)*i; Direzione(0,0, a,1, 0);
                     P=c(Direzionex,Direzioney); linea(P[1],P[2],P[1]*0.95,P[2]*0.95,"blue")}      
for(i in 0:24 ) {a <- 360/24*i; Direzione(0,0, a,1, 0);
                     P=c(Direzionex,Direzioney); segm(P[1],P[2],P[1]*0.9,P[2]*0.9,"blue")}   
for(i in 1:24 ) {a <- -360/24*i+90; Direzione(0,0, a,1, 0);
                     P=c(Direzionex,Direzioney)*0.8; scrivi(P[1],P[2],i)}    
Punti(0,0,"blue")
#
PIANOss(-1,1, -1,1); R = 0.87; cerchio(0,0, R, "blue")
for(i in 0:(24*5) ) {a <- 360/(24*5)*i; Direzione(0,0, a,R, 0);
                     P=c(Direzionex,Direzioney); linea(P[1],P[2],P[1]*0.9,P[2]*0.9,"blue")}      
for(i in 0:24 ) {a <- 360/24*i; Direzione(0,0, a,R, 0);
                     P=c(Direzionex,Direzioney); segm(P[1],P[2],P[1]*0.8,P[2]*0.8,"blue")}   
for(i in 1:24 ) {a <- -360/24*i+90; Direzione(0,0, a,1, 0);
                     P=c(Direzionex,Direzioney); scrivi(P[1],P[2],i)}      
Punti(0,0,"blue")