# original from TANAKA Masaki  
# masaki@isea.is.titech.ac.jp(Tokyo Institute of technology)
set pm3d depthorder nohidden3d
set palette rgb 7,5,15 
unset colorbox 
unset key
set ticslevel 0
set view 45,30,1,1
set isosamples 100,100
compl(a,b)=a*{1,0}+b*{0,1}
mand(z,a,n) = n<=0 || abs(z)>100 ? 1:mand(z*z+a,a,n-1)+1
set term pngcairo crop
set out "mandel_pm3d.png"
splot [-2:1][-1.5:1.5] mand({0,0},compl(x,y),50) w pm3d
! convert -geometry 50% -transparent white \
          mandel_pm3d.png mandel_pm3d_s.png
! display mandel_pm3d_s.png