\(\(Pic\ \  = \ 
        Show[
Graphics[
{
Text["𝒥", \ {0, 
                  0}, 
TextStyle -> {FontSize -> 
                      128}
], 
Text["𝒞", \ {0.2, \(-0.2\)}, 
TextStyle -> {FontSize -> 
                      128}
]
}
], 
PlotRange -> {{\(-0.6\), 
                0.6}, {\(-0.6\), 0.6}}
];\)\)

Export["JC.pbm", 
      Pic, 
ImageResolution -> 
        40]
Hmm  =  Import["JC.pbm"][[1, 
          1]];

ListDensityPlot[
        1 - Hmm, 
Mesh -> False];

Export["JC.dat", 1 - Hmm]

ListPlot3D[ Hmm, 
Mesh -> False]

Dimensions[Hmm]