#sierpinski — Public Fediverse posts

Two Ways to Draw Infinite Jest's Sierpinski Gasket

https://www.chiply.dev/post-ij-sierpinski

#HackerNews #InfiniteJest #Sierpinski #Gasket #Art #MathFractals #CreativeCoding

@scruss The PICTURE command can group objects, and also output SVG animations. Although I’ve made a screen recording here as animated SVGs aren’t accepted

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
SLEEP 20
END

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

CLEARSCREEN
HIDETURTLE
PENUP HOME RIGHT 90 BACK 100 LEFT 90 BACK 100 PENDOWN
; PICTURE "≈" [
; SIERP 10 2
; ]

PICTURE “Sierpinski004.svg” [

repeat 1 [
SIERP 10 4
SLEEP 2000 ]

#animation #SVG #loop #2d #CreativeCoding #pattern #Sierpinski #fractal #Logo #TurtleGraphics #geometry #CreativeCode #procedural #CreativeCodeArt #design #GraphicDesign

@scruss Nice, this version has a few changes to fill the shapes with PENDOWN and PENUP to avoid draw extraneous lines.

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

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

TO superhex :size
REPEAT 6 [
FILLCOLOR "gray" FILLTRANSPARENCY 50 hx :size PU PT :size FORWARD :size LEFT 60 PD
]
END

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

HOME CLEARSCREEN HIDETURTLE
superhex 50

#CreativeCoding #pattern #Sierpinski #fractal #Logo #TurtleGraphics #geometry #CreativeCode #procedural #CreativeCodeArt #design #tiling #GraphicDesign

@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