/usr/share/k3d/lsystem/menger-cube.ls is in k3d-data 0.8.0.3-3build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
#
# This ls produces menger cubes. Recursion level 0 will produce a
# 0th order cube, 2 a 1th, 4 a 3th, and 6 a 4th. Level 8 will
# produce a 5th order menger with a total off 960.000 polygons !
#
# Change F= ... to F=[~(5)"(.333333)[-f+&f^B]]f add randomness.
#
# One can replace B= ... with a number of alternatives:
#
# B=[fz+zF]^f&[FFF|z|+zFF|z|+zFF|z|+zF]^f&[fz+zF]
# B=[fz+zF]^f&[FFF|z|+zFF|z|+zFF|z|+zF|z|+zF]^f&[fz+zF]
# B=[FFF|z|+zFF|z|+zFF|z|+zF]^f&[FfF|z|+zfF|z|+zfF]^f&[FFF|z|+zFF|z|+zFF|z|+zF]
#
4
90
142.857
#
F
#
F=["(.333333)[-f+&f^B]]f
#
B=[FFF|z|+zFF|z|+zFF|z|+zF]^f&[FfF|z|+zfF|z|+zfF]^f&[FFF|z|+zFF|z|+zFF|z|+zF]
@
|