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
58
59
60
61
62
63
64
65
66
|
/* autogenerated from "macros/Misc/TEXT_f.sci" */
function TEXT_f() {
TEXT_f.prototype.define = function TEXT_f() {
font = 2;
siz = 1;
model = scicos_model();
model.sim = "text";
model.rpar = "Text";
model.ipar = [[font],[siz]];
exprs = [["Text"],[string(font)],[string(siz)]];
graphics = scicos_graphics();
graphics.orig = [0,0];
graphics.sz = [2,1];
graphics.exprs = exprs;
x = mlist(["Text","graphics","model","void","gui"],graphics,model," ","TEXT_f");
}
TEXT_f.prototype.details = function TEXT_f() {
}
TEXT_f.prototype.get = function TEXT_f() {
}
TEXT_f.prototype.set = function TEXT_f() {
x = arg1;
graphics = arg1.graphics;
orig = graphics.orig;
exprs = graphics.exprs;
model = arg1.model;
if (size(exprs,"*")==1) {
exprs = [[exprs],["3"],["1"]];
}
while (true) {
[ok,txt,font,siz,exprs] = scicos_getvalue("Set Text block parameters",[["Text"],["Font number"],["Font size"]],list("str",-1,"vec",1,"vec",1),exprs);
if (!ok) {
break;
}
if (font<=0||font>6) {
message("Font number must be greater than 0 and less than 7");
ok = false;
}
if (siz<0) {
message("Font size must be positive");
ok = false;
}
if (ok) {
graphics.exprs = exprs;
gh_winpal = gca();
default_font_style = gh_winpal.font_style;
default_font_size = gh_winpal.font_size;
default_font_color = gh_winpal.font_color;
gh_winpal.font_style = font;
gh_winpal.font_size = siz;
r = xstringl(0,0,exprs[1-1],evstr(exprs[2-1]),evstr(exprs[3-1]));
gh_winpal.font_style = default_font_style;
gh_winpal.font_size = default_font_size;
gh_winpal.font_color = default_font_color;
sz = r.slice(3-1,4);
graphics.sz = sz;
x.graphics = graphics;
ipar = [[font],[siz]];
model.rpar = txt;
model.ipar = ipar;
x.model = model;
break;
}
}
}
}
|
