溫馨提示×

溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務條款》

如何利用Matlab復刻舉牌加油小人生成器

發(fā)布時間:2022-03-02 14:34:07 來源:億速云 閱讀:211 作者:小新 欄目:開發(fā)技術(shù)

這篇文章主要為大家展示了“如何利用Matlab復刻舉牌加油小人生成器”,內(nèi)容簡而易懂,條理清晰,希望能夠幫助大家解決疑惑,下面讓小編帶領大家一起研究并學習一下“如何利用Matlab復刻舉牌加油小人生成器”這篇文章吧。

突然發(fā)現(xiàn)cla函數(shù)也可以應用到app designer控件上,因而對部分內(nèi)容做出更改。

手癢,用matlab app designer復刻了一款舉牌加油小人生成器,效果如下:

如何利用Matlab復刻舉牌加油小人生成器

如何利用Matlab復刻舉牌加油小人生成器

該程序可以生成正方形和長方形舉牌小人,并且可以自己設置背景顏色(點擊那些有顏色的小框框),點擊綠色旋轉(zhuǎn)按鈕可以刷新生成的圖片。

如何利用Matlab復刻舉牌加油小人生成器

如何利用Matlab復刻舉牌加油小人生成器

目前需要存圖還是需要通過uiaxes自帶的toolbar(下圖右上角所示):

如何利用Matlab復刻舉牌加油小人生成器

使用該程序需要小人的素材包,我已經(jīng)將素材整理為materials.mat文件,網(wǎng)盤下載鏈接如下:

鏈接:https://pan.baidu.com/s/1ISloOsq8bIVDjm8TzRPlKw 

提取碼:1234

使用時需要把materials.mat和m文件放在同一文件夾

完整代碼

function upup
global textMsg bkgColor colorList axesType
global textArea
textMsg=[];
axesType=2;
bkgColor=[1,1,1];
colorList=[0.9000         0    0.0700
    0.9200    0.3300    0.0800
    0.9600    0.6200    0.7500
    0.9600    0.9400    0.5500
    0.7600    0.8400    0.2500
    0.3800    0.7600    0.7300
    0.4700    0.8100    0.9400
    0.6000    0.0500    0.4900
    1         1         1     ];


%load pic and create pic ==================================================
materials=load('materials.mat');
if ~exist('materials','dir')
   mkdir('materials');
end
for i=1:size(colorList,1)
    Rc=zeros(60,60);Rc(11:50,11:50)=255.*colorList(i,1);
    Gc=zeros(60,60);Gc(11:50,11:50)=255.*colorList(i,2);
    Bc=zeros(60,60);Bc(11:50,11:50)=255.*colorList(i,3);
    cPic(:,:,1)=Rc;cPic(:,:,2)=Gc;cPic(:,:,3)=Bc;
    imwrite(uint8(cPic),['materials\bkg',num2str(i),'.png']) 
end
imwrite(materials.imgSet.cover,'materials\cover.jpg')
imwrite(materials.imgSet.square,'materials\square.jpg')
imwrite(materials.imgSet.refresh.CData,'materials\refresh.png','Alpha',materials.imgSet.refresh.AData)



%==========================================================================
upFig=uifigure('units','pixels',...
    'position',[320 50 400 600],...
    'Numbertitle','off',...
    'menubar','none',...
    'resize','off',...
    'name','upup',...
    'color',[0.93 0.6 0]);

%==========================================================================
textAreaLabel=uilabel(upFig);
textAreaLabel.Position=[55 445 290 100];
textAreaLabel.Text='';
textAreaLabel.BackgroundColor=[0,0,0];
textArea=uitextarea(upFig,'ValueChangedFcn',@changeText);
textArea.Position=[60 450 280 90];
textArea.FontSize=23;

%text label hdl part=======================================================
textLabel_1=uilabel(upFig);
textLabel_1.Position=[52 517 296 106];
textLabel_1.Text='YOUR MESSAGE HERE';
textLabel_1.FontSize=24;
textLabel_1.FontWeight='bold';
textLabel_1.HorizontalAlignment='center';

textLabel_2=uilabel(upFig);
textLabel_2.Position=[52 367 296 106];
textLabel_2.Text='BACKGROUND COLORS';
textLabel_2.FontSize=24;
textLabel_2.FontWeight='bold';
textLabel_2.HorizontalAlignment='center';

textLabel_3=uilabel(upFig);
textLabel_3.Position=[10 310 60 50];
textLabel_3.Text='SIZE';
textLabel_3.FontSize=20;
textLabel_3.FontWeight='bold';
textLabel_3.HorizontalAlignment='center';


%bkg color hdl part========================================================
for i=1:size(colorList,1)
    CL(i)=uiimage(upFig);
    CL(i).Position=[10+i*35,365,30,30];
    CL(i).UserData=i;
    CL(i).ImageSource=['materials\bkg',num2str(i),'.png'];
end
set(CL,'ImageClickedFcn',@bkgChange)


%reset Size hdl part=======================================================
sizeBtn(1)=uiimage(upFig);
sizeBtn(1).Position=[70 320 168 30];
sizeBtn(1).UserData=1;
sizeBtn(1).ImageSource='materials\cover.jpg';

sizeBtn(2)=uiimage(upFig);
sizeBtn(2).Position=[245 320 80 30];
sizeBtn(2).UserData=2;
sizeBtn(2).ImageSource='materials\square.jpg';
set(sizeBtn,'ImageClickedFcn',@sizeChange)


%==========================================================================
refreshBtn=uiimage(upFig);
refreshBtn.Position=[340 317.5 35 35];
refreshBtn.ImageSource='materials\refresh.png';
set(refreshBtn,'ImageClickedFcn',@changeText)

%==========================================================================
upAx=uiaxes('Units','pixels',...
      'parent',upFig,...
      'Position',[50 10 300 300],...
      'Color',[0.99 0.99 0.99],...
      'Box','on', ...
      'XTick',[],...
      'YTick',[],...
      'XLimMode','manual',...
      'YLimMode','manual',...
      'XLim',[0 300],...
      'YLim',[0 300], ...
      'BackgroundColor',[0,0,0],...
      'YDir','reverse');
hold(upAx,'on')



%==========================================================================

    function bkgChange(~,event)
        objNum=event.Source.UserData;
        upAx.Color=colorList(objNum,:); 
    end

    function sizeChange(~,event)
        axesType=event.Source.UserData;
        switch axesType
            case 1
                upAx.Position=[10 120 380 141];
                upAx.XLim=[0 380];
                upAx.YLim=[0 141];     
            case 2
                upAx.Position=[50 10 300 300];
                upAx.XLim=[0 300];
                upAx.YLim=[0 300];
        end
    end
        
    function changeText(~,~)
        cla(upAx)
%         hold(upAx,'off')
%         image(upAx,[-1,0],[-1,0],ones(1,1,3),'visible','off');
%         hold(upAx,'on')
        textMsg=textArea.Value;
        for ii=1:length(textMsg)
            tempStr=textMsg{ii};
            for jj=1:length(tempStr)
                if tempStr(jj)~=' '
                    roleType=randi(24);
                    image(upAx,[0,103*0.4]+110+28*(jj-1)-27*(ii-1),...
                        [0,198*0.4]+10+12*(jj-1)+22*(ii-1),...
                        materials.imgSet.CData{roleType},...
                        'AlphaData',materials.imgSet.AData{roleType},...
                        'Interpolation','bilinear')
                    text(upAx,21+110+28*(jj-1)-27*(ii-1),...
                        10+10+12*(jj-1)+22*(ii-1),...
                        tempStr(jj),'rotation',-38,'FontSize',16,...
                        'FontWeight','bold','Color',[0.4,0.3,0.3],...
                        'FontAngle','italic','HorizontalAlignment','center');
                end
            end
        end
    end
end

另:完整素材包+mat文件+m文件可以在下面下載

百度網(wǎng)盤鏈接:https://pan.baidu.com/s/1F6Z3_-91_OKtV2zjQUg47Q

注:代碼和素材僅作學習用途,勿做他用

若matlab是版本為R2016a以后,R2019a之前,會因為uiimage未被推出而無法正常使用,可以嘗試以下代碼,該代碼依舊需要materials.mat和m文件在同一文件夾:

function upupUiBtn
global textMsg bkgColor colorList axesType
global textArea
textMsg=[];
axesType=2;
bkgColor=[1,1,1];
colorList=[0.9000         0    0.0700
    0.9200    0.3300    0.0800
    0.9600    0.6200    0.7500
    0.9600    0.9400    0.5500
    0.7600    0.8400    0.2500
    0.3800    0.7600    0.7300
    0.4700    0.8100    0.9400
    0.6000    0.0500    0.4900
    1         1         1     ];
%load pic and create pic ==================================================
materials=load('materials.mat');
if ~exist('materials','dir')
   mkdir('materials');
end
for i=1:size(colorList,1)
    Rc=zeros(60,60);Rc(11:50,11:50)=255.*colorList(i,1);
    Gc=zeros(60,60);Gc(11:50,11:50)=255.*colorList(i,2);
    Bc=zeros(60,60);Bc(11:50,11:50)=255.*colorList(i,3);
    cPic(:,:,1)=Rc;cPic(:,:,2)=Gc;cPic(:,:,3)=Bc;
    imwrite(uint8(cPic),['materials\bkg',num2str(i),'.png']) 
end
imwrite(materials.imgSet.cover,'materials\cover.jpg')
imwrite(materials.imgSet.square,'materials\square.jpg')
imwrite(materials.imgSet.refresh.CData,'materials\refresh.png','Alpha',materials.imgSet.refresh.AData)

%==========================================================================
upFig=uifigure('units','pixels',...
    'position',[320 50 400 600],...
    'Numbertitle','off',...
    'menubar','none',...
    'resize','off',...
    'name','upup',...
    'color',[0.93 0.6 0]);

%==========================================================================
textAreaLabel=uilabel(upFig);
textAreaLabel.Position=[55 445 290 100];
textAreaLabel.Text='';
textAreaLabel.BackgroundColor=[0,0,0];
textArea=uitextarea(upFig,'ValueChangedFcn',@changeText);
textArea.Position=[60 450 280 90];
textArea.FontSize=23;

%text label hdl part=======================================================
textLabel_1=uilabel(upFig);
textLabel_1.Position=[52 517 296 106];
textLabel_1.Text='YOUR MESSAGE HERE';
textLabel_1.FontSize=24;
textLabel_1.FontWeight='bold';
textLabel_1.HorizontalAlignment='center';

textLabel_2=uilabel(upFig);
textLabel_2.Position=[52 367 296 106];
textLabel_2.Text='BACKGROUND COLORS';
textLabel_2.FontSize=24;
textLabel_2.FontWeight='bold';
textLabel_2.HorizontalAlignment='center';

textLabel_3=uilabel(upFig);
textLabel_3.Position=[10 310 60 50];
textLabel_3.Text='SIZE';
textLabel_3.FontSize=20;
textLabel_3.FontWeight='bold';
textLabel_3.HorizontalAlignment='center';

%bkg color hdl part========================================================
for i=1:size(colorList,1)
    CL(i)=uibutton(upFig);
    CL(i).Position=[10+i*35,365,30,30];
    CL(i).BackgroundColor=[0 0 0];
    CL(i).Text='';
    CL(i).UserData=i;
    CL(i).Icon=['materials\bkg',num2str(i),'.png'];
end
set(CL,'ButtonPushedFcn',@bkgChange)

%reset Size hdl part=======================================================
sizeBtn(1)=uibutton(upFig);
sizeBtn(1).Position=[80 320 145 32];
sizeBtn(1).UserData=1;
sizeBtn(1).Text='';
sizeBtn(1).BackgroundColor=[0 0 0];
sizeBtn(1).Icon='materials\cover.jpg';

sizeBtn(2)=uibutton(upFig);
sizeBtn(2).Position=[235 320 78 32];
sizeBtn(2).UserData=2;
sizeBtn(2).Text='';
sizeBtn(2).BackgroundColor=[0 0 0];
sizeBtn(2).Icon='materials\square.jpg';
set(sizeBtn,'ButtonPushedFcn',@sizeChange)


refreshBtn=uibutton(upFig);
refreshBtn.Position=[330 318 35 35];
refreshBtn.Text='';
refreshBtn.BackgroundColor=[0.93 0.6 0];
refreshBtn.Icon='materials\refresh.png';
set(refreshBtn,'ButtonPushedFcn',@changeText)
%==========================================================================
upAx=uiaxes('Units','pixels',...
      'parent',upFig,...
      'Position',[50 10 300 300],...
      'Color',[0.99 0.99 0.99],...
      'Box','on', ...
      'XTick',[],...
      'YTick',[],...
      'XLimMode','manual',...
      'YLimMode','manual',...
      'XLim',[0 300],...
      'YLim',[0 300], ...
      'BackgroundColor',[0,0,0],...
      'YDir','reverse');
hold(upAx,'on')



%==========================================================================

    function bkgChange(~,event)
        objNum=event.Source.UserData;
        upAx.Color=colorList(objNum,:); 
    end

    function sizeChange(~,event)
        axesType=event.Source.UserData;
        switch axesType
            case 1
                upAx.Position=[10 120 380 141];
                upAx.XLim=[0 380];
                upAx.YLim=[0 141];     
            case 2
                upAx.Position=[50 10 300 300];
                upAx.XLim=[0 300];
                upAx.YLim=[0 300];
        end
    end
        
    function changeText(~,~)
        cla(upAx)
%         hold(upAx,'off')
%         image(upAx,[-1,0],[-1,0],ones(1,1,3),'visible','off');
%         hold(upAx,'on')
        textMsg=textArea.Value;
        for ii=1:length(textMsg)
            tempStr=textMsg{ii};
            for jj=1:length(tempStr)
                if tempStr(jj)~=' '
                    roleType=randi(24);
                    image(upAx,[0,103*0.4]+110+28*(jj-1)-27*(ii-1),...
                        [0,198*0.4]+10+12*(jj-1)+22*(ii-1),...
                        materials.imgSet.CData{roleType},...
                        'AlphaData',materials.imgSet.AData{roleType},...
                        'Interpolation','bilinear')
                    text(upAx,21+110+28*(jj-1)-27*(ii-1),...
                        10+10+12*(jj-1)+22*(ii-1),...
                        tempStr(jj),'rotation',-38,'FontSize',16,...
                        'FontWeight','bold','Color',[0.4,0.3,0.3],...
                        'FontAngle','italic','HorizontalAlignment','center');
                end
            end
        end
    end
end

非uiimage版按鈕長這樣:

如何利用Matlab復刻舉牌加油小人生成器

以上是“如何利用Matlab復刻舉牌加油小人生成器”這篇文章的所有內(nèi)容,感謝各位的閱讀!相信大家都有了一定的了解,希望分享的內(nèi)容對大家有所幫助,如果還想學習更多知識,歡迎關注億速云行業(yè)資訊頻道!

向AI問一下細節(jié)

免責聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進行舉報,并提供相關證據(jù),一經(jīng)查實,將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI