function [x,y] = codeicon(fla)
% CODEICON Produce Icons for Error Control Codeing or Decoding
%   [X, Y] = CODEICON(FLA) produces X, and Y for error control coding
%   blocks.

%       Copyright (c) 1996 by The MathWorks, Inc.
%       $Revision: 1.1 $  $Date: 1996/04/01 19:32:21 $

if fla == 1
    % vector code
    x = [05 15 15 05 05 15 15 15  15 20 15 75 75 85 75 75 15 75 75  85 85 95 95 85 85 95 85 85 95];
    y = [80 80 90 90 70 70 90 80  83 80 77 77 73 80 87 83 83 83 87  80 95 95 65 65 85 85 85 75 75];
%    plot(0,0,100,100,x,y)
elseif fla == 2
    % vector decode
    x = [05 15 15 05 15 15 05 05 15  15 20 15 75 75 85 75 75 15 75 75  85 85 95 95 85 85 95];
    y = [75 75 85 85 85 65 65 95 95  83 80 77 77 73 80 87 83 83 83 87  80 90 90 70 70 80 80];
%    plot(0,0,100,100,x,y)
elseif fla == 3
    % sequential code
%    x = [25 05 05 25 25 25 15 15 25 25    50 40 65 57 57 65   65 95 95 65 65 75 75 85 85];
%    y = [95 95 85 85 95 85 85 95 95 90    90 80 80 77 83 80   85 85 75 75 85 85 75 75 85];
    x = [25 05 05 25 25 25 15 15 25 25    50 60 60 65 60 60 65   65 95 95 65 65 75 75 85 85];
    y = [95 95 85 85 95 85 85 95 95 90    90 90 93 90 87 93 90   95 95 85 85 95 95 85 85 95]-5;
%    plot(0,0,100,100,x,y);
elseif fla == 4
    % sequential decode
%    x = [35 05 05 35 35 35 15 15 25 25 35 35    60 50 75 67 67 75   75 95 95 75 75 85 85];
%    y = [95 95 85 85 95 85 85 95 95 85 85 90    90 80 80 77 83 80   85 85 75 75 85 85 75];
    x = [35 05 05 35 35 35 15 15 25 25 35 35    60 70 70 75 70 70 75   75 95 95 75 75 85 85];
    y = [95 95 85 85 95 85 85 95 95 85 85 90    90 90 93 90 87 93 90   95 95 85 85 95 95 85]-5;
%    plot(0,0,100,100,x,y);
end;