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/ketpicscifiles6/MakecutbycrvL.sci | |
parent | 5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff) |
update ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.sci | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.sci deleted file mode 100644 index 81b0492f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakecutbycrvL.sci +++ /dev/null @@ -1,45 +0,0 @@ -// 08.09.19 -// 08.10.15 -// 08.12.21 - -function AnsL=MakecutbycrvL(Out1,CutuvL,Uveqstr,Uname,Vname,Eps) - if CutuvL==[] - if Mixtype(Out1)==1 - AnsL=Mix(Out1); - else - AnsL=Out1; - end; - return; - end; - AnsL=[]; - ParL=Partitionseg(Out1,CutuvL,Eps); - Flg=0; - for J=1:length(ParL)-1 - Tmp=(ParL(J)+ParL(J+1))*0.5; - Tmp=PointonCurve(Tmp,Out1); - Tmp1='('+string(Tmp(1))+')'; - Tmp2='('+string(Tmp(2))+')'; - Tmp=strsubst(Uveqstr,Uname,Tmp1); - Tmp=strsubst(Tmp,Vname,Tmp2); - Tmp=evstr(Tmp); - if Tmp>0 - if Flg==0 - P1=ParL(J); - end; - Flg=1 - else - if Flg==1 - P2=ParL(J); - Tmp=Partcrv(P1,P2,Out1); - AnsL=Mixadd(AnsL,Tmp); - end; - Flg=0 - end; - end; - if Flg==1 - P2=ParL(length(ParL)); - Tmp=Partcrv(P1,P2,Out1); - AnsL=Mixadd(AnsL,Tmp); - end; -endfunction; - |