Advertisement
Guest User

Untitled

a guest
Mar 1st, 2014
132
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
F# 0.55 KB | None | 0 0
  1. let makeGrayscalePixel(avgRGB:int) =
  2.   [avgRGB; avgRGB; avgRGB]
  3.  
  4. let getAverageRGBValue(pixel:int list) =
  5.   let sum = List.sum pixel
  6.   let average = sum/3
  7.   average // Return calculated average
  8.  
  9. let getPixel(pixRow:int list) =
  10.   let r = pixRow.Head
  11.   let g = pixRow.Tail.Head
  12.   let b = pixRow.Tail.Tail.Head
  13.   [r, g, b] // Return int list with RGB values in it
  14.  
  15. let TransformGrayscale(image:int list list) =
  16.   let pixel = getPixel(image.Head)
  17.   let avgRGB = getAverageRGBValue(pixel)
  18.   let grayPixel = makeGrayscalePixel(avgRGB)
  19.   //finish...
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement