diff options
Diffstat (limited to 'Master/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs')
-rwxr-xr-x | Master/texmf-dist/scripts/ketcindy/ketlib/ketcindylibmvr.cs | 32 |
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(); |