#  Sierpinski's carpet
#  Eduardo Viruena Silva

ifs
#polygon (-1/3,-1/3) (-1/3,1/3) (1/3,1/3) (1/3,-1/3)

polygon (-1,-1) (-1,1) (1,1) (1,-1)

transform scl(1/3) trl(-1/3, -1/3)
transform scl(1/3) trl(-1/3,  0)
transform scl(1/3) trl(-1/3,  1/3)
transform scl(1/3) trl(   0, -1/3)
transform scl(1/3) trl(   0,  1/3)
transform scl(1/3) trl( 1/3, -1/3)
transform scl(1/3) trl( 1/3,  0)
transform scl(1/3) trl( 1/3,  1/3)

order 4

image scl(10)