summaryrefslogtreecommitdiff
path: root/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_rep2e.r
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_rep2e.r')
-rw-r--r--graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_rep2e.r14
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
}
}