# From: # # www.contextfreeart.org/gallery/view.php?id=4222 # # Written by: # # flembobs (on 21.03.2021) # # Inspired by: Mathologer

segments = 200+randint(2000) multiplier = 2+randint(200)

startshape C ( segments, multiplier ) [ h 0..180]

CF::Background = [ b -0.95 sat 0.2 h 180 ] CF::Impure = 1

vector2 p2c (p) = cos(p), sin(p) p(i,m)=i*360/m

shape C ( natural m, natural t ) {

loop i=m [ ]
{
  j = mod(i*t, m)
  start = p2c (p(i,m))
  end = p2c (p(j,m))

  H=if(mod(i,2)==0, -150, 6 )+-5..5

  LINE ( start, end ) [a -0.6 h H b 1 sat 0.3..0.9 blend CF::Screen]
}

}

path LINE ( vector2 start, vector2 end ) {

MOVETO ( start[ 0 ], start[ 1 ]  )
LINETO ( end[ 0 ], end[ 1 ] )
STROKE (0.00125) []

}