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/Ovaldata.sci | |
parent | 5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff) |
update ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.sci | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.sci deleted file mode 100644 index 823fc8c4..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovaldata.sci +++ /dev/null @@ -1,31 +0,0 @@ -// e : 2015.11.15 -function Out=Ovaldata(varargin) - global XMIN XMAX YMIN YMAX - Nargs=length(varargin); - if Nargs<=1 - Eps=1.0*10^(-4); - C=[(XMIN+XMAX)/2,(YMIN+YMAX)/2]; - Dx=XMAX-C(1)-Eps; - Dy=YMAX-C(2)-Eps; - N=1; - else - C=varargin(1); - Dx=varargin(2); - Dy=varargin(3); - N=4; - end; - Rc=0.2; - if N<=Nargs - Rc=varargin(N)*Rc; // 15.11.15 - end; - Out=[]; - P=C+[Dx-Rc,Dy-Rc]; - Tmp1=Circledata(P,Rc,'R=[0,%pi/2]','N=10'); - Tmp2=Listplot(C+[Dx-Rc,Dy],C+[0,Dy]); - Tmp3=Listplot(C+[Dx,0],C+[Dx,Dy-Rc]); - G=Joincrvs(Tmp3,Tmp1,Tmp2); - Tmp=Reflectdata(G,[C,C+[0,1]]); - G=Joincrvs(G,Tmp); - Tmp=Reflectdata(G,[C,C+[1,0]]); - Out=Joincrvs(G,Tmp); -endfunction; |