summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci58
1 files changed, 0 insertions, 58 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci
deleted file mode 100644
index f6ac6ef2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/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
-