simple octagon tesselation by daniel AT agac.de (a.k.a. dcutter)

$a=($i=<>)*3;$t.=$t=($s='   'x$b).'#  'x--$a."#
",$_=($r=$s.' ##'x$a."
").($b++?"$t$_$t$r":"$t$r"x$i)while$a-->$i;print

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page