# =========================================================================== # # From: # # www.contextfreeart.org/gallery2/#design/4103 # # 30.11.2019 # # HEIGHT: 700 # WIDTH: 700 # # =========================================================================== #
startshape mod [sat 1 b 1 h 250]
F(x1,y1) = mod((abs(x1)^1.1*abs(y1)^1.85),2000)
vector2 P(X,Y) = let(S=1-1/(1.45*exp(((X/400)^2+(Y/400)^2)/0.25));X/S*4.5,Y/S*4.5)
shape mod {
loop row= -400, 400,.24 [ ] loop col=-400, 400,.24 [ ] SQUARE [s 4.5 h (F(row,col)/5) x P(row,col) b (2.9-F(row,col)/80)]
}
# runcfdg mod4g_starhole.cfdg