summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmark.sci
blob: ae713f4eed253acf1c10e09c093dbecf9c257eb2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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;