summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.sci
blob: 8889de32052ceb04cac8fb206c19a7aa711b8f2f (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
37
38
39
40
41
42
function Ovalbox(varargin)
  global XMIN XMAX YMIN YMAX
  Nargs=length(varargin);
  Pos=varargin(1);
  Dr=varargin(2);
  StrV=varargin(3);
  R=0.2;
  NDflg=0;
  for I=4:Nargs
    Tmp=varargin(I);
    if type(Tmp)==1
      R=Tmp;
    else
      if part(Tmp,1)=='-'
        NDflg=1;
        Tmp1=part(Tmp,2:length(Tmp));
        Cmdstr=strsubst(Tmp1,'*','G1');
      end;
    end;
  end;
  Xr=[XMIN,XMAX];
  Yr=[YMIN,YMAX];
  Uv=0.6; Uh=0.8;
  N=length(StrV);
  W=Uh; H=Uv*N;
  Setwindow([-W/2,W/2],[-H,0]);
  G1=Ovaldata([0,-H/2],W/2,H/2,R);
  Openphr('\ketpictmp');
    Beginpicture('1cm');
    if NDflg==0
      Drwline(G1);
    else
      execstr(Cmdstr);  
    end;  
    for I=1:N
      Letter([0,Uv/2-Uv*I],'c',Op(I,StrV))
    end;
    Endpicture(0);
  Closephr();
  Setwindow(Xr,Yr);
  Letter(Pos,Dr,'\ketpictmp');
endfunction;