diff options
author | Norbert Preining <norbert@preining.info> | 2018-02-12 14:52:54 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2018-02-12 14:52:54 +0900 |
commit | 8c3c49fd56de185396400a0e8a636ac03d8239ab (patch) | |
tree | adf96aee3f0bfbdc9df3a9e2dd86332a9dfee9cd /texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.sci | |
parent | 5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff) |
update ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.sci | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.sci deleted file mode 100644 index 4e38175f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Kukeiwake.sci +++ /dev/null @@ -1,62 +0,0 @@ -// 08.05.30 - -function Out=Kukeiwake(PL) - global XMIN XMAX YMIN YMAX; - Eps=10.0^(-6); - NW=[XMIN,YMAX]; SW=[XMIN,YMIN]; - SE=[XMAX,YMIN]; NE=[XMAX,YMAX]; - Sikaku=[NW;SW;SE;NE;NW]; - Kt=IntersectcrvsPp(PL,Sikaku); - if Mixlength(Kt)~=2 - disp('not two points') - return - end - Tmp=Op(1,Kt); - Pt1=Op(1,Tmp); - N1=Trunc(Op(2,Tmp)); - M1=Op(3,Tmp); - Tmp=Op(2,Kt); - Pt2=Op(1,Tmp); - N2=Trunc(Op(2,Tmp)); - M2=Op(3,Tmp); - T1=ParamonCurve(Pt1,M1,Sikaku); - T2=ParamonCurve(Pt2,M2,Sikaku); - QL=[]; - if Vecnagasa(Pt1,PL(N1+1,:))>Eps - QL=[Pt1]; - end - QL=[QL;PL(N1+1:N2,:)]; - if Vecnagasa(Pt2,PL(N2,:))>Eps - QL=[QL;Pt2]; - end - HidariL=QL; - Ms=M2+1; Me=M1; - if T1<T2+Eps Me=M1+4; end - for M=Ms:Me - Tmp=HidariL(size(HidariL,1),:); - P=Sikaku(modulo(M-1,4)+1,:); - if Vecnagasa(Tmp,P)>Eps - HidariL=[HidariL;P]; - end - end - Tmp=HidariL(size(HidariL,1),:); - if Vecnagasa(Tmp,Pt1)>Eps - HidariL=[HidariL;Pt1]; - end - MigiL=QL; - Ms=M2; Me=M1+1; - if T1>T2-Eps Me=Me-4; end; - for M=Ms:-1:Me - Tmp=MigiL(size(MigiL,1),:); - P=Sikaku(modulo(M-1,4)+1,:); - if Vecnagasa(Tmp,P)>Eps - MigiL=[MigiL;P] - end - end - Tmp=MigiL(size(MigiL,1),:); - if Vecnagasa(Tmp,Pt1)>Eps - MigiL=[MigiL;Pt1]; - end - Out=MixS(HidariL,MigiL); -endfunction - |