-ts_cidoff = (ts_cnrrad * (1-.7) + wallthick * .8) * [1,1];
-
-ts_xbox_lin = ts_xbox - ts_cnrrad*2;
-ts_ybox_lin = ts_ybox - ts_cnrrad*2;
-
-m4_dnl TestSealDoBoxShape(`profile(profileargs)');
-m4_define(`TestSealDoBoxShape',`
- Box_Part(0, ts_cnrrad, 0,0, Linear,`ts_ybox_lin', `$1' )
- Box_Part(0, ts_ybox-ts_cnrrad, 0,0, Arc,`-ts_cnrrad,90' , `$1' )
- Box_Part(ts_cnrrad, ts_ybox, -90,0, Linear,`ts_xbox_lin', `$1' )
- Box_Part(ts_xbox-ts_cnrrad, ts_ybox, -90,0, Arc,`-ts_cnrrad,90' , `$1' )
- Box_Part(ts_xbox, ts_ybox-ts_cnrrad, -180,0, Linear,`ts_ybox_lin', `$1' )
- Box_Part(ts_xbox, ts_cnrrad, -180,0, Arc,`-ts_cnrrad,90' , `$1' )
- Box_Part(ts_xbox-ts_cnrrad, 0, -270,0, Linear,`ts_xbox_lin', `$1' )
- Box_Part(ts_cnrrad, 0, -270,0, Arc,`-ts_cnrrad,90' , `$1' )
+m4_dnl BoxDoShapeRect(`profile(profileargs)');
+m4_define(`BoxDoShapeRect',`
+ Box_Part(0, cnrrad, 0,0, Linear,`ybox_lin', `$1' )
+ Box_Part(0, ybox-cnrrad, 0,0, Arc,`-cnrrad,90' , `$1' )
+ Box_Part(cnrrad, ybox, -90,0, Linear,`xbox_lin', `$1' )
+ Box_Part(xbox-cnrrad, ybox, -90,0, Arc,`-cnrrad,90' , `$1' )
+ Box_Part(xbox, ybox-cnrrad, -180,0, Linear,`ybox_lin', `$1' )
+ Box_Part(xbox, cnrrad, -180,0, Arc,`-cnrrad,90' , `$1' )
+ Box_Part(xbox-cnrrad, 0, -270,0, Linear,`xbox_lin', `$1' )
+ Box_Part(cnrrad, 0, -270,0, Arc,`-cnrrad,90' , `$1' )