https://github.com/turborium/pocketgalaxy

PocketGalaxy effect
https://github.com/turborium/pocketgalaxy

delphi gdd graphics graphics-programming image-effect image-processing object-pascal pascal

Last synced: about 1 month ago
JSON representation

PocketGalaxy effect

• Host: GitHub
• URL: https://github.com/turborium/pocketgalaxy
• Owner: turborium
• License: mit
• Created: 2024-06-22T06:32:40.000Z (8 months ago)
• Default Branch: main
• Last Pushed: 2024-11-27T02:39:41.000Z (3 months ago)
• Last Synced: 2024-11-27T03:28:42.968Z (3 months ago)
• Topics: delphi, gdd, graphics, graphics-programming, image-effect, image-processing, object-pascal, pascal
• Language: Pascal
• Homepage:
• Size: 1.94 MB
• Stars: 6
• Watchers: 1
• Forks: 0
• Open Issues: 0
• Metadata Files:
  • Readme: README.md
  • License: LICENSE

Awesome Lists containing this project

README

        
# PocketGalaxy

**PocketGalaxy animated pixel effect**

[Powered By Lazarus (ObjectPascal)](https://www.lazarus-ide.org/)  

---

Precompiled exe: https://github.com/turborium/PocketGalaxy/raw/main/PocketGalaxy.exe  

![scr](scr.png)

Maked by Lazarus(ObjectPascal) with love.  

Also, see JavaScript version: https://github.com/turborium/PocketGalaxyJs and run online.

---

Inspired by article [Complex beauty in a simple formula](https://habr.com/ru/articles/817869/) and comment by [kipar](https://habr.com/ru/articles/817869/#comment_26881773) with code:

```pascal

RandSeed := 1;

for i := 1 to 100 do

begin

  x := random;

  y := random;

  color := Random(MaxLongint);

  for j := 1 to 1000 do

  begin

    pr2d_Pixel(x*1000,y*1000,color);

    x := Frac(x+cos(y));

    y := Frac(y+sin(x));

  end;

end;

```