14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
+
+
+
|
# Copyright (c) P.J.Gawthrop, 1996.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.9 1998/01/23 13:31:23 peterg
## $RMATRIX --> $MATRIX
##
## Revision 1.8 1996/12/07 19:23:07 peterg
## Registered agian.
##
# Revision 1.7 1996/11/09 19:04:34 peterg
# Removed cp $1_$1_cbg.fig $1_cbg.fig.
#
## Revision 1.6 1996/11/06 15:58:46 peterg
|
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
-
+
+
+
+
-
+
-
+
+
-
+
+
-
+
-
-
-
-
-
|
# 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
sh $1_type.sh 'cp ' '_fig.fig ' '_cbg.fig'> mtt_error.txt
#sh $1_type.sh 'cp ' '_fig.fig ' '_cbg.fig'> mtt_error.txt
# Copy the unchaging part of the figure file
cp $1_fig.fig $2_cbg.fig
#Inform user
echo Creating $1_cbg.fig
echo Creating $2_cbg.fig -- component type $1
# Use matrix manipulation to accomplish the transformation
$MATRIX > cbg_m2fig.log 2>>mtt_error.txt << EOF
$MATRIX <<EOF 2>mtt_error.txt #> cbg_m2fig.log
system_type = "$1"
system_name = '$1';
system_name = "$2"
thick = 3; length = 150; red = 4; blue = 1; green = 12; font = 18;
cbg2fig(system_name, ...
cbg2fig(system_name, system_type, '', ...
'', '', ...
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
|