summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci31
1 files changed, 31 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci
new file mode 100755
index 00000000..cde6870f
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci
@@ -0,0 +1,31 @@
+// 08.09.21
+
+function Out5=Sfbdrawpersdata(varargin)
+ global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT;
+ Nargs=length(varargin);
+ Fd=varargin(1);
+ FdL=Fullformfunc(Fd);
+ Np=[50,50];
+ if Nargs>=2
+ Np=varargin(2);
+ if type(Np)==1 & length(Np)==1
+ Np=[Np,Np];
+ end;
+ end;
+ Eps=0.05;
+ if Nargs>=3
+ Eps=varargin(3);
+ end;
+ Ts=timer();
+ [Zval,Xval,Yval]=Evlptablepers(Mix(Fd,Np));
+ Out3=Implicitplot(Zval,Xval,Yval);
+ BdyL=Mixop(8,FdL);
+ if BdyL~=[]
+ Out3=Clipindomain(Out3,BdyL)
+ end;
+ IMPLICITDATA=Out3;
+ Out4=Cuspsplitpers(Out3,Fd,Eps);
+ CUSPDATA=Out4;
+ CCUSPPT=CUSPSPLITPT;
+ Out5=Borderrawdata(Out4,Fd,Np,Eps);
+endfunction;