(vconcat .(rotate [-2.5216 2.0666] ..(gradient ...(x ....(vdivide [-2.5486 1.7608 -1.3661 1.3104] .....(vsin ......(length .......(adjust-hue ........(vabs clouds) pos))))))) .(blue-from-hsl ..(vfloor ...(alpha pos))))