# From:www.contextfreeart.org/gallery/view.php?id=4113

HUE_BORDER = 210 STEPS = 100

CF::Background = [h HUE_BORDER sat 1 b -5] CF::Size = [s 120]

startshape galaxy []

shape galaxy {

loop STEPS [x -5..5 y -5..5 h .5]
  cloud [h HUE_BORDER sat 1 b 1]

}

shape cloud {

randomShape = let(n = 0..3; select(n, CIRCLE, SQUARE, TRIANGLE))
randomShape []
cloud [x -5..5 y -5..5 a -.03 r 1..10 s .995]

}