(vcos 
.(vmax 
..(vconcat 
...(v* 
....(red-from-hsl 
.....(hue-from-rgb pos)) 
....(length 
.....(polar [-1.3912 0.9099]))) 
...(lightness-from-rgb 
....(scale [-1.8391952735410078 -3.3493921297975877] 
.....(vfloor 
......(vabs 
.......(gradient 
........(offset 
.........(vfrac pos) 
.........(vmax pos vplasma)))))))) 
..(vmin 
...(hsl-from-rgb wood) 
...(vpow 
....(vfloor 
.....(height 
......(length 
.......(adjust-hsl 
........(lightness-from-rgb -0.6956) [-2.4378 -1.1009])))) 
....(hue-from-rgb [-2.3612 1.8174 1.1921 -2.9114])))))