#! /bin/sh
######################################
##### Model Transformation Tools #####
######################################
# Bourne shell script: cbg_m2fig
#
# Causal bond graph: mfile format to fig file format
# The resultant fig file is the original _abg.fig with
# additional causal strokes superimposed.
#
# P.J.Gawthrop May 1996
# Copyright (c) P.J.Gawthrop, 1996.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
# Revision 1.5 1996/11/02 10:16:50 peterg
# Changed stroke length to 150
#
# Revision 1.4 1996/08/25 09:28:59 peter
# More error handling.
#
## Revision 1.3 1996/08/24 14:40:31 peter
## Error handling included.
##
## Revision 1.2 1996/08/08 18:07:31 peter
## Sorted out naming scheme for files
##
## Revision 1.1 1996/08/05 20:13:56 peter
## Initial revision
##
###############################################################
# Remove the old log file
rm -f cbg_m2fig.log
rm -f mtt_info.txt
# The following sets up the fig header file for the system
# and each sub system.
(ls $1_*_cbg.m \
| sed 's/\(.*_\)\(.*_\)cbg.m/cp \2fig.fig \1\2cbg.fig/' \
| sh ) 2>mtt_error.txt
#Inform user
echo Creating $1_cbg.fig
# Use matrix manipulation to accomplish the transformation
$RMATRIX > cbg_m2fig.log 2>>mtt_error.txt << EOF
system_name = '$1';
thick = 3; length = 150; red = 4; blue = 1; green = 12; font = 18;
cbg2fig(system_name, ...
'', '', ...
length, thick, blue, ...
font, green, red);
EOF
cp $1_$1_cbg.fig $1_cbg.fig 2>> mtt_error.txt
# Print errors, if any.
mtt_error mtt_error.txt