52 lines
1.2 KiB
PHP
52 lines
1.2 KiB
PHP
|
// INIT AND DEFINITION
|
|||
|
|
define('dest_name', 'output.png'); // destination image
|
|||
|
|
define('width', 100);
|
|||
|
|
define('height', 100);
|
|||
|
|
|
|||
|
|
$x = 50;
|
|||
|
|
$y = 70;
|
|||
|
|
$dir = 0; // 0-up, 1-left, 2-down, 3-right
|
|||
|
|
$field = array();
|
|||
|
|
$step_count = 0;
|
|||
|
|
|
|||
|
|
// LANGTON´S ANT PROCEDURE
|
|||
|
|
while(0 <= $x && $x <= width && 0 <= $y && $y <= height){
|
|||
|
|
if(isset($field[$x][$y])){
|
|||
|
|
unset($field[$x][$y]);
|
|||
|
|
$dir = ($dir + 3) % 4;
|
|||
|
|
}else{
|
|||
|
|
$field[$x][$y] = true;
|
|||
|
|
$dir = ($dir + 1) % 4;
|
|||
|
|
}
|
|||
|
|
switch($dir){
|
|||
|
|
case 0: $y++; break;
|
|||
|
|
case 1: $x--; break;
|
|||
|
|
case 2: $y--; break;
|
|||
|
|
case 3: $x++; break;
|
|||
|
|
}
|
|||
|
|
$step_count++;
|
|||
|
|
}
|
|||
|
|
// ARRAY TO IMAGE
|
|||
|
|
$img = imagecreatetruecolor(width, height);
|
|||
|
|
$white = imagecolorallocate($img, 255, 255, 255);
|
|||
|
|
for($x = 0; $x < width; $x++){
|
|||
|
|
for($y = 0; $y < height; $y++){
|
|||
|
|
if(isset($field[$x][$y])){
|
|||
|
|
imagesetpixel($img, $x, $y, $white);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
// TEXT TO IMAGE
|
|||
|
|
$color = array();
|
|||
|
|
$color[0] = imagecolorallocate($img, 255, 0, 0);
|
|||
|
|
$color[1] = imagecolorallocate($img, 0, 255, 0);
|
|||
|
|
$color[2] = imagecolorallocate($img, 0, 0, 255);
|
|||
|
|
$print_array = array(
|
|||
|
|
0 => 'Langton`s Ant', 1=>'PHP Version', 2=>'Steps: ' . $step_count
|
|||
|
|
);
|
|||
|
|
foreach($print_array as $key => $line){
|
|||
|
|
imagestring($img, 3, 3, 3 + $key*11, $line, $color[$key]);
|
|||
|
|
}
|
|||
|
|
// SAVE IMAGE
|
|||
|
|
imagepng($img, dest_name);
|