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/SetstereoL.sci | |
| parent | aecda53b09be64698e9e5dcbf40f0fe289b37e2e (diff) | |
rename and update ketpic -> ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoL.sci')
| -rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoL.sci | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoL.sci deleted file mode 100755 index cb6c79ae..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoL.sci +++ /dev/null @@ -1,12 +0,0 @@ -// 08.08.12 -// 08.09.21 -// 09.03.09 - -function SetstereoL(R,T,P,H) - X=R*sin(T*%pi/180)*cos(P*%pi/180); - Y=R*sin(T*%pi/180)*sin(P*%pi/180); - Z=R*cos(T*%pi/180); - Eye=[X+H/2*Y/(X^2+Y^2),Y-H/2*X/(X^2+Y^2),Z]; - Setpers([0,0,0],Eye); -endfunction - |