+
+ // Keep only what is lower than S2
+ MaskImagePointer S2R = m_ListOfSupports["S2R"];
+ MaskImagePointer S2L = m_ListOfSupports["S2L"];
+ MaskImagePointType p;
+ // Right part
+ clitk::FindExtremaPointInAGivenDirection<MaskImageType>(S2R, GetBackgroundValue(),
+ 2, true, p);
+ DD(p);
+ writeImage<MaskImageType>(S4R, "before.mha");
+ S4R = clitk::CropImageRemoveGreaterThan<MaskImageType>(S4R, 2,
+ p[2], true, GetBackgroundValue());
+ writeImage<MaskImageType>(S4R, "after.mha");