Super Plasmas screen saver

[mstasak]

I like it!  I tried some easy additions to add variety.  I think even the monochromes look good!

Before 28 (end if):         colorshift = Int(Rnd * 8)

After line 62 ('plasma colors), replace 6 lines with this:
            Select Case colorshift
                Case 0 'original
                    r1 = (Sin(rad * 2 + t) + Sin(a * 5 + t)) * 127 + 128
                    g1 = (Sin(rad * 2 + t + 1) + Sin(a * 5 + t + 1)) * 127 + 128
                    b1 = (Sin(rad * 2 + t + 2) + Sin(a * 5 + t + 2)) * 127 + 128
                    r2 = (Sin(rad * 3 + t) + Sin(a * 3 + t + 1)) * 127 + 128
                    g2 = (Sin(rad * 3 + t + 2) + Sin(a * 3 + t + 3)) * 127 + 128
                    b2 = (Sin(rad * 3 + t + 4) + Sin(a * 3 + t + 4)) * 127 + 128
                Case 1 'vivid (darker darks)
                    r1 = (Sin(rad * 2 + t) + Sin(a * 5 + t)) * 192 + 63
                    g1 = (Sin(rad * 2 + t + 1) + Sin(a * 5 + t + 1)) * 192 + 63
                    b1 = (Sin(rad * 2 + t + 2) + Sin(a * 5 + t + 2)) * 192 + 63
                    r2 = (Sin(rad * 3 + t) + Sin(a * 3 + t + 1)) * 192 + 63
                    g2 = (Sin(rad * 3 + t + 2) + Sin(a * 3 + t + 3)) * 192 + 63
                    b2 = (Sin(rad * 3 + t + 4) + Sin(a * 3 + t + 4)) * 192 + 63
                Case 2 'red shift
                    r1 = (Sin(rad * 2 + t) + Sin(a * 5 + t)) * 127 + 128
                    g1 = (Sin(rad * 2 + t + 1) + Sin(a * 5 + t + 1)) * 63 + 64
                    b1 = (Sin(rad * 2 + t + 2) + Sin(a * 5 + t + 2)) * 63 + 64
                    r2 = (Sin(rad * 3 + t) + Sin(a * 3 + t + 1)) * 127 + 128
                    g2 = (Sin(rad * 3 + t + 2) + Sin(a * 3 + t + 3)) * 63 + 64
                    b2 = (Sin(rad * 3 + t + 4) + Sin(a * 3 + t + 4)) * 63 + 64
                Case 3 'green shift
                    r1 = (Sin(rad * 2 + t) + Sin(a * 5 + t)) * 63 + 64
                    g1 = (Sin(rad * 2 + t + 1) + Sin(a * 5 + t + 1)) * 127 + 128
                    b1 = (Sin(rad * 2 + t + 2) + Sin(a * 5 + t + 2)) * 63 + 64
                    r2 = (Sin(rad * 3 + t) + Sin(a * 3 + t + 1)) * 63 + 64
                    g2 = (Sin(rad * 3 + t + 2) + Sin(a * 3 + t + 3)) * 127 + 128
                    b2 = (Sin(rad * 3 + t + 4) + Sin(a * 3 + t + 4)) * 63 + 64
                Case 4 'blue shift
                    r1 = (Sin(rad * 2 + t) + Sin(a * 5 + t)) * 63 + 64
                    g1 = (Sin(rad * 2 + t + 1) + Sin(a * 5 + t + 1)) * 63 + 64
                    b1 = (Sin(rad * 2 + t + 2) + Sin(a * 5 + t + 2)) * 127 + 128
                    r2 = (Sin(rad * 3 + t) + Sin(a * 3 + t + 1)) * 63 + 64
                    g2 = (Sin(rad * 3 + t + 2) + Sin(a * 3 + t + 3)) * 63 + 64
                    b2 = (Sin(rad * 3 + t + 4) + Sin(a * 3 + t + 4)) * 127 + 128
                Case 5 'monochrome gray shift
                    r1 = (Sin(rad * 2 + t) + Sin(a * 5 + t)) * 192 + 63
                    g1 = (Sin(rad * 2 + t + 0) + Sin(a * 5 + t + 0)) * 192 + 63
                    b1 = (Sin(rad * 2 + t + 0) + Sin(a * 5 + t + 0)) * 192 + 63
                    r2 = (Sin(rad * 3 + t) + Sin(a * 3 + t + 0)) * 192 + 63
                    g2 = (Sin(rad * 3 + t + 0) + Sin(a * 3 + t + 0)) * 192 + 63
                    b2 = (Sin(rad * 3 + t + 0) + Sin(a * 3 + t + 0)) * 192 + 63
                Case 6 'hercules green
                    r1 = 0 'r1 = (Sin(rad * 2 + t) + Sin(a * 5 + t)) * 192 + 63
                    g1 = (Sin(rad * 2 + t + 0) + Sin(a * 5 + t + 0)) * 192 + 63
                    b1 = 0 'b1 = (Sin(rad * 2 + t + 0) + Sin(a * 5 + t + 0)) * 192 + 63
                    r2 = 0 'r2 = (Sin(rad * 3 + t) + Sin(a * 3 + t + 0)) * 192 + 63
                    g2 = (Sin(rad * 3 + t + 0) + Sin(a * 3 + t + 0)) * 192 + 63
                    b2 = 0 'b2 = (Sin(rad * 3 + t + 0) + Sin(a * 3 + t + 0)) * 192 + 63
                Case 7 'hercules amber
                    r1 = (Sin(rad * 2 + t) + Sin(a * 5 + t)) * 192 + 63
                    g1 = r1 * 0.6 '(Sin(rad * 2 + t + 0) + Sin(a * 5 + t + 0)) * 192 + 63
                    b1 = r1 * 0.1 '(Sin(rad * 2 + t + 0) + Sin(a * 5 + t + 0)) * 192 + 63
                    r2 = (Sin(rad * 3 + t) + Sin(a * 3 + t + 0)) * 192 + 63
                    g2 = r2 * 0.6 '(Sin(rad * 3 + t + 0) + Sin(a * 3 + t + 0)) * 192 + 63
                    b2 = r2 * 0.1 '(Sin(rad * 3 + t + 0) + Sin(a * 3 + t + 0)) * 192 + 63
            End Select

Before 136 (End Select):  colorshift = Int(Rnd * 8)