REAPER-Video-Proccessor-Script/Tone Adjustment の変更点


#author("2025-08-05T22:40:27+09:00","default:pitablog","pitablog")
* 色調補正スクリプト - REAPER動画プロセッサ [#d5579db7]
#splitbody{{
LEFT:
&tag(情報技術,REAPER,プログラミング,スクリプト);
#split
RIGHT:&size(13){投稿日: 2025-08-05 (火)};
}}

REAPERの動画プロセッサ用の色調補正スクリプトです。
彩度、輝度、コントラストの調整ができます。

ライセンスはCC0とします。

#gcode(c){{
// Tone Adjustment
//@param 1:sat 'saturation' 0.0 -1 1
//@param 2:bright 'brightness' 0.0 -1 1
//@param 3:cont 'contrast' 0.0 -1 1

colorspace = 'RGBA';

input_info(0, project_w, project_h);

gfx_blit(0);

#str = "";
(sat != 0 || bright != 0 || cont != 0) ? (
  sat = 1 + sat;
  bright = bright * 255;
  cont = 2 ^ cont;

  sprintf(#str, "");

  bright != 0 ? (
    sprintf(#line, "r += %.6f; g += %.6f; b += %.6f;\n", bright, bright, bright);
    strcat(#str, #line);
  );

  cont != 0 ? (
    sprintf(#line, "
    r = (r - 128) * %.6f + 128;
    g = (g - 128) * %.6f + 128;
    b = (b - 128) * %.6f + 128;
    ", cont, cont, cont);
    strcat(#str, #line);
  );

  sat != 0 ? (
    sprintf(#line, "
    lum = 0.299*r + 0.587*g + 0.114*b;
    r = lum + (r - lum) * %.6f;
    g = lum + (g - lum) * %.6f;
    b = lum + (b - lum) * %.6f;
    ", sat, sat, sat);
    strcat(#str, #line);
  );

  strcat(#str, "
  r = min(max(r, 0), 255);
  g = min(max(g, 0), 255);
  b = min(max(b, 0), 255);
  ");

  gfx_evalrect(0, 0, project_w, project_h, #str);
);
}}

** コメント [#n3ef9051]

#pctrlcmt

&size(10){キーワード: EEL2言語, 色調補正, Tone Adjustment, 彩度, 明るさ, 明度, 輝度, コントラスト, Video Proccessor, 動画プロセッサ, スクリプト, Script, プログラミング, プログラム, 動画処理};

検索

 

プロフィール

Pitan
pitan_prof.png
プログラミングや音MADやらが趣味

最新のページ

最新の5件
2025-08-05 2025-07-10 2025-07-06

[もっと見る]

タグ

[もっと見る]

人気のページ

人気の5件

カウンター

合計: 21
今日: 3
昨日: 9
オンライン: 1
  編集 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS