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;