-----------------------------------------------------------------------
-- An example of Actor Prolog program. --
-- (c) 2014 IRE RAS Alexei A. Morozov --
-----------------------------------------------------------------------
mesh(80,25)
dialog_font('helvetica',14)
draft('off')
dialog 'ImageAnalyser'("Image Subtractor Demo",default,default,default,centered,centered,default)
vbox(left)
hbox(center)
vbox(left)
custom['KeepProportions'](graphic_window,50,53,"Control2D")
end_of_vbox
vbox(center)
button("SelectDirectory","&Select Data Set")
listbutton(0,target_objects,15,7,
[
"Nothing",
"Extract Blobs",
"Extract Tracks",
"Extract Graphs",
"Scene Analysis 1",
"Scene Analysis 2"
],
"Scene Analysis 2"
)
listbutton(0,target_image,15,7,
[
"Recent Image",
"Background Image",
"Sigma Image",
"Foreground Image",
"Synthesized Image",
"Background+Synthesized"
],
"Recent Image"
)
grid
row
column(left)
checkbox("UseGrayscaleColors","Use grayscale colors",'yes')
end_of_column
end_of_row
row
column(left)
checkbox("ApplyGaussianFilteringToBackground","Apply gaussian filtering to background",'yes')
end_of_column
end_of_row
row
column(justify)
statictext(
"Prompting:BackgroundGaussianFilterRadius",
" Radius: ")
vbox(right)
hbox
editinteger("BackgroundGaussianFilterRadius",7,1)
" "
end_of_hbox
end_of_vbox
end_of_column
end_of_row
row
column(left)
checkbox("ApplyMedianFilteringToBackground","Apply median filtering to background",'yes')
end_of_column
end_of_row
row
column(justify)
grid
row
column(left)
statictext(
"Prompting:BackgroundMedianFilterThreshold",
" Threshold: ")
end_of_column
column(right)
editinteger("BackgroundMedianFilterThreshold",7,3)
" "
end_of_column
end_of_row
row
column(left)
"Sigma factor: "
end_of_column
column(right)
editreal("BackgroundStandardDeviationFactor",7,1.2)
" "
end_of_column
end_of_row
end_of_grid
end_of_column
end_of_row
row
column(left)
checkbox("ApplyMedianFilteringToVelocity","Apply median filtering to velocity",'yes')
end_of_column
end_of_row
row
column(justify)
statictext(
"Prompting:VelocityMedianFilterHalfwidth",
" Halfwidth: ")
vbox(right)
hbox
editinteger("VelocityMedianFilterHalfwidth",7,3)
" "
end_of_hbox
end_of_vbox
end_of_column
end_of_row
row
column(left)
checkbox("RefuseSlowTracks","Refuse slow tracks",'yes')
end_of_column
end_of_row
row
column(justify)
grid
row
column(left)
statictext(
"Prompting:FuzzyVelocityThreshold",
" Velocity threshold: ")
end_of_column
column(right)
editreal("FuzzyVelocityThreshold",7,0.3)
" "
end_of_column
end_of_row
row
column(left)
statictext(
"Prompting:FuzzyDistanceThreshold",
" Distance threshold: ")
end_of_column
column(right)
editreal("FuzzyDistanceThreshold",7,40.0)
" "
end_of_column
end_of_row
row
column(left)
statictext(
"Prompting:FuzzyThresholdBorder",
" Threshold border: ")
end_of_column
column(right)
editreal("FuzzyThresholdBorder",7,0.50)
" "
end_of_column
end_of_row
end_of_grid
end_of_column
end_of_row
end_of_grid
grid
row
column(right)
button("ResetSettings","Reset S&ettings")
end_of_column
column(left)
button("ResetStatistics","Reset St&atistics")
end_of_column
end_of_row
row
column(right)
button("ResetResults","Reset &Results")
end_of_column
column(left)
button("ResetAll","Reset A&ll")
end_of_column
end_of_row
row
column(right)
button("DumpGraph","&Dump Graph")
end_of_column
column(left)
button("QuitProgram","&Quit Program")
end_of_column
end_of_row
end_of_grid
end_of_vbox
end_of_hbox
padding(0,0)
statictext(
"The project is supported by RFBR, Russia, "
"RFBR-DST 13-07-92694, "
"and Govt. of India, DST-RFBR P-159.")
statictext(
"The data are coming from the EC Funded CAVIAR "
"project / IST 2001 37540 "
"(https://homepages.inf.ed.ac.uk/rbf/CAVIAR/).")
end_of_padding
end_of_vbox
end_of_dialog
|