summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Ketinit.sci
blob: bbe02e62e401273dca666b5958a187e6fa1e70c5 (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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
// 08.07.08  PHI,THETA,FocusPoint,EyePoint;
// 08.08.08
// 08.08.31
// 08.09.18
// 09.10.09  ASSIGNLIST
// 09.12.25  SCALING
// 10.04.16  TEXFOR
// 13.05.19 funcprot(0)
// 13.03.05  MARKLEN instead of MEMORI

function Ketinit()
   global THISVERSION
   global TenSize TenSizeInit Wfile XMIN XMAX YMIN YMAX
   global  XNAME XPOS YNAME YPOS ONAME OPOS ARROWSIZE
   global  ULEN MilliIn PenThick PenThickInit ZIKU
   global  MEMORI MEMORIInit MEMORINow GENTEN
   global  MARKLEN MARKLENInit MARKLENNow
   global  YaSize YaAngle YaPosition YaThick YaStyle
   global  PHI THETA FocusPoint EyePoint ASSIGNLIST
   global  SCALEX SCALEY LOGX LOGY TEXFORLEVEL TEXFORLAST
   funcprot(0); // 2013.05.19
   Setversion();
   XMIN=-5 ;XMAX=5;
   YMIN=-5 ; YMAX=5;
   ZIKU='line'; ARROWSIZE=1;
   XNAME='$x$' ; XPOS='e';
   YNAME='$y$' ; YPOS='n';
   ONAME='O' ; OPOS='sw';
   ULEN='1cm';
   MilliIn=1/2.54*1000;
   PenThick=round(MilliIn*0.02);
   PenThickInit=PenThick;
   TenSizeInit=0.02;
   TenSize=TenSizeInit;
   Wfile='default';
   MEMORI=0.05;
   MEMORIInit=MEMORI;
   MEMORINow=MEMORI;
   MARKLEN=0.05;
   MARKLENInit=MARKLEN;
   MARKLENNow=MARKLEN;
   GENTEN=[0,0];
   YaSize=1; YaAngle=18; YaPosition=1;
   YaThick=1; YaStyle='tf';
   PHI=30*%pi/180;
   THETA=60*%pi/180;
   FocusPoint=[0,0,0];
   EyePoint=[5,5,5];
   ASSIGNLIST=list('`',char(39));
   SCALEX=1;
   SCALEY=1;
   LOGX=0;
   LOGY=0;
   TEXFORLEVEL=0;
   TEXFORLAST=list();
 endfunction;