levdef("Fractal",1)
desc("A Sierpinski Square")
size(640,512)

include("simpwall.spr")
include("simptele.spr")

# Main wall round world, just a plain box.
r=186 g=29 b=128        # dark pink

def("sierpsqr")
#   if($5=0,"$1,$2+$4   $1+$3,$2   $1+$3,$2+$4   $1,$2   $1,$2+$4   $1+$3,$2 ")
   color($6,64,255)
   $1,$2+$4   $1+$3,$2   $1+$3,$2+$4   $1,$2   $1,$2+$4   $1+$3,$2
   if($5>0,"sierpsqr($1,$2,$3/3,$4/3,$5-1,$6+$7,$7) \\
            sierpsqr($1+$3/3,$2,$3/3,$4/3,$5-1,$6+$7,$7) \\
            sierpsqr($1+2/3*$3,$2,$3/3,$4/3,$5-1,$6+$7,$7) \\
            sierpsqr($1,$2+$4/3,$3/3,$4/3,$5-1,$6+$7,$7) \\
            sierpsqr($1+2/3*$3,$2+$4/3,$3/3,$4/3,$5-1,$6+$7,$7) \\
            sierpsqr($1,$2+2/3*$4,$3/3,$4/3,$5-1,$6+$7,$7) \\
            sierpsqr($1+$3/3,$2+2/3*$4,$3/3,$4/3,$5-1,$6+$7,$7) \\
            sierpsqr($1+2/3*$3,$2+2/3*$4,$3/3,$4/3,$5-1,$6+$7,$7) ")
;
spr("sierpsqr")
   tris:
#      color(255,64,128)
      depth=4
      sierpsqr(0,0,1,1,$depth,0,255/$depth)
;

100,100: d-sierpsqr-xs=312,ys=312

# Teleports
enter: 0,0,0:       teleport-simpteleentr
exit:  640,512,180: teleport-simpteleexit