cdyJuliaDraw = cdy`juliadraw``
c = sin(1.5*mouse().x)/1.5 + i*sin(1.5*mouse().y)/1.5;
d = fp(c);
//min(continious escape time, 1)
cesc(z) := (
l0 = abs(z);
l1 = abs(f(z,c));
if(l0<4,
if(l1 < 4,
1,
re(log(3/l0))/re(log(l1/l0))
), 0
)
);
color(z) := (
z = exp(z)+d;
r = log(f(z, c) - d);
if(abs(z)<4, if(re(r) > L.x+.01, imagergb(L, R, "juliaconj", r) + cesc(z)/120*(1,2,3), (1,.7,0)), (0,0,0));
);
colorplot(L, R, "juliaconj", (color(complex(#))));
drawimage([1.5,-1.5], [7.5,-1.5], "juliaconj");
colorplot([-1.5,-1.5], [1.5,-1.5], "julia", imagergb(L, R, "juliaconj", log(if( # * (re(d), im(d)) > 0, complex(#), complex(-#))-d)));
drawimage([-1.5,-1.5], [1.5,-1.5], "julia");
draw([1.5,-1.5],[1.5,1.5], color->(1,1,1));`