diff options
author | Norbert Preining <norbert@preining.info> | 2017-10-14 11:43:11 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2017-10-14 11:43:11 +0900 |
commit | dc71274f16f7ff65145e034900f582b62453a033 (patch) | |
tree | a71452364cbe1a03feb6a84cdfd09eedae861590 /texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.sci | |
parent | aecda53b09be64698e9e5dcbf40f0fe289b37e2e (diff) |
rename and update ketpic -> ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.sci')
-rw-r--r-- | texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.sci | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.sci deleted file mode 100644 index 0d649872..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.sci +++ /dev/null @@ -1,30 +0,0 @@ -// 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 |