# =========================================================================== # # From: www.contextfreeart.org/gallery/view.php?id=4220 # # Created: 07.02.2021 # =========================================================================== #
startshape P (3000, 0, 1) []
CF::Background=[b -0.7 sat 0.8 h 250] CF::Impure=1
M=randint(1000)*2+1
shape P ( natural n, number f0, number f1 ) {
if ( n > 0 ) { SQUARE [ s 1.04 0.05 x -0.5025 b 1 sat 0 a -0.6] f2 = mod(f0+f1,M) R = -90+(180*mod(f2,2)) P ( n--1, f1, f2 ) [[ r R x 1 ]] }
}