Petal Curves Creator
lazarus / 39-Graphics

----------------------------------------------------------------------
Boleeman · 2024-03-23 11:00

Made a Petals program that creates nice petals patterns on a TImage.

Converted from an old VB6 program I made to Lazarus

Would like to include:
Different line styles
Different fills
Opacity
Rotating each petal about its centroid
save transparent background
zoom in/out

Enjoy.

----------------------------------------------------------------------
Boleeman · 2024-03-24 03:09

Line styles update

One can now change the border line styles, but I was trying to work
out how to implement a zigzag line style using psPattern.

Noticed a thread about a fault:
If you use Pen.style: = psPattern along with Pen.width: = 1, we obtain
a one-pixel line in black, regardless of the previously set color (at
https://gitlab.com/freepascal.org/lazarus/lazarus/-/issues/0022646 )

----------------------------------------------------------------------
Boleeman · 2024-03-24 03:48

Update: Some petals were not shown at larger values, so that is now
fixed.

----------------------------------------------------------------------
Boleeman · 2024-03-24 08:29

Added the brush styles.

A bit glitchy on the brush style changes, with the background style
compared to the VB6 version (the background of the Vb6 program always
remains a Solid Brush style whereas the Lazarus version on screen
changes/sort of keeps the previous
background brush style).

Also from my understanding the Clear Brush style should not color
anything, but yet it does.


Lastly, on screen the background is the meshy type of brush style, but
when saved to PNG it has a solid brush style.
I ended up experimenting by using MsPaint to fill the background with
a darker shade of green color to get the desired "meshy material type"
effect (see the last attachment).