# 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}
}