# www.contextfreeart.org/gallery/view.php?id=4237 # # by flembobs # # Uploaded on: 18.07.2021

CF::Time = [ time 0 1 ] CF::Size = [ s 2 ]

H=0..360 B=-0.85..-0.95 CF::Background = [ b B h H sat 0.6..0.8 ]

startshape P [ h (-H±(5..20)) sat 0.87..1 b 1 r (360*ftime()) ]

sine(t,amp,freq,phase) = amp*sin( (freq*360*t) + (360*phase))

N = randint(3, 20) M = randint(3, 12) S() = rand(0.25, 1.5 ) X() = rand(0.5, 1) R = rand(360)

path P {

loop N [ s S() ]
{
  pos = X() * sine(ftime(),1,1,0)
  loop M [ r (360/M) ]
  {
    shp = select( rand_static(3),  
      CIRCLE, TRIANGLE, SQUARE )
    path shp [ x pos r R ]
  }
}

FILL ( CF::EvenOdd ) []

}