240209_214143_b
240207_134008_C
(vsin .(vfrac ..(vfrac ...(adjust-hsl pos ....(height-normal agate)))))