20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
## Copyright (c) P.J.Gawthrop, 1996.
## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
## %% Version control history
## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
## %% $Id$
## %% $Log$
## %% Revision 1.15 2001/03/23 11:20:20 gawthrop
## %% Fixed bug with vector components --NB takes geometric info from _rbg.fig
## %%
## %% Revision 1.14 2000/09/14 12:07:15 peterg
## %% Fixed overwriting of ports.
## %%
## %% Revision 1.13 2000/09/14 09:12:19 peterg
|
>
>
>
|
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
## Copyright (c) P.J.Gawthrop, 1996.
## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
## %% Version control history
## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
## %% $Id$
## %% $Log$
## %% Revision 1.16 2001/03/23 14:58:16 gawthrop
## %% Fixed cosmetic bugs -- component display
## %%
## %% Revision 1.15 2001/03/23 11:20:20 gawthrop
## %% Fixed bug with vector components --NB takes geometric info from _rbg.fig
## %%
## %% Revision 1.14 2000/09/14 12:07:15 peterg
## %% Fixed overwriting of ports.
## %%
## %% Revision 1.13 2000/09/14 09:12:19 peterg
|
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
|
## Return if initial fig file doesn't exist
if exist(fig_name)~=2
return
end;
## Setup file - append to the fig file
filenum = fopen(fig_name, 'a');
## Get the raw and the processed bonds
eval(['[rbonds,rstrokes,rcomponents,port_coord,port_name,port_list] = ', system_type, '_rbg;']);
eval(["ABG = ", system_type, "_abg;"]);
bonds=ABG.bonds;
## Original number of bonds
|
|
|
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
## Return if initial fig file doesn't exist
if exist(fig_name)~=2
return
end;
## Setup file - append to the fig file
filenum = fopen(fig_name, 'at');
## Get the raw and the processed bonds
eval(['[rbonds,rstrokes,rcomponents,port_coord,port_name,port_list] = ', system_type, '_rbg;']);
eval(["ABG = ", system_type, "_abg;"]);
bonds=ABG.bonds;
## Original number of bonds
|