bauhaus

bauhaus.cfdg

CF::Background = [b -0.9 sat 0]
startshape field[]

primary_color = [h 360 sat 0.9 b 0.7]
secondary_color = [h 190 sat 0 b 0.9]
 	
adjustment pick_color() = select(randint(2), primary_color, secondary_color)
shape field {
	loop 4 [x (randint(3) * randint(-1,1))]{
		the_color = [trans pick_color()]
		loop 5 [x randint(0,3) y (randint(-1,1) * 0.25)] {
			comb[trans the_color]
		}
	}
}

shape comb {
	loop 3..10 [y 0.5]
		band[]
}

shape band {
	SQUARE[s 1 0.25]
}