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

Export["D.pbm", 
      Pic, 
ImageResolution -> 
        20]
Hmm  =  Import["D.pbm"][[1, 1, All, All, 
          1]];

Dimensions[Hmm]

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

Export[ Drop[Hmm, 1]]

Dimensions[Hmm]

Min[Hmm]

?Export