Has anyone come across this artical?

https://jdc.math.uwo.ca/roots/

Massive graphing, they said that this was created partially in the wolfram lanuage. We can't them get a leg up on us Maple code. Help me understand this in our native Maple tounge.

with(plots);
f := x -> x^3 + 3^x;
complexplot3d(f, -15 - 22*I .. 15 + 22*I);