# =========================================================================== # # === gallery2.cfdg # # Taken from: www.contextfreeart.org/gallery/view.php?id=4245 # # Added: 24.08.2021 # # Originally created by: y flembobs # =========================================================================== # startshape WEB [ ]

CF::Background = [ b -0.85 sat 0.6 h 160 ]

sectors=9 spirals=21

vector2 vertex(i,n,l)=let(A=(360*(i/n));(sin(A)*l,cos(A)*l))

len(i,j) = 0.5*((sectors*i + j)/(spirals*sectors))

shape WEB {

CIRCLE [  a -0.8 ]
SPIRAL [b 1 sat 0.1 h 90]

loop (sectors) [ r (360/(sectors)) ] 
    LINE [ b 1 sat 0.1 h 90 ]

}

path SPIRAL {

loop i=spirals []
loop j=sectors []
{
    l1=len(i,j+1)+(-0.003..0.005)                     
    v1 = vertex(j+1,sectors,l1)

    R=0.35..1.5
    ARCTO ( v1[0], v1[1], R )
}
STROKE (0.00085) []

}

path LINE {

m0=-0.001..0.001
m1=-0.001..0.001
MOVETO(m0,m1)
Y=0.5..0.555
R=let(n=7..10;select(rand()*2, -n, n))
ARCTO ( 0, Y, R )
STROKE (0.001)[]

}