Вопрос по PHP (фракталы)

[andrey_besp]

Решил попробовать на php сделать фрактал «дракона» Хартера-Хейтуэя. Для начала сделал его на паскали, но вот затем на php перевести его не удалось.
Pascal

program dragon;
uses graph, crt;
var gd,gm,k:integer;
procedure st(x1,y1,x2,y2,k:integer);
var xn,yn:integer;
begin
if (k>0)and(not keypressed) then
  begin
   xn:=(x1+x2) div 2+(y2-y1) div 2;
   yn:=(y1+y2) div 2-(x2-x1) div 2;
   st(x2,y2,xn,yn,k-1);
   st(x1,y1,xn,yn,k-1);
  end
else
  line(x1,y1,x2,y2);
end;
begin
writeln('vvedite poradok');
readln(k);
gd:=detect;
initgraph(gd,gm,'f:\tp7\bgi');
setcolor(15);
st(400,200,200,200,k);
readln;
end.

PHP

<?
header ('Content-Type: image/png');
$im = imagecreatetruecolor(1000, 600)
      or die('Невозможно инициализировать GD поток');
$text_color = imagecolorallocate($im, 255, 255, 255);
function st($x1,$y1,$x2,$y2,$k,$im,$text_color){
  if($k>0){
  $xn=abs(floor(($x1+$x2)/2)+(floor($y2-$y1)/2));
  $yn=abs(floor(($y1+$y2)/2)-(floor($x2-$x1)/2));
  st($x2,$y2,$xn,$yn,$k-1, $im, $text_color);
  st($x1,$y1,$xn,$yn,$k-1, $im, $text_color);
                }
    else{
imageline ( $im , $x1 ,$y1 , $x2 , $y2 ,  $text_color );
imagepng($im);
}}
$x1=400; $y1=200; $x2=200; $y2=200; $k=1;
st($x1,$y1,$x2,$y2,$k,$im,$text_color);
?>

Подскажите где я допустил ошибку?

[ADSoft]

В принципе.... php - не паскаль
... если серьезно то что вы сгенерировали это картинка, её надо отобразить. Если это файл img.php, то в произвольном html документе делаете
<img src="img.php">

[andrey_besp]

Вы меня неправильно поняли. Я знаю что код php генерирует картинку. Проблема заключается в том что, функция st является рекурсивной и она должна рисовать по несколько линий при каждом её вызови. Но по непонятной мне причине функция st рисует только одну последнюю линию. Замечу что код на pascal работает правильно.

[ADSoft]

ну так смотрите в код на php
у вас у рекурсии задано условие, делать если $k>0
запускаете функцию с параметром $k=1
он рисует 1 линию..... остальные ($k-1) уже не удволетворяют условию

[andrey_besp]

При не выполнении $k>0 срабатывает else тем самым при $k=1 он должен нарисовать две линии.
Вот скомпилированный код написанный на паскале, который при k=1 рисует две линии. drak.exe

[ADSoft]

ну надо ж вникать...
вот еще
в функции используется
imagepng($im); который и создает изображение...... у вас и получается только последняя линия ..... уберите эту команду из функции....
вызывать её нужно в самом конце скрипта ... после вызова функции

st($x1,$y1,$x2,$y2,$k,$im,$text_color);
imagepng($im);
?>

причем $im - должно быть глобальной переменной

[andrey_besp]

Все сделал, спасибо за помощь!!!