summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.sci36
1 files changed, 36 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.sci
new file mode 100755
index 00000000..071f7381
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.sci
@@ -0,0 +1,36 @@
+// 2011.12.18 ( available for list )
+
+function P=Framedata(varargin)
+ global XMIN XMAX YMIN YMAX
+ VaL=Flattenlist(varargin);
+ N=length(VaL);
+ if N<=1
+ H=1.0*10^(-4);
+ PA=[XMIN+H,YMIN+H];
+ PB=[XMAX-H,YMIN+H];
+ PC=[XMAX-H,YMAX-H];
+ PD=[XMIN+H,YMAX-H];
+ else
+ Tmp=VaL(N);
+ if type(Tmp)==1 & length(Tmp)==1
+ Dy=Tmp;
+ Dx=Dy;
+ Tmp=VaL(N-1);
+ if type(Tmp)==1 & length(Tmp)==1
+ Dx=Tmp;
+ end;
+ Tmp=VaL(1);
+ X=Tmp(1); Y=Tmp(2);
+ X1=X-Dx; X2=X+Dx;
+ Y1=Y-Dy; Y2=Y+Dy;
+ else
+ Tmp=VaL(1);
+ X1=Tmp(1); X2=Tmp(2);
+ Tmp=VaL(2);
+ Y1=Tmp(1); Y2=Tmp(2);
+ end;
+ PA=[X1,Y1]; PB=[X2,Y1];
+ PC=[X2,Y2]; PD=[X1,Y2];
+ end;
+ P=Listplot(PA,PB,PC,PD,PA)
+endfunction