% Vykresli schema mikrostruktury lambda
addpath('./skripty', './funkce');
clear all;

orientace1
twins

AB=[3,5,2,1,2];
CD=[1,5,2,1,2];
% AB=[4,5,2,1,1];
% CD=[2,5,2,1,1];

UB=U{AB(2)};
QAB=Q{AB(1),AB(2),AB(3),AB(4),AB(5)};
FAB=F{AB(1),AB(2),AB(3),AB(4),AB(5)};
FCD=F{CD(1),CD(2),CD(3),CD(4),CD(5)};

n12=n{AB(1),AB(2),AB(3)};
n22=m{AB(1),AB(2),AB(3),AB(4),AB(5)};
n13=rnull(FCD-QAB*UB);
n23=m{CD(1),CD(2),CD(3),CD(4),CD(5)};
F1=eye(3); barva1='black';
F2=FAB;    barva2='green';
F3=FCD;    barva3='blue';
F4=QAB*UB; barva4='red';
postRot=rotace(AC, cross(AC, BD));

typ = 'austenit';   % urcuje, zda bude mikrostruktura vykreslena ve tvaru 
                    % pred transformaci, nebo az po ni
                    
konzistence = 'ano'; % urcuje, zda vynutit protnuti rovin rozhrani
                    % v austenitu v jedne primce
                    
referencni = 1;     % urcuje oblast, jejiz hranice urci prusecnici rovin rozhrani

body
kresli

clear all;