Recent

Author Topic: BGRAbmp Pythagoras Tree: Set Opacity for the Fill  (Read 1541 times)

Boleeman

  • Sr. Member
  • ****
  • Posts: 402
Re: BGRAbmp Pythagoras Tree: Set Opacity for the Fill
« Reply #15 on: February 17, 2024, 11:00:23 pm »
Dzandaa, Lainz and others,

Attached is the Lsystem Fractals, with the presets that I made. The lsystem code is not originally made by me ( I added the listbox to be able to view the presets by simply clicking and the autonumber and save to picture). The listbox does not refresh the files list properly, so there is a small bug there.
 
Not on a bgrabmp, but the result is still nice to look at.
« Last Edit: February 17, 2024, 11:10:58 pm by Boleeman »

lainz

  • Hero Member
  • *****
  • Posts: 4460
    • https://lainz.github.io/
Re: BGRAbmp Pythagoras Tree: Set Opacity for the Fill
« Reply #16 on: February 18, 2024, 12:02:24 am »
Lookin great  :)

Boleeman

  • Sr. Member
  • ****
  • Posts: 402
Re: BGRAbmp Pythagoras Tree: Set Opacity for the Fill
« Reply #17 on: February 18, 2024, 08:22:38 am »
A rainbow variant.

Tried to reproduce Dzandaa's code using 32-bit Lazarus with a rainbow outer branch colour.

Don't know why but when I saved it to png the black background disappears.

Actually the Tscollbox background is black.
Looks like the background is transparent when the png is saved.
The saved png shows up differently in MSPaint, Photos, Greenfish Icon Editor, and as attachment in this thread.
How do we save the Pythagoras Tree on the bgrabmp with an opaque black colour?
« Last Edit: February 18, 2024, 08:41:03 am by Boleeman »

Boleeman

  • Sr. Member
  • ****
  • Posts: 402
Re: BGRAbmp Pythagoras Tree: Set Opacity for the Fill
« Reply #18 on: February 18, 2024, 11:08:31 am »
AH, I just worked out the opaque and transparent background save now.

Looks like the background color always has to be quite dark.

The last very colour Pythagoras Tree image had these settings:

  Col.red := 255 - ((depth * 75) mod 255);
  Col.green := 400 - ((depth * 25) mod 255);
  Col.blue := 130;
  Col.alpha := 120;
« Last Edit: February 18, 2024, 11:24:04 am by Boleeman »

 

TinyPortal © 2005-2018