summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/ketcindy/ketlib/ketpiccurrent_rep2e.r
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/scripts/ketcindy/ketlib/ketpiccurrent_rep2e.r')
-rwxr-xr-xMaster/texmf-dist/scripts/ketcindy/ketlib/ketpiccurrent_rep2e.r40
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))