myIntersectionDocument isa CATPart
  {
    myPart isa Part
      {
        OBody isa OpenBodyFeature
          {
            Po1 isa GSMPoint
               {
                 Type = 0;
                 TypeObject isa GSMPointCoord
                    {
                      X = 20mm;
                      Y = 0mm;
                      Z = 0mm;
                    }
               }
            Po2 isa GSMPoint
               {
                 Type = 0;
                 TypeObject isa GSMPointCoord
                    {
                      X = -20mm;
                      Y = 0mm;
                      Z = 0mm;
                    }
               }
            L isa GSMLine
               {
                 Type = 0;
                 TypeObject isa GSMLinePtPt
                    {
                      FirstPoint = object: ..\..\Po1;
                      SecondPoint = object : ..\..\Po2;
                    }
                }
            dir1 isa GSMDirection
                {
                  ElementDir = object : ..\..\`xy-plane`;
                }
            dir2 isa GSMDirection
                {
                  ElementDir = object : ..\..\`zx-plane`;
                }
            Extru1 isa GSMExtrude
                {
                  Element1 = object : ..\L;
                  Length1 = 20mm;
                  Length2 = 20mm;
                  Direction = object: ..\dir1;
                } 
            Extru2 isa GSMExtrude
                {
                  Element1 = object : ..\L;
                  Length1 = 20mm;
                  Length2 = 20mm;
                  Direction = object: ..\dir2;
                }
            Inter isa GSMIntersect
                {
                  ToIntersect1 = object : ..\Extru1;
                  ToIntersect2 = object : ..\Extru2;
                }
            F isa GSMFillet
                {
                  Type = 0;
                  TypeObject isa GSMFilletBiTangent
                     {
                        Radius = 5mm;
                        Element1 = object : ..\..\Extru1;
                        Element2 = object : ..\..\Extru2;
                      }
                 }
        } 
      }
}