Morphic Turtle Patterns: Now Using Bgrabmp ... Final
lazarus / 39-Graphics

----------------------------------------------------------------------
Boleeman · 2024-07-20 05:56

Some nice fractal curves produced by Morphic Turtle.

Especially like the Caesaro Curve and the Plant Like Curve.

----------------------------------------------------------------------
Boleeman · 2024-07-20 08:37

A  LOT   more presets.  Just 198 presets.

Getting some Tessellated Patterns.

Have a look at the last attached file to see what I mean.

----------------------------------------------------------------------
Boleeman · 2024-07-20 11:41

Manually filled pattern.

----------------------------------------------------------------------
Dzandaa · 2024-07-21 09:38

Hi,

I have an error at line 168:

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i     if
MemoValues.Lines[11 + i][j] <> '/' then 
QuoteRange Check Error
for
i = 0
j = 3

B->

----------------------------------------------------------------------
Boleeman · 2024-07-22 10:21

DZandaa, not sure if this fixes the problem you encountered.

I was not getting any errors on AMD Windows10 platform.
Added some Extra checks.

What platform are you using DZandaa? (Linux or Mac?)


Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TForm1.DrawFractal;var  i, j, k, n, d, hib, h: integer;  xx, yy,
degreeangles: real;  str: array [0..3] of string;  sh: array [0..3] of
real;  stream: array [1..500000] of byte;  s1, s2: string;begin 
Image1.Picture.Bitmap.Canvas.Pen.Color := cbForecolor.ButtonColor;  
if (MemoValues.Lines.Count < 15) then  begin   
ShowMessage('MemoValues does not have enough lines for processing.'); 
  Exit;  end;   n := StrToIntDef(MemoValues.Lines[0], 0);  d :=
StrToIntDef(MemoValues.Lines[1], 0);  xx :=
StrToFloatDef(MemoValues.Lines[2], 0);  yy :=
StrToFloatDef(MemoValues.Lines[3], 0);  degreeangles :=
StrToFloatDef(MemoValues.Lines[4], 0) * pi / 180;   for i := 0 to 3
do    str[i] := MemoValues.Lines[6 + i];  hib := Length(str[0]);  for
i := 1 to hib do    stream[i] := Ord(str[0][i]) - Ord('0');  h := 2; 
while hib < n do  begin    j := stream[h];    for i := 1 to
Length(str[j]) do      stream[hib + i] := Ord(str[j][i]) - Ord('0'); 
 hib := hib + Length(str[j]);    h := h + 1;  end;  for i := 0 to 3
do  begin    j := 1;    s1 := '';    while (j <=
Length(MemoValues.Lines[11 + i])) and (MemoValues.Lines[11 + i][j] <>
'/') do    begin      s1 := s1 + MemoValues.Lines[11 + i][j];      j
:= j + 1;    end;    if (j <= Length(MemoValues.Lines[11 + i])) and
(MemoValues.Lines[11 + i][j] <> '/') then      sh[i] :=
StrToFloatDef(s1, 0) * pi / 180    else    begin      s2 := '';     
for k := j + 1 to Length(MemoValues.Lines[11 + i]) do        s2 := s2
+ MemoValues.Lines[11 + i][k];      sh[i] := StrToFloatDef(s1, 0) * pi
/ (180 * StrToFloatDef(s2, 1));    end;  end; 
Image1.Picture.Bitmap.Canvas.MoveTo(Round(xx), Round(yy));  for i := 1
to n do  begin    degreeangles := degreeangles + sh[stream[i]];    xx
:= xx + d * Sin(degreeangles);    yy := yy + d * Cos(degreeangles);  
Image1.Picture.Bitmap.Canvas.LineTo(Round(xx), Round(yy));  end;end;

----------------------------------------------------------------------
Boleeman · 2024-07-22 10:27

Here is a TBgrabmp version with Anti-aliasing.

How could we possibly add a Rotate the Pattern with a Mouse Drag
function?

I like the 2nd attached png, as it has some unusual properties.

Seems to be a fairly complex line construction. Never seen something
like this before.
Has almost Stars around the circle, triangles between those "almost
stars" and Parallel lines inside.
Not sure why, but the horizontal and vertical lines are thinner in
width?

----------------------------------------------------------------------
Dzandaa · 2024-07-22 11:22

Hi,

@Boleeman:

The BGRABmp version is working fine

B->

----------------------------------------------------------------------
Boleeman · 2024-07-23 06:39

279 Preset Files. Enjoy.

----------------------------------------------------------------------
Boleeman · 2024-07-31 07:56

Some updates:

Change the line thickness.
Save with a transparent background.


Hopefully the final version.