summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.sci43
1 files changed, 43 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.sci
new file mode 100755
index 00000000..ae713f4e
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.sci
@@ -0,0 +1,43 @@
+// 09.11.26
+// 09.12.06
+
+function Setmark();
+ Xminnow=Xmin(); Xmaxnow=Xmax();
+ Yminnow=Ymin(); Ymaxnow=Ymax();
+ Setwindow([-1.5,1.5],[-2.3,2.3]);
+ F1=Framedata();
+ F2=Paramplot('[1.5*cos(t),2.3*sin(t)]','t=[0,2*%pi]','N=25');
+ Texcom('\def\recmark{');
+ Texcom('\begin{minipage}[c]{3mm}');
+ Beginpicture('1mm');
+ Shade(F1);
+ Drwline(F1);
+ Endpicture(0);
+ Texcom('');
+ Texcom('\end{minipage}');
+ Texcom('}');
+
+ Texcom('\def\cirmark{');
+ Texcom('\begin{minipage}[c]{3mm}');
+ Beginpicture('1mm');
+ Shade(F2);
+ Drwline(F2);
+ Endpicture(0);
+ Texcom('');
+ Texcom('\end{minipage}');
+ Texcom('}');
+
+ Texcom('\def\dashmark#1{');
+ Texcom('\begin{minipage}[c]{3mm}');
+ Beginpicture('1mm');
+ Setpen(0.5);
+ Dashline(F2,0.5,0.5);
+ Fontsize('ss');
+ Letter([0,0],'c','#1');
+ Endpicture(0);
+ Texcom('');
+ Texcom('\end{minipage}');
+ Texcom('}');
+ Setwindow([Xminnow,Xmaxnow],[Yminnow,Ymaxnow]);
+endfunction;
+