(vround .(checker ..(vdivide ...(z ....(height .....(vabs ......(vsin .......(blue-from-hsl ........(height-normal [-0.3852 -0.2383 -0.3489])))))) [-0.9925 -1.4456 2.944 0.4356]) ..(polar agate)))