LOCAL the_reverse : oriented_closed_shell ; END_LOCAL ; IF ( 'topology_schema.oriented_closed_shell' IN TYPEOF ( a_shell ) ) THEN the_reverse := dummy_tri || connected_face_set ( a_shell \ connected_face_set . cfs_faces ) || closed_shell ( ) || oriented_closed_shell ( a_shell \ oriented_closed_shell . closed_shell_element , NOT ( a_shell \ oriented_closed_shell . orientation ) ) ; ELSE the_reverse := dummy_tri || connected_face_set ( a_shell \ connected_face_set . cfs_faces ) || closed_shell ( ) || oriented_closed_shell ( a_shell , FALSE ) ; END_IF ; RETURN ( the_reverse ) ;