diff options
Diffstat (limited to 'graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_rep2e.r')
-rw-r--r-- | graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_rep2e.r | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_rep2e.r b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_rep2e.r index 084f94c70c..a71673a6cb 100644 --- a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_rep2e.r +++ b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_rep2e.r @@ -16,8 +16,12 @@ ######################################### -ThisVersion<- "2ev5_2_4(190405)" +ThisVersion<- "2ev5_2_4(191106)" +# 20191106 +# Drwline debugged ( Thick) +# 20191104 +# Dottedline changed ( Ookisa 2->1) # 20190405 # Drwpt debugged/changed ( Incolor ) # 20181230 @@ -38,7 +42,7 @@ Dottedline<- function(...) varargin <- list(...) Nall <- length(varargin) Nagasa <- 0.1 - Ookisa <- PenThick*2 #17.10.07 + Ookisa <- PenThick*1 #2 #17.10.07,191104(*1) I <- Nall Tmp <- varargin[[I]] while (mode(Tmp)=="numeric" && length(Tmp)==1 ) { @@ -154,9 +158,10 @@ Drwline<-function(...) { varargin<-list(...) Nall<-length(varargin) - Thick<-0 + Thick<- 0 Tmp<-varargin[[Nall]] if (mode(Tmp)=="numeric" && length(Tmp)==1){ + Thick<- PenThick/PenThickInit #191106 Setpen(Tmp) Nall<-Nall-1 } @@ -203,8 +208,7 @@ Drwline<-function(...) } } if (Thick>0){ - Tmp<-PenThick/PenThickInit - Setpen(Tmp) + Setpen(Thick) #191106 } } |