R 言語の sketcher パッケージを使って写真をスケッチ風に変換するスクリプト

#!/bin/sh

# 一時ファイルにつける名前
temp_prefix="temporal_00000"

# 引数の有無をチェック
if [ $# != 1 ]; then
    echo "ERROR! ファイル名の指定がない"
    exit 1
fi

# パスとファイル名の抜き出し
dirName=`dirname $1`
srcFilename=`basename $1`

# Sketcher に投げる前に画像サイズを適当に縮小する
tempFilename="${temp_prefix}${srcFilename}_resized.png"
convert -resize 1024x ${dirName}/${srcFilename} ${dirName}/${tempFilename}

# 画像変換 R スクリプトの実行
Rscript sketch_multi.R $dirName $tempFilename

filename="${tempFilename}_style#st-lineweight#lw-smooth#sm.png"

for style in 1 2
do
    for smooth in 1 3 5
    do
        smFile=`echo $filename | sed -e "s/#sm/${smooth}/" -e "s/#lw/*/" -e "s/#st/${style}/"`
        # 横方向に結合
        convert +append $smFile ${temp_prefix}${smooth}_sm_append.png
    done

    # 縦方向に結合
    convert -append ${temp_prefix}*_sm_append.png ${srcFilename}_style${style}.png
done

# 一時ファイル削除処理
rm ${temp_prefix}*.png

#!/usr/bin/Rscript
# sketcher を使って引数に与えた画像ファイルを
# 様々なパラメータで描画する R スクリプト
# lineweight と smooth と style を組み合わせ
# 全部で 12 x 2 パターンの画像を出力する

# 引数: ファイルのあるパス, ファイル名

# ライブラリ読み込み
library(sketcher)

# 引数の読み込み
args <- commandArgs(trailingOnly = TRUE)

# 引数から作業ディレクトリとファイル名を取得する
rootDir = args[1]
imgFilename = args[2]
# rootDir = "./"
# imgFilename = "test.jpg"
print(rootDir)
print(imgFilename)

# ファイルパスの作成と画像の読み込み
src_img_path = paste0(rootDir, "/", imgFilename)
src_img = im_load(src_img_path)
# plot(src_img) # 画像表示

# 線幅の範囲
lineweight_param = c(0.5, 1, 3, 5)

# style 種類の範囲
style_param = 1:2

# smooth の範囲
smooth_param = seq(1, 6, 2)

# 線幅パラメータでプロット
for(style in style_param) {
    for (line_weight in lineweight_param) {
        for (smooth in smooth_param) {
            # 画像変換
            new_img = sketch(src_img, style = style, lineweight = line_weight, smooth = smooth)
            # ファイル名の指定 (文字列連結)
            name_img = paste0(imgFilename, "_style", style, "-lineweight", line_weight, "-smooth", smooth)
            print(name_img)
            # 画像保存
            im_save(new_img, name = name_img, path = rootDir, format = "jpg", quality = .90)
            # im_save(new_img, name = name_img, path = rootDir, format = "png")
        }
    }
}

bash ./mk_test_tileSketcher.sh /path/to/img_file.jpg

#!/usr/bin/Rscript
# sketcher を使って引数に与えた画像ファイルを
# 変換するスクリプト

# 引数: ファイルのあるパス, ファイル名

# ライブラリ読み込み
library(sketcher)

# 引数の読み込み
args <- commandArgs(trailingOnly = TRUE)

# 引数から作業ディレクトリとファイル名を取得する
rootDir = args[1]
imgFilename = args[2]
# rootDir = "./"
# imgFilename = "test.jpg"
print(rootDir)
print(imgFilename)

# ファイルパスの作成と画像の読み込み
src_img_path = paste0(rootDir, "/", imgFilename)
src_img = im_load(src_img_path)
# plot(src_img) # 画像表示

# 線幅の範囲 > 0.3 (0.5, 1, 3, 5)
lineweight_param = 0.8

# style 種類の範囲 1 or 2
style_param = 2

# smooth の範囲 >= 0 (1, 3, 5)
smooth_param = 1

# 線幅パラメータでプロット
# 画像変換
new_img = sketch(src_img, style = style_param, lineweight = lineweight_param, smooth = smooth_param, max.size = 8000)
# ファイル名の指定 (文字列連結)
name_img = paste0(imgFilename, "_style", style_param, "-lineweight", lineweight_param, "-smooth", smooth_param)
print(name_img)
# 画像保存
# im_save(new_img, name = name_img, path = rootDir, format = "jpg", quality = .95)
im_save(new_img, name = name_img, path = rootDir, format = "png")

Rscript ./sketcher_single.R /path/to/file_directory img_file.jpg

# apt install r-base

> install.packages("sketcher")

 パッケージを ‘/usr/local/lib/R/site-library’ 中にインストールします
 (‘lib’ が指定されていないため)
 install.packages("sketcher") で警告がありました:
   'lib = "/usr/local/lib/R/site-library"' は書き込み可能ではありません
Would you like to use a personal library instead? (yes/No/cancel)

ERROR: dependencies ‘readbitmap’, ‘imager’ are not available for package ‘sketcher’

# apt install libtiff-dev

checking for XOpenDisplay in -lX11... no
X11 library not found, please install X11 library if you need the display capabilities of CImg.
configure: error: X11 not found but required, configure aborted.
ERROR: configuration failed for package ‘imager’

# apt install libx11-dev