blob: b6a53b62513c0fc939c35c30dc6bba750a681a72 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
// 10.03.28
function Out=Diagcelldata(Tb,Nc,Nr)
Tmp=Findcell(Tb,Nc,Nr);
C=Tmp(1);
Dx=Tmp(2);
Dy=Tmp(3);
Pne=C+[Dx,Dy];
Pnw=C+[-Dx,Dy];
Psw=C+[-Dx,-Dy];
Pse=C+[Dx,-Dy];
Tmp1=Listplot(Pnw,Pse);
Tmp2=Listplot(Pne,Psw);
Out=list(Tmp1,Tmp2);
endfunction;
|