Added function to locate HEVC package directory

and by extension its  subfolders

Dir.m

+function HEVCDir = Dir()
+%DIR Summary of this function goes here
+%   Detailed explanation goes here
+
+HEVCDir = fileparts(mfilename('fullpath'));
+end
\ No newline at end of file

codec.m

@@ -2,7 +2,7 @@ function [nbBits,peaksnr] = codec(varargin)
 %CODEC Summary of this function goes here
 %   Detailed explanation goes here
 
-[HEVCDir,~,~] = fileparts(mfilename('fullpath'));
+HEVCDir = HEVC.Dir;
 defaultCfg  = fullfile(HEVCDir,'cfg','intra.cfg');
 
 %% Parse coding choice

decode.m

@@ -2,7 +2,7 @@ function [nbBits,peaksnr] = decode(varargin)
 %DECODE Summary of this function goes here
 %   Detailed explanation goes here
 
-[HEVCDir,~,~] = fileparts(mfilename('fullpath'));
+HEVCDir = HEVC.Dir;
 if ispc
     TAppDecoder = fullfile(HEVCDir,'bin','TAppDecoder.exe');
 elseif isunix

encode.m

@@ -2,7 +2,7 @@ function [nbBits,peaksnr] = encode(varargin)
 %ENCODE Summary of this function goes here
 %   Detailed explanation goes here
 
-[HEVCDir,~,~] = fileparts(mfilename('fullpath'));
+HEVCDir = HEVC.Dir;
 if ispc
     TAppEncoder = fullfile(HEVCDir,'bin','TAppEncoder.exe');
 elseif isunix

encodedecode.m

@@ -2,7 +2,7 @@ function [nbBits,peaksnr] = encodedecode(varargin)
 %ENCODE Summary of this function goes here
 %   Detailed explanation goes here
 
-[HEVCDir,~,~] = fileparts(mfilename('fullpath'));
+HEVCDir = HEVC.Dir;
 if ispc
     TAppEncoder = fullfile(HEVCDir,'bin','TAppEncoder.exe');
 elseif isunix