home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / t / timwin.zip / TIMWIN2.EXE / pak / RNOISE.CMD < prev    next >
OS/2 REXX Batch file  |  1992-08-05  |  1KB  |  53 lines
  1. ; 0.4.3 RNOISE                                                     <<TIM>> DEMO
  2. ; Adds shot noise and removes it using a percentile filter
  3. ; Last Update 10 - 11 - 1990
  4. ; 07/12/92  expects image in a
  5. ;******************************************************************************
  6. #include timdefs.h
  7.  
  8. parms
  9.   int windisplay
  10. endparms
  11.  
  12. int nnp
  13. int ndiff
  14. int rels
  15. int phor
  16. int pos
  17. int diff
  18. float fres
  19.  
  20. ;debug
  21.  
  22. dest p
  23. show p
  24. copy a            ;get image
  25. dest q
  26. noise 1                ;produce some noise
  27. dest s
  28. comp q > 230
  29. dest q
  30. comp q < 26
  31. inv
  32.  
  33. and p q                ;work the noise into the image
  34. or s q
  35. *windispl h (windisplay+WINLUT1)
  36.  
  37. era s
  38. dest s
  39. perc q 3               ;perform the percentile filter
  40. *windispl i windisplay
  41. dest r
  42. perc q 5               ;again with a larger filter
  43. *windispl i windisplay
  44.  
  45. era x 1                ;prepare for image text
  46. lut 2 3
  47. dest p
  48. text p 1 250 99 "1. Original"
  49. text q 1 250 70 "2. 20% shot noise"
  50. text s 1 250 20 "3. After 2 times median filter 3x3"
  51. text r 1 250 50 "4. After 5x5 median filter"
  52. stop
  53.