Overview
Comment:Removed recursion --- maybe put back via a flag later
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: f9259a0645f08451175588fccc528c96776f3d18a9a6000deef9851bdf46f7d1
User & Date: gawthrop@users.sourceforge.net on 2000-01-18 14:52:02
Other Links: branch diff | manifest | tags
Context
2000-01-19
17:26:12
Now includes the representation title. check-in: 866bcd11d3 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
2000-01-18
14:52:02
Removed recursion --- maybe put back via a flag later check-in: f9259a0645 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
14:22:58
Now exits if file already exists check-in: 4bd1a5653e user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/bin/trans/m/cbg2fig.m from [7e2d3487b7] to [2e7f5f4b39].

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




MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]