summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.sci
blob: 0d649872c58b864ac78139da1b4da4fef8440776 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
// s : 2014.08.25

function Out=Symb3data(Moji,Size,Kaiten,NV,Pos)
    if type(Moji)==10 then
        Tmp=Symbdata(Moji);
        GY1=Tmp(2)
    else
        GY1=Moji
    end
    GY1=Scaledata(GY1,Size,Size);
    GY1=Rotatedata(GY1,Kaiten*%pi/180);
    A=NV(1); B=NV(2); C=NV(3);
    if A^2+B^2==0 then
        E1=[1,0,0];
        E2=[0,1,0];
    else
        E1=[B,-A,0];
        E2=[-A*C,-B*C,A^2+B^2];
        D=det([E1;E2;NV]);
        if D<0 then
            E1=-E1
        end
        E1=E1/norm(E1);
        E2=E2/norm(E2);
    end
    deff("Out=Em(X,Y)","Out=[E1(1)*X+E2(1)*Y,E1(2)*X+E2(2)*Y,E1(3)*X+E2(3)*Y]");
    GY1=Embed(GY1,Em);
    GY1=Translate3data(GY1,Pos);
    Out=Flattenlist(GY1);
endfunction