diff options
author | Norbert Preining <norbert@preining.info> | 2018-02-12 14:52:54 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2018-02-12 14:52:54 +0900 |
commit | 8c3c49fd56de185396400a0e8a636ac03d8239ab (patch) | |
tree | adf96aee3f0bfbdc9df3a9e2dd86332a9dfee9cd /texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.sci | |
parent | 5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff) |
update ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.sci | 119 |
1 files changed, 0 insertions, 119 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.sci deleted file mode 100644 index 9cf82362..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Makehasen.sci +++ /dev/null @@ -1,119 +0,0 @@ -function Makehasen(Figdata,Sen,Gap,Ptn) - global Wfile FID; - Eps=10.0^(-6); - Clist=MakeCurves(Figdata); - DinM=Dataindex(Clist); - for N=1:size(DinM,1) - Tmp=DinM(N,:); - Data=Clist(Tmp(1):Tmp(2),:); - Dtall=size(Data,1); - Len=0; - Lenlist=[0]; - for I=2:Dtall - Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:)); - Lenlist=[Lenlist,Len]; - end - Lenall=Lenlist(Dtall); - if Lenall==0 - continue - end - Kari=(Sen+Gap)*0.1; - Naga=Sen*0.1; - Tobi=Gap*0.1; - if Vecnagasa(Data(1,:)-Data(Dtall,:))<Eps - Nsen=max(ceil(Lenall/Kari),3); - SegUnit=Lenall/Nsen; - Naga=SegUnit*Sen/(Sen+Gap); - Tobi=SegUnit*Gap/(Sen+Gap); - SegList=[0:SegUnit:(Nsen-1)*SegUnit]; - else - if Ptn==0 - Nsen=max(ceil((Lenall+Tobi)/Kari),3); - SegUnit=Lenall*(Sen+Gap)/(Nsen*Sen+(Nsen-1)*Gap); - Naga=SegUnit*Sen/(Sen+Gap); - Tobi=SegUnit*Gap/(Sen+Gap); - SegList=[0:SegUnit:(Nsen-1)*SegUnit]; - else - Nsen=max(ceil((Lenall+Naga)/Kari),3); - SegUnit=Lenall*(Sen+Gap)/((Nsen-1)*Sen+Nsen*Gap); - Naga=SegUnit*Sen/(Sen+Gap); - Tobi=SegUnit*Gap/(Sen+Gap); - SegList=[Tobi:SegUnit:Tobi+(Nsen-2)*SegUnit]; - end - end - Hajime=1; Owari=1; - Mojisu=0; - for I=1:length(SegList) - Len=SegList(I); - J=Owari; - while Len>=Lenlist(J)-Eps - if J==Dtall - break - end - J=J+1; - end - Hajime=J-1; - J=Hajime; - while Len+Naga>Lenlist(J)-Eps - if J==Dtall - break - end - J=J+1 - end - Owari=J-1; - T=(Len-Lenlist(Hajime))... - /(Lenlist(Hajime+1)-Lenlist(Hajime)); - P=Data(Hajime,:)+T*(Data(Hajime+1,:)-Data(Hajime,:)); - X=string(round(MilliIn*P(1))); - Y=string(-round(MilliIn*P(2))); - Str='\special{pa '+X+' '+Y+'}'; - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end; - Mojisu=Mojisu+length(Str); - for J=Hajime+1:Owari - P=Data(J,:); - X=string(round(MilliIn*P(1))); - Y=string(-round(MilliIn*P(2))); - Str='\special{pa '+X+' '+Y+'}'; - if Wfile=='default' - mprintf('%s',Str); - else - mfprintf(FID,'%s',Str); - end; - Mojisu=Mojisu+length(Str); - end - T=(Len+Naga-Lenlist(Owari))... - /(Lenlist(Owari+1)-Lenlist(Owari)); - P=Data(Owari,:)+T*(Data(Owari+1,:)-Data(Owari,:)); - X=string(round(MilliIn*P(1))); - Y=string(-round(MilliIn*P(2))); - Str1='\special{pa '+X+' '+Y+'}'; - Str2='\special{fp}'; - if Wfile=='default' - mprintf('%s',Str1); - mprintf('%s',Str2); - else - mfprintf(FID,'%s',Str1); - mfprintf(FID,'%s',Str2); - end; - Mojisu=Mojisu+length(Str1)+length(Str2); - if Mojisu>80 - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end; - Mojisu=0; - end - end - end - if Wfile=='default' - mprintf('%s\n%s\n','%','%'); - else - mfprintf(FID,'%s\n%s\n','%','%'); - end; -endfunction - |