Bright Circle Colors

[SierraKen]

I know most of you have seen these colors before, as I have, but for some reason I haven't used them much myself yet. Today I found some color code from someone's post on FB and tried them out, using globe depth.  
Press the Space Bar to make different ones or Esc to quit.

Code: (Select All)

'Bright Circle Colors



Screen _NewImage(800, 600, 32)

Randomize Timer

_Title "Press the Space Bar to make different ones or Esc to quit."

Do

    For circles = 1 To 10

        x = Rnd * 800: y = Rnd * 600: sz = .1

        For s = sz + Rnd * 200 To sz Step -.1

            Circle (x, y), s, _RGB32(&H8B, &H5C - s, &HF6)

        Next s



        x = Rnd * 800: y = Rnd * 600: sz = .1

        For s = sz + Rnd * 200 To sz Step -.1

            Circle (x, y), s, _RGB32(&HEC, &H48 - s, &H99)

        Next s



        x = Rnd * 800: y = Rnd * 600: sz = .1

        For s = sz + Rnd * 200 To sz Step -.1

            Circle (x, y), s, _RGB32(&H10, &HB9 - s, &H81)

        Next s



        x = Rnd * 800: y = Rnd * 600: sz = .1

        For s = sz + Rnd * 200 To sz Step -.1

            Circle (x, y), s, _RGB32(&H60, &HA5 - s, &HFA)

        Next s

    Next circles

    Do: a$ = InKey$

        If a$ = Chr$(27) Then End

    Loop Until a$ = " "

    Cls

Loop