diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.sci | 58 |
1 files changed, 0 insertions, 58 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.sci deleted file mode 100644 index f6ac6ef2..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowdata.sci +++ /dev/null @@ -1,58 +0,0 @@ -// 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 - |