PIANO(-800,1100,-1000,900)
a = (1:12)*30
Direzione(0,0, a,2000, "cyan")
ro = function(x) 2^(x/12)*do
polar(ro, 0,8*pi, "red")
for(i in 0:(12*4))
 { a=i*2*pi/12;
   punti(ro(a)*cos(a),
         ro(a)*sin(a),"black") }
scrivi(ro(8*pi), 0,   "DO")
scrivi(0, -ro(7.5*pi),"LA")
scrivi(-ro(7*pi), 0, "SOL")
scrivi(0, ro(6.5*pi), "MI")
scrivi(ro(6*pi), 0,   "DO")
scrivi(0, -ro(5.5*pi),"LA")