summaryrefslogtreecommitdiff
path: root/texmf-dist/doc/support/ketpic/source
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/doc/support/ketpic/source')
-rw-r--r--texmf-dist/doc/support/ketpic/source/ScriptDraw.txt19
-rw-r--r--texmf-dist/doc/support/ketpic/source/ScriptInitialization.txt15
-rw-r--r--texmf-dist/doc/support/ketpic/source/ScriptInitializationdirect.txt10
-rw-r--r--texmf-dist/doc/support/ketpic/source/ScriptKeytyped.txt134
4 files changed, 178 insertions, 0 deletions
diff --git a/texmf-dist/doc/support/ketpic/source/ScriptDraw.txt b/texmf-dist/doc/support/ketpic/source/ScriptDraw.txt
new file mode 100644
index 00000000..7e2f2120
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/source/ScriptDraw.txt
@@ -0,0 +1,19 @@
+Fhead="new1basic";
+Texparent="";
+Slidename="";
+
+Ketinit();
+
+Putpoint("A",[-4,0],A.xy);
+Putpoint("B",[4,0],B.xy);
+Putpoint("C",[1,4],C.xy);
+ // points can be put with Cindy button.
+
+Listplot([A,B,C,A]);
+Plotdata("1","sin(x)","x",["da"]);
+Paramplot("1","3*[cos(3*t),sin(2*t)]","t=[0,4*pi]",["Num=200","do"]);
+
+Windispg();
+
+//Help("Plotdata");
+//Help("Option");
diff --git a/texmf-dist/doc/support/ketpic/source/ScriptInitialization.txt b/texmf-dist/doc/support/ketpic/source/ScriptInitialization.txt
new file mode 100644
index 00000000..891b93e8
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/source/ScriptInitialization.txt
@@ -0,0 +1,15 @@
+use("KetCindyPlugin");
+if(isexists(plugindirectory,"dirhead.txt"),
+ setdirectory(plugindirectory);
+ import("dirhead.txt");
+,
+ Dirhead=getdirhead();
+);
+Shellfile="";
+setdirectory(Dirhead);
+import("setketcindy.txt");
+import("ketoutset.txt");
+
+setdirectory(Dirwork);
+
+Helplist(["+","+3d","+mv"],"helpJ");
diff --git a/texmf-dist/doc/support/ketpic/source/ScriptInitializationdirect.txt b/texmf-dist/doc/support/ketpic/source/ScriptInitializationdirect.txt
new file mode 100644
index 00000000..d5149163
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/source/ScriptInitializationdirect.txt
@@ -0,0 +1,10 @@
+use("KetCindyPlugin");
+Dirhead=getdirhead(gethome()+"/work");
+Shellfile="";
+setdirectory(Dirhead);
+import("setketcindy.txt");
+import("ketoutset.txt");
+
+setdirectory(Dirwork);
+
+Helplist(["+","+3d","+mv"],"helpJ");
diff --git a/texmf-dist/doc/support/ketpic/source/ScriptKeytyped.txt b/texmf-dist/doc/support/ketpic/source/ScriptKeytyped.txt
new file mode 100644
index 00000000..b06655d5
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/source/ScriptKeytyped.txt
@@ -0,0 +1,134 @@
+if(key()=="?" % keydownlist()==[32],
+ if(!isreal(NumTyped),NumTyped=0);
+ if(NumTyped==0,
+ DispStr=
+ "Figure(1) Parent(2) Parapara(3) Movie(4) Surf(5)";
+ );
+ if(NumTyped==1,
+ DispStr=
+ "Shift+ Title(T) Para(P) AniF(A) Slide(S) Digest(D)";
+ );
+ if(NumTyped==2,
+ DispStr="Shift+ Meshlab(M) KeTCindyJS(J)";
+ );
+ if(NumTyped==3,
+ DispStr=
+ "Ch : disp(0) chg(9) N(+,-) add(<) rmv(>)";
+ );
+ drawtext(mouse().xy,DispStr,size->24);
+ NumTyped=mod(NumTyped+1,4);
+,
+ NumTyped=0;
+);
+if(key()=="1",//Mkfigure
+ Viewtex();
+ kc();
+);
+if(key()=="2",//Mkparent
+ Viewparent();
+);
+if(key()=="3",//Flipbook(Parapara)
+ Flipbook();
+);
+if(key()=="4",//Texmovie
+ Texmovie();
+ kc();
+);
+if(key()=="5",//Surface
+ Cheader();
+ Cmain();
+ kcC();
+ if(ChNum>0,
+ Ch=[ChNum];
+ ,
+ Ch=[1];
+ );
+ ChNum=0;
+);
+if(key()=="T",//Title
+ Maketitle();
+);
+if(key()=="P",//ParaF
+ Parafolder();
+);
+if(key()=="A",//Animatefile
+ Animatefile();
+);
+if(key()=="S",//Slide
+ Mkslides();
+);
+if(key()=="D",//Digest(Summary)
+ Mkslidesummary();
+);
+if(key()=="M",//Meshlab
+ Mkviewobj(OCNAME,OBJCMD,OCOPTION);
+);
+if(key()=="J",//KeTCindyJS
+ Mkketcindyjs();
+);
+
+if(key()=="0",
+ Dispchoice();
+);
+if(key()=="9",
+ if(length(Ch)==0,
+ Ch=[ChNum];
+ ,
+ if(!contains(Ch,ChNum),
+ Ch=append(Ch,ChNum);
+ ChNum=Ch_(length(Ch)-1);
+ Ch=remove(Ch,[ChNum]);
+ Ch=sort(Ch);
+ );
+ );
+ Dispchoice();
+);
+if(key()=="+",
+ ChNum=ChNum+1;
+ Dispchoice();
+);
+if(key()=="-",
+ ChNum=ChNum-1;
+ Dispchoice();
+);
+if(key()=="<",
+ if(length(select(Ch,#==ChNum))==0,
+ Ch=append(Ch,ChNum);
+ Ch=sort(Ch);
+ ChNum=ChNum+1;
+ );
+ Dispchoice();
+);
+if(key()=="^",
+ if(length(Ch)==0,
+ Ch=[ChNum];
+ ,
+ if(!contains(Ch,ChNum),
+ Ch=Ch_(1..(length(Ch)-1));
+ Ch=append(Ch,ChNum);
+ Ch=sort(Ch);
+ );
+ );
+ ChNum=ChNum+1;
+ Dispchoice();
+);
+if(key()=="~",
+ if(length(Ch)==0,
+ Ch=[ChNum];
+ ,
+ if(!contains(Ch,ChNum),
+ Ch=Ch_(1..(length(Ch)-1));
+ Ch=append(Ch,ChNum);
+ Ch=sort(Ch);
+ );
+ );
+ ChNum=max(ChNum-1,1);
+ Dispchoice();
+);
+if(key()==">",
+ if(length(Ch)>0,
+ ChNum=Ch_(length(Ch));
+ Ch=Remove(Ch,[ChNum]);
+ );
+ Dispchoice();
+);