# =========================================================================== # # === moebius.cfdg # # Stored as of 19.07.2021 # # Upstream URL: www.contextfreeart.org/gallery/view.php?id=4235 # # Created by flembobs. # =========================================================================== # startshape S []

CF::Background = [ b -0.1 h 50 sat 0.4 ]

shape S {

loop 12 [ r 30 ] SQ [ s 1.5 h 220 sat 1 b 0.2 a -0.8 blend CF::Overlay]
R (4) []
R (4) [ flip 180 ]
CIRCLE [ s 1.3 sat 1 b 0.7 h 20 ]
loop 200 [ s 0.99  ] CIRCLE [ sat -1 s 1.3 a -0.98 b 1 ]
C [s 1.3 a -0.2 blend CF::Multiply  ]

}

shape R ( natural n ) {

if ( n > 0 )
{
  T [ s 1 0.7  sat 0.9 b 0.05 h (120*n)   ]
  TRIANGLE [ s 1 0.7 a -0.75 sat 0.8 b 1 h (60*n) blend CF::Exclusion ]
  R (n--1) [  s 0.8  y -0.126 ]
}

} path T {

path TRIANGLE []
STROKE (0.02) []

}

path C {

path CIRCLE []
STROKE ( 0.03 ) []

}

path SQ {

path SQUARE [s sqrt(2)]
path SQUARE [r 45 ]

loop 4 [ s 0.75 ]
loop 6 [ r 15 ]
loop 4 [ r 90 ] 
{
  path SQUARE [ s 0.5 x 0.5 r 45 ]  
}
FILL(CF::EvenOdd)[]

}