OCR_Window.m

function varargout = OCR_Window(varargin)
% OCR_WINDOW M-file for OCR_Window.fig
%      OCR_WINDOW, by itself, creates a new OCR_WINDOW or raises the existing
%      singleton*.
%
%      H = OCR_WINDOW returns the handle to a new OCR_WINDOW or the handle to
%      the existing singleton*.
%
%      OCR_WINDOW('CALLBACK',hObject,eventData,handles,...) calls the local
%      function named CALLBACK in OCR_WINDOW.M with the given input arguments.
%
%      OCR_WINDOW('Property','Value',...) creates a new OCR_WINDOW or raises the
%      existing singleton*.  Starting from the left, property value pairs are
%      applied to the GUI before OCR_Window_OpeningFcn gets called.  An
%      unrecognized property name or invalid value makes property application
%      stop.  All inputs are passed to OCR_Window_OpeningFcn via varargin.
%
%      *See GUI Options on GUIDE's Tools menu.  Choose "GUI allows only one
%      instance to run (singleton)".
%
% See also: GUIDE, GUIDATA, GUIHANDLES

% Edit the above text to modify the response to help OCR_Window

% Last Modified by GUIDE v2.5 29-Apr-2010 09:32:14

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name',       mfilename, ...
                   'gui_Singleton',  gui_Singleton, ...
                   'gui_OpeningFcn', @OCR_Window_OpeningFcn, ...
                   'gui_OutputFcn',  @OCR_Window_OutputFcn, ...
                   'gui_LayoutFcn',  [] , ...
                   'gui_Callback',   []);
if nargin && ischar(varargin{1})
    gui_State.gui_Callback = str2func(varargin{1});
end

if nargout
    [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
else
    gui_mainfcn(gui_State, varargin{:});
end

% End initialization code - DO NOT EDIT

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes just before OCR_Window is made visible.
function OCR_Window_OpeningFcn(hObject, eventdata, handles, varargin)
% This function has no output args, see OutputFcn.
% hObject    handle to figure
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% varargin   command line arguments to OCR_Window (see VARARGIN)
set(hObject,'Name','Arabic OCR Project');
movegui(hObject,'center');
global net;
global all_words;
if exist('DataBase.mat','file') == 2
    saved_items = load('DataBase.mat','-mat');
    all_words = saved_items.all_words;
    net = saved_items.net;
else
    error_no_nn_exist;
end
% Choose default command line output for OCR_Window

handles.output = hObject;
guidata(hObject, handles);
% Update handles structure


% UIWAIT makes OCR_Window wait for user response (see UIRESUME)
% uiwait(handles.figure1);

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% --- Outputs from this function are returned to the command line.
function varargout = OCR_Window_OutputFcn(hObject, eventdata, handles) 
% varargout  cell array for returning output args (see VARARGOUT);
% hObject    handle to figure
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Get default command line output from handles structure
varargout{1} = handles.output;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%ÒÑ ÇáÇÓÊÚÑÇÖ
% --- Executes on button press in pushbutton1.
function pushbutton1_Callback(hObject, eventdata, handles)
% hObject    handle to pushbutton1 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
[filename, pathname] = uigetfile({'*.bmp;*.jpg;*.gif;*.png';'*.*'}, 'Pick an Image File','Tests/');
if pathname ~= 0
    S = imread([pathname,filename]);
    axes(handles.axes1);
    imshow(S);
    handles.S = S;
    guidata(hObject, handles);
end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%ÒÑ ÇáÊãííÒ
% --- Executes on button press in pushbutton2.
function pushbutton2_Callback(hObject, eventdata, handles)
% hObject    handle to pushbutton2 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
global net;
global all_words;
try
    I = handles.S;
    %Threshold
    Igray = rgb2gray(I);
    Ibw = im2bw(Igray,graythresh(Igray));
    Iedge = edge(uint8(Ibw));
    %--------------------------------
    se = strel('Line',25,0);
    se1 = strel('Line',20,90);
    Iedge2 = imdilate(Iedge, se); 
    Iedge3 = imdilate(Iedge2, se1);
    Ifill = imfill(Iedge3,'holes');
    [Ilabel num] = bwlabel(Ifill);
    Iprops = regionprops(Ilabel);
    Ibox = [Iprops.BoundingBox];
    [y,x]=size(Ibox);
    x=x/4;
    Ibox = reshape(Ibox,[4 x]);
    
    Fbox = [];
    line = [];
    counter = 0;
    for qq =1:size(Ibox,2)
        Tbox = [];
        min = 1024;
        avg_height = 0;
        for j = 1:size(Ibox,2)
            if min > Ibox(2,j)
                min = Ibox(2,j);
                counter = counter + 1;
            end
            avg_height = avg_height + Ibox(4,j);
        end
        avg_height = avg_height / size(Ibox,2);

        for j = 1:size(Ibox,2)
            if abs(min - Ibox(2,j)) < avg_height
                Tbox = [Tbox Ibox(:,j)];
                line = [line counter];
                Ibox(2,j) = 2024;
            end
        end
        if size(Tbox,1) > 0
            Tbox = sortrows(Tbox',-1)';
            Fbox = [Fbox Tbox];
        end
    end
    Ibox = Fbox;
    fid = fopen('Arabic_output.txt', 'w', 'n', 'UTF-8');
    current_line = line(1);
    for cnt = 1:size(Ibox,2)
        rectangle('position',Ibox(:,cnt),'edgecolor','r');
        img{cnt} = imcrop(Ibw,Ibox(:,cnt));
        %pre-process
        bw2 = charcrop(img{cnt});
        %------------
        %Feature Extraction
        charvec = figresize(bw2);
        %------------
        %Recognize
        result = sim(net,charvec);
        if sum(ones(size(result))-result<=0.05) == 1 && sum(result >= 0.2) == 1
            [val, num] = max(result);
            str = char(all_words{num});
        else
            str = '?';
        end
        if current_line == line(cnt)
            fwrite(fid,' ', 'char');
        else
            str1 = char(13);
            fwrite(fid, str1, 'char');
            str2 = char(10);
            fwrite(fid, str2, 'char');
            current_line = line(cnt);
        end
        fwrite(fid, str, 'char');
        
        %------------
    end
    fclose(fid);
    dos('notepad Arabic_output.txt &');
    guidata(hObject, handles);
catch ME
    Error_no_word;
end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%