Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Catalog · How the catalog works

Random project

PocketGalaxy

PocketGalaxy effect

View on GitHub

Anyone may press Interesting, signed in or not. It helps others find this project.

Member rating

No ratings yet.

Sign in to rate this project.

README

PocketGalaxy

PocketGalaxy animated pixel effect

Powered By Lazarus (ObjectPascal)


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

scr

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 and comment by kipar 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;