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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
function scs_m=do_region2block(scs_m)
// Copyright INRIA
[btn,xc,yc,win,Cmenu]=getclick()
if Cmenu<>[] then
Cmenu=resume(Cmenu)
end
scs_m_save=scs_m,nc_save=needcompile
[scs_mb,rect,prt]=get_region2(xc,yc,win)
if rect==[] then return,end
ox=rect(1);oy=rect(2)+rect(4);w=rect(3),h=rect(4)
n=0
W=max(600,rect(3))
H=max(450,rect(4))
for k=2:size(scs_mb)
o=scs_mb(k)
// translate blocks
if o(1)=='Link' then
o(2)=o(2)-rect(1)
o(3)=o(3)-rect(2)
else
o(2)(1)(1)=o(2)(1)(1)-rect(1)
o(2)(1)(2)=o(2)(1)(2)-rect(2)
end
scs_mb(k)=o
end
scs_mb(1)(1)=[max(600,rect(3)),max(450,rect(4)),-rect(3)/5,-rect(4)/5,..
7*rect(3)/5,7*rect(4)/5]
//max(600,rect(3)),max(450,rect(4))]
sup=SUPER_f('define')
sup(2)(1)=[rect(1)+rect(3)/2-20,rect(2)+rect(4)/2-20]
sup(2)(2)=[40 40]
sup(3)=list('super',1,1,[],[],[],' ',scs_mb,[],'h',[],[%f %f])
// open the superblock in editor
//sup=SUPER_f('set',sup)
[ok,sup]=adjust_s_ports(sup)
// detruire la region
del=[]
for k=2:size(scs_m)
o=scs_m(k)
if o(1)=='Block'|o(1)=='Text' then
// check if block is outside rectangle
orig=o(2)(1)
sz=o(2)(2)
x=[0 1 1 0]*sz(1)+orig(1)
y=[0 0 1 1]*sz(2)+orig(2)
ok=%f
for kk=1:4
data=[(ox-x(kk))'*(ox+w-x(kk)),(oy-h-y(kk))'*(oy-y(kk))];
if data(1)<0&data(2)<0 then ok=%t;del=[del k];break;end
end
end
end
[scs_m,DEL]=do_delete2(scs_m,del,%t)
// add super block
drawobj(sup)
scs_m($+1)=sup
// connect it
nn=size(scs_m)
nnk=nn
for k=1:size(prt,1)
k1=prt(k,6)
o1=scs_m(k1) // block origin of the link
if prt(k,1)==1 then //regular input port
[x,y,vtyp]=getoutputs(o1)
[xn,yn,vtypn]=getinputs(sup),
p=prt(k,7)
pn=prt(k,2)
xl=[x(p);xn(pn)]
yl=[y(p);yn(pn)]
from=[prt(k,6),prt(k,7)]
to=[nn,prt(k,2)]
o1(2)(6)(prt(k,7))=nnk+1
scs_m(nn)(2)(5)(prt(k,2))=nnk+1
elseif prt(k,1)==2 then //regular output port
[x,y,vtyp]=getinputs(o1)
[xn,yn,vtypn]=getoutputs(sup),
p=prt(k,7)
pn=prt(k,2)
xl=[xn(pn);x(p)]
yl=[yn(pn);y(p)]
from=[nn,prt(k,2)]
to=[prt(k,6),prt(k,7)]
o1(2)(5)(prt(k,7))=nnk+1
scs_m(nn)(2)(6)(prt(k,2))=nnk+1
elseif prt(k,1)==3 then //event input port
[x,y,vtyp]=getoutputs(o1)
[xn,yn,vtypn]=getinputs(sup),
p=prt(k,7)+size(find(vtyp==1),'*')
pn=prt(k,2)+size(find(vtypn==1),'*')
xl=[x(p);xn(pn)]
yl=[y(p);yn(pn)]
from=[prt(k,6),prt(k,7)]
to=[nn,prt(k,2)]
o1(2)(8)(prt(k,2))=nnk+1
scs_m(nn)(2)(7)(prt(k,7))=nnk+1
elseif prt(k,1)==4 then //event output port
[x,y,vtyp]=getinputs(o1)
[xn,yn,vtypn]=getoutputs(sup),
p=prt(k,7)+size(find(vtyp==1),'*')
pn=prt(k,2)+size(find(vtypn==1),'*')
xl=[xn(pn);x(p)]
yl=[yn(pn);y(p)]
from=[nn,prt(k,2)]
to=[prt(k,6),prt(k,7)]
o1(2)(7)(prt(k,7))=nnk+1
scs_m(nn)(2)(8)(prt(k,2))=nnk+1
end
if xl(1)<>xl(2)&yl(1)<>yl(2) then //oblique link
if prt(k,1)<=2 then //regular port
xl=[xl(1);xl(1)+(xl(2)-xl(1))/2;xl(1)+(xl(2)-xl(1))/2;xl(2)]
yl=[yl(1);yl(1);yl(2);yl(2)]
else
xl=[xl(1);xl(1);xl(2);xl(2)]
yl=[yl(1);yl(1)+(yl(2)-yl(1))/2;yl(1)+(yl(2)-yl(1))/2;yl(2)]
end
end
lk=list('Link',xl,yl,'drawlink',' ',[0 0],[prt(k,5),prt(k,4)],from,to)
drawobj(lk)
scs_m($+1)=lk
scs_m(k1)=o1
nnk=nnk+1
end
[scs_m_save,nc_save,enable_undo,edited,needcompile,Cmenu]=resume(scs_m_save,nc_save,%t,%t,4,[])
|
