# 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) []
}