// // 11.05.26 (for pdflatex) 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,:))=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,:)); X0=sprintf('%5.5f',P(1)); Y0=sprintf('%5.5f',P(2)); Pt0='('+X0+','+Y0+')'; Str='\polyline'+Pt0; 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=sprintf('%5.5f',P(1)); Y=sprintf('%5.5f',P(2)); Pt='('+X+','+Y+')'; Str=Pt; if Wfile=='default' mprintf('%s',Str); else mfprintf(FID,'%s',Str); end; Pt0=Pt; 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=sprintf('%5.5f',P(1)); Y=sprintf('%5.5f',P(2)); Pt='('+string(X)+','+string(Y)+')'; Str=Pt; if Wfile=='default' mprintf('%s',Str); else mfprintf(FID,'%s',Str); end; Mojisu=Mojisu+length(Str); 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