% Surface duct test cases
% mbp

bellhopM( 'sductB' )
plotshd( 'sductB.shd.mat', 2, 2, 1 )
caxisrev( [ 50 100 ] )

bellhopM( 'sductB_gb' )
plotshd( 'sductB_gb.shd.mat', 2, 2, 2 )
caxisrev( [ 50 100 ] )

kraken( 'sductK' )
plotshd( 'sductK.shd.mat', 2, 2, 3 )
caxisrev( [ 50 100 ] )

scooterM( 'sductS' )
plotshd( 'sductS.shd.mat', 2, 2, 4 )
caxisrev( [ 50 100 ] )
