summaryrefslogtreecommitdiff
path: root/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p025.sce
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p025.sce')
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p025.sce56
1 files changed, 0 insertions, 56 deletions
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p025.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p025.sce
deleted file mode 100644
index 99337104..00000000
--- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p025.sce
+++ /dev/null
@@ -1,56 +0,0 @@
-//date time=2017/8/19 10:55:49
-
-cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');
-Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6');
-Ketinit();
-disp('KETpic '+ThisVersion())
-Fnametex='pointoncircle/p025.tex';
-Fnamesci='pointoncircle/p025.sce';
-Fnamescibody='figs0706animatebody.sce';
-Fnameout='figs0706animate.txt';
-pi=%pi; i=%i;
-arccos=acos; arcsin=asin; arctan=atan;
-
-Setwindow([-2.5,2.5], [-2.5,2.5]);
-Assignadd('pi',%pi);
-Assignadd('XMIN',Xmin());
-Assignadd('XMAX',Xmax());
-Assignadd('YMIN',Ymin());
-Assignadd('YMAX',Ymax());
-A=[0,-4]; Assignrep('A',[0,-4]);
-B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]);
-C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]);
-mdbw1=evstr('[0.91885,-0.44241]'); Assignrep('mdbw1',[0.91885,-0.44241]);
-cr1=Circledata([[0,0],[2,0]]);
-sg1=Listplot([[0,0],[1.93717,-0.49738]]);
-pt1=Pointdata([1.93717,-0.49738]);
-bw1=Bowdata([0,0],[1.93717,-0.49738],1,0.3);
-PtL=list(A,B,C);
-GrL=list();
-//if length(fileinfo(Fnamescibody))>0
-// Gbdy=ReadfromCindy(Fnamescibody);
-// execstr(Gbdy)
-//end;
-
-//Windisp(GrL,'c');
-
-if 1==1 then
-
-Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p025.tex','1cm');
- Fontsize('s');
- Drwline(cr1);
- Letter([2,0],"se","$2$");
- Setcolor("red");
- Drwline(sg1);
- Setcolor("black");
- Setpen(0.12);
- Drwpt(list(pt1));
- Setpen(1);
- Letter([0.92,-0.44],"c","$2$");
- Drwline(bw1);
- Letter([2.13,-0.55],"c","$\mathrm{P}$");
-Closefile('1');
-
-end;
-
-quit();