Sign in Join

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

Catalog · How the catalog works
Anything · Lazarus or Delphi
Random projectRandom project

SimpleMathEffects

SimpleMathEffects

View on GitHub

Member rating

No ratings yet.

Sign in to rate this project.

README

SimpleMathEffects

рофло-недо шейдер

не воспринимать серьезно

s1 s2 s2

Try this:

2*(0.5*sin(1.24*sin(x*5.3+y*0.1+t*0.4)+sin(x*1.02+y*1.37)+3*sin(x*4.15+y*5.08+ t*0.3)+1.8*sin(t*0.9+x*3.139+y*6.265))); 7*(0.5*sin(1.24*sin(x*5.3+y*0.1+t*0.4)+sin(x*1.02+y*1.37)+3*sin(x*4.15+y*5.08+ t*0.3)+1.8*sin(t*0.9+x*3.139+y*6.265))); 9*(0.5*sin(1.24*sin(x*5.3+y*0.1+t*0.4)+sin(x*1.02+y*1.37)+3*sin(x*4.15+y*5.08+ t*0.3)+4*sin(t*0.9+x*3.139+y*6.265)))

int(1.2-sqrt((x-0.5-sin(t)*0.3)^2 + (y-0.5)^2)); int(1.1-sqrt((x-0.5-sin(t)*0.4)^2 + (y-0.5-cos(t)*0.4)^2)); int(1.4-sqrt((x-0.5)^2 + (y-0.5)^2))

cos(sin(x*13+cos(y*7-t)) + sin(x*3.5-y*2-t*0.4) -t ); 0.1*abs(7*cos(sin(x*13+cos(y*7-t)) + sin(x*3.5-y*2-t*0.4) -t )); 0

int(4*sqrt((x-0.5)*(y-0.5)*(cos(t*3)*8))); int(3*sqrt((x-0.5)*(y-0.5)*(cos(t*3)*8))); int(6*sqrt((x-0.5)*(y-0.5)*(cos(t*3)*8)))