Im := proc(c)
begin
  if testtype(c, DOM_COMPLEX)
  then
     op(c,2)
  else
    0 
  end_if
end_proc:

plot3d(Axes = None,
       CameraPoint = [26, -14, 14],
       Scaling = UnConstrained,
       Title = "Imaginary Part of asin(u+I*v)",
       TitlePosition = Below,
       [Mode = Surface,
        [u, v, hold(Im(asin(u+v*I)))], 
        u = [-4.0, 4.0],v = [-4.0, 4.0],
        Grid = [30, 30], Style=[ColorPatches, AndMesh]]):
