diff options
author | Norbert Preining <norbert@preining.info> | 2017-10-14 11:43:11 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2017-10-14 11:43:11 +0900 |
commit | dc71274f16f7ff65145e034900f582b62453a033 (patch) | |
tree | a71452364cbe1a03feb6a84cdfd09eedae861590 /texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci | |
parent | aecda53b09be64698e9e5dcbf40f0fe289b37e2e (diff) |
rename and update ketpic -> ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ovalbox.sci new file mode 100644 index 00000000..8889de32 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/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 |