# =========================================================================== # # === askew.cfdg # # Original author: flembobs # Originally created: 28.01.2022 # Original URL: www.contextfreeart.org/gallery/view.php?id=4265 # # =========================================================================== #

CF::Background=[b -0.8 sat 0.2 h 230] D=9 startshape C (D) [a-0.9 sat 1 h select(rand(3),23,66,145)] S=(1..30,1..30) N()=randint(4,12)

shape C(natural R) {

if(R<5)
    CIRCLE[b 0.25..1 sat 0..0.4 blend CF::Screen]
n=N()
if(R > 0)
transform [ h if(rand()>(R/D),60,0) ]
loop n [ r (360/n) ]

if(rand(R)<(D/2))
    C(R--1) [ x 0.5 s 0.5 skew S sat -0.2..0.2 h 3..15]

}