::/cygdrive/d/parrad/dd081
gswin32c -help
gm -help convert > ttgmc.dat
set PATH=%PATH%;"E:\Program Files\gs\gs8.60\bin";"E:\Program Files\gs\fonts"
::call D:\parrad\dd081\
call gssetgs.bat
::%GSC% -dSAFER -dEPSCrop -r600 -sDEVICE=pngalpha -o fooeps11.png %1
%GSC% -dSAFER -dBATCH -dNOPAUSE -sDEVICE=jpeg -r150 -dTextAlphaBits=4 -sOutputFile='paper-%00d.jpg' %1
gm convert -density 120 %1 test12ps.png
gm convert -size 1000x1000 %1 compassAps.jpg
::convert -size 1000x1000 compass.svg compassA.jpg
convert /? > aconverthlp.dat
pause
exit
You can use Pillow.

from PIL import Image

psimage=Image.open('myImage.ps')
psimage.save('myImage.png')
Just install ghostscript, then using 
from PIL import EpsImagePlugin 
EpsImagePlugin.gs_windows_binary = r'C:\Program Files\gs\gs9.55.0\bin\gswin64c'
to solve the error.
gs_windows_binary = r'C:\Program Files\gs\gs9.55.0\bin\gswin64c'" 
D:\parrad\dd081>gm convert -density 120 m_35_20221006h500_1.ps test12ps.png
gm convert: Failed to find Ghostscript (not installed?). ("" -q -dBATCH -dMaxBitmap=50000000 -dNOPAUSE -sDEVICE=ppmraw
 -dTextAlphaBits=4 -dGraphicsAlphaBits=4 -r120x120  -g1265x950 "-sOutputFile=E:\Documents and Settings\Samsung
 \Local Settings\Temp\gmMLxzE
q" -- "E:\Documents and Settings\Samsung\Local Settings\Temp\gmyK8z8a" -c quit).

D:\parrad\dd081>gm convert -size 1000x1000 m_35_20221006h500_1.ps compassAps.jpg
gm convert: Failed to find Ghostscript (not installed?). ("" -q -dBATCH -dMaxBitmap=50000000 -dNOPAUSE -sDEVICE=ppmraw
 -dTextAlp haBits=4 -dGraphicsAlphaBits=4 -r72x72  -g759x570 "-sOutputFile=E:\Documents and Settings\Samsung
 \Local Settings\Temp\gmB9pCbf"
-- "E:\Documents and Settings\Samsung\Local Settings\Temp\gmG3zgiO" -c quit).
/////////////
library(magick)

height <- 100
width <- 80

X <- array(
          runif(height * width * 3, min = 0, max = 255),
          dim = c(height, width, 3)
          )

img <- magick::image_read(X / 255) %>% magick::image_scale("500x400")
img <- magick::image_annotate(img, text = "Example", gravity = "northeast", location = "+50+50", font = "times", size ="20", color = "white")

print(img)

image_write(img, path = "c:/temp/ouput.png")

::

tail absd > rscore_mslp
tail absd > rscore_trsf
tail absd > rscore_prec
tail absd > rscore_h500
tail absd > rscore_t850

D:\parrad\dd081