Пример шейдера на языке Astra

с Astra можно делать очень прикольные шейдеры 💎

f3 w_(f3 p,f a){f b=2; p.xz*=m2(cos(a+f4(,5,8,))); @(7){b/=.9;p+=sin(p.yzx*b-f3(T,,)*6)/b;} return p;} f s_(f3 q,f3 p,f d){ f r=len(q.xz),a=atn(q.z,q.x),b=3*a+3*log(r+.8)-2.1*T; b+=.22*sin(1.3*p.x+.8*p.z); f c=8*log(r+.6)+2.2*T; f h=.5*sin(b+.45*r)+.22*sin(.65*c)+.42*(p.y-q.y); f w=.055+.018*r,u=sqt(w*w+.09*d*d),j=(q.y-h)/u; return exp(-1.1*j*j)*pow(.5+.5*cos(b),4) *(.72+.28*sin(c+2*p.y)) *sms(.4,1.25,r)*(1-sms(5.5,8,r))*w/u;} f z=0,d=0,a=0,s=0; f4 acc=0; f3 v=nor(f3((2*C.xy-R.xy)/R.y,-1)); @(90){ f3 p=z*v+f3(,,6.3),t=p; a=(p.y-len(p.xz))/2;p=w_(p,a); d=min(len(p.xz),8-abs(p.y))/15/(2+cos(a-T));z+=d; f g=max(len(t.xz+(p.xz/2+3)*sin(T-a)),.00001); acc+=f4(7,5,z,)*d/g*(.93+.19*exp(-90*g*g)); s+=s_(t,p,d)*max(d,0)*1.5; } O=f4(tanh(acc.rgb*acc.rgb/1e3)*exp(-s),1); gl_FragDepth=d>=0&&d<.01?1.0-.1/max(.101,-z*v.z):1.0;