#!/usr/bin/perl
# Draw a sierpinski gasket thing
# see HAKMEM 146-148
for($x=0;$x<256;$x++) {
    for($t=0;$t<256;$t++) {
	$y = $x & $t;
	print "0,$x,$y,0,0,0\n";
#	$y = $x | $t;			# uncomment me for twice the fun
#	print "0,$x,$y,0,0,0\n";	# aol
    } # end t
} # end x
