diff options
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowdata.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowdata.sci | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowdata.sci new file mode 100755 index 00000000..f6ac6ef2 --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowdata.sci @@ -0,0 +1,58 @@ +// 08.05.08 + +function Out=Arrowdata(varargin) + global YaSize YaAngle YaPosition YaThick YaStyle; + Nargs=length(varargin); + P=varargin(1); + Q=varargin(2); + R=Q; + Futosa=YaThick; + Ookisa=YaSize; + Thickness=1; + Hiraki=YaAngle; + Yapos=YaPosition; + Position=1; + Str=YaStyle; + Flg=0; + for I=3:Nargs + Tmp=varargin(I); + if type(Tmp)==1 + if length(Tmp)>1 + R=Tmp + else + if Flg==0 + Ookisa=Ookisa*Tmp; + end + if Flg==1 + if Tmp<5 + Hiraki=Tmp*Hiraki; + else + Hiraki=Tmp; + end + end + if Flg==2 + R=P+Tmp*(Q-P); + else + R=P+Yapos*(Q-P); + end + if Flg==3 + Futosa=Tmp + end + Flg=Flg+1; + end + end + if type(Tmp)==10 + if mtlb_findstr(Tmp,'=')~=[] + execstr(Tmp); + Futosa=Futosa*Thickness; + R=P+Position*(Q-P); + else + Str=Tmp + end + end + end + Tmp1=Listplot([P,Q]); + Tmp2=Arrowheaddata(R,Q-P,Ookisa,Hiraki,Futosa,Str); + Out=Joingraphics(Tmp1,Tmp2); +endfunction + |