set view equal xyz
set parametric
set isosamples 34,34
unset colorbox
unset key

iterations = 100
states = 6

do for [ii=1:iterations] {
    splot cos(u)*cos(v),cos(u)*sin(v),sin(u) w l lc rgb "#42a4f5", \
        'data' every ::1::ii * states w points palette pointsize 2 pointtype 7#, \
    #do for [ij=1:states] {
    #    ic = ij * iterations + ii
    #    replot 'data' every ::ij * iterations::ic w points palette pointsize 2 pointtype 7#, \
    #           #'data' every ::ij * iterations::ic w p palette 
    #}
    pause 0.1
}

pause mouse close