// Copyright (C) 2014 Masataka Kaneko, Setsuo Takato, KETCindyJapan project team
//
//This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation; either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see
//
println("ketcindymv(20171124) loaded");
//help:start();
Setpara(path,fstr,sL):=Setpara(path,fstr,sL,[],[]); // 16.12.27added
Setpara(pathorg,fstr,sL,options):= //17.11.25(3lines)
Setpara(pathorg,fstr,sL,options,[]);
Setpara(pathorg,fstr,sL,options,optionsanim):=(
//help:Setpara("folder name","funstr","range",options,optionsanim);
//help:Setpara(folder,funstr,range,options);
//help:Setpara(options=["m/r","Div=25"]);
//help:Setpara(options2anim1=["Frate=10","Scale=1"]);
//help:Setpara(options2anim2=["OpA=[loop,controls,buttonsize=3mm]"]);
//help:Setpara(options2anim3=["OpA=+step"]);
//help:Setpara(options2anim4=["Mag=1600","Title=folder"]);
regional(path);//17.04.10
if(length(pathorg)==0, path=Slidename,path=pathorg);//17.04.10
ParaPath=path;
ParaFstr=fstr;
ParaSL=sL;
ParaOp=options;
ParaOpAnim=optionsanim; //17.11.25
GLISTback=GLIST;
GCLISTback=GCLIST;
GOUTLISTback=GOUTLIST;
POUTLISTback=POUTLIST;
VLISTback=VLIST;
FUNLISTback=FUNLIST;
LETTERlistback=LETTERlist;
COM0thlistback=COM0thlist;
COM1stlistback=COM1stlist;
COM2ndlistback=COM2ndlist;
);
Parafolder():=Parafolder(ParaPath,ParaFstr,ParaSL,ParaOp);
Parafolder(path,fstr,sL):=Parafolder(path,fstr,sL,[]);
Parafolder(path,fstr,sLorg,optionorg):=(
//help:Parafolder(foldername,1..4);
//help:Parafolder(foldername,"s=[0,1]");
//help:Parafolder("mf(s)",foldername,"s=[0,1]");
//help:Parafolder(options=["m/r","Div=25","Wait=20"]);
//help:Paraslide(para=folder:layery:pos:input,scale);
//help:Paraslide(para=folder:layery:pos:include:[width=100]);
regional(nn,sL,tmp,tmp1,tmp2,strL,eqL,waiting,
mkr,mktex,ndiv,options,sfL);
if(!isstring(ParaPath),
println("Setpara not executed");
,
sL=sLorg;//16.12.24from
if(!isstring(sL),
tmp=indexof(fstr,"(");
tmp1=substring(fstr,tmp,length(fstr));
tmp=indexof(tmp1,")");
tmp1=substring(tmp1,0,tmp-1);
,
tmp=indexof(sL,"=");//16.12.21from
if(length(tmp)>0,
tmp1=substring(sL,0,tmp-1);
);
);
parse("Movieframe("+tmp1+"):="+fstr);
options=optionorg;
tmp=Divoptions(options);
eqL=tmp_5;
strL=tmp_7;
if(length(strL)==0,options=append(options,"m"));//16.12.18
mkr="A";
mktex="A";
ndiv=25;
waiting=20;
forall(eqL,
tmp=Indexof(#,"=");
tmp1=Toupper(substring(#,0,1));
tmp2=substring(#,tmp,length(#));
if(tmp1=="D",
ndiv=parse(tmp2);
options=remove(options,[#]);
);
if(tmp1=="W",
waiting=parse(tmp2);
options=remove(options,[#]);
);
);
forall(strL,
tmp1=Toupper(substring(#,0,1));
if(tmp1=="M",
mkr="Y"; mktex="Y";
);
);
sL=sLorg;
if(isstring(sL),
tmp=indexof(sL,"=");
tmp1=parse(substring(sL,tmp,length(sL)));
sL=apply(0..ndiv,tmp1_1+#*(tmp1_2-tmp1_1)/ndiv);
);
if(!isexists(Dirwork,path),
if(ErrFlag!=-1,
makedir(Dirwork,path)
,
println(" ==> Changework may not work properly");
sL=[];
);
,
tmp=fileslist(Dirwork+pathsep()+path); //17.12.09(3lines);
tmp=length(tmp);
if((mkr=="Y") & (tmp>0),
tmp1=replace(Dirwork,"\","/");//17.10.13
cmdL=[
"setwd",[Dq+tmp1+"/"+path+Dq],
"fL=as.matrix(list.files())",[],
"apply",["fL",2,"file.remove"],
"setwd",[Dq+tmp1+Dq],
];
CalcbyR("rvf",cmdL,["Cat=n","m"]);
tmp=Dirwork+pathsep()+path;
repeat(1..30,
if(length(fileslist(tmp))>0,wait(10));
);
);//17.02.20until
);
sfL=[];
forall(1..(length(sL)),nn,
GLIST=GLISTback;
GCLIST=GCLISTback;
GOUTLIST=GOUTLISTback;
POUTLIST=POUTLISTback;
VLIST=VLISTback;
FUNLIST=FUNLISTback;
LETTERlist=LETTERlistback;
COM0thlist=COM0thlistback;
COM1stlist=COM1stlistback;
COM2ndlist=COM2ndlistback;
tmp1=Sprintf(nn/1000,3);
tmp=indexof(tmp1,".");
tmp1=substring(tmp1,tmp,length(tmp1));
FnameR=path+"/p"+tmp1+".r";
sfL=append(sfL,FnameR);
Fnametex=replace(FnameR,".r",".tex");
Movieframe(sL_nn); //17.10.13
if(!isexists(Dirwork,FnameR) % mkr=="Y",
if(ErrFlag!=-1,
WritetoRS(2); //17.12.09
);
);
);
tmp1=replace(Dirwork,"\","/"); //17.10.13
cmdL=[
"setwd",[Dq+tmp1+"/"+path+Dq],
"Mkallfile=function(fname){",[],
" Ctr<<- Ctr+1",[],
" tmp=readLines(fname)",[],
" first=1",[],
" if(Ctr>1){",[],
" first=7",[],
" cat('Ketinit()\n',file='all.r',append=TRUE)",[],
" }",[],
" for(J in first:(length(tmp)-1)){",[],
" cat(paste(tmp[J],'\n',sep=''),file='all.r',append=TRUE)",[],
" }",[],
" cat('print(',Ctr,')\n',file='all.r',append=TRUE)",[],
" Tmp=proc.time()-Tm",[],
" cat('print(',Tmp[3],')\n',file='all.r',append=TRUE)",[],
"}",[],
"if(file.exists('all.r')){file.remove('all.r')}",[], //17.10.24
"fL=list.files()",[],
"Ctr=0",[],
"Tm<-invisible(proc.time())",[],
"for(fname in fL){",[],
" if(length(grep('.r',fname))>0){Mkallfile(fname)}",[], // 17.11.24
"}",[],
"source('all.r')",[],
"setwd",[Dq+tmp1+Dq]
];
if(ErrFlag!=-1,
if(!isexists(Dirwork,Fnametex) % mktex=="Y",
CalcbyR("all",cmdL,["Cat=n","m","Wait="+text(waiting)]);
,
println("Parafolder "+path+" finished");//16.12.20
);
if(length(after)>0, // 16.12.27
parse(after);
);
FnameR=Fhead+".r";
Fnametex=Fhead+".tex";
);
);
);
Animatefile():=Animatefile(Dirwork,ParaPath);
Animatefile(path,folder):=(
//help:Animatefile();
//help:Animatefile(Dirwork,ParaPath);
regional(FRate, Scale, OpA, pa,fname,eqL,tmp,tmp1,tmp2);
tmp=divoptions(ParaOpAnim); //17.11.24
eqL=tmp_5;
FRate="10";
Scale="1";
OpA="loop,controls,buttonsize=3mm";
remflg=0;
forall(eqL,
tmp1=Toupper(substring(#,0,2));
tmp=indexof(#,"=");
tmp2=substring(#,tmp,length(#));
if(tmp1=="FR",
FRate=tmp2;
);
if(tmp1=="SC",
Scale=tmp2;
);
if(tmp1=="OP", // 17.12.07from
if(length(tmp2)>0,
tmp2=replace(tmp2,"[","");
tmp2=replace(tmp2,"]","");
if(substring(tmp2,0,1)=="+",
OpA=OpA+","+substring(tmp2,1,length(tmp2));
,
OpA=tmp2;
);
);
);
);
if(length(OpA)>0,OpA="["+OpA+"]");
pa=replace(path,"\","/");
fname="anim"+folder+".tex";
tmp=Dirwork+"/"+folder;
path=replace(tmp,"\","/");
if(iswindows(),tmp=replace(tmp,"/","\"));
tmp1=fileslist(tmp);
tmp1=tokenize(tmp1,",");
tmp1=select(tmp1,indexof(#,".tex")>0);
SCEOUTPUT= openfile(fname);
println(SCEOUTPUT,"\def\parapath{"+pa+"}%"); //17.06.22
println(SCEOUTPUT,"\def\figsize{"+Scale+"}%"); //17.12.07
println(SCEOUTPUT,"\begin{animateinline}"+OpA+"{"+FRate+"}%");
forall(1..(length(tmp1)),
if(Scale==1, // 17.08.30from
tmp="\input{\parapath/";
tmp=tmp+folder+"/"+tmp1_#+"}%";
,
tmp="\scalebox{\figsize}{\input{\parapath/";//17.12.07
tmp=tmp+folder+"/"+tmp1_#+"}}%";
); // 17.08.30until
println(SCEOUTPUT,tmp);
// println(SCEOUTPUT,""); //17.06.25
if(#0,
tex=substring(tmp1,tmp_(length(tmp)),length(tmp1));
,
tex=tmp1;
);//17.10.14until
if((tex=="platex")%(tex=="uplatex"),
if(tex=="platex",article="jarticle",article="ujarticle");
,
article="article";
);
SCEOUTPUT=openfile(Fhead+".tex");
println(SCEOUTPUT,"\documentclass[landscape]{"+article+"}");
if((tex=="platex")%(tex=="uplatex")%(tex=="latex"),
tmp="\special{papersize=\the\paperwidth,\the\paperheight}";
println(SCEOUTPUT,tmp);
println(SCEOUTPUT,"\mag="+mag);//17.11.25
);
if((tex=="pdflatex")%(tex=="lualatex")%(tex=="xelatex"),
if((tex=="pdflatex")%(tex=="xelatex"),
println(SCEOUTPUT,"\usepackage[pdftex]{pict2e}");
,
println(SCEOUTPUT,"\usepackage{pict2e}");
println(SCEOUTPUT,"\usepackage{luatexja}");
);
tmp=replace(Dirhead,"\","/"); //17.10.30from
tmp=replace(tmp,"scripts","tex/latex");
if(isexists(tmp,""),
println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}");
,
tmp=replace(Dirhead+"/ketpicstyle","\","/");
println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}");
println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}");
);
,
tmp=replace(Dirhead,"\","/"); //17.10.30from
tmp=replace(tmp,"scripts","tex/latex");
if(isexists(tmp,""),
println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}");
,
tmp=replace(Dirhead+"/ketpicstyle","\","/");
println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
);
);
println(SCEOUTPUT,"\usepackage{amsmath,amssymb}");
println(SCEOUTPUT,"\usepackage{bm,enumerate}");
if((tex=="platex")%(tex=="uplatex")%(tex=="latex"),
println(SCEOUTPUT,"\usepackage[dvipdfmx]{graphicx}");
println(SCEOUTPUT,"\usepackage[dvipdfmx]{animate}");
,
println(SCEOUTPUT,"\usepackage{graphicx}");
println(SCEOUTPUT,"\usepackage{animate}");
);
println(SCEOUTPUT,"\usepackage{xcolor}");
forall(ADDPACK, tmp1,
tmp=indexof(tmp1,"{animate}")+indexof(tmp1,"{hyperref}");
if(tmp==0,
println(SCEOUTPUT,"\usepackage"+tmp1);
);
);
println(SCEOUTPUT,"\pagestyle{empty}");
println(SCEOUTPUT,"\setmargin{0}{0}{0}{0}");
println(SCEOUTPUT,"");
println(SCEOUTPUT,"\begin{document}");
println(SCEOUTPUT,"\large");
println(SCEOUTPUT,"");
println(SCEOUTPUT,"\vspace*{25mm}");
println(SCEOUTPUT,"");
tmp=floor(parse("290*1000/"+mag));
print(SCEOUTPUT,"\Ctab{"+text(tmp)+"mm}{");
print(SCEOUTPUT,"\fbox{\Large\bf "+title+"}");
println(SCEOUTPUT,"}");
tmp=parse("6*1000/"+mag);
println(SCEOUTPUT,"\vspace{"+text(tmp)+"mm}");
println(SCEOUTPUT,"");
tmp=indexof(ULEN,"cm");
if(tmp>0,
tmp1=substring(ULEN,0,tmp-1);
tmp1=parse(replace(tmp1," ",""))*10;
);
tmp=indexof(ULEN,"mm");
if(tmp>0,
tmp1=substring(ULEN,0,tmp-1);
tmp1=parse(replace(tmp1," ",""));
);
tmp=parse("300*1000/"+mag);
tmp1=(tmp-(XMAX-XMIN)*tmp1)/2;
tmp1=tmp1+parse("("+mag+"-1000)/100*1.3");
print(SCEOUTPUT,"\hspace*{"+text(tmp1)+"mm}");
tmp=replace(path,"\","/"); //17.12.09(2lines)
println(SCEOUTPUT,"\input{"+tmp+"/anim"+folder+".tex}");
println(SCEOUTPUT,"\end{document}");
closefile(SCEOUTPUT);
if(iswindows(),
parent=Dirwork+Batparent;
Makebat(Fhead,"ttv");
kc():=(
println("kc : "+kc(parent,Dirlib,Fnametex))
);
kc();
,
parent=Dirwork+Shellparent;
Makeshell(Fhead,"ttv");
kc():=(
println("kc : "+kc(parent,Mackc+Dirlib,Fnametex));
);
kc();
);
Fhead=Fheadbkup;
Pathpdf= Pathpdfbkup;
);
Mkflipanime():=(
regional(remflg,tmp,eqL,tmp1,tmp2);
if(!isexists(Dirwork,ParaPath), //17.10.14from
Parafolder();
);
Mkflipanime(Dirwork,ParaPath);
);
Mkflipanime(folder):=Mkflipanime(Dirwork,folder);
Mkflipanime(path,folder):=(
//help:Mkfilpanime();
//help:Mkflipanime(path,folder);
regional(Fheadbkup,tex,article,parent,eqL,mag,title,
tmp,tmp1,tmp2,tmp3,texfiles,flg);
tmp=Divoptions(ParaOpAnim); //17.11.25from
eqL=tmp_5;
mag="1600";
title=folder;
forall(eqL,
tmp=Indexof(#,"=");
tmp1=Toupper(substring(#,0,1));
tmp2=substring(#,tmp,length(#));
if(tmp1=="M",
mag=tmp2;
);
if(tmp1=="T",
title=tmp2;
);
); //17.11.25until
Fheadbkup=Fhead;
Fhead="flipanime"+folder;
tmp1=replace(PathT,pathsep(),"/");
tmp=indexall(tmp1,"/");//17.10.14from
if(length(tmp)>0,
tex=substring(tmp1,tmp_(length(tmp)),length(tmp1));
,
tex=tmp1;
);//17.10.14until
if((tex=="platex")%(tex=="uplatex"),
if(tex=="platex",article="jarticle",article="ujarticle");
,
article="article";
);
SCEOUTPUT=openfile(Fhead+".tex");
println(SCEOUTPUT,"\documentclass[landscape]{"+article+"}");
if((tex=="platex")%(tex=="uplatex")%(tex=="latex"),
tmp="\special{papersize=\the\paperwidth,\the\paperheight}";
println(SCEOUTPUT,tmp);
println(SCEOUTPUT,"\mag="+mag);//17.11.25
);
if((tex=="pdflatex")%(tex=="lualatex")%(tex=="xelatex"),
if((tex=="pdflatex")%(tex=="xelatex"),
println(SCEOUTPUT,"\usepackage[pdftex]{pict2e}");
,
println(SCEOUTPUT,"\usepackage{pict2e}");
println(SCEOUTPUT,"\usepackage{luatexja}");
);
tmp=replace(Dirhead,"\","/"); //17.10.30from
tmp=replace(tmp,"scripts","tex/latex");
if(isexists(tmp,""),
println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}");
,
tmp=replace(Dirhead+"/ketpicstyle","\","/");
println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}");
println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}");
);
,
tmp=replace(Dirhead,"\","/"); //17.10.30from
tmp=replace(tmp,"scripts","tex/latex");
if(isexists(tmp,""),
println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}");
,
tmp=replace(Dirhead+"/ketpicstyle","\","/");
println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
);
);
println(SCEOUTPUT,"\usepackage{amsmath,amssymb}");
println(SCEOUTPUT,"\usepackage{bm,enumerate}");
if((tex=="platex")%(tex=="uplatex")%(tex=="latex"),
println(SCEOUTPUT,"\usepackage[dvipdfmx]{graphicx}");
,
println(SCEOUTPUT,"\usepackage{graphicx}");
);
println(SCEOUTPUT,"\usepackage{xcolor}");
forall(ADDPACK, tmp1,
if(tmp==0,
println(SCEOUTPUT,"\usepackage"+tmp1);
);
);
println(SCEOUTPUT,"\pagestyle{empty}");
println(SCEOUTPUT,"\setmargin{0}{0}{0}{0}");
println(SCEOUTPUT,"");
println(SCEOUTPUT,"\begin{document}");
println(SCEOUTPUT,"\large");
println(SCEOUTPUT,"");
tmp=fileslist(Dirwork+pathsep()+folder);
tmp=tokenize(tmp,",");
texfiles=select(tmp,indexof(#,".tex")>0);
forall(texfiles,
println(SCEOUTPUT,"\vspace*{25mm}");
println(SCEOUTPUT,"");
tmp=floor(parse("290*1000/"+mag));
print(SCEOUTPUT,"\Ctab{"+text(tmp)+"mm}{");
print(SCEOUTPUT,"\fbox{\Large\bf "+title+"}");
println(SCEOUTPUT,"}");
tmp=parse("6*1000/"+mag);
println(SCEOUTPUT,"\vspace{"+text(tmp)+"mm}");
println(SCEOUTPUT,"");
tmp=indexof(ULEN,"cm");
if(tmp>0,
tmp1=substring(ULEN,0,tmp-1);
tmp1=parse(replace(tmp1," ",""))*10;
);
tmp=indexof(ULEN,"mm");
if(tmp>0,
tmp1=substring(ULEN,0,tmp-1);
tmp1=parse(replace(tmp1," ",""));
);
tmp=parse("300*1000/"+mag);
tmp1=(tmp-(XMAX-XMIN)*tmp1)/2;
tmp1=tmp1+parse("("+mag+"-1000)/100*1.3");
print(SCEOUTPUT,"\hspace*{"+text(tmp1)+"mm}");
println(SCEOUTPUT,"\input{"+folder+"/"+#+"}");
println(SCEOUTPUT,"");
println(SCEOUTPUT,"\newpage");
);
println(SCEOUTPUT,"\end{document}");
closefile(SCEOUTPUT);
if(iswindows(),
parent=Dirwork+Batparent;
Makebat(Fhead,"tv");
kc():=(
println("kc : "+kc(parent,Dirlib,Fnametex))
);
kc();
,
parent=Dirwork+Shellparent;
Makeshell(Fhead,"tv");
kc():=(
println("kc : "+kc(parent,Mackc+Dirlib,Fnametex));
);
kc();
);
Fhead=Fheadbkup;
);
//help:end();