Plot[Im[KleinInvariantJ[(Sqrt[-x] + 1)/3]], {x, 0.05, 10}, {y, -6.5, 6.5}]