motif_drawing_area new: `da' parent=`motif' @ `width' : 256 @ `height' : 256 expose_action=`display_image' create! ;
sv_ip_copy new: _mr_float data_in=`mr_ip' data_type=ipFLOAT ;
sv_ip_copy new: _pet_float data_in=`pet_byte_256' data_type=ipFLOAT ;
sv_ip_fft new: mr_fft data_in=`_mr_float'; sv_ip_fft new: pet_fft data_in=`_pet_float';
sv_ip_fft_mul new: fft_product data_in=(`mr_fft', `pet_fft') ;
sv_ip_ifft new: product data_in=(`fft_product');
sv_ip_display new: image data_in=`product'
;
logic new: `if';
actions new: `display_image' tick_actions=` if defined:`da_win' false:` xwindow new: `da_win' id=[da window_id?] -- must set depth explicitly for now depth=[da @ `depth' scalar_value?] ; image window= `da_win'; ' ; image render!; ' ;
motif on! start!;