Rasterize@Style[\[Venus], 500] // ColorNegate // DistanceTransform //
ImageData // ListPlot3D[#, Mesh -> None, PlotStyle -> Green] & //
FirstCase[#, _GraphicsComplex, \[Infinity]] & //
MapAt[Map[# + RandomReal[2, 3] &, #] &, 1] //
Graphics3D[{#, Blue, Cuboid[{0, 0, 1}, {300, 600, 5}]}] &