pro farid3

;1-Read in image data from the binary file nyny.dat :

file = FILEPATH('nyny.dat', SUBDIRECTORY = ['examples','data']) 
imageSize = [768, 512]

 
image = READ_BINARY(file, DATA_DIMS = imageSize) 

;2-Crop the image to focus on the bridges :

croppedSize = [96, 96] 
croppedImage = image[200:(croppedSize[0] - 1) + 200, $ 
   180:(croppedSize[1] - 1) + 180] 

;3-Specify the size of the final displayed images :

displaySize = [150, 150] 

;4-Resize the image to the final display size, apply various detection filters, then display using iImage :

croppedImage = CONGRID(croppedImage, displaySize[0],$ 
   displaySize[1]) 
 
IIMAGE, croppedImage, DIMENSIONS=[700,700], $ 
   VIEW_GRID=[4,2], $ 
   VIEW_TITLE='Original', /NO_SAVEPROMPT, $ 
   TITLE='dr mohammad zade - esmaeyli - hadavand' 
 
robertsfilteredImage = ROBERTS(croppedImage) 
 
IIMAGE, RobertsFilteredImage, /VIEW_NEXT , /OVERPLOT, $ 
   VIEW_TITLE='ROBERTS Filter' 
 
SobelFilteredImage = SOBEL(croppedImage) 
 
IIMAGE, SobelFilteredImage, /VIEW_NEXT, /OVERPLOT, $ 
   VIEW_TITLE='SOBEL Filter' 
 
PrewittFilteredImage = PREWITT(croppedImage) 
 
IIMAGE, PrewittFilteredImage, /VIEW_NEXT, /OVERPLOT, $ 
   VIEW_TITLE='PREWITT Filter' 
 
ShiftDiffFilteredimage = SHIFT_DIFF(croppedImage) 
 
IIMAGE, ShiftDiffFilteredimage, /VIEW_NEXT, /OVERPLOT, $ 
   VIEW_TITLE='SHIFT_DIFF Filter' 
 
EdgeDogFilteredimage = EDGE_DOG(croppedImage) 
 
IIMAGE, EdgeDogFilteredimage, /VIEW_NEXT, /OVERPLOT, $ 
   VIEW_TITLE='EDGE_DOG Filter' 
 
LaplacianFilteredImage = LAPLACIAN(croppedImage) 
 
IIMAGE, LaplacianFilteredImage, /VIEW_NEXT, /OVERPLOT, $ 
   VIEW_TITLE='LAPLACIAN Filter' 
 
EmbossFilteredImage = EMBOSS(croppedImage) 
 
IIMAGE, EmbossFilteredImage, /VIEW_NEXT, /OVERPLOT, $ 
   VIEW_TITLE='EMBOSS Filter'
   
   end