desen.m

    function desen() 
    hold on
    axis([-400 400 -500 0])
    axis equal
    grid on
    t = 0:0.001:1;

%==========================================================================
%========================= Coordonate Colorare ============================
%==========================================================================

                              spate = [;];
                              cap = [;];
                              ochi1 = [;];
                              ochi2 = [;];
                              arip1 = [;];
                              arip11 = [;];
                              arip1s = [;];
                              arip11s = [;];
                              gatd = [;];
                              gats = [;];
                              arip2 = [;];
                              arip22 = [;];
                              coada = [;];

%==========================================================================
%================== Curbe de tip G0 si G1 + Bezier Grad 3 =================
%==========================================================================

B0=(1-t).^3;
B1=3.*(1-t).^2.*t;
B2=3.*(1-t).*t.^2;
B3=t.^3;
B=[B0;B1;B2;B3];

%==========================================================================
%=========================== Curba de tip G1 ==============================
%==========================================================================

    function bazele(puncte)
        i=1;
        nr=1;
        while nr<=3
            hold on;
            x=puncte(:,i:i+3)*B;
            plot(x(1,:),x(2,:),'Color',[0,0.1,0.1]);
            nr=nr+1;
            i=i+3;
        end     
    end

%==========================================================================
%=========================== Curba de tip G0 ==============================
%==========================================================================

    function bazele2(puncte)
        n=length(puncte);
        np=(n-1)/3;
        i=1;
        nr=1;
        while nr<=np
            %plot(puncte(1,i:i+3), puncte(2,i:i+3),'kx-');
            f=puncte(:, i: i +3)*B; 
            plot(f(1, :), f(2, :), 'Color',[0,0.1,0.1] );
            nr=nr+1;
            i=i+3;
        end
    end

%==========================================================================
%======================= Curba Bezier - Gradul 3 ==========================
%==========================================================================

    function bezier3(vector)
        f = vector * B;  
        plot(f(1, :), f(2, :), 'g', 'LineWidth', 1.2) 
    end

%==========================================================================
%======================= Curba Bezier - Gradul 4 ==========================
%==========================================================================

B04 = power((1 - t), 4);
B14 = 4.*t.* power((1 - t), 3);
B24 = 6 .* power(t, 2) .* power((1 - t), 2);
B34 = 4 .* power(t, 3) .* ( 1 - t);
B44 = power(t, 4);
BG4 = [B04; B14; B24; B34; B44];

    function bezier4(vector)
        f = vector * BG4;  
        plot(f(1, :), f(2, :), 'g', 'LineWidth', 1.2)
    end

%==========================================================================
%======================= Curba Bezier - Gradul 5 ==========================
%==========================================================================

B05 = power(1 - t, 5);
B15 = 5.*t.* power((1 - t), 4);
B25 = 10.*power(t, 2) .* power(1 - t, 3);
B35 = 10.*power(t, 3) .* power(1 - t, 2);
B45 = 5 .* (1 - t) .* power(t, 4);
B55 = power(t, 5);
BG5 = [B05; B15; B25; B35; B45; B55];

    function bezier5(vector)
        f = vector * BG5;  
        plot(f(1, :), f(2, :), 'g', 'LineWidth', 1.2)
    end

%==========================================================================
%========================== Parte Gat Dreapta =============================
%==========================================================================

gatd = [0;-141.434];

b = [ 5   8   16   14 ; -141.434  -155  -151  -162] ;
bezier3(b)
gatd = [gatd, [f(1,:);f(2,:)]];

b = [ 14   8   25   0 ; -162  -199  -199  -181] ;
bezier3(b)
gatd = [gatd, [f(1,:);f(2,:)]];


%==========================================================================
%============================ Aripa 1 Dreapta =============================
%==========================================================================

b = [ 101   150   192   205 ; -153  -143  -152  -150] ;
bezier3(b)
arip1 = [arip1,[ f(1,:); f(2,:)]];

b = [ 205   265   305   361 ; -150  -141  -144  -150] ;
bezier3(b)
arip1 = [arip1,[ f(1,:); f(2,:)]];

b = [ 361   388   391   360 ; -150  -153  -191  -225] ;
bezier3(b)
arip1 = [arip1,[ f(1,:); f(2,:)]];

b = [ 360  350   330   307 ; -225  -236  -249  -259] ;
bezier3(b)
arip1 = [arip1,[ f(1,:); f(2,:)]];

b = [ 307   293   276   256 ; -259  -265  -276  -276] ;
bezier3(b)
arip1 = [arip1,[ f(1,:); f(2,:)]];

b = [ 256   237   236   210 ; -276  -276  -277  -272] ;
bezier3(b)
arip1 = [arip1,[ f(1,:); f(2,:)]];

b = [ 210   192   170   150 ; -272  -268  -257  -252] ;
bezier3(b)
arip1 = [arip1,[ f(1,:); f(2,:)]];


%==========================================================================
%====================== Model Aripa 1 Dreapta =============================
%==========================================================================

b = [ 0   10   8   46 ; -182  -182  -181  -170] ;
bezier3(b)
arip11 = [f(1,:); f(2,:)];

b = [ 46   72   76   101 ; -170  -161  -158  -153] ;
bezier3(b)
arip11 = [arip11,[ f(1,:); f(2,:)]];

b = [ 101   150   192   205 ; -153  -143  -152  -150] ;
bezier3(b)
arip11 = [arip11,[ f(1,:); f(2,:)]];

b = [ 205   200   179   155 ; -150  -155  -145  -156] ;
bezier3(b)
arip11 = [arip11,[ f(1,:); f(2,:)]];

b = [ 155   174   190   212 ; -156  -150  -174  -170] ;
bezier3(b)
arip11 = [arip11,[ f(1,:); f(2,:)]];

b = [ 212   199   170   150 ; -170  -175  -170  -185] ;
bezier3(b)
arip11 = [arip11,[ f(1,:); f(2,:)]];

b = [ 150   179   200   205 ; -185  -190  -220  -215] ;
bezier3(b)
arip11 = [arip11,[ f(1,:); f(2,:)]];

b = [ 205   200   184   196 ; -215  -220  -226  -235] ;
bezier3(b)
arip11 = [arip11,[ f(1,:); f(2,:)]];

b = [ 196   200   190   169 ; -235  -244  -264  -258] ;
bezier3(b)
arip11 = [arip11,[ f(1,:); f(2,:)]];

b = [ 169   169   169   150 ; -258  -258  -258  -252] ;
bezier3(b)
arip11 = [arip11,[ f(1,:); f(2,:)]];

b = [150 136 104 84 ; -252 -249 -236 -230 ] ;
bezier3(b)
arip11 = [arip11,[ f(1,:); f(2,:)]];

b = [ 84 70 52 38 ; -230 -226 -214 -207] ;
bezier3(b)
arip11 = [arip11,[ f(1,:); f(2,:)]];

b = [ 38 25 9 10 ; -207 -200 -187 -194] ;
bezier3(b)
arip11 = [arip11,[ f(1,:); f(2,:)]];

%==========================================================================
%============================ Aripa 2 Dreapta =============================
%==========================================================================

arip2 = [20;-210];

b = [ 165 181 205 243 250 ; -418 -421 -421 -421 -418] ;
bezier4(b)
arip2 = [arip2,[ f(1,:);f(2,:)]];

b = [ 250 259 279 268 283 ; -418 -415 -405 -408 -402] ;
bezier4(b)
arip2 = [arip2,[ f(1,:);f(2,:)]];

b = [ 283 314 330 339 343 ; -402 -390 -389 -397 -352] ;
bezier4(b)
arip2 = [arip2,[ f(1,:);f(2,:)]];

b = [ 343 344 287 220 127 ; -352 -326 -315 -295 -270] ;
bezier4(b)
arip2 = [arip2,[ f(1,:);f(2,:)]];

%==========================================================================
%====================== Model Aripa 2 Dreapta =============================
%==========================================================================

arip22 = [9;-235];

b = [ 11 14 28 43 49 ; -258 -277 -280 -316 -327] ;
bezier4(b)
arip22 = [arip22,[ f(1,:); f(2,:)]];

b = [ 49 60 79 93 106 ; -327 -341 -367 -386 -394] ;
bezier4(b)
arip22 = [arip22,[ f(1,:); f(2,:)]];

b = [ 106 132 134 150 165 ; -394 -410 -412 -413 -418] ;
bezier4(b)
arip22 = [arip22,[ f(1,:); f(2,:)]];

b = [ 165 189 194 141 132 ; -418 -380 -374 -390 -370] ;
bezier4(b)
arip22 = [arip22,[ f(1,:); f(2,:)]];

b = [ 132 128 145 166 196 ; -370 -365 -355 -369 -350] ;
bezier4(b)
arip22 = [arip22,[ f(1,:); f(2,:)]];

b = [ 196 208 199 175 160 ; -350 -345 -333 -330 -321] ;
bezier4(b)
arip22 = [arip22,[ f(1,:); f(2,:)]];

b = [ 160 100 165 134 127 ; -321 -300 -300 -284 -270] ;
bezier4(b)
arip22 = [arip22,[ f(1,:); f(2,:)]];

b = [ 127 103 54 16 10 ; -270 -260 -234 -194 -207] ;
bezier4(b)
arip22 = [arip22,[ f(1,:); f(2,:)]];

%==========================================================================
%============================= Coada Dreapta ==============================
%==========================================================================                             

coada = [5.5;-282];

b = [ 10 5 -1.6 -4 -10; -207 -231 -255 -270 -310] ;
bezier4(b)
coada = [coada,[f(1,:);f(2,:)]];

b = [ -10 -13 -15 -13 -14; -310 -335 -371 -386 -400] ;
bezier4(b)
coada = [coada,[ f(1,:);f(2,:)]];

b = [ -14 -15 -15 -10 0; -400 -440 -477 -488 -489] ;
bezier4(b)
coada = [coada,[ f(1,:);f(2,:)]];

%==========================================================================
%=========================== Parte Cap Dreapta ============================
%==========================================================================

b = [ 0 13 21 13 0; -145 -136 -130 -118 -118] ;
bezier4(b)
cap = [f(1,:);f(2,:)];

%==========================================================================
%============================ Antena Dreapta ==============================
%==========================================================================

b = [ 13.692 29 44 38 44; -132 -133 -132 -90 -90] ;
f = b * BG4;  
plot(f(1, :), f(2, :), 'k', 'LineWidth', 1.2)

%==========================================================================
%============================ Ochi Dreapta ================================
%==========================================================================

b = [ 8.44875 3 -4 3 10 13.15 ; -120.1 -123 -135 -137 -139 -133.1] ;
bezier5(b)
ochi1 = [f(1,:);f(2,:)];

b = [ 13.15 15 16.5 15 10 8.44875 ; -133.1 -130 -127 -120 -119 -120.1] ;
bezier5(b)
ochi1 = [ochi1,[f(1,:);f(2,:)]];

%==========================================================================
%===================== Spatele Libelula Dreapta ===========================
%==========================================================================

b = [ 0 4 22 19 22 17 ; -171 -155 -165 -160 -190 -196] ;
bezier5(b)
spate = [f(1,:);f(2,:)];

b = [ 17 15 5 4 11.5 0 ; -196 -205 -240 -285 -283 -284] ;
bezier5(b)
spate = [spate,[f(1,:);f(2,:)]];

%==========================================================================
%========================= Gat Partea Stanga ==============================
%==========================================================================

gats = [0;-141.434];

b = [ -5   -8   -16   -14 ; -141.434  -155  -151  -162] ;
bezier3(b)
gats = [gats,[ f(1,:); f(2,:)]];

b = [ -14   -8   -25   0 ; -162  -199  -199  -181] ;
bezier3(b)
gats = [gats,[ f(1,:); f(2,:)]];

%==========================================================================
%=========================== Aripa 1 Stanga ===============================
%==========================================================================

b = [ -101   -150   -192   -205 ; -153  -143  -152  -150] ;
bezier3(b)
arip11s = [arip11s,[ f(1,:); f(2,:)]];

b = [ -205   -265   -305   -361 ; -150  -141  -144  -150] ;
bezier3(b)
arip11s = [arip11s,[ f(1,:); f(2,:)]];

b = [ -361   -388   -391   -360 ; -150  -153  -191  -225] ;
bezier3(b)
arip11s = [arip11s,[ f(1,:); f(2,:)]];

b = [ -360  -350   -330   -307 ; -225  -236  -249  -259] ;
bezier3(b)
arip11s = [arip11s,[ f(1,:); f(2,:)]];

b = [ -307   -293   -276   -256 ; -259  -265  -276  -276] ;
bezier3(b)
arip11s = [arip11s,[ f(1,:); f(2,:)]];

b = [ -256   -237   -236   -210 ; -276  -276  -277  -272] ;
bezier3(b)
arip11s = [arip11s,[ f(1,:); f(2,:)]];

b = [ -210   -192   -170   -150 ; -272  -268  -257  -252] ;
bezier3(b)
arip11s = [arip11s,[ f(1,:); f(2,:)]];

%==========================================================================
%======================== Model Aripa 1 Stanga ============================
%==========================================================================

b = [ 0   -10  -8   -46 ; -182  -182  -181  -170] ;
bezier3(b)
arip1s = [f(1,:);f(2,:)];

b = [ -46  -72   -76   -101 ; -170  -161  -158  -153] ;
bezier3(b)
arip1s = [arip1s,[f(1,:);f(2,:)]];

b = [ -101   -150   -192   -205 ; -153  -143  -152  -150] ;
bezier3(b)
arip1s = [arip1s,[f(1,:);f(2,:)]];

b = [ -205   -200   -179   -155 ; -150  -160  -155  -163] ;
bezier3(b)
arip1s = [arip1s,[f(1,:);f(2,:)]];

b = [ -155   -174   -190   -212 ; -163  -159  -174  -178] ;
bezier3(b)
arip1s = [arip1s,[f(1,:);f(2,:)]];

b = [ -212   -199   -170   -150 ; -178  -175  -179  -195] ;
bezier3(b)
arip1s = [arip1s,[f(1,:);f(2,:)]];

b = [ -150   -179   -200   -205 ; -195  -185  -220  -225] ;
bezier3(b)
arip1s = [arip1s,[f(1,:);f(2,:)]];

b = [ -205   -196   -184   -196 ; -225  -240  -226  -235] ;
bezier3(b)
arip1s = [arip1s,[f(1,:);f(2,:)]];

b = [ -196   -200   -190   -169 ; -235  -244  -264  -258] ;
bezier3(b)
arip1s = [arip1s,[f(1,:);f(2,:)]];

b = [ -169   -169   -169   -150 ; -258  -258  -258  -252] ;
bezier3(b)
arip1s = [arip1s,[f(1,:);f(2,:)]];

b = [-150 -136 -104 -84 ; -252 -249 -236 -230 ] ;
bezier3(b)
arip1s = [arip1s,[f(1,:);f(2,:)]];

b = [ -84 -70 -52 -38 ; -230 -226 -214 -207] ;
bezier3(b)
arip1s = [arip1s,[f(1,:);f(2,:)]];

b = [ -38 -25 -9 -10 ; -207 -200 -187 -194] ;
bezier3(b)
arip1s = [arip1s,[f(1,:);f(2,:)]];

%==========================================================================
%=========================== Aripa 2 Stanga ===============================
%==========================================================================

arip2 = [arip2, [0;-228]];

b = [ -165 -181 -205 -243 -250 ; -418 -421 -421 -421 -418] ;
bezier4(b)
arip2 = [arip2, [f(1,:); f(2,:)]];

b = [ -250 -259 -279 -268 -283 ; -418 -415 -405 -408 -402] ;
bezier4(b)
arip2 = [arip2, [f(1,:); f(2,:)]];

b = [ -283 -314 -330 -339 -343 ; -402 -390 -389 -397 -352] ;
bezier4(b)
arip2 = [arip2, [f(1,:); f(2,:)]];

b = [ -343 -344 -287 -220 -127 ; -352 -326 -315 -295 -270] ;
bezier4(b)
arip2 = [arip2, [f(1,:); f(2,:)]];

%==========================================================================
%======================= Model Aripa 2 Stanga =============================
%==========================================================================

arip22 = [arip22, [-9;-236]];

b = [ -11 -14 -28 -43 -49 ; -258 -277 -280 -316 -327] ;
bezier4(b)
arip22 = [arip22, [f(1,:);f(2,:)]];

b = [ -49 -60 -79 -93 -106 ; -327 -341 -367 -386 -394] ;
bezier4(b)
arip22 = [arip22, [f(1,:);f(2,:)]];

b = [ -106 -132 -134 -150 -165 ; -394 -410 -412 -413 -418] ;
bezier4(b)
arip22 = [arip22, [f(1,:);f(2,:)]];

b = [ -165 -189 -194 -141 -132 ; -418 -380 -374 -390 -370] ;
bezier4(b)
arip22 = [arip22, [f(1,:);f(2,:)]];

b = [ -132 -128 -145 -166 -196 ; -370 -365 -355 -369 -350] ;
bezier4(b)
arip22 = [arip22, [f(1,:);f(2,:)]];

b = [ -196 -208 -199 -175 -160 ; -350 -345 -333 -330 -321] ;
bezier4(b)
arip22 = [arip22, [f(1,:);f(2,:)]];

b = [ -160 -100 -165 -134 -127 ; -321 -300 -300 -284 -270] ;
bezier4(b)
arip22 = [arip22, [f(1,:);f(2,:)]];

b = [ -127 -103 -54 -16 -10 ; -270 -260 -234 -194 -207] ;
bezier4(b)
arip22 = [arip22, [f(1,:);f(2,:)]];

%==========================================================================
%============================ Coada Stanga ================================
%==========================================================================

b = [ 0 10 15 15 14; -489 -488 -477 -440 -400] ;
bezier4(b)
coada = [coada, [f(1,:); f(2,:)]];

b = [ 14 13 15 13 10; -400 -386 -371 -335 -310] ;
bezier4(b)
coada = [coada, [f(1,:); f(2,:)]];

b = [ 10 4 1.6 -5 -10; -310 -270 -255 -231 -207] ;
bezier4(b)
coada = [coada, [f(1,:); f(2,:)]];

%==========================================================================
%========================= Partea Cap Stanga ==============================
%==========================================================================

b = [ 0 -13 -21 -13 0; -118 -118 -130 -136 -145] ;
bezier4(b)
cap = [cap,[f(1,:);f(2,:)]];

%==========================================================================
%============================ Antena Stanga ===============================
%==========================================================================

b = [ -13.692 -29 -44 -38 -44; -132 -133 -132 -90 -90] ;
f = b * BG4;  
plot(f(1, :), f(2, :), 'k', 'LineWidth', 1.2)

%==========================================================================
%============================= Ochi Stanga ================================
%==========================================================================

b = [ -8.44875 -3 4 -3 -10 -13.15 ; -120.1 -123 -135 -137 -139 -133.1] ;
bezier5(b)
ochi2 = [f(1,:);f(2,:)];

b = [ -13.15 -15 -16.5 -15 -10 -8.44875 ; -133.1 -130 -127 -120 -119 -120.1] ;
bezier5(b)
ochi2 = [ochi2,[f(1,:);f(2,:)]];

%==========================================================================
%====================== Spatele Libelula Stanga ===========================
%==========================================================================

b = [ 0 -11.5 -4 -5 -15 -17 ; -284 -283 -285 -240 -205 -196] ;
bezier5(b)
spate = [spate, [f(1,:);f(2,:)]];

b = [ -17 -22 -19 -22 -4 0 ; -196 -190 -160 -165 -155 -171] ;
bezier5(b)
spate = [spate, [f(1,:);f(2,:)]];

%==========================================================================
%========================= Colorare Aripa 1 Dreapta =======================
%==========================================================================
            fill(arip1(1,:), arip1(2,:), [0,0.1,0.1]);
            fill(arip11(1,:), arip11(2,:), [0,0.1,0.5]);

%==========================================================================
%========================= Colorare Aripa 1 Stanga ========================
%==========================================================================
            fill(arip11s(1,:), arip11s(2,:), [0,0.1,0.1]);
            fill(arip1s(1,:), arip1s(2,:), [0,0.1,0.5]);

%==========================================================================
%=========================== Colorare Aripi Jos ===========================
%==========================================================================
            fill(arip2(1,:), arip2(2,:), [0,0.1,0.1]);
            fill(arip22(1,:), arip22(2,:), [0,0.1,0.5]);

%==========================================================================
%============================== Colorare Gat ==============================
%==========================================================================
            fill(gatd(1,:),gatd(2,:),[0,0.5,0.4]);
            fill(gats(1,:), gats(2,:), [0,0.5,0.4]);

%==========================================================================
%============================= Colorare Coada =============================
%==========================================================================
            fill(coada(1,:),coada(2,:),[0,0.5,0.5]);

%==========================================================================
%============================= Colorare Spate =============================
%==========================================================================
            fill(spate(1,:), spate(2,:), [0,0.4,0.4]);

%==========================================================================
%============================== Colorare Cap ==============================
%==========================================================================
            fill(cap(1,:), cap(2,:), [0,0.5,0.4]);

%==========================================================================
%============================= Colorare Ochi ==============================
%==========================================================================
            fill(ochi1(1,:), ochi1(2,:), [0,0,0.1]);
            fill(ochi2(1,:), ochi2(2,:), [0,0,0.1]);      
            
%==========================================================================
%====================== Nervuri Aripa 1 Dreapta (G1) ======================
%==========================================================================

    punct = [19.65   31.8471   56.8153   63.6943   70.5732  101.6561  118.4713  135.2866  190.2166  211.4;
        -183.7 -178.5987 -169.4268 -176.8153 -184.2038 -169.9363 -174.2675 -178.5987 -170.7643 -170.2];
    bazele(punct)

    punct = [19.33   43.0658   48.1624   58.3555   68.5486   83.8382  103.7147  123.5913  132.2554  150.0933;
        -187.8 -197.9614 -178.0848 -184.4555 -190.8262 -204.0772 -195.1583 -186.2393 -196.4324 -184.7104];
    bazele(punct)

    punct = [18.55   36.4331   56.3057   62.9299   69.5541  103.6943  115.6688  127.6433  173.5032  204.5860;
        -192.3 -201.0191 -192.3567 -202.2930 -212.2293 -229.5541 -215.5414 -201.5287 -235.6688 -215.7962];
    bazele(punct)
    
    punct = [63.4395   73.6306   94.5223  102.4204  110.3185  131.7197  135.7962  139.8726  155.6688  155.1;
        -176.5605 -166.8790 -172.4841 -165.0955 -157.7070 -168.4076 -160.2548 -152.1019 -155.6688 -156];
    bazele(punct)
    
    punct = [113  118.0452  136.7331  144.5197  152.3064  162.2732  165.0764  167.8796  184.6987  197.7803;
        -217.9 -233.9102 -225.8121 -234.5331 -243.2541 -237.0248 -233.5987 -230.1726 -244.5000 -235.7790];
    bazele(punct)
    
    punct = [93.5032  103.6943  127.1338  133.2484  139.3631  154.6497  158.7261  162.8025  177.5796  203.5669;
        -197.9618 -213.7580 -198.9809 -202.5478 -206.1146 -191.3376 -200.5096 -209.6815 -202.5478 -215.7962];
    bazele(punct)
    
    punct = [93.5032  103.6943  127.1338  133.2484  139.3631  154.6497  158.7261  162.8025  177.5796  203.5669;
        -197.9618 -213.7580 -198.9809 -202.5478 -206.1146 -191.3376 -200.5096 -209.6815 -202.5478 -215.7962];
    bazele(punct)
    
    punct = [128.1782  129.7071  140.4099  144.2323  148.0547  161.8154  160.2864  158.7575  166.4988  169;
        -229.0503 -243.3207 -236.6951 -241.7917 -246.8882 -242.8110 -247.6527 -252.4944 -248.4172 -258];
    bazele(punct)
    
%==========================================================================
%====================== Nervuri Aripa 1 Stanga (G1) =======================
%==========================================================================
    
    punct = [-19.6178  -24.2038  -31.3376  -44.3312  -57.3248  -89.4268  -97.5796 -105.7325 -139.8726 -156.1783;
        -180.1274 -185.7325 -177.5796 -181.6561 -185.7325 -162.8025 -171.9745 -181.1465 -177.5796 -162.2930];
    bazele(punct)
    
    punct = [-18.5987  -31.3376  -57.3248  -60.8917  -64.4586  -92.9936  -99.1083 -105.2229 -161.7834 -191.8471;
        -191.8471 -186.7516 -190.3185 -200.7643 -211.2102 -206.1146 -217.3248 -228.5350 -212.7389 -232.1019];
    bazele(punct)
    
    punct = [-19.1121  -40.0079  -62.4327  -88.1703 -113.9078 -101.1665 -115.6916 -130.2168 -130.7264 -150.603;
        -186.2393 -182.1621 -191.3359 -190.3166 -189.2972 -198.4710 -192.3552 -186.2393 -182.6717 -194.9035];
    bazele(punct)
    
    punct = [-73.1210  -83.8217  -94.0127 -101.4013 -108.7898 -125.6051 -136.5605 -147.5159 -162.8025 -207.6433;
        -175.0318 -186.2420 -177.0701 -183.6943 -190.3185 -178.0892 -182.4204 -186.7516 -167.3885 -177.0701];
    bazele(punct)
    
    punct = [-76.7030  -81.7996 -101.1665 -105.2437 -109.3209 -125.6299 -133.7844 -141.9389 -159.2671 -204.6264;
        -190.3166 -201.0193 -197.9614 -205.6062 -213.2510 -195.9228 -205.3514 -214.7800 -202.5483 -224.9731];
    bazele(punct)
    
    punct = [-65.4906  -75.6837  -91.9927  -98.8730 -105.7534 -123.5913 -126.3944 -129.1975 -169.9699 -172.0085;
        -205.6062 -221.4055 -218.3476 -225.9924 -233.6372 -224.9731 -230.5793 -236.1855 -249.9462 -259.1200];
    bazele(punct)
    
%==========================================================================
%===================== Nervuri Aripa 2 Dreapta (G0) =======================
%==========================================================================
    
    punct = [13.41   20.4964   37.3758   57.4703   64.7043   68.7232   80.7799  109.7160  116.9501  135.2;
        -211.9 -230.8240 -249.3110 -246.8996 -260.5639 -276.6395 -295.1265 -286.2849 -312.8096 -307.8];
    bazele2(punct)    
    
    punct = [11.15   22.1040   18.0851   24.5153   62.2930   64.7043   76.7610  112.1274  132.2219  200.8;
        -224.2 -225.1976 -247.7034 -265.3866 -282.2660 -306.3794 -332.9042 -327.2777 -351.3911 -344.1];
    bazele2(punct) 
    
    punct = [14.44   21.3002   33.3569   53.4514   73.5459   71.9384   89.6215   94.4442  117.7539  127;
        -207 -219.5711 -233.2354 -236.4505 -248.5072 -261.3677 -261.3677 -282.2660 -284.6773 -270];
    bazele2(punct) 
    
    punct = [45.16   55.1064   48.7357   70.3961   90.1452   94.6047  120.7245  139.8365  157.0374  180.3;
        -277.8 -303.5138 -320.0775 -344.2861 -341.7379 -367.8577 -392.0663 -386.3327 -400.9852 -386.5];
    bazele2(punct) 
    
    punct = [66.61   84.7988   89.6215  109.7160  136.2408  155.5315  189.1;
        -308.2 -306.3794 -323.2588 -316.8285 -332.9042 -325.6701 -333.7];
    bazele2(punct)
    
    punct = [85.59   87.2102   98.4631  112.9312  109.7160  131.4181  132.1;
        -332.1 -344.1571 -340.9420 -347.3722 -362.6440 -357.0176 -366.8];
    bazele2(punct)
    
    punct = [36.42   34.1607   51.8438   51.8438   68.7232   70.3308   86.77;
        -241.8 -260.5639 -258.1526 -269.4055 -287.8924 -299.1454 -313.9];
    bazele2(punct)
    
    punct = [75.2   78.3686   87.2102   95.2480  104.0896  125.7917  139.1;
        -256.2 -273.4244 -283.8735 -281.4622 -288.6962 -296.7340 -289.7];
    bazele2(punct)
    
%==========================================================================
%===================== Nervuri Aripa 2 Stanga (G0) ========================
%==========================================================================

    punct = [-14.13  -16.4775  -30.9456  -43.0023  -53.4514  -66.3119  -92.8367  -97.6593 -129.8106 -200.6;
        -208.4 -221.9824 -236.4505 -234.8429 -257.3488 -272.6206 -268.6017 -307.1832 -325.6701 -345.9];
    bazele2(punct) 
    
    punct = [-11.38  -26.1229  -27.7304  -44.6098  -62.2930  -88.0140  -92.8367 -123.3803 -115.3425 -137.4;
        -222.8 -232.4316 -256.5450 -279.0509 -270.2093 -291.1076 -335.3155 -333.7079 -357.8213 -363.5];
    bazele2(punct) 
    
    punct = [-9.941  -15.6737  -29.3380  -34.1607  -55.0590  -54.2552  -79.9762  -87.2102 -127.3992 -165;
        -232.1 -259.7601 -261.3677 -291.1076 -290.3038 -316.8285 -328.0815 -362.6440 -375.5045 -418];
    bazele2(punct) 
    
    punct = [-43  -69.5270  -77.5648 -104.8934 -112.1274 -130.6143 -134.3;
        -234.8 -243.6845 -254.9374 -262.9752 -280.6584 -289.5000 -304.4];
    bazele2(punct) 
    
    punct = [-79.77  -98.4631 -104.8934 -123.3803 -127.3992 -157.1391 -168;
        -295.2 -302.3605 -321.6512 -323.2588 -340.9420 -341.7457 -360];
    bazele2(punct)
    
    punct = [-57.6  -54.9625  -72.0382  -72.0382  -84.8450  -91.2484 -119.2;
        -308.4 -327.9204 -330.0548 -344.9961 -356.7357 -369.5424 -402.1];
    bazele2(punct)
    
end