Car: Z4.m - File Exchange - MATLAB Central

Code covered by the BSD License
Highlights from
Car

f=mypatch(p,kb,kc) ska ta emot en vektor av fyra startpunkter och tv
f=mypatch(p,kb,kc) ska ta emot en vektor av fyra startpunkter och tv
f=mypatch(p,kb,kc) ska ta emot en vektor av fyra startpunkter och tv
f=mypatch(p,kb,kc) ska ta emot en vektor av fyra startpunkter och tv
f=mypatch(p,kb,kc) ska ta emot en vektor av fyra startpunkter och tv
f=mypatch(p,kb,kc) ska ta emot en vektor av fyra startpunkter och tv
f=ritahjul(x,y,z)
f=ritahjul2(x,y,z)
Z4.m
View all files
from Car by Ronald Biro
Car made out of patchgrids.
Z4.m
clf; clc;

theta=0:2*pi/30:2*pi; R=sqrt(1.1^2+1); theta3=0.7399400734:-0.7399400734/5:0;
X=zeros(31,1);        Z=1.1*cos(theta)'; Y=1.1*sin(theta)';  
X=[X 1.1*ones(31,1)]; Z=[Z cos(theta)']; Y=[Y sin(theta)'];
for i=2:6
    X=[X R*cos(theta3(i))*ones(31,1)];
    Y=[Y R*sin(theta3(i))*sin(theta)'];
    Z=[Z R*sin(theta3(i))*cos(theta)'];
end
%surf(X,Y,Z), hold on

fi=0:pi/30:pi/2; a=1.1; d=1.5; b=4;

X2=[d*(1-cos(fi(1)))*ones(31,1)];
Y2=[a*sin(theta)'+sin(theta)'*b*sin(fi(1))];
Z2=[a*cos(theta)'+cos(theta)'*b*sin(fi(1))];

for i=2:length(fi)
    X2=[X2 d*(1-cos(fi(i)))*ones(31,1)];
    Y2=[Y2 a*sin(theta)'+sin(theta)'*b*sin(fi(i))];
    Z2=[Z2 a*cos(theta)'+cos(theta)'*b*sin(fi(i))];
end

X3=[]; 
for i=1:15
    n=2*i; 
    X3=[X3; X2(n-1,:); X2(n,:)];
    X3=[X3; zeros(2,16)]; 
end
X3=[X3; X2(31,:)];  
X3=[X3 d*ones(61,1) d*ones(61,1) (d-0.1)*ones(61,1)];

Y3=[Y2(1,:)]; Z3=[Z2(1,:)];
for i=2:31
    Y3=[Y3; Y2(i,:); Y2(i,:)];
    Z3=[Z3; Z2(i,:); Z2(i,:)];
end
Y3=[Y3 Y3(:,16) 1.1*Y3(:,16) 1.1*Y3(:,16)];   % 1.2 * b  = 1.2 * 4 = 4.8
Z3=[Z3 Z3(:,16) 1.1*Z3(:,16) 1.1*Z3(:,16)];

%surf(X3,Y3,Z3), hold on


FI=0.35:-0.35/5:-0.35; r=5; theta2=0:2*pi/120:2*pi; X4=[]; Y4=[]; Z4=[];

for i=1:11
    X4=[X4 -3.25+r*cos(FI(i))*cos(FI(i))*ones(181,1)]; %ndra till 181 d du lagt till en kolumn i Y5 och Z5
end

for i=1:11
    Y4=[Y4 (5.2+r*sin(FI(1)))*sin(theta2)'-r*sin(FI(i))*sin(theta2)'];
    Z4=[Z4 (5.2+r*sin(FI(1)))*cos(theta2)'-r*sin(FI(i))*cos(theta2)'];
end

Y4; Z4; Y5=[]; Z5=[];

for i=1:4:118
    Y5=[Y5; Y4(i,:); Y4(i+1,:); Y4(i+2,:); Y4(i+3,:)];
    Z5=[Z5; Z4(i,:); Z4(i+1,:); Z4(i+2,:); Z4(i+3,:)];
    Y5=[Y5; Y4(i+3,:); Y4(i+4,:)];
    Z5=[Z5; Z4(i+3,:); Z4(i+4,:)];
end

Y5(5,11)=Y5(5,10);     %1:a mnstret p sidan
Y5(6,11)=Y5(6,10);
Z5(5,11)=Z5(5,10);
Z5(6,11)=Z5(6,10);

for i=11:6:184        %resten av hacken i sidan av dcket
    Y5(i,11)=Y5(i,10);
    Y5(i+1,11)=Y5(i+1,10);
    Z5(i,11)=Z5(i,10);
    Z5(i+1,11)=Z5(i+1,10);
end
Y5=[Y5; Y5(1,:)]; 
Z5=[Z5; Z5(1,:)];

X4=[X4 zeros(181,1) zeros(181,1) -0.2*ones(181,1) -0.2*ones(181,1) -1.4*ones(181,1)]; %djupet p dcket och mnster
Y5=[Y5 Y5(:,11) Y5(:,10) Y5(:,10) Y5(:,11) Y5(:,11)]; %kolumn 12,13,14,15,16     
Z5=[Z5 Z5(:,11) Z5(:,10) Z5(:,10) Z5(:,11) Z5(:,11)];


for i=181:-1:2
    temp1=Y5(181,16); 
    Y5(i,16)=Y5(i-1,16);
    Y5(1,16)=temp1;
end

for i=181:-1:2
    temp2=Z5(181,16); 
    Z5(i,16)=Z5(i-1,16);
    Z5(1,16)=temp2;
end

Y5(1,16)=Y5(178,15);   %ndra extra punkterna s de ligger rtt
Z5(1,16)=Z5(178,15);
Y5(2,16)=Y5(1,15);
Z5(2,16)=Z5(1,15);

for i=5:6:184        %resten av hacken i sidan av dcket
    Y5(i,16)=Y5(i-2,10);
    Y5(i+2,16)=Y5(i-1,15);
    Z5(i,16)=Z5(i-2,10);
    Z5(i+2,16)=Z5(i-1,15);
end

X4=[X4 -2.6*ones(181,1) -2.6*ones(181,1) -3*ones(181,1) -3*ones(181,1)];
Y5=[Y5 Y5(:,15) Y5(:,14) Y5(:,14) Y5(:,15)];
Z5=[Z5 Z5(:,15) Z5(:,14) Z5(:,14) Z5(:,15)]; %kolumn 17,18,19,20

for i=1:11
    X4=[X4 0.4-r*cos(FI(i))*cos(FI(i))*ones(181,1)];
end

for i=11:-1:1   
    Y5=[Y5 Y5(:,i)];
    Z5=[Z5 Z5(:,i)];
end

%surf(X4,Y5,Z5); hold on

Xbil=[0 0]'; Ybil=[0 9]'; Zbil=[9 0]';
t=0:0.1:1; k=[0 inf 0];
h=9; dz=9;
g=h.*k(1:3)-dz; c=2*dz-h*(k(1:2)+k(2:3));
for i=1:2
    yt=Ybil(i)+t*h;
    zt=Zbil(i)+t*dz+t.*(1-t)*g(i)+t.^2.*(1-t)*c(i);
    plot(yt,zt);
end 

%Between wheels til p6   
p1=[1.3 9 2; 1.3 9.3 -4; 1.3 10.65 -4; 1.3 10.35 1.8; 1.3 9 2]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb1=[0 0.1 -1; 0 0.1 0; 0 0 0.2; 0 -0.02 0.005];
kc1=[0 -0.1 1; 0 -0.1 0; 0 0.02 -0.1; 0 0.2 -0.005];
f1=mypatch(p1,kb1,kc1);

p2=[1.3 10.35 1.8; 1.3 10.65 -4; -0.4 26 -4; 0.5 26 -2; 1.3 10.35 1.8]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb2=[0 0.02 -0.1; -0.1 0.3 0; 0.8 0 0.2; 0 -4 0.2];
kc2=[0 0 0.2; 0 -0.1 0; 0 0 -0.1; -0.05 2 -0.3];
f2=mypatch(p2,kb2,kc2);

p3=[0.5 26 -2; -0.4 26 -4; -0.3 60 -4; 0.55 60 -1; 0.5 26 -2]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb3=[0 0 -0.1; 0 0.1 0; 0.2 0 0.2; -0.02 -1.3 -0.2];
kc3=[0.8 0 0.2; -0.02 -0.3 0; 0 0 -0.1; 0 0.5 -0.7];
f3=mypatch(p3,kb3,kc3);

p4=[0.55 60 -1; -0.3 60 -4; 1.3 73.5 -4; -0.2 70.5 3.5; 0.55 60 -1]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb4=[0 0 -0.1; 0.03 1 0; 0.4 0 0.2; 0.05 -0.36 -2.1];
kc4=[0.2 0 0.2; 0 -0.5 0; 0.3 0 -0.1; 0.02 6.5 0.5];
f4=mypatch(p4,kb4,kc4);

p5=[-0.5 71.35 6.5; -0.2 70.5 3.5; 1.3 73.5 -4; 1.3 76.45 6.9; -0.5 71.35 6.5]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb5=[0 -0.1 -0.8; 0.3 0 -0.1; 0 0.1 3; -0.3 -0.5 -0.02];
kc5=[0 0.2 0.3; 0.4 0 0.2; 0 -2.5 -2.5; 0.05 0.1 0.02];
f5=mypatch(p5,kb5,kc5);
    
% p5=[-0.5 71.35 6.5; 0.3 71.35 -4; 1.3 73.5 -4; 1.3 76.45 6.9; -0.5 71.35 6.5]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
% kb5=[0.3 0 -0.1; 0 0.02 0; 0 0.1 3; -0.3 -0.5 -0.02];
% kc5=[0.4 0 0.2; 0 -0.1 0; 0 -2.5 -2.5; 0.05 0.1 0.02];
% f5=mypatch(p5,kb5,kc5);

p6=[1.3 76.45 6.9; 1.3 73.5 -4; 1.3 74.85 -4; 1.3 78.4 7; 1.3 76.45 6.9]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb6=[0 -2.5 -2.5; 0 0 0; 0 0.1 4; 0 -0.03 -0.01];
kc6=[0 0.1 3; 0 -0.02 0; 0 -3.4 -2.65; 0 0.05 0.02];
f6=mypatch(p6,kb6,kc6);

    %Door
p7=[0 29.5 6.5; 0.55 30 -2.1; 0.5 60 -0.9; -0.35 60 6.5; 0 29.5 6.5]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb7=[0.4 0 -5; 0 2 0; -0.5 0 0.8; -0.05 -2 0];
kc7=[-1.5 0 2; -0.02 -2 -0.4; 0.4 0 -5; 0.3 1 0];
f7=mypatch(p7,kb7,kc7);

p8=[-0.35 60 6.5; 0.5 60 -0.9; 0.2 68.05 1.1; -0.5 71.25 6.5; -0.35 60 6.5]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb8=[0.4 0 -5; 0.05 3.5 0.4; -0.15 2.1 1.2; -0.05 -1 0];%-0.15 2.1 1.2 nollorna...
kc8=[-0.5 0 0.8; 0.1 -1 -0.9; 0.2 -0.5 -2.6; 0.05 5 0]; %0.2 -2 -1.2 nollorna...
f8=mypatch(p8,kb8,kc8); 

p9=[-1.35 30 14; 0 29.5 6.5; -0.35 60 6.5; -1.35 60 12; -1.35 30 14]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb9=[-0.5 -0.05 -0.5; 0.3 1 0; -0.5 0 4; -0.05 -3 0.3];
kc9=[0 0 6; -0.05 -2 0; -0.5 0 -1; 0.07 3 -0.1];
f9=mypatch(p9,kb9,kc9);
    
p10=[-1.35 60 12; -0.35 60 6.5; -0.5 71.25 6.5; -1.4 71.5 11.5; -1.35 60 12]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb10=[-0.5 0 -1; 0.05 5 0; -0.05 0.1 0.5; 0 -0.2 -0.4];
kc10=[-0.5 0 4; -0.05 -1 0; 0.3 0.3 -0.2; 0.05 5 -0.4];
f10=mypatch(p10,kb10,kc10);

p11=[-3.9 35 15; -1.35 30 14; -1.35 60 12; -3.7 60 15; -3.9 35 15]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb11=[1 -1.5 0; 0.07 3 -0.1; -0.3 0 0.2; 0 -2 0];
kc11=[-0.5 0.7 0.3; -0.05 -3 0.3; 0.3 0 0; 0.5 3 0];
f11=mypatch(p11,kb11,kc11);

p12=[-3.7 60 15; -1.35 60 12; -1.4 71.5 11.5; -3.7 70 15; -3.7 60 15]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb12=[0.3 0 0; 0.05 5 -0.4; -0.05 -0.1 0.3; 0 -1 0];
kc12=[-0.3 0 0.2; 0 -0.2 -0.4; 0.5 0.7 -0.2; 0 1 0];
f12=mypatch(p12,kb12,kc12);

%above rear wheel
p13=[1.3 84.15 10.45; 1.3 76.5 7; 1.3 78.5 7.1; 1.3 84.15 9.1; 1.3 84.15 10.45]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb13=[0 -2 0; 0 0.1 0.01; 0 1.4 1.25; 0 0 0.1];
kc13=[0 2.5 2.6; 0 -0.1 0; 0 -1.5 0; 0 0 -0.1];
f13=mypatch(p13,kb13,kc13);

p14=[1.3 84.15 10.45; 1.3 84.15 9.1; 1.3 89 7.7; 1.3 91 7.8; 1.3 84.15 10.45]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb14=[0 0 -0.1; 0 1.7 0; 0 0.1 0; 0 -1.5 1.2];
kc14=[0 0 0.1; 0 -1.3 0.8; 0 -0.1 0; 0 2.2 0];
f14=mypatch(p14,kb14,kc14);

p15=[-1.4 71.6 11.5; -0.5 71.35 6.6; 1.3 76.5 7; -1.4 74 12.8; -1.4 71.6 11.5]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb15=[0.3 0.3 -0.2; 0.05 0.1 0.02; -0.4 -0.2 1.2; 0 -0.3 -0.1];
kc15=[-0.05 0.1 0.5; -0.3 -0.5 -0.02; 0.7 0.5 -1.5; 0 0.4 0.3];
f15=mypatch(p15,kb15,kc15);
    
p16=[-1.4 74 12.8; 1.3 76.5 7; 1.3 84.15 10.45; -1.4 84.15 14.5; -1.4 74 12.8]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb16=[0.7 0.5 -1.5; 0 2.5 2.6; -0.65 0 1.3; 0 -4 0.1];
kc16=[-0.4 -0.2 1.2; 0 -2 0; 0.5 0 -0.3; 0 2 1];
f16=mypatch(p16,kb16,kc16);
    
p17=[-1.4 84.15 14.5; 1.3 84.15 10.45; 1.3 91 7.8; -2 92 13.6; -1.4 84.15 14.5]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb17=[0.5 0 -0.3; 0 2.2 0; -0.3 0.6 1.5; 0.2 -1 0.2];
kc17=[-0.65 0 1.3; 0 -1.5 1.2; 0.7 -0.2 -1; 0 2 0];
f17=mypatch(p17,kb17,kc17);

p18=[-2 92 13.6; 1.3 91 7.8; -3 100 8.5; -4 99 12.5; -2 92 13.6]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb18=[0.7 -0.2 -1; -0.1 1.2 0.2; 0 -0.2 0.9; 0.5 -1 0.2];
kc18=[-0.3 0.6 1.5; 1 -0.7 -0.1; 0.5 0.1 -0.2; -0.2 1.5 -0.25];
f18=mypatch(p18,kb18,kc18);
    
p19=[-3.7 70.1 15; -1.4 71.6 11.5; -1.4 74 12.8; -3.7 74 15; -3.7 70.1 15]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb19=[0.5 0.7 -0.2; 0 0.4 0.3; -0.7 0 0.4; 0 -1 0];
kc19=[-0.05 -0.1 0.3; 0 -0.3 -0.1; 0.7 0 -0.4; 0 1 0];
f19=mypatch(p19,kb19,kc19);
    
p20=[-3.7 74 15; -1.4 74 12.8; -1.4 84.15 14.5; -5.6 84.15 15; -3.7 74 15]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb20=[0.7 0 -0.4; 0 2 1; -0.7 0 0.2; 1.4 -1 0];
kc20=[-0.7 0 0.4; 0 -4 0.1; 1 0 0; 0 1 0];
f20=mypatch(p20,kb20,kc20);

p21=[-5.6 84.15 15; -1.4 84.15 14.5; -2 92 13.6; -5.1 92 14; -5.6 84.15 15]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb21=[1 0 0; 0 2 0; -0.7 0 0.4; 0.3 -1.5 0.3];
kc21=[-0.7 0 0.2; 0.2 -1 0.2; 1 0 0; 0.8 0.5 0.1];
f21=mypatch(p21,kb21,kc21);

p22=[-5.1 92 14; -2 92 13.6; -4 99 12.5; -6.5 99.7 12.7; -5.1 92 14]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb22=[1 0 0; -0.2 1.5 -0.25; -0.7 0.1 0.1; 0.5 -1 0.2];
kc22=[-0.7 0 0.4; 0.5 -1 0.2; 0.4 -0.2 0; -0.1 1 -0.15];
f22=mypatch(p22,kb22,kc22);
%end of rearscreen
p23=[1.3 89.1 7.6; 1.3 91.35 5.7; 1.3 93.05 5.7; 1.3 91.1 7.7; 1.3 89.1 7.6]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb23=[0 1.3 -0.8; 0 0.1 0; 0 -0.2 0.4; 0 -0.1 -0.03];
kc23=[0 -0.3 0.3; 0 -0.1 0; 0 0.5 -0.25; 0 0.1 0.03];
f23=mypatch(p23,kb23,kc23);

p24=[1.3 91.35 5.7; 1.3 93.45 -4; 1.3 94.75 -4; 1.3 93.05 5.7; 1.3 91.35 5.7]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb24=[0 1.8 -2.5; 0 0.1 0; 0 0 5.5; 0 -0.1 0];
kc24=[0 -0.1 5.3; 0 -0.1 0; 0 1.2 -2; 0 0.1 0];
f24=mypatch(p24,kb24,kc24);
%behind the rear wheel
p25=[1.3 91.1 7.7; 1.3 93.05 5.7; -2.6 101 6.2; -3 100 8.4; 1.3 91.1 7.7]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb25=[0 0.5 -0.25; 0 0.5 0.2; -0.5 -0.5 0.3; 1 -0.7 -0.1];
kc25=[0 -0.2 0.4; 1 -0.3 -0.1; 0 0.1 -0.3; -0.1 1.2 0.2];
f25=mypatch(p25,kb25,kc25);

p26=[1.3 93.05 5.7; 1.3 94.75 -4; -2.9 100.9 4; -2.6 101 6.2; 1.3 93.05 5.7]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb26=[0 1.2 -2; 0 0.7 1.5; 0.2 0.2 0.2; 1 -0.3 -0.1];
kc26=[0 0 5.5; 1.5 -1.1 -0.2; 0.05 0.1 -0.5; 0 0.5 0.2];
f26=mypatch(p26,kb26,kc26);

p27=[-2.9 100.9 4; 1.3 94.75 -4; -3 98.4 -3.7; -3 99 -2; -2.9 100.9 4]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb27=[1.5 -1.1 -0.2; 0 1 0; 0 0.3 0.2; 0 0.8 1];
kc27=[0 0.7 1.5; 2 0 0; 0 -0.2 -0.4; 0.2 0 -1];
f27=mypatch(p27,kb27,kc27);
%rear
p28=[-2.6 101 6.2; -2.9 100.9 4; -25 102.1 5; -25 102.2 6.2; -2.6 101 6.2]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb28=[0.05 0.1 -0.5; -2 0.5 0.4; 0 0.05 0.2; 2 0 0];
kc28=[0.2 0.2 0.2; 2 0 0; 0 0 -0.1; -0.5 0.4 0];
f28=mypatch(p28,kb28,kc28);
%aronud taillight, begin from above and end at p22
p29=[-6.5 99.7 12.7; -4 99 12.5; -4.3 99.4 12.3; -6.8 100 12.3; -6.5 99.7 12.7]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb29=[0.4 -0.2 0; -0.01 0.01 -0.01; -0.1 0 0; 0.01 -0.01 0.1];
kc29=[-0.7 0.1 0.1; 0.01 -0.01 0.01; 0.2 0 0; -0.01 0.01 -0.01];
f29=mypatch(p29,kb29,kc29);
    
p30=[-4 99 12.5; -3 100 8.5; -3.7 100.1 8.5; -4.3 99.4 12.3; -4 99 12.5]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb30=[0.5 0.1 -0.2; -0.2 0 0; 0.4 -0.3 0.6; 0.01 -0.01 0.01];
kc30=[0 -0.2 0.9; 0.2 0 0; 0.5 0 -0.1; -0.01 0.01 -0.01];
f30=mypatch(p30,kb30,kc30);
    
p31=[-3 100 8.4; -2.6 101 6.2; -7.5 100.8 8.3; -3.75 100.1 8.4; -3 100 8.4]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb31=[0 0.1 -0.3; -0.5 0.4 0.3; 0.5 0 -0.5; 0.2 0 0];
kc31=[-0.5 -0.5 0.3; 0.2 0 -0.5; -0.5 0.3 -1.3; -0.2 0 0];
f31=mypatch(p31,kb31,kc31);

p32=[-7.5 100.8 8.3; -2.6 101 6.2; -25 102.2 6.2; -25 100.9 8.3; -7.5 100.8 8.3]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb32=[0.2 0 -0.5; -0.5 0.4 0; 0 -0.2 0.2; 0.7 0 0];
kc32=[-0.5 0.4 0.3; 2 0 0; 0 0.05 -0.5; -0.5 0.05 0];
f32=mypatch(p32,kb32,kc32);
%inside taillight etc.    
p33=[-7.4 100 8.8; -7.5 100.8 8.3; -20 100.9 8.3; -20 100 8.8; -7.4 100 8.8]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb33=[-0.1 0.3 -0.1; -0.5 0.05 0; 0 -0.4 0.1; 0.5 0 0];
kc33=[-0.1 -0.3 0.1; 0.5 -0.05 0; 0 0.4 -0.1; -0.5 0 0];
f33=mypatch(p33,kb33,kc33);

p34=[-4.1 99.5 8.4; -3.75 100.1 8.4; -7.5 100.8 8.3; -7.4 100 8.8; -4.1 99.5 8.4]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb34=[0.1 0.1 0; -0.5 0.3 -1.3; -0.1 -0.3 0.1; 0.3 0 -0.5];
kc34=[-0.1 -0.1 0; 0.5 0 -0.5; -0.1 0.3 -0.1; -0.3 0 -0.5];
f34=mypatch(p34,kb34,kc34);

p35=[-4.3 99.4 12.3; -3.7 100.1 8.5; -4 99.5 8.5; -4.45 99 12; -4.3 99.4 12.3]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb35=[0.5 0 -0.1; -0.1 -0.3 0; 0.3 0 0.4; 0.1 0 0.1];
kc35=[0.4 -0.3 0.6; 0.1 0.3 0; 0.4 0 -0.4; -0.06 0 -0.1];
f35=mypatch(p35,kb35,kc35);
    
p36=[-4.3 99.4 12.3; -4.45 99 12; -6.8 99 12.1; -6.8 100 12.3; -4.3 99.4 12.3]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb36=[-0.06 0 -0.1; -0.5 0 0; 0 0 0.1; 0.2 0 0];
kc36=[0.1 0 0.1; 0.5 0 0; 0 0 -0.1; -0.1 0 0];
f36=mypatch(p36,kb36,kc36);
    %above taillight
p37=[-6.8 100 12.3; -6.8 99 12.1; -10.6 100 8.8; -11.3 100.6 8.3; -6.8 100 12.3]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb37=[0 0 -0.1; -2.1 0 0; -0.1 0.1 -0.1; 1.8 -0.15 4.7];
kc37=[0 0 0.1; 1.6 0 3.5; 0.1 -0.1 0.1; -2.3 0.05 0];
f37=mypatch(p37,kb37,kc37);

p38=[-7.7 99.5 12.35; -7.4 99 12.1; -7.4 100 8.8; -7.8 100.4 8.2; -7.7 99.5 12.35]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb38=[0 -0.1 0; 0.3 0 -1; 0 0.1 -0.1; 0.3 0 1];
kc38=[0 0.1 0; 0.3 0 1; 0 -0.1 0.1; 0.3 0 -1];
f38=mypatch(p38,kb38,kc38);

p39=[-7.7 99.5 12.35; -7.8 100.4 8.2; -11.3 100.4 8.2; -9.5 100 12; -7.7 99.5 12.35]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb39=[0.3 0 -1; -1 0 0; 0 0 1; 1 0 0];
kc39=[0.3 0 1; 1 0 0; 0 0 -1; -1 0 0];
f39=mypatchTailLight(p39,kb39,kc39);

p40=[-4.45 99 12; -4 99.5 8.5; -7.4 100 8.8; -7.4 99 12.1; -4.45 99 12]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb40=[0.4 0 -0.4; 0 0 -2; 0.3 0 1;  0.5 0 0.2];
kc40=[0.3 0 0.4; 0 0 -2; 0.3 0 -1; -0.5 0 0.2];
f40=mypatchTailLight(p40,kb40,kc40);
    
p41=[-2.9 100.9 4; -3 99 -2; -25 99.6 -2; -25 102.1 5; -2.9 100.9 4]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb41=[0.2 0 -1; -1 0.1 0; 0 0.6 1; 2 0 0];
kc41=[0 0.8 1; 1 0 0; 0 -0.1 -1; -2 0.5 0.4];
f41=mypatch(p41,kb41,kc41);
    
p42=[-3 99 -2; -3 98.4 -3.7; -25 100.2 -3.7; -25 99.6 -2; -3 99 -2]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb42=[0 -0.2 -0.4; -1 0.05 0; 0 0 0.2; 1 0 0];
kc42=[0 0.3 0.2; 6 0 0; 0 -0.7 -0.5; -1 0.1 0];
f42=mypatch(p42,kb42,kc42);
%trunk and rear    
p43=[-5.7 84.15 15; -5 89 14.48; -25 90.7 16.8; -25 89.2 17; -5.7 84.15 15]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb43=[0.8 0.5 0.1; -2.7 0.7 0; 0 -0.2 0.1; 10 0 0];
kc43=[0 -0.5 0.1; 10 0 0; 0 0.1 0.1; -2.7 1.6 0];
f43=mypatch(p43,kb43,kc43);

p44=[-5 89.1 14.47; -6.6 99.7 12.7; -10.6 100.2 13.3; -9 89.9 15.20; -5 89.1 14.47]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb44=[0.17 1 -0.17; -1 0.05 0; 0.1 -2 -0.2; 0.5 -0.05 -0.1];
kc44=[0.5 -1 0.2; 2 -0.1 -0.4; -0.1 2 -0.1; -1.5 0.4 0.05];
f44=mypatch(p44,kb44,kc44);

p45=[-9 89.9 15.20; -10.6 100.2 13.3; -25 100.6 14.7; -25 90.8 16.8; -9 89.9 15.20]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb45=[-0.1 2 -0.1; -1 0.1 0.4; 0 -3 -0.4; 7 0 0];
kc45=[0.1 -2 -0.2; 7 0 0; 0 3 -0.5; -1 0.2 0.20];
f45=mypatch(p45,kb45,kc45);

p46=[-6.6 99.7 12.7; -6.8 100 12.3; -11.3 100.6 8.3; -10.6 100.2 13.3; -6.6 99.7 12.7]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb46=[-0.01 0.01 -0.01; -2.3 0.05 0; 0 0 1; 2 -0.1 -0.4];
kc46=[0.01 -0.01 0.1; 1.8 -0.15 4.7; -0.2 0 -0.5; -1 0.05 0];
f46=mypatch(p46,kb46,kc46);

p47=[-10.6 100.2 13.3; -11.3 100.6 8.3; -25 100.8 8.3; -25 100.6 14.7; -10.6 100.2 13.3]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb47=[-0.2 0 -0.5; -3 0 0; 0 0 3; 7 0 0];
kc47=[0 0 1; 3 0 0; 0 -0.6 -3; -1 0.1 0.4];
f47=mypatch(p47,kb47,kc47);
    
p48=[1.3 0 10.45; 1.3 0 9.1; 1.3 9 2.1; 1.3 10.35 1.9; 1.3 0 10.45]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb48=[0 0 -0.1; 0 4.7 0; 0 0.1 0.05; 0 -0.2 4.7];
kc48=[0 0 0.1; 0 -0.7 3.6; 0 -0.1 -0.05; 0 4.7 0];
f48=mypatch(p48,kb48,kc48);

p49=[1.3 0 10.45; 1.3 -7.2 7.4; 1.3 -5.85 6.9; 1.3 0 9.1; 1.3 0 10.45]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb49=[0 -3.1 0; 0 0.1 -0.05; 0 1.1 1; 0 0 0.1];
kc49=[0 1.2 1.5; 0 -0.1 0.05; 0 -3 -0; 0 0 -0.1];
f49=mypatch(p49,kb49,kc49);

p50=[1.3 -7.3 7.3; 1.3 -10.55 -4; 1.3 -9.3 -4; 1.3 -5.95 6.8; 1.3 -7.3 7.3]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb50=[0 -2.5 -2.8; 0 0.1 0; 0 0.1 8; 0 -0.1 0.05];
kc50=[0 0.1 7; 0 -0.1 0; 0 -2.1 -2.5; 0 0 -0.05];
f50=mypatch(p50,kb50,kc50);
%from door to front wheel (triangle)
p51=[-1.35 29.9 14; 1.3 10.35 1.9; 0.55 29.9 -2.1; 0 29.4 6.5; -1.35 29.9 14]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb51=[-0.5 -0.5 -0.5; -0.05 3.5 -0.44; -1.5 0 2; 0 0 6];
kc51=[0 5 5; 0 -8.2 -0.1; 0.4 0 -5; -0.5 -0.05 -0.5;];
f51=mypatch(p51,kb51,kc51);
%over the front wheel
p53=[-1.5 0 13.3; 1.3 0 10.45; 1.3 10.35 1.9; -1.35 29.9 14; -1.5 0 13.3]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb53=[0.5 0 -0.3; 0 4.7 0; 0 5 5; -0.07 -15 0.4];
kc53=[-0.65 0 1.3; 0 -0.2 4.7; -0.5 -0.5 -0.5; 0 1 0.1];
f53=mypatch(p53,kb53,kc53);

p54=[-1.5 0 13.3; -4.3 -15 9.9; 1.3 -7.2 7.4; 1.3 0 10.45; -1.5 0 13.3]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb54=[0 -4 -0.1; 3.1 1 0.2; 0 1.2 1.5; -0.65 0 1.3];
kc54=[0.9 0.5 0.7; -0.2 -0.2 0.1; 0 -3.1 0; 0.5 0 -0.3];
f54=mypatch(p54,kb54,kc54);

p55=[-3.9 34.9 15; -4.4 31 15; -3.9 29 14.8; -1.35 29.9 14; -3.9 34.9 15]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb55=[-0.1 -0.2 0; 0.2 -0.2 0; 0.2 0.2 0; -0.5 0.7 0.3];
kc55=[0.2 0.2 0; -0.1 0.2 0.05; -0.2 -0.2 0.1; 1 -1.5 0];
f55=mypatch(p55,kb55,kc55);
  %  
p56=[-3.9 29 14.8; -4.3 0 13.3; -1.5 0 13.3; -1.35 29.9 14; -3.9 29 14.8]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb56=[0.3 -1 -0.1; 0.3 0 0; 0 1 0.1; -0.2 -0.2 0.1];
kc56=[0.2 3 0.4; -0.1 0 -0.05; -0.07 -15 0.4; 0.2 0.2 0];
f56=mypatch(p56,kb56,kc56);

p57=[-4.3 0 13.3; -6.4 -15.5 9.9; -4.3 -15 9.9; -1.5 0 13.3; -4.3 0 13.3]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb57=[-0.1 -5 -0.2; 0.2 0.1 0; 0.9 0.5 0.7; -0.1 0 -0.05];
kc57=[0.4 0.5 0.2; -0.3 -0.1 0; 0 -4 -0.1; 0.3 0 0];
f57=mypatch(p57,kb57,kc57);
%around the frontlight
p58=[1.3 -7.3 7.3; 0.3 -9.3 8.1; -4.3 -16 6.2; -4 -16.4 4.9; 1.3 -7.3 7.3]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb58=[-0.2 -0.2 0.1; -0.1 -1.4 -1.5; 0.3 0 -0.2; 4.4 2 0.3];
kc58=[0.2 0.3 -0.1; 4 1.9 0.3; -0.1 0 0.1; 0 -2.2 -2.3];
f58=mypatch(p58,kb58,kc58);

p59=[-9 -16.5 6.5; -10 -17.5 4.9; -4 -16.4 4.9; -4.3 -16 6.2; -9 -16.5 6.5]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb59=[-0.1 -0.1 -0.1; 1 0.1 0; -0.1 0 0.1; -1 -0.5 -0.05];
kc59=[0.1 0.1 0.05; -2.1 -1 0; 0.3 0 -0.2; 0.2 -0.1 -0.15];
f59=mypatch(p59,kb59,kc59);

p60=[-6.4 -15.5 9.8; -10 -17.5 4.9; -9 -16.5 6.5; -7 -14 6.9; -6.4 -15.5 9.8]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb60=[-5.7 -3 -5.7; 0.1 0.1 0.05; 0.1 0.1 0.1; 0.1 -0.1 0.1];
kc60=[-0.2 0.2 0.1; -0.1 -0.1 -0.1; -0.1 -0.1 -0.1; -0.1 0.1 -0.1];
f60=mypatch(p60,kb60,kc60);
%frontlight
p61=[-6.4 -15.4 9.8; -9 -16.5 6.5; -4.3 -16 6.2; -4.3 -14.9 9.8; -6.4 -15.4 9.8]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb61=[-0.6 -0.8 -1; 0.2 -0.1 -0.15; -0.1 0.1 1; -0.3 -0.1 0];
kc61=[0.5 0.1 0.5; -1 -0.5 -0.05; -0.1 -0.8 -1; 0.2 0.1 0];
f61=mypatchFrontlight(p61,kb61,kc61);

p62=[-4.3 -14.9 9.8; -4.3 -16 6.2; 0.3 -9.3 8.1; 0 -10.2 8.4; -4.3 -14.9 9.8]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb62=[-0.1 -0.8 -1; 4 1.9 0.3; -0.15 -0.08 0.1; -0.5 -0.3 0.2];
kc62=[-0.1 0.1 1; -0.1 -1.4 -1.5; 0.13 0.08 -0.1; 2.6 0.1 0];
f62=mypatchFrontlight(p62,kb62,kc62);
%under the frontlight
p63=[-4 -16.4 4.9; -4.2 -15.9 -2.5; 1.3 -10.55 -4; 1.3 -7.3 7.3; -4 -16.4 4.9]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb63=[0 0.1 -3; 0.5 0.2 -0.2; 0 0.1 7; 0 -2.2 -2.3];
kc63=[0.2 -0.3 1; -0.2 -1 0; 0 -2.5 -2.8; 4.4 2 0.3];
f63=mypatch(p63,kb63,kc63);

p64=[-4 -16.4 4.9; -10 -17.5 4.9; -10 -16.9 -0.8; -4.2 -15.9 -2.5; -4 -16.4 4.9]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb64=[-2.1 -1 0; 0 -0.1 -2; 3 0.1 0; 0.2 -0.3 1];
kc64=[1 0.1 0; 0 -0.2 1; -1 -0.25 1.7; 0 0.1 -3];
f64=mypatch(p64,kb64,kc64);
%around the front    
p65=[-6.4 -15.5 9.8; -10.3 -16.5 7; -11.8 -17.5 4.3; -10 -17.5 4.9; -6.4 -15.5 9.8]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb65=[-0.4 -0.1 -0.5; 0 -0.05 -0.6; 0.05 0 0; -0.2 0.2 0.1];
kc65=[0.1 0.1 0.3; 0.4 0 0.6; -0.05 0 0; -5.7 -3 -5.7];
f65=mypatch(p65,kb65,kc65);

p66=[-25 -16.3 10.05; -22 -17.3 8.5; -10.3 -16.5 7; -6.4 -15.5 9.8; -25 -16.3 10.05]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb66=[0.2 -0.5 -0.2; 1 0.05 0; 0.1 0.1 0.3; -2 -0.3 0.1];
kc66=[-0.2 0.05 1; 0 0.05 2; -0.4 -0.1 -0.5; 5 0 0];
f66=mypatch(p66,kb66,kc66);

p67=[-25 -16.3 10.05; -25 -17.5 4.9; -23.7 -17.5 5; -22 -17.3 8.5; -25 -16.3 10.05]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb67=[0 -2 -0.7; 1 0 0.1; -0.3 0 2; -0.2 0.05 1];
kc67=[0 0 4; -0.3 0 -0.3; -3 -0.05 -0.2; 0.2 -0.5 -0.2];
f67=mypatch(p67,kb67,kc67);

p68=[-23.7 -17.5 5; -23.7 -16.9 -0.7; -11.8 -16.9 -0.75; -11.8 -17.5 4.3; -23.7 -17.5 5]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb68=[0 0 -1; 1 0 0; 0 -0.2 1; -0.3 0 -0.5];
kc68=[0 -0.2 1; -1 0 0; 0 0 -1; 0.1 0 -2.5];
f68=mypatch(p68,kb68,kc68);

p69=[-11.8 -17.5 4.3; -11.8 -16.9 -0.75; -10 -16.9 -0.8; -10 -17.5 4.9; -11.8 -17.5 4.3]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb69=[0 0 -1; 1 0 0; 0 -0.2 1; -0.05 0 0];
kc69=[0 -0.2 1; -1 0 0; 0 0 -1; 0.05 0 0];
f69=mypatch(p69,kb69,kc69);

p70=[-25 -17.5 4.9; -25 -16.9 -0.7; -23.7 -16.9 -0.7; -23.7 -17.5 5; -25 -17.5 4.9]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb70=[0 0 -1; 1 0 0; 0 -0.2 1; -0.3 0 -0.3];
kc70=[0 -0.2 1; -1 0 0; 0 0 -1; 1 0 0.1];
f70=mypatch(p70,kb70,kc70);

p71=[-4.2 -15.9 -2.5; -25 -16.3 -3.5; -25 -15 -4; 1.3 -10.55 -4; -4.2 -15.9 -2.5]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb71=[-1 0 -1; 0 0 -0.1; 3 0 0; -0.2 -1 0];
kc71=[3 0 0; 0 -0.1 0; -1 0.3 0; 0.5 0.2 -0.2];
f71=mypatch(p71,kb71,kc71);
%the hood
p72=[-4 29 14.8; -25 28 16; -25 0 15; -4.4 0 13.3; -4 29 14.8]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb72=[-2 0 0; 0 -6 0; 10 0 0; 0.2 3 0.4];
kc72=[10 0 0; 0 5 0.6; -2 0 0; 0.3 -1 -0.1];
f72=mypatch(p72,kb72,kc72);

p73=[-4.4 0 13.3; -25 0 15; -25 -16.2 10.15; -6.5 -15.4 9.9; -4.4 0 13.3]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb73=[-2 0 0; 0 -5 -0.4; 5 0 0; 0.4 0.5 0.2];
kc73=[10 0 0; 0 3 2; -2 -0.3 0.1; -0.1 -5 -0.2];
f73=mypatch(p73,kb73,kc73);

p74=[-4 29 14.8; -25 28 16; -7 30 15; -4.5 31 15; -4 29 14.8]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb74=[-2 0 0; 3 0.5 0; 1 0.5 0; 0.2 -0.2 0];
kc74=[10 0 0; -2 -0.2 0; -0.5 -0.2 0; -0.1 0.2 0.05];
f74=mypatch(p74,kb74,kc74);
    
p75=[-4.3 33 14.8; -5.2 31 14.8; -7.7 45 24; -7.4 46 23; -4.3 33 14.8]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb75=[-0.3 -0.2 0; 0 2 1; 0.5 0.3 -0.3; 1.5 -5.5 -3];
kc75=[0.1 0.1 0; 1 -5.5 -3; -0.1 -0.3 0.3; 0 2 1];
f75=mypatch(p75,kb75,kc75);
    
p76=[-7.7 45 24; -25 44 25; -25 28.5 15.7; -5.2 31 14.8; -7.7 45 24]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb76=[-3 -1 1; 0 -2 -0.7; 4 0 0; 0 2 1];
kc76=[3 0 0; 0 1 1.5; -2 -1 0; 1 -5.5 -3];
f76=mypatchTransparent(p76,kb76,kc76);  

%Between the tires til p6b   
p1b=[1.3 9 2; 1.3 9.3 -4; 1.3 10.65 -4; 1.3 10.35 1.8; 1.3 9 2].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb1b=[0 0.1 -1; 0 0.1 0; 0 0 0.2; 0 -0.02 0.005];
kc1b=[0 -0.1 1; 0 -0.1 0; 0 0.02 -0.1; 0 0.2 -0.005];
f1b=mypatch(p1b,kb1b,kc1b);

p2b=[1.3 10.35 1.8; 1.3 10.65 -4; -0.4 26 -4; 0.5 26 -2; 1.3 10.35 1.8].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb2b=[0 0.02 -0.1; 0.1 0.3 0; -0.8 0 0.2; 0 -4 0.2];
kc2b=[0 0 0.2; 0 -0.1 0; 0 0 -0.1; 0.05 2 -0.3];
f2b=mypatch(p2b,kb2b,kc2b);
%
p3b=[0.5 26 -2; -0.4 26 -4; -0.3 60 -4; 0.55 60 -1; 0.5 26 -2].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb3b=[0 0 -0.1; 0 0.1 0; -0.2 0 0.2; 0.02 -1.3 -0.2];
kc3b=[-0.8 0 0.2; 0.02 -0.3 0; 0 0 -0.1; 0 0.5 -0.7];
f3b=mypatch(p3b,kb3b,kc3b);
%
% p4b=[0.55 60 -1; -0.3 60 -4; 0.3 71.35 -4; -0.5 71.35 6.5; 0.55 60 -1].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
% kb4b=[0 0 -0.1; -0.03 1 0; -0.4 0 0.2; -0.05 -0.36 -7];
% kc4b=[-0.2 0 0.2; 0 -0.5 0; 0.3 0 -0.1; -0.02 3 0.5];
% f4b=mypatch(p4b,kb4b,kc4b);

p4b=[0.55 60 -1; -0.3 60 -4; 1.3 73.5 -4; -0.2 70.5 3.5; 0.55 60 -1].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb4b=[0 0 -0.1; -0.03 1 0; -0.4 0 0.2; -0.05 -0.36 -2.1];
kc4b=[-0.2 0 0.2; 0 -0.5 0; -0.3 0 -0.1; -0.02 6.5 0.5];
f4b=mypatch(p4b,kb4b,kc4b);

p5b=[-0.5 71.35 6.5; -0.2 70.5 3.5; 1.3 73.5 -4; 1.3 76.45 6.9; -0.5 71.35 6.5].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb5b=[0 -0.1 -0.8; -0.3 0 -0.1; 0 0.1 3; 0.3 -0.5 -0.02];
kc5b=[0 0.2 0.3; -0.4 0 0.2; 0 -2.5 -2.5; -0.05 0.1 0.02];
f5b=mypatch(p5b,kb5b,kc5b);

%
% p5b=[-0.5 71.35 6.5; 0.3 71.35 -4; 1.3 73.5 -4; 1.3 76.45 6.9; -0.5 71.35 6.5].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
% kb5b=[-0.3 0 -0.1; 0 0.02 0; 0 0.1 3; 0.3 -0.5 -0.02];
% kc5b=[-0.4 0 0.2; 0 -0.1 0; 0 -2.5 -2.5; -0.05 0.1 0.02];
% f5b=mypatch(p5b,kb5b,kc5b);
%     %
p6b=[1.3 76.45 6.9; 1.3 73.5 -4; 1.3 74.85 -4; 1.3 78.4 7; 1.3 76.45 6.9].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb6b=[0 -2.5 -2.5; 0 0 0; 0 0.1 4; 0 -0.03 -0.01];
kc6b=[0 0.1 3; 0 -0.02 0; 0 -3.4 -2.65; 0 0.05 0.02];
f6b=mypatch(p6b,kb6b,kc6b);
    %Door
p7b=[0 29.5 6.5; 0.55 30 -2.1; 0.5 60 -0.9; -0.35 60 6.5; 0 29.5 6.5].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb7b=[-0.4 0 -5; 0 2 0; 0.5 0 0.8; 0.05 -2 0];
kc7b=[1.5 0 2; 0.02 -2 -0.4; -0.4 0 -5; -0.3 1 0];
f7b=mypatch(p7b,kb7b,kc7b);
%
p8b=[-0.35 60 6.5; 0.5 60 -0.9; 0.2 68.05 1.1; -0.5 71.25 6.5; -0.35 60 6.5].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb8b=[-0.4 0 -5; -0.05 3.5 0.4; 0.15 2.1 1.2; 0.05 -1 0];%-0.15 2.1 1.2 nollorna...
kc8b=[0.5 0 0.8; -0.1 -1 -0.9; -0.2 -0.5 -2.6; -0.05 5 0]; %0.2 -2 -1.2 nollorna...
f8b=mypatch(p8b,kb8b,kc8b); 
%
p9b=[-1.35 30 14; 0 29.5 6.5; -0.35 60 6.5; -1.35 60 12; -1.35 30 14].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb9b=[0.5 -0.05 -0.5; -0.3 1 0; 0.5 0 4; 0.05 -3 0.3];
kc9b=[0 0 6; 0.05 -2 0; 0.5 0 -1; -0.07 3 -0.1];
f9b=mypatch(p9b,kb9b,kc9b);
    %
p10b=[-1.35 60 12; -0.35 60 6.5; -0.5 71.25 6.5; -1.4 71.5 11.5; -1.35 60 12].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb10b=[0.5 0 -1; -0.05 5 0; 0.05 0.1 0.5; 0 -0.2 -0.4];
kc10b=[0.5 0 4; 0.05 -1 0; -0.3 0.3 -0.2; -0.05 5 -0.4];
f10b=mypatch(p10b,kb10b,kc10b);
%
p11b=[-3.9 35 15; -1.35 30 14; -1.35 60 12; -3.7 60 15; -3.9 35 15].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb11b=[-1 -1.5 0; -0.07 3 -0.1; 0.3 0 0.2; 0 -2 0];
kc11b=[0.5 0.7 0.3; 0.05 -3 0.3; -0.3 0 0; -0.5 3 0];
f11b=mypatch(p11b,kb11b,kc11b);
%
p12b=[-3.7 60 15; -1.35 60 12; -1.4 71.5 11.5; -3.7 70 15; -3.7 60 15].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb12b=[-0.3 0 0; -0.05 5 -0.4; 0.05 -0.1 0.3; 0 -1 0];
kc12b=[0.3 0 0.2; 0 -0.2 -0.4; -0.5 0.7 -0.2; 0 1 0];
f12b=mypatch(p12b,kb12b,kc12b);
%
%over the rear wheel
p13b=[1.3 84.15 10.45; 1.3 76.5 7; 1.3 78.5 7.1; 1.3 84.15 9.1; 1.3 84.15 10.45].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb13b=[0 -2 0; 0 0.1 0.01; 0 1.4 1.25; 0 0 0.1];
kc13b=[0 2.5 2.6; 0 -0.1 0; 0 -1.5 0; 0 0 -0.1];
f13b=mypatch(p13b,kb13b,kc13b);
%
p14b=[1.3 84.15 10.45; 1.3 84.15 9.1; 1.3 89 7.7; 1.3 91 7.8; 1.3 84.15 10.45].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb14b=[0 0 -0.1; 0 1.7 0; 0 0.1 0; 0 -1.5 1.2];
kc14b=[0 0 0.1; 0 -1.3 0.8; 0 -0.1 0; 0 2.2 0];
f14b=mypatch(p14b,kb14b,kc14b);
%
p15b=[-1.4 71.6 11.5; -0.5 71.35 6.6; 1.3 76.5 7; -1.4 74 12.8; -1.4 71.6 11.5].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb15b=[-0.3 0.3 -0.2; -0.05 0.1 0.02; 0.4 -0.2 1.2; 0 -0.3 -0.1];
kc15b=[0.05 0.1 0.5; 0.3 -0.5 -0.02; -0.7 0.5 -1.5; 0 0.4 0.3];
f15b=mypatch(p15b,kb15b,kc15b);
    %
p16b=[-1.4 74 12.8; 1.3 76.5 7; 1.3 84.15 10.45; -1.4 84.15 14.5; -1.4 74 12.8].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb16b=[-0.7 0.5 -1.5; 0 2.5 2.6; 0.65 0 1.3; 0 -4 0.1];
kc16b=[0.4 -0.2 1.2; 0 -2 0; -0.5 0 -0.3; 0 2 1];
f16b=mypatch(p16b,kb16b,kc16b);
    %
p17b=[-1.4 84.15 14.5; 1.3 84.15 10.45; 1.3 91 7.8; -2 92 13.6; -1.4 84.15 14.5].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb17b=[-0.5 0 -0.3; 0 2.2 0; 0.3 0.6 1.5; -0.2 -1 0.2];
kc17b=[0.65 0 1.3; 0 -1.5 1.2; -0.7 -0.2 -1; 0 2 0];
f17b=mypatch(p17b,kb17b,kc17b);
%
p18b=[-2 92 13.6; 1.3 91 7.8; -3 100 8.5; -4 99 12.5; -2 92 13.6].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb18b=[-0.7 -0.2 -1; 0.1 1.2 0.2; 0 -0.2 0.9; -0.5 -1 0.2];
kc18b=[0.3 0.6 1.5; -1 -0.7 -0.1; -0.5 0.1 -0.2; 0.2 1.5 -0.25];
f18b=mypatch(p18b,kb18b,kc18b);
    %
p19b=[-3.7 70.1 15; -1.4 71.6 11.5; -1.4 74 12.8; -3.7 74 15; -3.7 70.1 15].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb19b=[-0.5 0.7 -0.2; 0 0.4 0.3; 0.7 0 0.4; 0 -1 0];
kc19b=[0.05 -0.1 0.3; 0 -0.3 -0.1; -0.7 0 -0.4; 0 1 0];
f19b=mypatch(p19b,kb19b,kc19b);
    %
p20b=[-3.7 74 15; -1.4 74 12.8; -1.4 84.15 14.5; -5.6 84.15 15; -3.7 74 15].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb20b=[-0.7 0 -0.4; 0 2 1; 0.7 0 0.2; -1.4 -1 0];
kc20b=[0.7 0 0.4; 0 -4 0.1; -1 0 0; 0 1 0];
f20b=mypatch(p20b,kb20b,kc20b);
%
p21b=[-5.6 84.15 15; -1.4 84.15 14.5; -2 92 13.6; -5.1 92 14; -5.6 84.15 15].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb21b=[-1 0 0; 0 2 0; 0.7 0 0.4; -0.3 -1.5 0.3];
kc21b=[0.7 0 0.2; -0.2 -1 0.2; -1 0 0; -0.8 0.5 0.1];
f21b=mypatch(p21b,kb21b,kc21b);
%
p22b=[-5.1 92 14; -2 92 13.6; -4 99 12.5; -6.5 99.7 12.7; -5.1 92 14].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb22b=[-1 0 0; 0.2 1.5 -0.25; 0.7 0.1 0.1; -0.5 -1 0.2];
kc22b=[0.7 0 0.4; -0.5 -1 0.2; -0.4 -0.2 0; 0.1 1 -0.15];
f22b=mypatch(p22b,kb22b,kc22b);
%the end of the rearscreen
p23b=[1.3 89.1 7.6; 1.3 91.35 5.7; 1.3 93.05 5.7; 1.3 91.1 7.7; 1.3 89.1 7.6].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb23b=[0 1.3 -0.8; 0 0.1 0; 0 -0.2 0.4; 0 -0.1 -0.03];
kc23b=[0 -0.3 0.3; 0 -0.1 0; 0 0.5 -0.25; 0 0.1 0.03];
f23b=mypatch(p23b,kb23b,kc23b);
%
p24b=[1.3 91.35 5.7; 1.3 93.45 -4; 1.3 94.75 -4; 1.3 93.05 5.7; 1.3 91.35 5.7].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb24b=[0 1.8 -2.5; 0 0.1 0; 0 0 5.5; 0 -0.1 0];
kc24b=[0 -0.1 5.3; 0 -0.1 0; 0 1.2 -2; 0 0.1 0];
f24b=mypatch(p24b,kb24b,kc24b);
%behind the rear wheel
p25b=[1.3 91.1 7.7; 1.3 93.05 5.7; -2.6 101 6.2; -3 100 8.4; 1.3 91.1 7.7].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb25b=[0 0.5 -0.25; 0 0.5 0.2; 0.5 -0.5 0.3; -1 -0.7 -0.1];
kc25b=[0 -0.2 0.4; -1 -0.3 -0.1; 0 0.1 -0.3; 0.1 1.2 0.2];
f25b=mypatch(p25b,kb25b,kc25b);
%
p26b=[1.3 93.05 5.7; 1.3 94.75 -4; -2.9 100.9 4; -2.6 101 6.2; 1.3 93.05 5.7].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb26b=[0 1.2 -2; 0 0.7 1.5; -0.2 0.2 0.2; -1 -0.3 -0.1];
kc26b=[0 0 5.5; -1.5 -1.1 -0.2; -0.05 0.1 -0.5; 0 0.5 0.2];
f26b=mypatch(p26b,kb26b,kc26b);
%
p27b=[-2.9 100.9 4; 1.3 94.75 -4; -3 98.4 -3.7; -3 99 -2; -2.9 100.9 4].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb27b=[-1.5 -1.1 -0.2; 0 1 0; 0 0.3 0.2; 0 0.8 1];
kc27b=[0 0.7 1.5; -2 0 0; 0 -0.2 -0.4; -0.2 0 -1];
f27b=mypatch(p27b,kb27b,kc27b);
%rearpart of the car
p28b=[-2.6 101 6.2; -2.9 100.9 4; -25 102.1 5; -25 102.2 6.2; -2.6 101 6.2].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb28b=[-0.05 0.1 -0.5; 2 0.5 0.4; 0 0.05 0.2; -2 0 0];
kc28b=[-0.2 0.2 0.2; -2 0 0; 0 0 -0.1; 0.5 0.4 0];
f28b=mypatch(p28b,kb28b,kc28b);
%around taillight, begin from above, end at p22
p29b=[-6.5 99.7 12.7; -4 99 12.5; -4.3 99.4 12.3; -6.8 100 12.3; -6.5 99.7 12.7].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb29b=[-0.4 -0.2 0; 0.01 0.01 -0.01; 0.1 0 0; -0.01 -0.01 0.1];
kc29b=[0.7 0.1 0.1; -0.01 -0.01 0.01; -0.2 0 0; 0.01 0.01 -0.01];
f29b=mypatch(p29b,kb29b,kc29b);
    %
p30b=[-4 99 12.5; -3 100 8.5; -3.7 100.1 8.5; -4.3 99.4 12.3; -4 99 12.5].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb30b=[-0.5 0.1 -0.2; 0.2 0 0; -0.4 -0.3 0.6; -0.01 -0.01 0.01];
kc30b=[0 -0.2 0.9; -0.2 0 0; -0.5 0 -0.1; 0.01 0.01 -0.01];
f30b=mypatch(p30b,kb30b,kc30b);
    %
p31b=[-3 100 8.4; -2.6 101 6.2; -7.5 100.8 8.3; -3.75 100.1 8.4; -3 100 8.4].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb31b=[0 0.1 -0.3; 0.5 0.4 0.3; -0.5 0 -0.5; -0.2 0 0];
kc31b=[0.5 -0.5 0.3; -0.2 0 -0.5; 0.5 0.3 -1.3; 0.2 0 0];
f31b=mypatch(p31b,kb31b,kc31b);
%
p32b=[-7.5 100.8 8.3; -2.6 101 6.2; -25 102.2 6.2; -25 100.9 8.3; -7.5 100.8 8.3].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb32b=[-0.2 0 -0.5; 0.5 0.4 0; 0 -0.2 0.2; -0.7 0 0];
kc32b=[0.5 0.4 0.3; -2 0 0; 0 0.05 -0.5; 0.5 0.05 0];
f32b=mypatch(p32b,kb32b,kc32b);
%inside taillight etc    
p33b=[-7.4 100 8.8; -7.5 100.8 8.3; -20 100.9 8.3; -20 100 8.8; -7.4 100 8.8].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb33b=[0.1 0.3 -0.1; 0.5 0.05 0; 0 -0.4 0.1; -0.5 0 0];
kc33b=[0.1 -0.3 0.1; -0.5 -0.05 0; 0 0.4 -0.1; 0.5 0 0];
f33b=mypatch(p33b,kb33b,kc33b);
%
p34b=[-4.1 99.5 8.4; -3.75 100.1 8.4; -7.5 100.8 8.3; -7.4 100 8.8; -4.1 99.5 8.4].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb34b=[-0.1 0.1 0; 0.5 0.3 -1.3; 0.1 -0.3 0.1; -0.3 0 -0.5];
kc34b=[0.1 -0.1 0; -0.5 0 -0.5; 0.1 0.3 -0.1; 0.3 0 -0.5];
f34b=mypatch(p34b,kb34b,kc34b);
%
p35b=[-4.3 99.4 12.3; -3.7 100.1 8.5; -4 99.5 8.5; -4.45 99 12; -4.3 99.4 12.3].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb35b=[-0.5 0 -0.1; 0.1 -0.3 0; -0.3 0 0.4; -0.1 0 0.1];
kc35b=[-0.4 -0.3 0.6; -0.1 0.3 0; -0.4 0 -0.4; 0.06 0 -0.1];
f35b=mypatch(p35b,kb35b,kc35b);
    %
p36b=[-4.3 99.4 12.3; -4.45 99 12; -6.8 99 12.1; -6.8 100 12.3; -4.3 99.4 12.3].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb36b=[0.06 0 -0.1; 0.5 0 0; 0 0 0.1; -0.2 0 0];
kc36b=[-0.1 0 0.1; -0.5 0 0; 0 0 -0.1; 0.1 0 0];
f36b=mypatch(p36b,kb36b,kc36b);
%over rear light
p37b=[-6.8 100 12.3; -6.8 99 12.1; -10.6 100 8.8; -11.3 100.6 8.3; -6.8 100 12.3].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb37b=[0 0 -0.1; 2.1 0 0; 0.1 0.1 -0.1; -1.8 -0.15 4.7];
kc37b=[0 0 0.1; -1.6 0 3.5; -0.1 -0.1 0.1; 2.3 0.05 0];
f37b=mypatch(p37b,kb37b,kc37b);
%
p38b=[-7.7 99.5 12.35; -7.4 99 12.1; -7.4 100 8.8; -7.8 100.4 8.2; -7.7 99.5 12.35].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb38b=[0 -0.1 0; -0.3 0 -1; 0 0.1 -0.1; -0.3 0 1];
kc38b=[0 0.1 0; -0.3 0 1; 0 -0.1 0.1; -0.3 0 -1];
f38b=mypatch(p38b,kb38b,kc38b);

p39b=[-7.7 99.5 12.35; -7.8 100.4 8.2; -11.3 100.4 8.2; -9.5 100 12; -7.7 99.5 12.35].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb39b=[-0.3 0 -1; 1 0 0; 0 0 1; -1 0 0];
kc39b=[-0.3 0 1; -1 0 0; 0 0 -1; 1 0 0];
f39b=mypatchTailLight(p39b,kb39b,kc39b);
%
p40b=[-4.45 99 12; -4 99.5 8.5; -7.4 100 8.8; -7.4 99 12.1; -4.45 99 12].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb40b=[-0.4 0 -0.4; 0 0 -2; -0.3 0 1; -0.5 0 0.2];
kc40b=[-0.3 0 0.4; 0 0 -2; -0.3 0 -1; 0.5 0 0.2];
f40b=mypatchTailLight(p40b,kb40b,kc40b);
    
p41b=[-2.9 100.9 4; -3 99 -2; -25 99.6 -2; -25 102.1 5; -2.9 100.9 4].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb41b=[-0.2 0 -1; 1 0.1 0; 0 0.6 1; -2 0 0];
kc41b=[0 0.8 1; -1 0 0; 0 -0.1 -1; 2 0.5 0.4];
f41b=mypatch(p41b,kb41b,kc41b);
    
p42b=[-3 99 -2; -3 98.4 -3.7; -25 100.2 -3.7; -25 99.6 -2; -3 99 -2].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb42b=[0 -0.2 -0.4; 1 0.05 0; 0 0 0.2; -1 0 0];
kc42b=[0 0.3 0.2; -6 0 0; 0 -0.7 -0.5; 1 0.1 0];
f42b=mypatch(p42b,kb42b,kc42b);
%trunk and rear    
p43b=[-5.7 84.15 15; -5 89 14.48; -25 90.7 16.8; -25 89.2 17; -5.7 84.15 15].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb43b=[-0.8 0.5 0.1; 2.7 0.7 0; 0 -0.2 0.1; -10 0 0];
kc43b=[0 -0.5 0.1; -10 0 0; 0 0.1 0.1; 2.7 1.6 0];
f43b=mypatch(p43b,kb43b,kc43b);

p44b=[-5 89.1 14.47; -6.6 99.7 12.7; -10.6 100.2 13.3; -9 89.9 15.20; -5 89.1 14.47].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb44b=[-0.17 1 -0.17; 1 0.05 0; -0.1 -2 -0.2; -0.5 -0.05 -0.1];
kc44b=[-0.5 -1 0.2; -2 -0.1 -0.4; 0.1 2 -0.1; 1.5 0.4 0.05];
f44b=mypatch(p44b,kb44b,kc44b);

p45b=[-9 89.9 15.20; -10.6 100.2 13.3; -25 100.6 14.7; -25 90.8 16.8; -9 89.9 15.20].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb45b=[0.1 2 -0.1; 1 0.1 0.4; 0 -3 -0.4; -7 0 0];
kc45b=[-0.1 -2 -0.2; -7 0 0; 0 3 -0.5; 1 0.2 0.20];
f45b=mypatch(p45b,kb45b,kc45b);
%
p46b=[-6.6 99.7 12.7; -6.8 100 12.3; -11.3 100.6 8.3; -10.6 100.2 13.3; -6.6 99.7 12.7].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb46b=[0.01 0.01 -0.01; 2.3 0.05 0; 0 0 1; -2 -0.1 -0.4];
kc46b=[-0.01 -0.01 0.1; -1.8 -0.15 4.7; 0.2 0 -0.5; 1 0.05 0];
f46b=mypatch(p46b,kb46b,kc46b);
%
p47b=[-10.6 100.2 13.3; -11.3 100.6 8.3; -25 100.8 8.3; -25 100.6 14.7; -10.6 100.2 13.3].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb47b=[0.2 0 -0.5; 3 0 0; 0 0 3; -7 0 0];
kc47b=[0 0 1; -3 0 0; 0 -0.6 -3; 1 0.1 0.4];
f47b=mypatch(p47b,kb47b,kc47b);
%
p48b=[1.3 0 10.45; 1.3 0 9.1; 1.3 9 2.1; 1.3 10.35 1.9; 1.3 0 10.45].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb48b=[0 0 -0.1; 0 4.7 0; 0 0.1 0.05; 0 -0.2 4.7];
kc48b=[0 0 0.1; 0 -0.7 3.6; 0 -0.1 -0.05; 0 4.7 0];
f48b=mypatch(p48b,kb48b,kc48b);

p49b=[1.3 0 10.45; 1.3 -7.2 7.4; 1.3 -5.85 6.9; 1.3 0 9.1; 1.3 0 10.45].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb49b=[0 -3.1 0; 0 0.1 -0.05; 0 1.1 1; 0 0 0.1];
kc49b=[0 1.2 1.5; 0 -0.1 0.05; 0 -3 -0; 0 0 -0.1];
f49b=mypatch(p49b,kb49b,kc49b);
%
p50b=[1.3 -7.3 7.3; 1.3 -10.55 -4; 1.3 -9.3 -4; 1.3 -5.95 6.8; 1.3 -7.3 7.3].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb50b=[0 -2.5 -2.8; 0 0.1 0; 0 0.1 8; 0 -0.1 0.05];
kc50b=[0 0.1 7; 0 -0.1 0; 0 -2.1 -2.5; 0 0 -0.05];
f50b=mypatch(p50b,kb50b,kc50b);
%from the door to the frontwheel (triangle)
p51b=[-1.35 29.9 14; 1.3 10.35 1.9; 0.55 29.9 -2.1; 0 29.4 6.5; -1.35 29.9 14].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb51b=[0.5 -0.5 -0.5; 0.05 3.5 -0.44; 1.5 0 2; 0 0 6];
kc51b=[0 5 5; 0 -8.2 -0.1; -0.4 0 -5; 0.5 -0.05 -0.5;];
f51b=mypatch(p51b,kb51b,kc51b);
%over the front wheel
p53b=[-1.5 0 13.3; 1.3 0 10.45; 1.3 10.35 1.9; -1.35 29.9 14; -1.5 0 13.3].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb53b=[-0.5 0 -0.3; 0 4.7 0; 0 5 5; 0.07 -15 0.4];
kc53b=[0.65 0 1.3; 0 -0.2 4.7; 0.5 -0.5 -0.5; 0 1 0.1];
f53b=mypatch(p53b,kb53b,kc53b);
%
p54b=[-1.5 0 13.3; -4.3 -15 9.9; 1.3 -7.2 7.4; 1.3 0 10.45; -1.5 0 13.3].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb54b=[0 -4 -0.1; -3.1 1 0.2; 0 1.2 1.5; 0.65 0 1.3];
kc54b=[-0.9 0.5 0.7; 0.2 -0.2 0.1; 0 -3.1 0; -0.5 0 -0.3];
f54b=mypatch(p54b,kb54b,kc54b);
%
p55b=[-3.9 34.9 15; -4.4 31 15; -3.9 29 14.8; -1.35 29.9 14; -3.9 34.9 15].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb55b=[0.1 -0.2 0; -0.2 -0.2 0; -0.2 0.2 0; 0.5 0.7 0.3];
kc55b=[-0.2 0.2 0; 0.1 0.2 0.05; 0.2 -0.2 0.1; -1 -1.5 0];
f55b=mypatch(p55b,kb55b,kc55b);
%
p56b=[-3.9 29 14.8; -4.3 0 13.3; -1.5 0 13.3; -1.35 29.9 14; -3.9 29 14.8].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb56b=[-0.3 -1 -0.1; -0.3 0 0; 0 1 0.1; 0.2 -0.2 0.1];
kc56b=[-0.2 3 0.4; 0.1 0 -0.05; 0.07 -15 0.4; -0.2 0.2 0];
f56b=mypatch(p56b,kb56b,kc56b);
%
p57b=[-4.3 0 13.3; -6.4 -15.5 9.9; -4.3 -15 9.9; -1.5 0 13.3; -4.3 0 13.3].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb57b=[0.1 -5 -0.2; -0.2 0.1 0; -0.9 0.5 0.7; 0.1 0 -0.05];
kc57b=[-0.4 0.5 0.2; 0.3 -0.1 0; 0 -4 -0.1; -0.3 0 0];
f57b=mypatch(p57b,kb57b,kc57b);
%around the frontlight
p58b=[1.3 -7.3 7.3; 0.3 -9.3 8.1; -4.3 -16 6.2; -4 -16.4 4.9; 1.3 -7.3 7.3].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb58b=[0.2 -0.2 0.1; 0.1 -1.4 -1.5; -0.3 0 -0.2; -4.4 2 0.3];
kc58b=[-0.2 0.3 -0.1; -4 1.9 0.3; 0.1 0 0.1; 0 -2.2 -2.3];
f58b=mypatch(p58b,kb58b,kc58b);
%
p59b=[-9 -16.5 6.5; -10 -17.5 4.9; -4 -16.4 4.9; -4.3 -16 6.2; -9 -16.5 6.5].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb59b=[0.1 -0.1 -0.1; -1 0.1 0; 0.1 0 0.1; 1 -0.5 -0.05];
kc59b=[-0.1 0.1 0.05; 2.1 -1 0; -0.3 0 -0.2; -0.2 -0.1 -0.15];
f59b=mypatch(p59b,kb59b,kc59b);
%
p60b=[-6.4 -15.5 9.8; -10 -17.5 4.9; -9 -16.5 6.5; -7 -14 6.9; -6.4 -15.5 9.8].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb60b=[5.7 -3 -5.7; -0.1 0.1 0.05; -0.1 0.1 0.1; -0.1 -0.1 0.1];
kc60b=[0.2 0.2 0.1; 0.1 -0.1 -0.1; 0.1 -0.1 -0.1; 0.1 0.1 -0.1];
f60b=mypatch(p60b,kb60b,kc60b);
%frontlight
p61b=[-6.4 -15.4 9.8; -9 -16.5 6.5; -4.3 -16 6.2; -4.3 -14.9 9.8; -6.4 -15.4 9.8].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb61b=[0.6 -0.8 -1; -0.2 -0.1 -0.15; 0.1 0.1 1; 0.3 -0.1 0];
kc61b=[-0.5 0.1 0.5; 1 -0.5 -0.05; 0.1 -0.8 -1; -0.2 0.1 0];
f61b=mypatchFrontlight(p61b,kb61b,kc61b);
%
p62b=[-4.3 -14.9 9.8; -4.3 -16 6.2; 0.3 -9.3 8.1; 0 -10.2 8.4; -4.3 -14.9 9.8].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb62b=[0.1 -0.8 -1; -4 1.9 0.3; 0.15 -0.08 0.1; 0.5 -0.3 0.2];
kc62b=[0.1 0.1 1; 0.1 -1.4 -1.5; -0.13 0.08 -0.1; -2.6 0.1 0];
f62b=mypatchFrontlight(p62b,kb62b,kc62b);
%under the frontlight
p63b=[-4 -16.4 4.9; -4.2 -15.9 -2.5; 1.3 -10.55 -4; 1.3 -7.3 7.3; -4 -16.4 4.9].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb63b=[0 0.1 -3; -0.5 0.2 -0.2; 0 0.1 7; 0 -2.2 -2.3];
kc63b=[-0.2 -0.3 1; 0.2 -1 0; 0 -2.5 -2.8; -4.4 2 0.3];
f63b=mypatch(p63b,kb63b,kc63b);
%
p64b=[-4 -16.4 4.9; -10 -17.5 4.9; -10 -16.9 -0.8; -4.2 -15.9 -2.5; -4 -16.4 4.9].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb64b=[2.1 -1 0; 0 -0.1 -2; -3 0.1 0; -0.2 -0.3 1];
kc64b=[-1 0.1 0; 0 -0.2 1; 1 -0.25 1.7; 0 0.1 -3];
f64b=mypatch(p64b,kb64b,kc64b);
%around the front  
p65b=[-6.4 -15.5 9.8; -10.3 -16.5 7; -11.8 -17.5 4.3; -10 -17.5 4.9; -6.4 -15.5 9.8].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb65b=[0.4 -0.1 -0.5; 0 -0.05 -0.6; -0.05 0 0; 0.2 0.2 0.1];
kc65b=[-0.1 0.1 0.3; -0.4 0 0.6; 0.05 0 0; 5.7 -3 -5.7];
f65b=mypatch(p65b,kb65b,kc65b);
%
p66b=[-25 -16.3 10.05; -22 -17.3 8.5; -10.3 -16.5 7; -6.4 -15.5 9.8; -25 -16.3 10.05].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb66b=[-0.2 -0.5 -0.2; -1 0.05 0; -0.1 0.1 0.3; 2 -0.3 0.1];
kc66b=[0.2 0.05 1; 0 0.05 2; 0.4 -0.1 -0.5; -5 0 0];
f66b=mypatch(p66b,kb66b,kc66b);
%
p67b=[-25 -16.3 10.05; -25 -17.5 4.9; -23.7 -17.5 5; -22 -17.3 8.5; -25 -16.3 10.05].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb67b=[0 -2 -0.7; -1 0 0.1; 0.3 0 2; 0.2 0.05 1];
kc67b=[0 0 4; 0.3 0 -0.3; 3 -0.05 -0.2; -0.2 -0.5 -0.2];
f67b=mypatch(p67b,kb67b,kc67b);
%
p68b=[-23.7 -17.5 5; -23.7 -16.9 -0.7; -11.8 -16.9 -0.75; -11.8 -17.5 4.3; -23.7 -17.5 5].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb68b=[0 0 -1; -1 0 0; 0 -0.2 1; 0.3 0 -0.5];
kc68b=[0 -0.2 1; 1 0 0; 0 0 -1; -0.1 0 -2.5];
f68b=mypatch(p68b,kb68b,kc68b);

p69b=[-11.8 -17.5 4.3; -11.8 -16.9 -0.75; -10 -16.9 -0.8; -10 -17.5 4.9; -11.8 -17.5 4.3].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb69b=[0 0 -1; -1 0 0; 0 -0.2 1; 0.05 0 0];
kc69b=[0 -0.2 1; 1 0 0; 0 0 -1; -0.05 0 0];
f69b=mypatch(p69b,kb69b,kc69b);

p70b=[-25 -17.5 4.9; -25 -16.9 -0.7; -23.7 -16.9 -0.7; -23.7 -17.5 5; -25 -17.5 4.9].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb70b=[0 0 -1; -1 0 0; 0 -0.2 1; 0.3 0 -0.3];
kc70b=[0 -0.2 1; 1 0 0; 0 0 -1; -1 0 0.1];
f70b=mypatch(p70b,kb70b,kc70b);
%
p71b=[-4.2 -15.9 -2.5; -25 -16.3 -3.5; -25 -15 -4; 1.3 -10.55 -4; -4.2 -15.9 -2.5].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb71b=[1 0 -1; 0 0 -0.1; -3 0 0; 0.2 -1 0];
kc71b=[-3 0 0; 0 -0.1 0; 1 0.3 0; -0.5 0.2 -0.2];
f71b=mypatch(p71b,kb71b,kc71b);
%the hood, front part
p72b=[-4 29 14.8; -25 28 16; -25 0 15; -4.4 0 13.3; -4 29 14.8].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb72b=[2 0 0; 0 -6 0; -10 0 0; -0.2 3 0.4];
kc72b=[-10 0 0; 0 5 0.6; 2 0 0; -0.3 -1 -0.1];
f72b=mypatch(p72b,kb72b,kc72b);
%
p73b=[-4.4 0 13.3; -25 0 15; -25 -16.2 10.15; -6.5 -15.4 9.9; -4.4 0 13.3].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb73b=[2 0 0; 0 -5 -0.4; -5 0 0; -0.4 0.5 0.2];
kc73b=[-10 0 0; 0 3 2; 2 -0.3 0.1; 0.1 -5 -0.2];
f73b=mypatch(p73b,kb73b,kc73b);
%
p74b=[-4 29 14.8; -25 28 16; -7 30 15; -4.5 31 15; -4 29 14.8].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb74b=[2 0 0; -3 0.5 0; -1 0.5 0; -0.2 -0.2 0];
kc74b=[-10 0 0; 2 -0.2 0; 0.5 -0.2 0; 0.1 0.2 0.05];
f74b=mypatch(p74b,kb74b,kc74b);
    
p75b=[-4.3 33 14.8; -5.2 31 14.8; -7.7 45 24; -7.4 46 23; -4.3 33 14.8].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb75b=[0.3 -0.2 0; 0 2 1; -0.5 0.3 -0.3; -1.5 -5.5 -3];
kc75b=[-0.1 0.1 0; -1 -5.5 -3; 0.1 -0.3 0.3; 0 2 1];
f75b=mypatch(p75b,kb75b,kc75b);
    
p76b=[-7.7 45 24; -25 44 25; -25 28.5 15.7; -5.2 31 14.8; -7.7 45 24].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb76b=[3 -1 1; 0 -2 -0.7; -4 0 0; 0 2 1];
kc76b=[-3 0 0; 0 1 1.5; 2 -1 0; -1 -5.5 -3];
f76b=mypatchTransparent(p76b,kb76b,kc76b);  

% 2005-11-28, Grille etc.
p1c=[-4.2 -15.9 -2.5; -25 -16.3 -3.5; -25 -16.9 -0.7; -10 -16.9 -0.8; -4.2 -15.9 -2.5]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb1c=[-1 0 -1; 0 0 -0.1; -1 0 0; 3 0.1 0];
kc1c=[3 0 0; 0 -0.1 0; 1 0 0; -1 -0.25 1.7];
f1c=mypatchBlackish(p1c,kb1c,kc1c);

p2c=[-11.8 -17.5 4.3; -23.7 -17.5 5; -23 -17 5.1; -12.3 -17 4.7;-11.8 -17.5 4.3]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb2c=[0.3 0 -0.5; 0 0 0; 0.5 0 -1.5; 0 0.05 0];
kc2c=[-0.1 0 -2.5; 0 0 0; -3 0 -1; 0 0.05 0];
f2c=mypatch(p2c,kb2c,kc2c);

p3c=[-23.7 -17.5 5; -22 -17.3 8.5; -21.9 -17 7.9; -23 -17 5.1;-23.7 -17.5 5]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb3c=[ -0.3 0 2; 0 0 0; -2.1 0 0; 0 0 0];
kc3c=[ -3 -0.05 -0.2; 0 0 0; -1 0 2; 0 0 0 ];
f3c=mypatch(p3c,kb3c,kc3c);

p4c=[-22 -17.3 8.5; -10.3 -16.5 7; -11.2 -16 6.9; -21.9 -17 7.9;-22 -17.3 8.5]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb4c=[1 0.05 0; 0 0.05 0; -0.7 0 1.5; 0 0 0];
kc4c=[0 0.05 2; 0 0.05 0; 0 0 0; 0 0 0];
f4c=mypatch(p4c,kb4c,kc4c);

p5c=[-10.3 -16.5 7; -11.8 -17.5 4.3; -12.3 -17 4.7; -11.2 -16 6.9;-10.3 -16.5 7]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb5c=[0 -0.05 -0.6; 0 0.05 0; 1 0 0.5; 0 0.05 0];
kc5c=[0.4 0 0.6; 0 0.05 0; 0.5 0 -1; 0 0.05 0];
f5c=mypatch(p5c,kb5c,kc5c);
%"Chromed" grille
p6c=[-12.3 -17 4.7; -11.2 -16 6.9; -11.5 -16 6.9; -12.5 -17 4.9;-12.3 -17 4.7]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb6c=[1 0 0.5; 0 -0.05 0; 0.5 0 -1; 0 -0.05 0];
kc6c=[0.5 0 -1; 0 -0.05 0; 0.75 0 0.35; 0 -0.05 0];
f6c=mypatchWhiteish(p6c,kb6c,kc6c);

p7c=[-11.2 -16 6.9; -21.9 -17 7.9; -21.8 -17 7.6; -11.5 -16 6.9;-11.2 -16 6.9]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb7c=[-0.7 0 1.5; 0 -0.05 0; 0 0 0; 0 -0.05 0];
kc7c=[0 0 0; 0 -0.05 0; -0.6 0 1.2; 0 -0.05 0];
f7c=mypatchWhiteish(p7c,kb7c,kc7c);

p8c=[-21.9 -17 7.9; -21.8 -17 7.6; -22.7 -17 5.25; -23 -17 5.1;-21.9 -17 7.9]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb8c=[0 -0.05 0; -2 0 0;0 -0.05 0;  -1 0 2];
kc8c=[0 -0.05 0; -1 0 1.8;0 -0.05 0; -2.1 0 0];
f8c=mypatchWhiteish(p8c,kb8c,kc8c);

p9c=[-23 -17 5.1; -12.3 -17 4.7; -12.5 -17 4.9;-22.7 -17 5.25; -23 -17 5.1]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb9c=[0.5 0 -1.5;0 -0.05 0; -3 0 -0.8; 0 0.05 0];
kc9c=[-3 0 -1;0 -0.05 0; 0.5 0 -1.3;0 -0.05 0];
f9c=mypatchWhiteish(p9c,kb9c,kc9c);
%

% p10c=[-22.7 -17 5.25; -12.5 -17 4.9; -11.5 -16 6.9; -21.8 -17 7.6;-22.7 -17 5.25]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
% kb10c=[0.5 0 -1.3; 0.75 0 0.35; -0.6 0 1.2; -3 0 0];
% kc10c=[-3 0 -0.8; 0.5 0 -1; 0 0 0; -1 0 1];
% f10c=mypatchBlackish(p10c,kb10c,kc10c);

%

p11c=[-22.2 -16.3 7.8;-22.7 -16.9 4.3;-22.3 -16.9 4.3;-22 -16.3 7.8;-22.2 -16.3 7.8]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb11c=[-0.3 0 -0.4; 0 -0.05 0; 0.2 0 2; 0 -0.05 0];
kc11c=[0.1 0 2; 0 -0.05 0; 0 0 0; 0 -0.05 0];
f11c=mypatchWhiteish(p11c,kb11c,kc11c);

p12c=[-22.2+1.4 -16.3 7.8;-22.7+1.4 -16.9 4.3;-22.3+1.4 -16.9 4.3;-22+1.4 -16.3 7.8;-22.2+1.4 -16.3 7.8]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb12c=[-0.3 0 -0.4; 0 -0.05 0; 0.2 0 2; 0 -0.05 0];
kc12c=[0.1 0 2; 0 -0.05 0; 0 0 0; 0 -0.05 0];
f12c=mypatchWhiteish(p12c,kb12c,kc12c);

p13c=[-22.2+2.8 -16.3 7.8;-22.7+2.8 -17 4.3;-22.3+2.8 -17 4.3;-22+2.8 -16.3 7.8;-22.2+2.8 -16.3 7.8]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb13c=[-0.3 0 -0.4; 0 -0.05 0; 0.2 0 2; 0 -0.05 0];
kc13c=[0.1 0 2; 0 -0.05 0; 0 0 0; 0 -0.05 0];
f13c=mypatchWhiteish(p13c,kb13c,kc13c);

p14c=[-22.2+4.2 -16.3 7.8;-22.7+4.2 -17 4.3;-22.3+4.2 -17 4.3;-22+4.2 -16.3 7.8;-22.2+4.2 -16.3 7.8]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb14c=[-0.3 0 -0.4; 0 -0.05 0; 0.2 0 2; 0 -0.05 0];
kc14c=[0.1 0 2; 0 -0.05 0; 0 0 0; 0 -0.05 0];
f14c=mypatchWhiteish(p14c,kb14c,kc14c);

p15c=[-22.2+5.6 -16.3 7.8;-22.7+5.6 -17 4.3;-22.3+5.6 -17 4.3;-22+5.6 -16.3 7.8;-22.2+5.6 -16.3 7.8]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb15c=[-0.3 0 -0.4; 0 -0.05 0; 0.2 0 2; 0 -0.05 0];
kc15c=[0.1 0 2; 0 -0.05 0; 0 0 0; 0 -0.05 0];
f15c=mypatchWhiteish(p15c,kb15c,kc15c);

p16c=[-22.2+7 -16.3 7.8;-22.7+7 -17 4.3;-22.3+7 -17 4.3;-22+7 -16.3 7.8;-22.2+7 -16.3 7.8]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb16c=[-0.3 0 -0.4; 0 -0.05 0; 0.2 0 2; 0 -0.05 0];
kc16c=[0.1 0 2; 0 -0.05 0; 0 0 0; 0 -0.05 0];
f16c=mypatchWhiteish(p16c,kb16c,kc16c);

p17c=[-22.2+8.4 -15.8 7.8;-22.7+8.4 -16.9 4.3;-22.3+8.4 -16.9 4.3;-22+8.4 -15.8 7.8;-22.2+8.4 -15.8 7.8]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb17c=[-0.3 0 -0.4; 0 -0.05 0; 0.2 0 2; 0 -0.05 0];
kc17c=[0.1 0 2; 0 -0.05 0; 0 0 0; 0 -0.05 0];
f17c=mypatchWhiteish(p17c,kb17c,kc17c);

p18c=[-22.2+9.8 -15.3 7.8;-22.7+9.8 -16.9 4.3;-22.3+9.8 -16.9 4.3;-22+9.8 -15.3 7.8;-22.2+9.8 -15.3 7.8]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb18c=[-0.3 0 -0.4; 0 -0.05 0; 0.2 0 2; 0 -0.05 0];
kc18c=[0.1 0 2; 0 -0.05 0; 0 0 0; 0 -0.05 0];
f18c=mypatchWhiteish(p18c,kb18c,kc18c);

p1d=[-4.2 -15.9 -2.5; -25 -16.3 -3.5; -25 -16.9 -0.7; -10 -16.9 -0.8; -4.2 -15.9 -2.5].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb1d=[1 0 -1; 0 0 -0.1; -1 0 0; -3 0.1 0];
kc1d=[-3 0 0; 0 -0.1 0; 1 0 0; 1 -0.25 1.7];
f1d=mypatchBlackish(p1d,kb1d,kc1d);

p2d=[-11.8 -17.5 4.3; -23.7 -17.5 5; -23 -17 5.1; -12.3 -17 4.7;-11.8 -17.5 4.3].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb2d=[-0.3 0 -0.5; 0 0 0; -0.5 0 -1.5; 0 0.05 0];
kc2d=[0.1 0 -2.5; 0 0 0; 3 0 -1; 0 0.05 0];
f2d=mypatch(p2d,kb2d,kc2d);

p3d=[-23.7 -17.5 5; -22 -17.3 8.5; -21.9 -17 7.9; -23 -17 5.1;-23.7 -17.5 5].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb3d=[ 0.3 0 2; 0 0 0; 2.1 0 0; 0 0 0];
kc3d=[ 3 -0.05 -0.2; 0 0 0; 1 0 2; 0 0 0 ];
f3d=mypatch(p3d,kb3d,kc3d);

p4d=[-22 -17.3 8.5; -10.3 -16.5 7; -11.2 -16 6.9; -21.9 -17 7.9;-22 -17.3 8.5].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb4d=[-1 0.05 0; 0 0.05 0; 0.7 0 1.5; 0 0 0];
kc4d=[0 0.05 2; 0 0.05 0; 0 0 0; 0 0 0];
f4d=mypatch(p4d,kb4d,kc4d);

p5d=[-10.3 -16.5 7; -11.8 -17.5 4.3; -12.3 -17 4.7; -11.2 -16 6.9;-10.3 -16.5 7].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb5d=[0 -0.05 -0.6; 0 0.05 0; -1 0 0.5; 0 0.05 0];
kc5d=[-0.4 0 0.6; 0 0.05 0; -0.5 0 -1; 0 0.05 0];
f5d=mypatch(p5d,kb5d,kc5d);
%kromad ram p grillen
p6d=[-12.3 -17 4.7; -11.2 -16 6.9; -11.5 -16 6.9; -12.5 -17 4.9;-12.3 -17 4.7].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb6d=[-1 0 0.5; 0 -0.05 0; -0.5 0 -1; 0 -0.05 0];
kc6d=[-0.5 0 -1; 0 -0.05 0; -0.75 0 0.35; 0 -0.05 0];
f6d=mypatchWhiteish(p6d,kb6d,kc6d);

p7d=[-11.2 -16 6.9; -21.9 -17 7.9; -21.8 -17 7.6; -11.5 -16 6.9;-11.2 -16 6.9].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb7d=[0.7 0 1.5; 0 -0.05 0; 0 0 0; 0 -0.05 0];
kc7d=[0 0 0; 0 -0.05 0; 0.6 0 1.2; 0 -0.05 0];
f7d=mypatchWhiteish(p7d,kb7d,kc7d);

p8d=[-21.9 -17 7.9; -21.8 -17 7.6; -22.7 -17 5.25; -23 -17 5.1;-21.9 -17 7.9].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb8d=[0 -0.05 0; 2 0 0;0 -0.05 0;  1 0 2];
kc8d=[0 -0.05 0; 1 0 1.8;0 -0.05 0; 2.1 0 0];
f8d=mypatchWhiteish(p8d,kb8d,kc8d);

p9d=[-23 -17 5.1; -12.3 -17 4.7; -12.5 -17 4.9;-22.7 -17 5.25; -23 -17 5.1].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb9d=[-0.5 0 -1.5;0 -0.05 0; 3 0 -0.8; 0 0.05 0];
kc9d=[3 0 -1;0 -0.05 0; -0.5 0 -1.3;0 -0.05 0];
f9d=mypatchWhiteish(p9d,kb9d,kc9d);
% dark background

% p10c=[-22.7 -17 5.25; -12.5 -17 4.9; -11.5 -16 6.9; -21.8 -17 7.6;-22.7 -17 5.25]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
% kb10c=[0.5 0 -1.3; 0.75 0 0.35; -0.6 0 1.2; -3 0 0];
% kc10c=[-3 0 -0.8; 0.5 0 -1; 0 0 0; -1 0 1];
% f10c=mypatchBlackish(p10c,kb10c,kc10c);

p10c2=[-40.4 -16 5; -12.5 -16 4.5; -11.5 -15 7; -38.6 -16 8;-40.4 -16 5]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb10c2=[0.5 0 -1.3; 0.75 0 0.35; -0.6 0 1.2; -3 0 0];
kc10c2=[-3 0 -0.8; 0.5 0 -1; 0 0 0; -1 0 1];
f10c2=mypatchBlackish(p10c2,kb10c2,kc10c2);



p11d=[-22.2 -16.3 7.8;-22.7 -16.9 4.3;-22.3 -16.9 4.3;-22 -16.3 7.8;-22.2 -16.3 7.8].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb11d=[0.3 0 -0.4; 0 -0.05 0; -0.2 0 2; 0 -0.05 0];
kc11d=[-0.1 0 2; 0 -0.05 0; 0 0 0; 0 -0.05 0];
f11d=mypatchWhiteish(p11d,kb11d,kc11d);

p12d=[-22.2+1.4 -16.3 7.8;-22.7+1.4 -16.9 4.3;-22.3+1.4 -16.9 4.3;-22+1.4 -16.3 7.8;-22.2+1.4 -16.3 7.8].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb12d=[0.3 0 -0.4; 0 -0.05 0; -0.2 0 2; 0 -0.05 0];
kc12d=[-0.1 0 2; 0 -0.05 0; 0 0 0; 0 -0.05 0];
f12d=mypatchWhiteish(p12d,kb12d,kc12d);

p13d=[-22.2+2.8 -16.3 7.8;-22.7+2.8 -17 4.3;-22.3+2.8 -17 4.3;-22+2.8 -16.3 7.8;-22.2+2.8 -16.3 7.8].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb13d=[0.3 0 -0.4; 0 -0.05 0; -0.2 0 2; 0 -0.05 0];
kc13d=[-0.1 0 2; 0 -0.05 0; 0 0 0; 0 -0.05 0];
f13d=mypatchWhiteish(p13d,kb13d,kc13d);

p14d=[-22.2+4.2 -16.3 7.8;-22.7+4.2 -17 4.3;-22.3+4.2 -17 4.3;-22+4.2 -16.3 7.8;-22.2+4.2 -16.3 7.8].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb14d=[0.3 0 -0.4; 0 -0.05 0; -0.2 0 2; 0 -0.05 0];
kc14d=[-0.1 0 2; 0 -0.05 0; 0 0 0; 0 -0.05 0];
f14d=mypatchWhiteish(p14d,kb14d,kc14d);

p15d=[-22.2+5.6 -16.3 7.8;-22.7+5.6 -17 4.3;-22.3+5.6 -17 4.3;-22+5.6 -16.3 7.8;-22.2+5.6 -16.3 7.8].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb15d=[0.3 0 -0.4; 0 -0.05 0; -0.2 0 2; 0 -0.05 0];
kc15d=[-0.1 0 2; 0 -0.05 0; 0 0 0; 0 -0.05 0];
f15d=mypatchWhiteish(p15d,kb15d,kc15d);

p16d=[-22.2+7 -16.3 7.8;-22.7+7 -17 4.3;-22.3+7 -17 4.3;-22+7 -16.3 7.8;-22.2+7 -16.3 7.8].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb16d=[0.3 0 -0.4; 0 -0.05 0; -0.2 0 2; 0 -0.05 0];
kc16d=[-0.1 0 2; 0 -0.05 0; 0 0 0; 0 -0.05 0];
f16d=mypatchWhiteish(p16d,kb16d,kc16d);

p17d=[-22.2+8.4 -15.8 7.8;-22.7+8.4 -16.9 4.3;-22.3+8.4 -16.9 4.3;-22+8.4 -15.8 7.8;-22.2+8.4 -15.8 7.8].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb17d=[0.3 0 -0.4; 0 -0.05 0; -0.2 0 2; 0 -0.05 0];
kc17d=[-0.1 0 2; 0 -0.05 0; 0 0 0; 0 -0.05 0];
f17d=mypatchWhiteish(p17d,kb17d,kc17d);

p18d=[-22.2+9.8 -15.3 7.8;-22.7+9.8 -16.9 4.3;-22.3+9.8 -16.9 4.3;-22+9.8 -15.3 7.8;-22.2+9.8 -15.3 7.8].*[-1 1 1; -1 1 1; -1 1 1; -1 1 1; -1 1 1]-[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
kb18d=[0.3 0 -0.4; 0 -0.05 0; -0.2 0 2; 0 -0.05 0];
kc18d=[-0.1 0 2; 0 -0.05 0; 0 0 0; 0 -0.05 0];
f18d=mypatchWhiteish(p18d,kb18d,kc18d);

% p1c=[; ; ; ;]+[25 0 0; 25 0 0; 25 0 0; 25 0 0; 25 0 0];
% kb1c=[; ; ; ];
% kc1c=[; ; ; ];
% f1c=mypatchBlackish(p1c,kb1c,kc1c);

hjul1=ritahjul(25,84.15,0); 
hjul2=ritahjul(25,0,0); 
hjul3=ritahjul2(25,84.15,0);
hjul4=ritahjul2(25,0,0); 

l1 = light('Position',[40 -120 40], ...
    'Style','local', ...
    'Color',[0.8 0.8 0.8]);

% l2 = light('Position',[90 40 0], ...
%     'Style','local', ...
%     'Color',[0.4 0.4 0.4]);

% l3 = light('Position',[90 -40 0], ...
%     'Style','local', ...
%     'Color',[1 1 1]);

l4 = light('Position',[-40 120 40], ...
    'Style','local', ...
    'Color',[1 1 1]);

l5 = light('Position',[-90 40 0], ...
    'Style','local', ...
    'Color',[1 1 1]);

% l6 = light('Position',[-90 -40 0], ...
%     'Style','local', ...
%     'Color',[1 1 1]);

Xtu=[-20:10:100];
Ytu=[-80:10:80];
Ztu=zeros(length(Xtu),length(Ytu))-8.65;
surf(Ytu,Xtu,Ztu), hold on;
%fff2=ritahjul(0,0,0);
view(90,0),xlabel('x'), ylabel('y'), axis equal;
%view(-12,0);
Highlights from Car

Highlights from
Car
