# =========================================================================== # # 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 ]]
}

}