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

orientace2
twins

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

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

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

body
kresli

clear all;