From 668467d3e9bafa56c009f0dab088082fd8042e84 Mon Sep 17 00:00:00 2001
From: Ivan Mahonin <bh@icystar.com>
Date: Jan 19 2019 20:17:09 +0000
Subject: lazarus: fix fractal


---

diff --git a/lazarus/fractal/unit1.pas b/lazarus/fractal/unit1.pas
index 7d3daac..9e75433 100644
--- a/lazarus/fractal/unit1.pas
+++ b/lazarus/fractal/unit1.pas
@@ -36,7 +36,7 @@ procedure Figure(x1, y1, x2, y2: single; level: integer);
 var
   ax, ay, bx, by, cx, cy: single;
 begin
-  if level < 10 then begin
+  if level < 5 then begin
     ax := (x2 - x1)/3 + x1;
     ay := (y2 - y1)/3 + y1;