Объясните код(графика) - Pascal ABC

[Max00766]

Программа строит фрактал " Кривая дракона", помогите разобраться в коде, если можно добавте побольше комментариев, буду очень благодарен
Код:

Uses CRT, GraphABC;
Const Z= 13; {Glubina Fraktala}
Procedure ris(x1,y1,x2,y2,k:integer);
Var xn,yn:integer;
Begin
     If k>0 Then
     Begin
          xn:=(x1+x2) div 2 +(y2-y1) div 2;
          yn:=(y1+y2) div 2 -(x2-x1) div 2;
          ris(x1,y1,xn,yn,k-1);
          ris(x2,y2,xn,yn,k-1)
     End
     Else
          line(x1,y1,x2,y2)
 
End;
{Main program}
Begin
     SetWindowCaption('Фракталы: Кривая Дракона');
     SetWindowSize(700,512);
     ClearWindow;
     ris(200,300,500,300,Z);
     Repeat Until KeyPressed
End.

[Max00766]

Очень актуально

[Stilet]

//Подключаем модули для
Uses CRT, //Экрана
       GraphABC; //И графики
//Устанавливаем глубину фрактала константой
Const Z= 13; {Glubina Fraktala}

//Описываем рекурсивную процедуру рисования
//ветвей фрактала
//Которая будет принимать координаты и номер глубины
Procedure ris(x1,y1,x2,y2,k:integer);
Var xn,yn:integer;
Begin
   //Если глубина фрактала не достигнута
     If k>0 Then
     Begin
       //Вычисляем новые координаты ее следующей ветви и
          xn:=(x1+x2) div 2 +(y2-y1) div 2;
          yn:=(y1+y2) div 2 -(x2-x1) div 2;
      //Заряжаем ее рисование
          ris(x1,y1,xn,yn,k-1);
          ris(x2,y2,xn,yn,k-1)
     End
     Else
     //Иначе рисуем линию - часть фрактала
          line(x1,y1,x2,y2)
 
End;
{Main program}
Begin
//Задаем заголовок окна по-русски
     SetWindowCaption('Фракталы: Кривая Дракона');
//Размер окна
     SetWindowSize(700,512);
//Очищаем его от мусора перед рисованием
     ClearWindow;
// И просим нарисовать фрактал
     ris(200,300,500,300,Z);
//Ждем нажатия клавиши на клавиатуре, чтоб полюбоваться нарисованным
     Repeat Until KeyPressed
End.

[Max00766]

Сообщение от Stilet

//Подключаем модули для
Uses CRT, //Экрана
       GraphABC; //И графики
//Устанавливаем глубину фрактала константой
Const Z= 13; {Glubina Fraktala}

//Описываем рекурсивную процедуру рисования
//ветвей фрактала
//Которая будет принимать координаты и номер глубины
Procedure ris(x1,y1,x2,y2,k:integer);
Var xn,yn:integer;
Begin
   //Если глубина фрактала не достигнута
     If k>0 Then
     Begin
       //Вычисляем новые координаты ее следующей ветви и
          xn:=(x1+x2) div 2 +(y2-y1) div 2;
          yn:=(y1+y2) div 2 -(x2-x1) div 2;
      //Заряжаем ее рисование
          ris(x1,y1,xn,yn,k-1);
          ris(x2,y2,xn,yn,k-1)
     End
     Else
     //Иначе рисуем линию - часть фрактала
          line(x1,y1,x2,y2)
 
End;
{Main program}
Begin
//Задаем заголовок окна по-русски
     SetWindowCaption('Фракталы: Кривая Дракона');
//Размер окна
     SetWindowSize(700,512);
//Очищаем его от мусора перед рисованием
     ClearWindow;
// И просим нарисовать фрактал
     ris(200,300,500,300,Z);
//Ждем нажатия клавиши на клавиатуре, чтоб полюбоваться нарисованным
     Repeat Until KeyPressed
End.

Спасибо большое