summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci107
1 files changed, 0 insertions, 107 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci
deleted file mode 100644
index 9073ca6e..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Arrowhead.sci
+++ /dev/null
@@ -1,107 +0,0 @@
-//
-// 08.06.01
-// 09.12.25
-// 12.01.07 kirikomi(Cut)
-// 12.04.16 debugged
-// 13.05.17 debugged
-// 13.11.13 debugged
-// 15.06.11 debugged
-// 15.06.14 debugged
-// 15.06.15 improved
-
-function Arrowhead(varargin)
- global Wfile FID MilliIn YaSize
- global YaAngle YaPosition YaThick YaStyle;
- Nargs=length(varargin);
- P=varargin(1);
- Houkou=varargin(2);
- Ookisa=0.2*YaSize;
- Hiraki=YaAngle;
- Futosa=0.5*YaThick;
- Cut=0;
- Str=YaStyle;
- Flg=0;
- for I=3:Nargs
- Tmp=varargin(I);
- if type(Tmp)==10
- Equal=mtlb_findstr(Tmp,'='); // 12.01.07 from
- if length(Equal)>0
- Tmp2=strsplit(Tmp,Equal-1);
- if Tmp2(1)=="Cut" | Tmp2(1)=="cut"
- Tmp="Cut"+Tmp2(2);
- execstr(Tmp);
- end;
- else
- Str=Tmp;
- end; // 12.01.07 upto
- end;
- if type(Tmp)==1 & length(Tmp)==1
- if Flg==0
- Ookisa=Ookisa*Tmp;
- end
- if Flg==1
- if Tmp<5
- Hiraki=Tmp*Hiraki
- else
- Hiraki=Tmp
- end
- end
- if Flg==2
- Futosa=Tmp
- end
- Flg=Flg+1;
- end
- end;
- Ookisa=1000/2.54/MilliIn*Ookisa;
- Theta=Hiraki*%pi/180;
- if size(Houkou,1)>1
- P=Doscaling(P);
- Houkou=Doscaling(Houkou);
- Tmp=Nearestpt(P,Houkou);
- A=Op(1,Tmp);
- I=floor(Op(2,Tmp));
- G=Circledata(P,Ookisa*cos(Theta),'N=10');
- Flg=0; // 13.11.13
- for J=I:-1:1
- B=Ptcrv(J,Houkou);
- Tmp=IntersectcrvsPp(Listplot([A,B]),G);
- if Mixlength(Tmp)>0
- Flg=1;
- break
- end
- A=B
- end
- if Flg==0 // 13.11.13
- disp('Arrowhead may be too large (no intersect)');
- return
- end
- Houkou=P-Op(1,Op(1,Tmp));
- Houkou=Unscaling(Houkou);
- P=Unscaling(P);
- end;
- P=Doscaling(P);
- Houkou=Doscaling(Houkou);
- Ev=-1/Vecnagasa(Houkou)*Houkou;
- Nv=[-Ev(2),Ev(1)];
- if mtlb_findstr(Str,'c')~=[]
- P=P-0.5*Ookisa*cos(Theta)*Ev
- end;
- if mtlb_findstr(Str,'b')~=[]
- P=P-Ookisa*cos(Theta)*Ev
- end;
- A=P+Ookisa*cos(Theta)*Ev+Ookisa*sin(Theta)*Nv;
- B=P+Ookisa*cos(Theta)*Ev-Ookisa*sin(Theta)*Nv;
- if mtlb_findstr(Str,'l')~=[]
- Tmp=Listplot([A,P,B]);
- Tmp1=Unscaling(Tmp); // 13.05.17
- Drwline(Tmp1,Futosa);
- else
- C=P+(1-Cut)*((A+B)/2-P); // 12.01.05
- Tmp=Listplot([A,P,B,C,A]); // 12.01.05
- Tmp1=Unscaling(Tmp);
- Shade(Tmp1);
- Tmp=Listplot([A,P,B,C,A,P]); // 15.6.20
- Tmp1=Unscaling(Tmp);
- Drwline(Tmp1,0.1); // 15.06.11, 15.06.14
- end
-endfunction