# First try to port something from Structuresynth. That’s why # it is using the old syntax - it’s close to the eisenscript one. # # See: www.contextfreeart.org/gallery/view.php?id=4228 # # Integrated as of 30.06.2021.

startshape big

rule beam { SQUARE{ s 1 0.05 0.125} } rule beam { SQUARE{ s 1.5 0.025 0.125 } }

rule big{

8 * {y 1}big_x{s 1}

}

rule big_x{

8 *{x 1} frac{s 1}

}

rule frac {

beam{ r 90 } 
#beam
rotfrac {x 0.25 y 0.25  s 0.5 }  
frac{ x -0.25 y 0.25  s 0.5 }
frac{ x -0.25 y -0.25  s 0.5 }
rotfrac{ x 0.25 y -0.25  s 0.5 }

}

rule frac {

beam{ r 90 }
frac{ x 0.25 y 0.25  s 0.5 }
frac{ x -0.25 y 0.25  s 0.5 r 90}
frac{ x -0.25 y -0.25 s 0.5 }

}

rule frac {

beam{s 1.5}
frac{ x -0.25 y 0.25  s 0.5 r -0}
#  frac{ x -0.25 y -0.25 s 0.5 r 90 }
frac{ x 0.25 y -0.25  s 0.5 }

}

rule rotfrac{

frac{r 90}

} rule rotfrac{

frac{r -90}

} rule rotfrac {

frac{r 45}

} rule rotfrac {

frac{r -45 }

} rule rotfrac{

frac{r 180}

}