hwidth is the horizontal width parameter for those algorithms that require it.
vwidth is the vertical width parameter for those algorithms that require it.
string new: `title' string_format=`Edge detector using 1 algorithm' = `ipPREWITT' ;
sv_ip_edge new: edge data_in=`car_ip' method=ipPREWITT hwidth=5 vwidth=5 ;
sv_ip_display new: image data_in=`edge' title= title render! ;
motif create!;
motif_selection_box new: sb parent=motif ok_action=`render' create! ;
motif_list new: box_list parent=sb id=[sb list_id?] add_item:( `ipPREWITT', `ipROBERTS', `ipCOMPASS', `ipFREI_CHEN', `ipMARR_HILDRETH', `ipNEVATIA_BABU', `ipROBINSON3', `ipROBINSON5', `ipMACLEOD', `ipARGYLE', `ipKIRSCH', `ipBOXCAR', `ipSOBEL', `ipD_OF_G', `ipWTD_LINE', `ipUNWTD_LINE' ) ;
hash_table new: methods key=`ipPREWITT' install: ipPREWITT key=`ipROBERTS' install: ipROBERTS key=`ipCOMPASS' install: ipCOMPASS key=`ipFREI_CHEN' install: ipFREI_CHEN key=`ipMARR_HILDRETH' install: ipMARR_HILDRETH key=`ipNEVATIA_BABU' install: ipNEVATIA_BABU key=`ipROBINSON3' install: ipROBINSON3 key=`ipROBINSON5' install: ipROBINSON5 key=`ipMACLEOD' install: ipMACLEOD key=`ipARGYLE' install: ipARGYLE key=`ipKIRSCH' install: ipKIRSCH key=`ipBOXCAR' install: ipBOXCAR key=`ipSOBEL' install: ipSOBEL key=`ipD_OF_G' install: ipD_OF_G key=`ipWTD_LINE' install: ipWTD_LINE key=`ipUNWTD_LINE' install: ipUNWTD_LINE ;
actions new: `render' tick_actions=` edge method=[methods key= [sb @ `textString' string_value?] value?] ;
title = [sb @ `textString' string_value?]; object # [image window?] store_name: title; image render!; ' ;
motif on! start!;