diff options
author | Norbert Preining <norbert@preining.info> | 2017-09-04 09:45:51 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2017-09-04 09:45:51 +0900 |
commit | 138f77fe71e43adc24ecb030d73df81cc5c4eb7e (patch) | |
tree | cd2d906c634149bbecd2f4bad3d540c16b23befa /texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowdata.sci | |
parent | 37bfdbee2c91bab6f0abd54503a0b9c669c9109e (diff) |
add ketpic
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 + |