summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2018-02-12 14:52:54 +0900
committerNorbert Preining <norbert@preining.info>2018-02-12 14:52:54 +0900
commit8c3c49fd56de185396400a0e8a636ac03d8239ab (patch)
treeadf96aee3f0bfbdc9df3a9e2dd86332a9dfee9cd /texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Arrowdata.sci
parent5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff)
update ketcindy
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
-