Posted to tcl by smsaurabh at Thu Jun 02 19:15:57 GMT 2011view raw

  1. def op_gauss_cleanup {
  2. label {Cleanup }
  3. active {
  4. expr {[bases] == 1}
  5. }
  6. setup_image {
  7. variable L [base]
  8. show
  9. }
  10. setup {
  11. variable high 230
  12. variable low 200
  13. variable sigma1 3.5
  14. variable sigma2 0.1
  15.  
  16.  
  17.  
  18. proc show {args} {
  19. variable L
  20.  
  21. variable high
  22. variable low
  23. variable sigma1
  24. variable sigma2
  25.  
  26. set di [crimp filter cleanup $L $sigma1 $high $low $sigma2]
  27.  
  28. show_image $di
  29. return
  30. }
  31.  
  32. scale .left.high -variable ::DEMO::high \
  33. -from 0 -to 255 -resolution 5 -length 255\
  34. -orient vertical \
  35. -command ::DEMO::show
  36.  
  37. scale .left.low -variable ::DEMO::low \
  38. -from 0 -to 255 -resolution 5 -length 255\
  39. -orient vertical \
  40. -command ::DEMO::show
  41.  
  42. scale .left.sigma1 -variable ::DEMO::sigma1 \
  43. -from 0.1 -to 5 -resolution 0.1 -length 50\
  44. -orient vertical \
  45. -command ::DEMO::show
  46.  
  47. scale .left.sigma2 -variable ::DEMO::sigma2 \
  48. -from 0.1 -to 5 -resolution 0.1 -length 50\
  49. -orient vertical \
  50. -command ::DEMO::show
  51.  
  52.  
  53. grid .left.high -row 0 -column 0 -sticky swen
  54. grid .left.low -row 0 -column 1 -sticky swen
  55.  
  56. grid .left.sigma1 -row 1 -column 0 -sticky swen
  57. grid .left.sigma2 -row 1 -column 1 -sticky swen
  58.  
  59. }
  60. }
  61.