roi is currently ignored.
sv_ip_display new: car_image data_in=`car_ip' title= `Original data' render! ;
environment new: sunvision variable="SUNVISION" ;
string new: kernel_dir = [sunvision value?] + "/ip/kernel"; string new: `first_kernel' = kernel_dir + `/' + `sobel_col';
sv_ip_kernel new: kernel filename= first_kernel ;
sv_ip_convolve new: gauss3 data_in=`car_ip' kernel=`kernel' ;
sv_ip_display new: image data_in=`gauss3' title= title render! ;
motif create!;
motif_file_selection_box new: fsb parent=motif @ `directory' : kernel_dir @ `pattern' : "*" ok_action=`render' create! ;
actions new: `render' tick_actions=` kernel destroy! filename=[fsb @ `dirSpec' string_value?] ;
title = [fsb @ `dirSpec' string_value?] - [sunvision value?] - `/ip/kernel/' ; object # [image window?] store_name: title; image render!; ' ;
motif on! start!;