<?php
//Copyright (C) 2003 Jared Tarbell
//Albuquerque, New Mexico
//
// Koodi siis pelkästään muutettu ActionScriptista PHP:ksi
// Koodi luo 6x6 px kokoisen gif kuvan, johon Invader piirretään
// Invaderin saa näkymään käyttämällä normaalisti <img> tägiä
// mikäli seed-lähtöarvoa ei ole annettu, luo skripti satunnaisen olion
//
//
header("Content-type: image/gif");
$im = @imagecreate(6, 6) or die("Cannot Initialize new GD image stream");
$background_color = imagecolorallocate($im, 255, 255, 255);
$seed = (intval($_GET["seed"])+1)-1;
if ($seed<=0){
        $seed = rand(0,32768);
}
$seedbits = dec2bin((int)$seed);
$numlit = 0;
$col = imageColorAllocate($im, 0, 0, 0);
for ($x = 0; $x<3; $x++) {
        for ($y = 0; $y<5; $y++) {
                $i = $y*3+$x;
                if (lit($seedbits, $i)) {
                        $numlit++;
                        // mirror last two columns
                        imagesetpixel($im, $x+2, $y, $col);
                        if ($x>0) {
                                imagesetpixel($im, 2-$x, $y, $col);
                        }
                }
        }
}
imagegif($im);
imagedestroy($im);


function dec2bin($iNumber) {
        $bin = "";
        $oNumber = $iNumber;
        while ($iNumber>0) {
                if ($iNumber%2) {
                        $bin = "1".$bin;
                } else {
                        $bin = "0".$bin;
                }
                $iNumber = floor($iNumber/2);
        }
        // left pad with zeros
        while (strlen($bin)<15) {
                $bin = "0".$bin;
        }
        return $bin;
}

function lit($bits, $i) {
        if (substr($bits, $i, 1) == "1") {
                return true;
        } else {
                return false;
        }
}
?>