diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.sci | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.sci new file mode 100644 index 00000000..8889de32 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Ovalbox.sci @@ -0,0 +1,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;
\ No newline at end of file |