summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs')
-rwxr-xr-xMaster/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs32
1 files changed, 24 insertions, 8 deletions
diff --git a/Master/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs b/Master/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs
index 96e79b3f532..2c297051bf2 100755
--- a/Master/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs
+++ b/Master/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs
@@ -14,10 +14,11 @@
// along with this program. If not, see <http://www.gnu.org/licenses/>
//
-println("ketcindymv(20180711) loaded");
+println("ketcindymv(20181125) loaded");
//help:start();
+////%Setpara start////
Setpara(path,fstr,sL):=Setpara(path,fstr,sL,[],[]);
Setpara(pathorg,fstr,sL,options):=
Setpara(pathorg,fstr,sL,options,[]);
@@ -98,7 +99,9 @@ Setpara(pathorg,fstr,sL,options,optionsanim):=(
);
COM2ndlistback=ctmp;
);
+////%Setpara end////
+////%Parafolder start////
Parafolder():=Parafolder(ParaFstr,ParaSL,ParaOp);
Parafolder(fstr,sL):=Parafolder(fstr,sL,[]);
Parafolder(fstr,sL,optionorg):=(
@@ -109,8 +112,9 @@ Parafolder(fstr,sL,optionorg):=(
//help:Parafolder(optionsadd=[""Outfile=n",Pause=10(ms)"]);
//help:Paraslide(para=folder:layery:pos:input,scale);
//help:Paraslide(para=folder:layery:pos:include:[width=100]);
- regional(nn,tmp,tmp1,tmp2,strL,eqL,waiting,outflg,pause,
+ regional(store,nn,tmp,tmp1,tmp2,strL,eqL,waiting,outflg,pause,
mkr,mktex,options,sfL,dirbkup,pfile,ctr,flg,varL,waitingR,timeC,timeR);
+ store=Fillblack(); //181125
tmp=indexof(fstr,"(");
tmp1=substring(fstr,tmp,length(fstr));
tmp=indexof(tmp1,")");
@@ -258,8 +262,11 @@ Parafolder(fstr,sL,optionorg):=(
); //180617to
Changework(Dirworkbkup);
Setfiles(Fheadbkup);
+ Fillrestore(store); //181125
);
+////%Parafolder end////
+////%Animatefile start////
Animatefile():=Animatefile(Dirwork,ParaPath);
Animatefile(path,folder):=(
//help:Animatefile();
@@ -272,16 +279,16 @@ Animatefile(path,folder):=(
OpA="loop,controls,buttonsize=3mm";
remflg=0;
forall(eqL,
- tmp1=Toupper(substring(#,0,2));
+ tmp1=Toupper(substring(#,0,1)); //181111
tmp=indexof(#,"=");
tmp2=substring(#,tmp,length(#));
- if(tmp1=="FR",
+ if(tmp1=="F",
FRate=tmp2;
);
- if(tmp1=="SC",
+ if(tmp1=="S",
Scale=tmp2;
);
- if(tmp1=="OP", // 17.12.07from
+ if(tmp1=="O", // 17.12.07from
if(length(tmp2)>0,
tmp2=replace(tmp2,"[","");
tmp2=replace(tmp2,"]","");
@@ -333,7 +340,9 @@ Animatefile(path,folder):=(
closefile(SCEOUTPUT);
println(fname+" has been generated");
);
+////%Animatefile end////
+////%Mkanimation start////
Mkanimation():=(
regional(remflg,tmp,eqL,tmp1,tmp2);
if(!isexists(Dirwork,ParaPath), //17.10.14from
@@ -346,8 +355,9 @@ Mkanimation(folder):=Mkanimation(Dirwork,folder);
Mkanimation(path,folder):=(
//help:Mkanimation();
//help:Mkanimation(path,folder);
- regional(Fheadbkup,Pathpdfbkup,tex,article,parent,
+ regional(store,Fheadbkup,Pathpdfbkup,tex,article,parent,
eqL,mag,title,tmp,tmp1,tmp2,tmp3,flg);
+ store=Fillblack(); //181125
tmp=Divoptions(ParaOpAnim); //17.11.25from
eqL=tmp_5;
mag="1600";
@@ -479,8 +489,11 @@ Mkanimation(path,folder):=(
);
Fhead=Fheadbkup;
Pathpdf= Pathpdfbkup;
+ Fillrestore(store); //181125
);
+////%Mkanimation end////
+////%Mkflipanime start////
Mkflipanime():=(
regional(remflg,tmp,eqL,tmp1,tmp2);
if(!isexists(Dirwork,ParaPath), //17.10.14from
@@ -492,8 +505,9 @@ Mkflipanime(folder):=Mkflipanime(Dirwork,folder);
Mkflipanime(path,folder):=(
//help:Mkfilpanime();
//help:Mkflipanime(path,folder);
- regional(Fheadbkup,tex,article,parent,eqL,mag,title,
+ regional(store,Fheadbkup,tex,article,parent,eqL,mag,title,
tmp,tmp1,tmp2,tmp3,texfiles,flg);
+ store=Fillblack(); //181125
tmp=Divoptions(ParaOpAnim); //17.11.25from
eqL=tmp_5;
mag="1600";
@@ -634,7 +648,9 @@ Mkflipanime(path,folder):=(
kc();
);
Fhead=Fheadbkup;
+ Fillrestore(store); //181125
);
+////%Mkflipanime end////
//help:end();