diff options
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.sci | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.sci deleted file mode 100755 index 6deb302c..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.sci +++ /dev/null @@ -1,33 +0,0 @@ -// 08.06.05 -// 16.12.29 ( for too short segment ) - -function Out=Anglemark(varargin) - Nargs=length(varargin); - Eps=10^(-3); - PA=varargin(1); PB=varargin(2); PC=varargin(3); - r = 0.5; - if Nargs>=4 - r = varargin(4)*r; - end - Out=[]; // 16.12.29 - if r>min(norm(PA-PB),norm(PC-PB)) then - return; - end; - Cir=Circledata(PB,r); - Tmp=IntersectcrvsPp(Cir,Listplot(PA,PB)); - P1=Op(2,Op(1,Tmp)); - Tmp=IntersectcrvsPp(Cir,Listplot(PC,PB)); - P2=Op(2,Mixop(1,Tmp)); - if abs(P1-P2)<Eps - Out=[]; - return; - end - if P1<P2-Eps - Out=Partcrv(P1,P2,Cir); - else - Tmp=Numptcrv(Cir); - Tmp1=Partcrv(P1,Tmp,Cir); - Tmp2=Partcrv(1,P2,Cir); - Out=Joincrvs(Tmp1,Tmp2); - end -endfunction |