summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Framedata.sci
blob: 071f73816ab8521d9499d6d67a783d31c9b7a52b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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