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, プログラミング, プログラム, 動画処理};
![[PukiWiki]](./skin/logo.png "[PukiWiki]"){kind=logo}
