simple octagon tesselation by 18kb

<?$a=9*fgetc(STDIN)-4;for(;++$y<$a;print(rtrim($l)."\x0d
"))for($b=$y/$a*3%3-1,$h=$y*$b-($b+($b>$x=$l=''))*$a/3;++$x<$a-$h;)$l.=$x>$h&$x%3%2-$y%3%2?'#':' ';

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

download

return to the top page