summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.sci32
1 files changed, 32 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.sci
new file mode 100755
index 00000000..2148c061
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.sci
@@ -0,0 +1,32 @@
+// s:2008,05.12
+// e:2014.09.08 [A,B] supported
+// e:2014.10.24 N,R => N__, ...
+
+function P=Circledata(varargin)
+ Nargs=length(varargin);
+ C=varargin(1);
+ if length(C)==4 then
+ ra=norm(C(1:2)-C(3:4));
+ C=C(1:2);
+ Nop=2;
+ else
+ ra=varargin(2);
+ Nop=3;
+ end;
+ R__=[0,2*%pi];
+ N__=50; // Numpoints
+ for I=Nop:Nargs
+ Tmp=varargin(I);
+ K=mtlb_findstr(Tmp,'=');
+ Tmp1=strsplit(Tmp,[K-1,K]);
+ Tmp2=ascii(Tmp1(1,1));
+ Lhs=char(Tmp2(1));
+ Str=Lhs+'__='+Tmp1(3,1);
+ execstr(Str);
+ end;
+ Dt=(R__(2)-R__(1))/N__;
+ T=R__(1):Dt:R__(2);
+ X=C(1)+ra*cos(T);
+ Y=C(2)+ra*sin(T);
+ P=[X',Y'];
+endfunction