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(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' )