summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.sci
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2017-10-14 11:43:11 +0900
committerNorbert Preining <norbert@preining.info>2017-10-14 11:43:11 +0900
commitdc71274f16f7ff65145e034900f582b62453a033 (patch)
treea71452364cbe1a03feb6a84cdfd09eedae861590 /texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.sci
parentaecda53b09be64698e9e5dcbf40f0fe289b37e2e (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.sci30
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