I was looking for the code to make this and I couldn't find it, but using some knowlege of ti-basic + using the code for the ti-83 gasket + reading the summary John Hanna's Gasket, which is probably almost exactly like mine's, just coded independently. I was able to find the code.

Define s(a)=

Prgm

"0""-> lx

"0" -> ly

0 -> x

0 -> y

For k,1,a

rand() -> n

if n =< 1/3 Then

0.5*x -> x

0.5*y -> y

ElseIf n > 1/3 and n =< 2/3 Then

0.5*(5+x) -> x

0.5*(5*(√3) + y) -> y

ElseIf n > 2/3 Then

0.5*(10+x) -> x

0.5*y -> y

EndIF

lx&","&string(x) ->lx

ly&","&string(y) ->ly

EndFor

expr("{"&lx&"}") -> gx

expr("{"&ly&"}") -> gy

EndPrgm

Open a new Document, Add a Calc, go to menu,9,1,1 Put the name s lowercase, click OK, type in the above code Click ctrl + B to save

Then click ctrl + Doc, click graph. In the new graph go to menu,3,4.

Go back to the calc and type s(a number) the higher number you put for the argument the more iterations/the darker the result