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.9 1998/08/25 06:43:02 peterg
% %% Revised (partially) for data strucures - needs to include graphic info
% %% in abg file.
% %%
% %% Revision 1.8 1998/04/04 10:45:01 peterg
% %% Don't do strokes on port bonds
% %%
|
>
>
>
|
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.10 1998/12/14 15:27:32 peterg
% %% Added separate handling of ports ( poss zero)
% %%
% %% Revision 1.9 1998/08/25 06:43:02 peterg
% %% Revised (partially) for data strucures - needs to include graphic info
% %% in abg file.
% %%
% %% Revision 1.8 1998/04/04 10:45:01 peterg
% %% Don't do strokes on port bonds
% %%
|
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
|
fprintf(filenum, '%1.0f ', fig_params(j));
end;
fprintf(filenum, '%1.0f %1.0f ', coords(1), coords(2));
fprintf(filenum, '%s%s\n', typename, 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
|
|
|
|
|
|
>
|
|
|
>
|
|
|
|
|
|
|
|
>
>
>
|
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
|
fprintf(filenum, '%1.0f ', fig_params(j));
end;
fprintf(filenum, '%1.0f %1.0f ', coords(1), coords(2));
fprintf(filenum, '%s%s\n', typename, 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';
# endif
# if comp_type=='1'
# comp_type='one';
# endif
# 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);
# endif
endfor
% Close the file
fclose(filenum);
return
|