(average .(gradient ..(max-component ...(square ....(rgb-from-hsl grain)))) .(length ..(vsin ...(normalize [0.6796 -2.0141 -0.9649]))))