// 08.05.31 // 10.01.01 // 10.03.07 (Kosa ) function ShaL=Dotfilldata(varargin) global XMIN XMAX YMIN YMAX MilliIn; Nargs=length(varargin); ShaL=[]; Eps=0.01; Kakudo=45; Kosa=0.5; Tmp=Doscaling([XMIN,YMIN]); Xmn=Tmp(1); Ymn=Tmp(2); Tmp=Doscaling([XMAX,YMAX]); Xmx=Tmp(1); Ymx=Tmp(2); for N=Nargs:-1:1 Tmp=varargin(N); if Mixtype(Tmp)~=1 break end end if N1 Delta=Tmp-StartP; K=Trunc(Dotprod(Delta,Vm)/Kankaku); PA=StartP+K*Kankaku*Vm; P=PA; Sha=Makeshasen(PtnL,P,V,Bdy); Sha=Dividegraphics(Sha); I=1; while length(Sha)~=0 for J=1:length(Sha) Tmp=Op(J,Sha); Q=Tmp(1,:); R=Tmp(2,:); Tmp=Dotprod(Q-P,V)/Kankaku; K1=ceil(Tmp); if abs(K1-Tmp)0 for J=1:length(Sha) Tmp=Op(J,Sha); Q=Tmp(1,:); R=Tmp(2,:); Tmp=Dotprod(Q-P,V)/Kankaku; K1=ceil(Tmp); if abs(K1-Tmp)