向一系列 .jpg 图像添加中心线

Question

是否有人对向一系列 .jpg 图像添加永久虚线中心线或矩形的程序或代码有任何建议。使用 ImageJ 或 IrfanView 或 R

编辑。在 R 中使用 ImageMagick 包的建议很好，使用下面的代码可以很好地处理一张图像。但不清楚如何对一个文件夹中的多张图片进行批量处理。

> test <- image_read('F:/11_Cairns/Data/2_Barron_Richter_Thomatis/FRAMES/2017_4_665_20171206083500_6.jpg')
> img <- image_draw(test)
> rect(600,0, 680, 720, border = "yellow", lty = "dashed", lwd = 2)

Answer 1

以下将起作用...

# Return a vector of all file paths that end with "jpg":
files <- list.files("F:/11_Cairns/Data/2_Barron_Richter_Thomatis/FRAMES/", pattern = "jpg$", ignore.case = TRUE, full.names = TRUE)

# Loop over each image and add a dashed yellow lines.
for(i in files){
    test <- image_read(i)
    img <- image_draw(test)
    rect(600, 0, 680, 720, border = "yellow", lty = "dashed", lwd = 2)
    dev.off()
    # And if you want to save it, but not overwrite the original file:
    file_loc <- gsub("\.jpg", "_new.jpg", i, ignore.case = TRUE)
    image_write(img, path = file_loc, format = "jpg")
}

向一系列 .jpg 图像添加中心线

Add a centerline to a series of .jpg images

jpeg

r

imagemagick

image-processing