Biohazard

using Makie

 (a, b) = -1, 2
 r = range(-5, stop = 5, length = 100)
 z = ((x,y) -> y.^4 - x.^4 + a.*y.^2 + b.*x.^2).(r, r')
 me = [cos.(2 .* pi .* sqrt.(x.^2 + y.^2)) .* (4 .* z) for x=r, y=r, z=r]
 me2 = me .* (abs.(me) .> z .* 3)
 volume(me2, algorithm = :absorptionrgba)