Morphic Turtle Patterns: Now Using Bgrabmp ... Final

[Boleeman]

Some nice fractal curves produced by Morphic Turtle.

Especially like the Caesaro Curve and the Plant Like Curve.

[Boleeman]

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]

Manually filled pattern.

[Dzandaa]

Hi,

I have an error at line 168:

Code: Pascal  [Select][+][-]

1.     if MemoValues.Lines[11 + i][j] <> '/' then  
2.  

Range Check Error
for
i = 0
j = 3

B->

[Boleeman]

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][+][-]

1. procedure TForm1.DrawFractal;
2. var
3.   i, j, k, n, d, hib, h: integer;
4.   xx, yy, degreeangles: real;
5.   str: array [0..3] of string;
6.   sh: array [0..3] of real;
7.   stream: array [1..500000] of byte;
8.   s1, s2: string;
9. begin
10.   Image1.Picture.Bitmap.Canvas.Pen.Color := cbForecolor.ButtonColor;
11.  
12.   if (MemoValues.Lines.Count < 15) then
13.   begin
14.     ShowMessage('MemoValues does not have enough lines for processing.');
15.     Exit;
16.   end;
17.  
18.   n := StrToIntDef(MemoValues.Lines[0], 0);
19.   d := StrToIntDef(MemoValues.Lines[1], 0);
20.   xx := StrToFloatDef(MemoValues.Lines[2], 0);
21.   yy := StrToFloatDef(MemoValues.Lines[3], 0);
22.   degreeangles := StrToFloatDef(MemoValues.Lines[4], 0) * pi / 180;
23.  
24.   for i := 0 to 3 do
25.     str[i] := MemoValues.Lines[6 + i];
26.   hib := Length(str[0]);
27.   for i := 1 to hib do
28.     stream[i] := Ord(str[0][i]) - Ord('0');
29.   h := 2;
30.   while hib < n do
31.   begin
32.     j := stream[h];
33.     for i := 1 to Length(str[j]) do
34.       stream[hib + i] := Ord(str[j][i]) - Ord('0');
35.     hib := hib + Length(str[j]);
36.     h := h + 1;
37.   end;
38.   for i := 0 to 3 do
39.   begin
40.     j := 1;
41.     s1 := '';
42.     while (j <= Length(MemoValues.Lines[11 + i])) and (MemoValues.Lines[11 + i][j] <> '/') do
43.     begin
44.       s1 := s1 + MemoValues.Lines[11 + i][j];
45.       j := j + 1;
46.     end;
47.     if (j <= Length(MemoValues.Lines[11 + i])) and (MemoValues.Lines[11 + i][j] <> '/') then
48.       sh[i] := StrToFloatDef(s1, 0) * pi / 180
49.     else
50.     begin
51.       s2 := '';
52.       for k := j + 1 to Length(MemoValues.Lines[11 + i]) do
53.         s2 := s2 + MemoValues.Lines[11 + i][k];
54.       sh[i] := StrToFloatDef(s1, 0) * pi / (180 * StrToFloatDef(s2, 1));
55.     end;
56.   end;
57.   Image1.Picture.Bitmap.Canvas.MoveTo(Round(xx), Round(yy));
58.   for i := 1 to n do
59.   begin
60.     degreeangles := degreeangles + sh[stream[i]];
61.     xx := xx + d * Sin(degreeangles);
62.     yy := yy + d * Cos(degreeangles);
63.     Image1.Picture.Bitmap.Canvas.LineTo(Round(xx), Round(yy));
64.   end;
65. end;      

[Boleeman]

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]

Hi,

@Boleeman:

The BGRABmp version is working fine

B->

[Boleeman]

279 Preset Files. Enjoy.

[Boleeman]

Some updates:

Change the line thickness.
Save with a transparent background.


Hopefully the final version.