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/Partframe.sci | |
parent | 5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff) |
update ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.sci | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.sci deleted file mode 100644 index a8581b1b..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Partframe.sci +++ /dev/null @@ -1,27 +0,0 @@ -// 13.05.03 - -function Out=Partframe(Tb,St,Ed) - G=Dividetable(Tb); - Gw=G(1); - Gt=G(2); - Gy=G(3); - Gwt=Tb(4); - Gwy=Tb(5); - Gat=lstcat(list(Gwt(1)),Gt,list(Gwt(2))); - Gay=lstcat(list(Gwy(1)),Gy,list(Gwy(2))); - Tmp1=Ptstart(Gat(St(1))); - Tmp2=Ptstart(Gay(St(2))); - Ps=[Tmp1(1),Tmp2(2)]; - Tmp1=Ptstart(Gat(Ed(1))); - Tmp2=Ptstart(Gay(Ed(2))); - Pe=[Tmp1(1),Tmp2(2)]; - Pars=Paramoncrv(Ps,Gw); - Pare=Paramoncrv(Pe,Gw); - if Pars<Pare then - Out=Partcrv(Pars,Pare,Gw); - else - Tmp1=Partcrv(Pars,Numptcrv(Gw),Gw); - Tmp2=Partcrv(1,Pare,Gw); - Out=Joincrvs(Tmp1,Tmp2); - end -endfunction; |