# Wx::SF::DiamondShape - Diamond shape class
# Copyright (c) M.J.N. Corino, The Netherlands

require 'wx/shapes/shapes/polygon_shape'

module Wx::SF

  class DiamondShape < PolygonShape

    class << self
      def diamond
        @diamond ||= [Wx::RealPoint.new(0,25), Wx::RealPoint.new(50,0), Wx::RealPoint.new(100, 25), Wx::RealPoint.new(50, 50)]
      end
    end

    # do not serialize because the vertices are assigned fixed in ctor
    excludes :vertices

    # @overload initialize()
    #   Default constructor.
    # @overload initialize(pos, size, diagram)
    #   User constructor.
    #   @param [Wx::RealPoint] pos Initial position
    #   @param [Wx::SF::Diagram] diagram parent diagram
    def initialize(*args)
      if args.empty?
        super
        set_vertices(DiamondShape.diamond)
      else
        super(DiamondShape.diamond, *args)
      end
    end

    # Test whether the given point is inside the shape. The function
    # can be overridden if necessary.
    # @param [Wx::Point] pos Examined point
    # @return [Boolean] true if the point is inside the shape area, otherwise false
    def contains?(pos)
      bb_rct = get_bounding_box
      return false unless bb_rct.contains?(pos)

      center = get_center
      k = (bb_rct.height/2).to_f/(bb_rct.width/2).to_f

      if pos.x <= center.x
        # test left-top quadrant
        return true if (pos.y <= center.y) && (pos.y >= (center.y - (pos.x - bb_rct.left)*k))
        # test left-bottom quadrant
        return true if (pos.y >= center.y) && (pos.y <= (center.y + (pos.x - bb_rct.left)*k))
      else
        # test right-top quadrant
        return true if (pos.y <= center.y) && (pos.y >= (bb_rct.top + (pos.x - center.x)*k))
        # test left-bottom quadrant
        return true if (pos.y >= center.y) && (pos.y <= (bb_rct.bottom - (pos.x - center.x)*k))
      end

      false
    end

  end

end