22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
% Copyright (c) P.J.Gawthrop, 1996.
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.3 1996/08/08 15:52:28 peter
% %% Recursive version.
% %% Fails due to octave bug - reported.
% %%
% %% Revision 1.2 1996/08/05 20:15:39 peter
% %% Prepared for recursive version.
% %%
|
>
>
>
|
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
% Copyright (c) P.J.Gawthrop, 1996.
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.4 1996/12/07 21:34:52 peterg
% %% Tests for null string with strcmp
% %%
% %% Revision 1.3 1996/08/08 15:52:28 peter
% %% Recursive version.
% %% Fails due to octave bug - reported.
% %%
% %% Revision 1.2 1996/08/05 20:15:39 peter
% %% Prepared for recursive version.
% %%
|
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
|
Terminator = [bs, '001'];
for j = 1:length(fig_params)
fprintf(filenum, '%1.0f ', fig_params(j));
end;
fprintf(filenum, '%1.0f %1.0f ', coords(1), coords(2));
fprintf(filenum, '%s:%s%s\n', comp_type, comp_name, Terminator);
% If it's a subsystem, do the fig file for that as well
cbg2fig(comp_name, ...
comp_type, full_name, ...
stroke_length, stroke_thickness, stroke_colour, ...
comp_font, comp_colour_u, comp_colour_o);
end;
% Close the file
fclose(filenum);
return
|
|
>
>
>
>
>
>
>
>
>
|
|
|
|
>
>
|
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
|
Terminator = [bs, '001'];
for j = 1:length(fig_params)
fprintf(filenum, '%1.0f ', fig_params(j));
end;
fprintf(filenum, '%1.0f %1.0f ', coords(1), coords(2));
fprintf(filenum, '%s:%s%s\n', comp_type, comp_name, Terminator);
% If it's a subsystem (ie not a component), do the fig file for that as
% well
if comp_type=='0'
comp_type='zero';
end
if comp_type=='1'
comp_type='one';
end
if (exist([comp_type,'_cause'])==0)
cbg2fig(comp_name, ...
comp_type, full_name, ...
stroke_length, stroke_thickness, stroke_colour, ...
comp_font, comp_colour_u, comp_colour_o);
end;
end;
% Close the file
fclose(filenum);
return
|