fadeTime = 0.010
for i to 12
    fraction = (i-1)/12
    do ("Create Sound from Shepard tone...", "s" + string$ (i), 0, 0.5, 22050, 4.863, 10, 0, 34, fraction)
    do ("Fade in...", 0, 0, fadeTime, "no")
    do ("Fade out...", 0, 0.1, -fadeTime, "no")
endfor