When::Parts::GeometricComplex

      # File when/parts.rb, line 1591
1591:     def initialize(*args)
1592: 
1593:       @reverse = (args[1]==true || args[1]==false) ? args.pop : false
1594: 
1595:       case args[0]
1596:       when GeometricComplex
1597:         @node     = args[0].node
1598:         @reverse ^= args[0].reverse
1599:         super(self.first, self.last, exclude_end?) if self.first && self.last
1600:         return
1601: 
1602:       when Array
1603:         @node = args[0]
1604:         super(self.first, self.last, exclude_end?) if self.first && self.last
1605:         return
1606: 
1607:       when Range
1608:         first = [args[0].first, true]
1609:         last  = [args[0].last, !args[0].exclude_end?]
1610: 
1611:       when Comparable
1612:         first, last, rest = args
1613:         raise ArgumentError, "Too many argument: #{rest}" if rest
1614:         first = [first, true]
1615:         case last
1616:         when Comparable         ; last = [last, false]
1617:         when When::TM::Duration ; last = [first[0] + last, false]
1618:         when nil                ; last = first
1619:         else ; raise TypeError, "Irregal GeometricComplex Type for last element: #{last.class}"
1620:         end
1621: 
1622:       when nil ;
1623:       else ; raise TypeError, "Irregal GeometricComplex Type: #{first.class}"
1624:       end
1625: 
1626:       first, last = last, first if (first && last && first[0] > last[0])
1627:       @node = []
1628:       @node << first if first
1629:       @node << last  if last
1630:       super(self.first, self.last, exclude_end?) if first && last
1631:     end

      # File when/parts.rb, line 1448
1448:     def -@
1449:       GeometricComplex.new(self, true)
1450:     end

      # File when/parts.rb, line 1460
1460:     def <=>(other)
1461:       first <=> other
1462:     end

      # File when/parts.rb, line 1433
1433:     def exclude_end?(index=1)
1434:       (@node.length==0) ? nil : !@node[index][1] ^ @reverse
1435:     end

      # File when/parts.rb, line 1393
1393:     def first(default=nil)
1394:       return (@node.length==0) ? nil : @node[0][0] unless default # 互換性
1395:       if reverse
1396:         return default
1397:       else
1398:         (@node.length==0) ? nil : @node[0][0]
1399:       end
1400:     end

      # File when/parts.rb, line 1528
1528:     def include?(other)
1529:       if (other.kind_of?(Comparable) && !other.kind_of?(GeometricComplex))
1530:         return (_include_point?(other) != false)
1531:       else
1532:         other = GeometricComplex.new(other) unless other.kind_of?(GeometricComplex)
1533:         return _include_range?(other)
1534:       end
1535:     end

      # File when/parts.rb, line 1413
1413:     def last(default=nil)
1414:       return (@node.length==0) ? nil : @node[1][0] unless default # 互換性
1415:       if reverse
1416:         return (@node.length[0]==0) ? default : @node[1][0]
1417:       else
1418:         return nil if (@node.length==0)
1419:         return (@node.length[0]==1) ? default : @node[1][0]
1420:       end
1421:     end

      # File when/parts.rb, line 1443
1443:     def precision
1444:       @node[0] && @node[0][0].respond_to?(:precision) ? @node[0][0].precision : Coordinates::SYSTEM
1445:     end

      # File when/parts.rb, line 1495
1495:     def to_tm_object(options={})
1496:       return nil unless !@reverse && @node.length>0 && @node.length[0]==0
1497:       objects    = []
1498:       primitives = @node.dup
1499:       while (primitives) do
1500:         first, last, primitives = primitives
1501:         if (first[0].eql?(last[0]))
1502:           objects = When::TM::Node.new(When::TM::Instant.new(When.when?(first[0],options)))
1503:         else
1504:           objects = When::TM::Edge.new(When::TM::Node.new(When::TM::Instant.new(When.when?(first[0],options))),
1505:                                        When::TM::Node.new(When::TM::Instant.new(When.when?(last[0],options))))
1506:         end
1507:       end
1508:       return objects[0] if objects.length==1
1509:       return When::TM::TopologicalComplex.new(objects)
1510:     end

      # File when/parts.rb, line 1471
1471:     def |(other)
1472:       other = GeometricComplex.new(other) unless other.kind_of?(GeometricComplex)
1473:       return self if self.reverse && self.node.length==0
1474:       return other | self if !self.reverse && other.reverse
1475:       copy = self.node.dup
1476:       ref  = other.node.dup
1477:       max  = _max(copy.shift.dup, ref.shift.dup) if (other.reverse)
1478:       rev  = max ? false : @reverse
1479:       while (ref.length > 0) do
1480:         first, last, *ref = ref
1481:         updated  = _upper(copy, first, rev)
1482:         updated += _lower(copy, last, rev) if last
1483:         copy = updated
1484:       end
1485:       copy = _lower(copy, max, true) if max
1486:       return GeometricComplex.new(copy, self.reverse)
1487:     end

      # File when/parts.rb, line 1714
1714:     def method_missing(name, *args, &block)
1715:       first.send(name.to_sym, *args, &block)
1716:     end