Initial data commit

Task/Bitmap-Histogram/Fortran/bitmap-histogram-1.f

@@ -0,0 +1,40 @@
+module RCImageProcess
+  use RCImageBasic
+  implicit none
+contains
+
+  subroutine get_histogram(img, histogram)
+    type(scimage), intent(in) :: img
+    integer, dimension(0:255), intent(out) :: histogram
+
+    integer :: i
+
+    histogram = 0
+    do i = 0,255
+       histogram(i) = sum(img%channel, img%channel == i)
+    end do
+  end subroutine get_histogram
+
+  function histogram_median(histogram)
+    integer, dimension(0:255), intent(in) :: histogram
+    integer :: histogram_median
+
+    integer :: from, to, left, right
+
+    from = 0
+    to = 255
+    left = histogram(from)
+    right = histogram(to)
+    do while ( from /= to )
+       if ( left < right ) then
+          from = from + 1
+          left = left + histogram(from)
+       else
+          to = to - 1
+          right = right + histogram(to)
+       end if
+    end do
+    histogram_median = from
+  end function histogram_median
+
+end module RCImageProcess

Task/Bitmap-Histogram/Fortran/bitmap-histogram-2.f

@@ -0,0 +1,42 @@
+program BasicImageTests
+  use RCImageBasic
+  use RCImageIO
+  use RCImageProcess
+
+  implicit none
+
+  type(rgbimage) :: animage
+  type(scimage) :: gray
+  integer, dimension(0:255) :: histo
+  integer :: ml
+
+  open(unit=10, file='lenna.ppm', action='read', status='old')
+  call read_ppm(10, animage)
+  close(10)
+
+  call init_img(gray)
+  ! or
+  ! call alloc_img(gray, animage%width, animage%height)
+
+  gray = animage
+
+  call get_histogram(gray, histo)
+  ml = histogram_median(histo)
+  where ( gray%channel >= ml )
+     animage%red = 255
+     animage%green = 255
+     animage%blue = 255
+  elsewhere
+     animage%red = 0
+     animage%green = 0
+     animage%blue = 0
+  end where
+
+  open(unit=10, file='elaborated.ppm', action='write')
+  call output_ppm(10, animage)
+  close(10)
+
+  call free_img(animage)
+  call free_img(gray)
+
+end program BasicImageTests