(green-from-hsl .(checker ..(vsin ...(vmax [-1.113 -2.5014] grain)) ..(vfrac ...(min-component pos))))