summaryrefslogtreecommitdiff
path: root/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_reptikz.r
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_reptikz.r')
-rw-r--r--graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_reptikz.r39
1 files changed, 21 insertions, 18 deletions
diff --git a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_reptikz.r b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_reptikz.r
index c68ccc5e83..673d457e78 100644
--- a/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_reptikz.r
+++ b/graphics/ketcindy/ketcindyfolder/scripts/ketlib/ketpiccurrent_reptikz.r
@@ -16,8 +16,12 @@
#########################################
-ThisVersion<- "tikzv1_1_1(190402)"
+ThisVersion<- "tikzv1_1_1(191126)"
+# 20191126
+# Drwpt debugged/changed
+# 20191104
+# Dotteline changed (Ookisa 2->1/0.075)
# 2019.04.05 Drwpt ( Incolor, Takato)
# 2019.04.02 Beginpicture ( Unitlen, Takato)
# 2019.04.02 Drwline ( Sepen restore when finished, Takato)
@@ -248,7 +252,7 @@ Dottedline<- function(...)
varargin <- list(...)
Nall <- length(varargin)
Nagasa <- 0.1
- Ookisa <- PenThick*2 #17.10.07
+ Ookisa <- PenThick*1/0.075 #2 #171007,191104(1/0.075)
I <- Nall
Tmp <- varargin[[I]]
while (mode(Tmp)=="numeric" && length(Tmp)==1 ) {
@@ -503,24 +507,23 @@ Drwpt<-function(...) #181230
P<- Doscaling(P)
X=sprintf('%5.5f',P[1])
Y=sprintf('%5.5f',P[2])
- if(Same!="no"){ #190405from
- Str=paste("{\\linethickness{0 in}",Incolor,sep="")
- }
- if(Same!="no"){ #190405from
- Str=paste("{\\linethickness{0 in}%\n",sep="")
- cat(Str,file=Wfile,append=TRUE)
- if(Same=="n"){ #190405
- Str1<- paste("{\\color[rgb]",Incolor,"%\n",sep="")
- cat(Str1,file=Wfile,append=TRUE)
- }
- Str=paste('\\put(',X,',',Y,'){\\circle*{',sprintf('%6.6f',Ra),'}}%\n',sep="")
- cat(Str,file=Wfile,append=TRUE)
- if(Same=="n"){
- cat("}%\n",file=Wfile,append=TRUE)
+ Str1<- paste("{\\color[rgb]",Incolor,"%\n",sep="")
+ cat(Str1,file=Wfile,append=TRUE)
+ Str=paste('\\fill (',X,',',Y,') circle [radius=',sprintf('%6.6f',Ra/2),'];%\n',sep="")
+ #191126
+ cat(Str,file=Wfile,append=TRUE)
+ cat("}%\n",file=Wfile,append=TRUE)
+ Str=paste('\\draw [line width=','0.008','in]',sep="")
+ for(J in 0:24){
+ Tmp1=sprintf('%6.6f',P[1]+Ra/2*cos(J*2*pi/24))
+ Tmp2=sprintf('%6.6f',P[2]+Ra/2*sin(J*2*pi/24))
+ Str=paste(Str,"(",Tmp1,",",Tmp2,")",sep="");
+ if(J<24){
+ Str=paste(Str,"--",sep="")
+ }else{
+ Str=paste(Str,";%\n",sep="")
}
- cat("}%\n",file=Wfile,append=TRUE)
}
- Str=paste('\\put(',X,',',Y,'){\\circle{',sprintf('%6.6f',Ra),'}}%\n',sep="")
cat(Str,file=Wfile,append=TRUE)
}
} # 190405to