%% 사전 설정
% 파일이름에 오늘의 날짜를 사용합니다.
reportDate = datetime; 
reportDate.Format = 'yyyy-MM-dd';

% 관련 라이브러리를 읽어 들입니다.
import mlreportgen.ppt.*;

% 파일명과 타이틀명
fileName     = "sampleReport" + string(reportDate);
titleText    = "샘플 레포트";
subTitleText = "작성일 " + string(reportDate);

% 사전에 작성한 템플릿으로부터 슬라이드를 만듭니다.
pres = Presentation(fileName,'sampleTemplate.potx');

%% 타이틀 슬라이드를 만듭니다.
% 템플릿에 있는 "Title Slide" 레이아웃을 사용합니다.
titleSlide = add(pres,'Title Slide');

% Placeholder의 내용을 삽입해줍니다.
replace(titleSlide,'Title',titleText);
replace(titleSlide,'Subtitle',subTitleText);

%% 여기부터 리포트 페이지
% 주사위를 N번 흔들어서 나오는 눈의 횟수를 집계합니다.
names = ["one","two","three","four","five","six"];

for ii=1:5 % 10회부터 10만회까지
    N = 10^ii;
    
    % 1부터 6까지 정수를 생성
    diceResults = randi(6,[N,1]);
    % 각 출력의 눈의 횟수를 집계
    counts = histcounts(diceResults);
    [countsSorted,idx] = sort(counts,'descend');
    
    % 히스토그램 작성
    hFigure = figure(1);
    histogram(diceResults,'Normalization','probability');
    title('Histogram of Each Occurenace');
    ha = gca;
    ha.FontSize = 20;
    
    % 그림을 저장하고 난 뒤에 파워포인트로 복사
    imgPath = saveFigureToFile(hFigure);
    pictureObj = Picture(imgPath);
    
    % 슬라이드 타이틀
    slideTitle = "Uniformly Distributed? (N = " + string(N) + ")";
    
    % 사전에 준비해둔 커스텀 레이아웃에서 페이지 작성
    slide = add(pres, 'Custom');
    replace(slide,'Title',slideTitle); % 타이틀
    replace(slide,'Picture Placeholder Big', pictureObj); % 정 가운데 히스토그램을 배치
    
    % 나온 횟수순으로 탑 5: 나온 횟수와 그림을 배치
    topfive = names(idx);
    for jj=1:5
        % 그림은 사전에 준비한 것을 사용
        imagePath = "./images/" + topfive(jj) + ".png";
        if ~exist(imagePath,'file') % 만약을 위해 그림이 없는 경우
            imagePath = "./images/a.png";
        end
        pictureObj = Picture(char(imagePath));
        replace(slide,"Picture Placeholder " + jj, pictureObj);
        replace(slide,"Text Placeholder " + jj, string(countsSorted(ii)));
    end
    
    % hFigure 를 닫는다.
    if( isvalid(hFigure) )
        close(hFigure);
    end
end

%% 이상의 페이지를 바탕으로 파워포인트 작성
% msgbox로 다이어로그를 출력해본다.
hMsg = msgbox('Generating PowerPoint report...');

% pres 를 닫아버린다.
close(pres);
if(ispc) % 준비된 파워포인트를 연다.
    winopen(pres.OutputPath);
end

% 다이어로그를 닫는다.
if( isvalid(hMsg) )
    close(hMsg);
end


function imgPath = saveFigureToFile(hFigure)

% Create images folder if it does not exist
imgFolderPath = fullfile('.','tmp_plots');
if( ~isdir(imgFolderPath) )
    mkdir(imgFolderPath);
end

% Create randomized name for image file
imgName = ['img_',char(datetime('now','Format','yyyyMMddHHmmssSSSSS'))];

% Select an appropriate image type depending on the platform.
if ~ispc
    imgType = '-dpng';
    imgName= [imgName '.png'];
else
    % This Microsoft-specific vector graphics format
    % can yield better quality images in Word documents.
    imgType = '-dmeta';
    imgName = [imgName '.emf'];
end

% Create the path for the file
imgPath = fullfile(imgFolderPath,imgName);

% Save image to file
print(hFigure,imgPath,imgType);

end

%% 타이틀 슬라이드 작성
% 템플릿에 있는  "Title Slide" 레이아웃을 사용
titleSlide = add(pres,'Title Slide');

% 파일명과 타이틀
fileName     = "sampleReport" + string(reportDate);
titleText    = "샘플 타이틀";
subTitleText = "작성일" + string(reportDate);

% Placeholder의 내용을 삽입해줍니다.
replace(titleSlide,'Title',titleText);
replace(titleSlide,'Subtitle',subTitleText);