@scruss Thanks. Here’s the Sierpinski program adapted to run LibreOffice using the built-in LibreLogo environment https://help.libreoffice.org/latest/en-US/text/swriter/librelogo/LibreLogo.html

One of LibreLogo’s advantages is that the output is vector graphics that can be edited (but rasterised here for convenience).

TO CORNER :S
RIGHT 45 FORWARD :S RIGHT 45
END

TO ONESIDE :S :DIAG :LEVEL
IF :LEVEL = 0 [ STOP ]
ONESIDE :S :DIAG :LEVEL - 1
RIGHT 45 FORWARD :DIAG RIGHT 45
ONESIDE :S :DIAG :LEVEL - 1
LEFT 90 FORWARD :S LEFT 90
ONESIDE :S :DIAG :LEVEL - 1
RIGHT 45 FORWARD :DIAG RIGHT 45
ONESIDE :S :DIAG :LEVEL - 1
END

TO SIERP :S :LEVEL
:DIAG = :S / 1.414
REPEAT 4 [ ONESIDE :S :DIAG :LEVEL CORNER :DIAG ]
END

CS
HT
PU HOME RT 90 BK 100 LT 90 BK 100 PD
SIERP 10 4
FILL

#CreativeCoding #pattern #Sierpinski #fractal #Logo #TurtleGraphics #LibreOffice #LibreLogo #geometry #CreativeCode #procedural #CreativeCodeArt

@foldworks I'd forgotten about LibreLogo ... even though I've written about it in the past. This happens to me a lot.

Looks like the librelogo website is dead, and the documentation is gone from my version (25.2)

@foldworks I'm also finding it doesn't accept standard logo commands that work fine in ucblogo. Maybe that's why I'd forgotten about it

... ah, never mind. It seems to have POINT and HEX as reserved keywords

TO hx :size
REPEAT 6 [
tri :size FORWARD :size LEFT 60
]
END

TO PT :size
FORWARD :size
RIGHT 150
FORWARD :size
LEFT 30
END

TO superhex :size
REPEAT 6 [
hx :size PT :size FORWARD :size LEFT 60
]
END

TO tri :size
REPEAT 3 [
PT :size
]
END

CLEARSCREEN HIDETURTLE superhex 50