>すりガラスのようなものをイメージしています
既に書かれてる方法ではイメージと違ったの?
#include "hspcv.as"
screen 0,640,480,0,0,0
title "通常"
picload dir_exe+"\\hsptv\\sozai4.jpg"
cvbuffer 0,640,480 //作業用CVバッファ
screen 1,640,480,0,0,510
title "CV_BLUR"
BLUR_p1=15
BLUR_p2=15
input BLUR_p1,64,20 :id_bp1=stat
input BLUR_p2,64,20 :id_bp2=stat
button gosub "画面更新",*_CV_BLUR
screen 2,640,480,0,650,510
title "CV_GAUSSIAN"
GAUSSIAN_p1=15
GAUSSIAN_p2=15
input GAUSSIAN_p1,64,20 :id_gp1=stat
input GAUSSIAN_p2,64,20 :id_gp2=stat
button gosub "画面更新",*_CV_GAUSSIAN
gosub *_CV_BLUR
gosub *_CV_GAUSSIAN
stop
*_CV_BLUR
gsel 0
cvputimg 0 //HSPバッファからCVバッファ0にコピー
gsel 1
BLUR_p1 | 1 //偶数だとエラーになるので奇数に
BLUR_p2 | 1
objprm id_bp1,BLUR_p1
objprm id_bp2,BLUR_p2
cvsmooth CV_BLUR,BLUR_p1,BLUR_p2,,0 //CVバッファ0をスムージング処理(数値は奇数限定)
cvgetimg 0 //CVバッファ0からHSPウィンドウにコピー
return
*_CV_GAUSSIAN
gsel 0
cvputimg 0 //HSPバッファからCVバッファ0にコピー
gsel 2
GAUSSIAN_p1 | 1
GAUSSIAN_p2 | 1
objprm id_gp1,GAUSSIAN_p1
objprm id_gp2,GAUSSIAN_p2
cvsmooth CV_GAUSSIAN,GAUSSIAN_p1,GAUSSIAN_p2,,0 //CVバッファ0をスムージング処理(数値は奇数限定)
cvgetimg 0 //CVバッファ0からHSPウィンドウにコピー
return