Fibonacci Prime Spiral

points = Table[{If[PrimeQ[\[Theta]], Red, Black],
    Disk[\[Theta] {Sin[2 Pi \[Theta] 0.618],
       Cos[2 Pi \[Theta] 0.618]}, 10]}, {\[Theta], 0, 1000}];
frame[t_, n_] := Graphics[{
    points[[;; n]]
    }, Background -> Blend[{Red, Black}, t], ImageSize -> {300}];
Manipulate[frame[t, n],
 {{t, 0, "Fade"}, 0, 1},
 {{n, 200, "Number of points"}, 1, 1000, 10}]