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
67
68
69
70
71
72
73
74
75
76
77
78
79
|
function standard_etiquette(bloc, legende, job)
//
// standard_etiquette - Draw legends on scicos blocks
//
//%Syntaxe
// standart_etiquette(bloc, legende, 'in')
// standart_etiquette(bloc, legende, 'out')
// standart_etiquette(bloc, legende, 'clkin')
// standart_etiquette(bloc, legende, 'clkout')
// standart_etiquette(bloc, legende, 'centre')
// standart_etiquette(bloc, couleur, 'croix')
//
//%Inputs
// bloc : Scicos bloc data structure
// legende : vector of character strings to draw or color code for job='croix'
// job : Character string specifies where legend has to be drawn
// 'in' : input ports
// 'out' : output ports
// 'clkin' : event input ports
// 'clkout' : event output ports
// 'centre' : in the block shape
// 'croix' : draw a cross in the block shape
//%Origine
// E. Demay E.D.F 97
//
// Copyright INRIA
//= Initialisations ==
GRAPHIQUE = 2;ORIGINE = 1;TAILLE = 2
macro = bloc(5)
select job
case 'in' then //= Ports d'entree ==
execstr('[x, y, typ] = '+macro+'(''getinputs'', bloc)')
x = x(find(typ == 1))
y = y(find(typ == 1))
for i = 1:size(legende,'*')
rect = xstringl(0, 0, legende(i))
xstring(x(i)-rect(3),y(i),legende(i))
end
case 'out' then //= Ports de sortie ==
execstr('[x, y, typ] = '+macro+'(''getoutputs'', bloc)')
x = x(find(typ == 1))
y = y(find(typ == 1))
for i = 1:size(legende,'*'),
xstring(x(i),y(i),legende(i))
end
case 'clkin' then //= Port d'entree evenement ==
execstr('[x, y, typ] = '+macro+'(''getinputs'', bloc)')
x = x(find(typ == -1))
y = y(find(typ == -1))
for i = 1:size(legende,'*')
rect = xstringl(0, 0, legende(i))
xstring(x(i)-rect(3),y(i)+(i-1)*rect(4),legende(i))
end
case 'clkout' then //= Ports de sortie evenement ==
execstr('[x, y, typ] = '+macro+'(''getoutputs'', bloc)')
x = x(find(typ == -1))
y = y(find(typ == -1))
for i = 1:size(legende,'*')
rect = xstringl(0, 0, legende(i))
xstring(x(i)-rect(3), y(i)-i*rect(4)*1.2,legende(i))
end
case 'centre' then //= Centre du bloc ==
origine = bloc(GRAPHIQUE)(ORIGINE)
taille = bloc(GRAPHIQUE)(TAILLE)
xstringb(origine(1), origine(2), legende, taille(1), taille(2), 'fill')
case 'croix' then //= Identification des bases de donnees ==
origine = bloc(GRAPHIQUE)(ORIGINE)
taille = bloc(GRAPHIQUE)(TAILLE)
nx = [origine(1), origine(1)+taille(1); origine(1), origine(1)+taille(1)]
ny = [origine(2), origine(2)+taille(2); origine(2)+taille(2), origine(2)]
dashes = xget('dashes')
xsegs(nx', ny', legende)
xset('dashes', dashes)
end
|
