blob: 9082290d501aa2b5a9ec3d82fadc38e01629b8e0 (
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
31
32
33
34
35
36
37
38
39
40
|
// 08.08.15
// 14.03.23 debugged "center"
// 15.04.12
function Out=Rotate3data(varargin)
// Eps=10^(-4);
Nargs=length(varargin);
Pd3=varargin(1);
Pd3=Flattenlist(Pd3); // 15.04.12
W1=varargin(2);
W2=varargin(3);
C=[0,0,0];
if Nargs>=4
C=varargin(4);
end;
// if Mixtype(Pd3)==1 // 15.04.12 from
// Pd3=MixS(Pd3);
// elseif Mixtype(Pd3)==3
// Tmp=[];
// for I=1:Mixlength(Pd3)
// Tmp=Mixjoin(Tmp,Mixop(I,Pd3));
// end;
// Pd3=Tmp;
// end;
Out=[];
for I=1:length(Pd3)
PD=Op(I,Pd3);
Ans=[];
for J=1:size(PD,1)
P=PD(J,:);
Tmp=Rotate3pt(P,W1,W2,C); // 14.03.23
Ans=[Ans;Tmp];
end;
Out=Mixadd(Out,Ans);
end;
if length(Out)==1
Out=Op(1,Out);
end;
endfunction
|