diff options
Diffstat (limited to 'Master/texmf-dist/scripts/ketcindy/ketlib/ketpiccurrent_rep2e.r')
-rwxr-xr-x | Master/texmf-dist/scripts/ketcindy/ketlib/ketpiccurrent_rep2e.r | 40 |
1 files changed, 11 insertions, 29 deletions
diff --git a/Master/texmf-dist/scripts/ketcindy/ketlib/ketpiccurrent_rep2e.r b/Master/texmf-dist/scripts/ketcindy/ketlib/ketpiccurrent_rep2e.r index 370339480ae..bce6137fea1 100755 --- a/Master/texmf-dist/scripts/ketcindy/ketlib/ketpiccurrent_rep2e.r +++ b/Master/texmf-dist/scripts/ketcindy/ketlib/ketpiccurrent_rep2e.r @@ -16,12 +16,16 @@ ######################################### -ThisVersion<- "2ev5_2_3(17.10.28)" +ThisVersion<- "2ev5_2_4(180930)" +# 20180930 +# Drwpt debugged ( the last newline added) +# 20180929 +# Shade changed (Kyoukai => Joincrvs) # 2017.10.28 # Drwpt debugged ( Flattenlist ) # 2017.10.07 -# +# Dottedline,Drwline,Drwpt,Makehasen,Beginpicture,Setpen,Shade ############################################# @@ -286,34 +290,9 @@ Drwpt<-function(...) Fmt=paste(Str,'\n',sep="") } cat(Str,file=Wfile,append=TRUE) + cat("\n",file=Wfile,append=TRUE) #180930 } -# PL<-c() -# for (J in 0:N){ -# PL<- c(PL,P+CL[J+1,]) -# } -# PL<-matrix(PL,nrow=2) -# PL<-t(PL) -# Mojisu<-0 -# for (J in 1:Nrow(PL)){ -# Q<- PL[J,] -# X<- as.character(round(MilliIn*Q[1])) -# Y<- as.character(-round(MilliIn*Q[2])) -# Str<- paste("\\special{pa ",X," ",Y,"}",sep="") -# cat(Str,file=Wfile,append=TRUE) -# Mojisu<- Mojisu+nchar(Str) -# if (Mojisu>80){ -# cat("#\n",file=Wfile,append=TRUE) -# } -# Mojisu=0 -# } -# Str1<- paste("\\special{sh ",as.character(Kosa),"}",sep="") -# Str2<- "\\special{fp}%\n" -# cat(Str1,file=Wfile,append=TRUE) -# cat(Str2,file=Wfile,append=TRUE) -# } -# } -#} ###################################### @@ -546,9 +525,12 @@ Shade<- function(...) } Mojisu=0 Tmp=varargin[[1]] - Data=Kyoukai(Tmp) +# Data=Kyoukai(Tmp) + Data= Joincrvs(Tmp) #180929from + Data=list(Data) #180929to for (I in Looprange(1, length(Data))){ PL<- Op(I,Data) + PL=Appendrow(PL,Op(1,PL)) #180929 Mojisu<- 0 for (J in 1:Nrow(PL)){ P<- Doscaling(Op(J,PL)) |