diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.sci | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.sci new file mode 100644 index 00000000..0d649872 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Symb3data.sci @@ -0,0 +1,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 |