bagel 0.1.0

data/lib/bagel/tennis/stats/first_serve_in.rb

@@ -0,0 +1,33 @@
+module Bagel::Tennis::Stats
+  class FirstServeIn < Stat
+    private attr_reader :p1_label, :p2_label, :p1_percentage, :p2_percentage
+
+    def name
+      '1st SERVE IN'
+    end
+
+    def values
+      [ p1_label, p2_label ]
+    end
+
+    def superior
+      [ p1_percentage > p2_percentage, p2_percentage > p1_percentage ]
+    end
+
+    private
+
+    def calculate
+      p1_served = points.select(&:p1_serve?)
+      p2_served = points.select(&:p2_serve?)
+
+      p1_served_no_faults = p1_served.select(&:no_faults?)
+      p2_served_no_faults = p2_served.select(&:no_faults?)
+
+      @p1_percentage = percentage(p1_served.count, p1_served_no_faults.count)
+      @p2_percentage = percentage(p2_served.count, p2_served_no_faults.count)
+
+      @p1_label = label(p1_served.count, p1_served_no_faults.count, p1_percentage)
+      @p2_label = label(p2_served.count, p2_served_no_faults.count, p2_percentage)
+    end
+  end
+end

data/lib/bagel/tennis/stats/first_serve_points_won.rb

@@ -0,0 +1,33 @@
+module Bagel::Tennis::Stats
+  class FirstServePointsWon < Stat
+    private attr_reader :p1_label, :p2_label, :p1_percentage, :p2_percentage
+
+    def name
+      '1st SERVE POINTS WON'
+    end
+
+    def values
+      [ p1_label, p2_label ]
+    end
+
+    def superior
+      [ p1_percentage > p2_percentage, p2_percentage > p1_percentage ]
+    end
+
+    private
+
+    def calculate
+      p1_first_serves = points.select(&:p1_serve?).select(&:no_faults?)
+      p2_first_serves = points.select(&:p2_serve?).select(&:no_faults?)
+
+      p1_first_serves_won = p1_first_serves.select(&:p1_won?)
+      p2_first_serves_won = p2_first_serves.select(&:p2_won?)
+
+      @p1_percentage = percentage(p1_first_serves.count, p1_first_serves_won.count)
+      @p2_percentage = percentage(p2_first_serves.count, p2_first_serves_won.count)
+
+      @p1_label = label(p1_first_serves.count, p1_first_serves_won.count, p1_percentage)
+      @p2_label = label(p2_first_serves.count, p2_first_serves_won.count, p2_percentage)
+    end
+  end
+end

data/lib/bagel/tennis/stats/net_points_won.rb

@@ -0,0 +1,33 @@
+module Bagel::Tennis::Stats
+  class NetPointsWon < Stat
+    private attr_reader :p1_label, :p2_label, :p1_percentage, :p2_percentage
+
+    def name
+      'NET POINTS WON'
+    end
+
+    def values
+      [ p1_label, p2_label ]
+    end
+
+    def superior
+      [ p1_percentage > p2_percentage, p2_percentage > p1_percentage ]
+    end
+
+    private
+
+    def calculate
+      p1_net_points = points.select(&:p1_net_point?)
+      p2_net_points = points.select(&:p2_net_point?)
+
+      p1_net_points_won = p1_net_points.select(&:p1_won?)
+      p2_net_points_won = p2_net_points.select(&:p2_won?)
+
+      @p1_percentage = percentage(p1_net_points.count, p1_net_points_won.count)
+      @p2_percentage = percentage(p2_net_points.count, p2_net_points_won.count)
+
+      @p1_label = label(p1_net_points.count, p1_net_points_won.count, p1_percentage)
+      @p2_label = label(p2_net_points.count, p2_net_points_won.count, p2_percentage)
+    end
+  end
+end

data/lib/bagel/tennis/stats/points_won.rb

@@ -0,0 +1,24 @@
+module Bagel::Tennis::Stats
+  class PointsWon < Stat
+    private attr_reader :p1, :p2
+
+    def name
+      'POINTS WON'
+    end
+
+    def values
+      [ p1, p2 ]
+    end
+
+    def superior
+      [ p1 > p2, p2 > p1 ]
+    end
+
+    private
+
+    def calculate
+      @p1 = points.select(&:p1_won?).count
+      @p2 = points.select(&:p2_won?).count
+    end
+  end
+end

data/lib/bagel/tennis/stats/second_serve_points_won.rb

@@ -0,0 +1,33 @@
+module Bagel::Tennis::Stats
+  class SecondServePointsWon < Stat
+    private attr_reader :p1_label, :p2_label, :p1_percentage, :p2_percentage
+
+    def name
+      '2nd SERVE POINTS WON'
+    end
+
+    def values
+      [ p1_label, p2_label ]
+    end
+
+    def superior
+      [ p1_percentage > p2_percentage, p2_percentage > p1_percentage ]
+    end
+
+    private
+
+    def calculate
+      p1_second_serves = points.select(&:p1_serve?).select(&:second_serve?)
+      p2_second_serves = points.select(&:p2_serve?).select(&:second_serve?)
+
+      p1_second_serves_won = p1_second_serves.select(&:p1_won?)
+      p2_second_serves_won = p2_second_serves.select(&:p2_won?)
+
+      @p1_percentage = percentage(p1_second_serves.count, p1_second_serves_won.count)
+      @p2_percentage = percentage(p2_second_serves.count, p2_second_serves_won.count)
+
+      @p1_label = label(p1_second_serves.count, p1_second_serves_won.count, p1_percentage)
+      @p2_label = label(p2_second_serves.count, p2_second_serves_won.count, p2_percentage)
+    end
+  end
+end

data/lib/bagel/tennis/stats/stat.rb

@@ -0,0 +1,40 @@
+module Bagel::Tennis::Stats
+  class Stat
+    private attr_reader :points
+
+    def initialize(points)
+      @points = points
+      calculate
+    end
+
+    def name
+      raise_not_implemented_error(self.class, __method__)
+    end
+
+    def values
+      raise_not_implemented_error(self.class, __method__)
+    end
+
+    def superior
+      raise_not_implemented_error(self.class, __method__)
+    end
+
+    private
+
+    def raise_not_implemented_error(klass, method)
+      raise NotImplementedError, "#{klass} has not implemented method '#{method}'"
+    end
+
+    def calculate
+      raise_not_implemented_error(self.class, __method__)
+    end
+
+    def percentage(total, won)
+      (won / total.to_f * 100).round rescue 0
+    end
+
+    def label(total, won, percentage)
+      "#{won}/#{total} (#{percentage}%)"
+    end
+  end
+end

data/lib/bagel/tennis/stats/unforced_errors.rb

@@ -0,0 +1,24 @@
+module Bagel::Tennis::Stats
+  class UnforcedErrors < Stat
+    private attr_reader :p1, :p2
+
+    def name
+      'UNFORCED ERRORS'
+    end
+
+    def values
+      [ p1, p2 ]
+    end
+
+    def superior
+      [ p1 < p2, p2 < p1 ]
+    end
+
+    private
+
+    def calculate
+      @p1 = points.select(&:p2_won?).select(&:unforced_error?).count
+      @p2 = points.select(&:p1_won?).select(&:unforced_error?).count
+    end
+  end
+end

data/lib/bagel/tennis/stats/winners.rb

@@ -0,0 +1,24 @@
+module Bagel::Tennis::Stats
+  class Winners < Stat
+    private attr_reader :p1, :p2
+
+    def name
+      'WINNERS'
+    end
+
+    def values
+      [ p1, p2 ]
+    end
+
+    def superior
+      [ p1 > p2, p2 > p1 ]
+    end
+
+    private
+
+    def calculate
+      @p1 = points.select(&:p1_won?).select(&:winner?).count
+      @p2 = points.select(&:p2_won?).select(&:winner?).count
+    end
+  end
+end

data/lib/bagel/tennis/stats.rb

@@ -0,0 +1,16 @@
+require 'bagel/tennis/stats/stat'
+require 'bagel/tennis/stats/aces'
+require 'bagel/tennis/stats/double_faults'
+require 'bagel/tennis/stats/first_serve_in'
+require 'bagel/tennis/stats/first_serve_points_won'
+require 'bagel/tennis/stats/second_serve_points_won'
+require 'bagel/tennis/stats/winners'
+require 'bagel/tennis/stats/unforced_errors'
+require 'bagel/tennis/stats/net_points_won'
+require 'bagel/tennis/stats/break_points_won'
+require 'bagel/tennis/stats/points_won'
+
+module Bagel::Tennis
+  module Stats
+  end
+end

data/lib/bagel/tennis.rb

@@ -0,0 +1,13 @@
+require 'bagel/tennis/point'
+require 'bagel/tennis/score'
+require 'bagel/tennis/serve'
+require 'bagel/tennis/outcome'
+require 'bagel/tennis/scoring'
+require 'bagel/tennis/checker'
+require 'bagel/tennis/player'
+require 'bagel/tennis/stats'
+
+module Bagel
+  module Tennis
+  end
+end

data/lib/bagel/timeframe.rb

@@ -0,0 +1,31 @@
+module Bagel
+  class Timeframe
+    attr_reader :start, :finish
+
+    SECONDS_IN_MINUTE = 60
+    SECONDS_IN_HOUR = 3600
+
+    def initialize(start, finish)
+      @start = start
+      @finish = finish
+    end
+
+    def duration
+      seconds(finish) - seconds(start)
+    end
+
+    def duration_minutes
+      duration / SECONDS_IN_MINUTE
+    end
+
+    private
+
+    def seconds(timestamp)
+      parts = timestamp.split(':')
+      s = parts.pop
+      m = parts.pop
+      h = parts.pop
+      (h.to_i * SECONDS_IN_HOUR) + (m.to_i * SECONDS_IN_MINUTE) + s.to_i
+    end
+  end
+end

data/lib/bagel/version.rb

@@ -0,0 +1,5 @@
+# frozen_string_literal: true
+
+module Bagel
+  VERSION = "0.1.0"
+end

data/lib/bagel/video/clip.rb

@@ -0,0 +1,41 @@
+module Bagel::Video
+  class Clip
+    attr_accessor :id, :fade, :overlays
+    private attr_reader :timeframe
+
+    EXTENSION = '.mp4'
+
+    def initialize(timeframe)
+      @id = nil
+      @fade = nil
+      @timeframe = timeframe
+      @overlays = []
+    end
+
+    def save
+      ClipSaver.new(self).save
+    end
+
+    def start
+      timeframe.start
+    end
+
+    def duration
+      timeframe.duration
+    end
+
+    def trim_path
+      File.join(Bagel.config.trim_dir, filename)
+    end
+
+    def clip_path
+      File.join(Bagel.config.clip_dir, filename)
+    end
+
+    private
+
+    def filename
+      "#{id}#{EXTENSION}"
+    end
+  end
+end

data/lib/bagel/video/clip_builder_factory.rb

@@ -0,0 +1,13 @@
+module Bagel::Video
+  class ClipBuilderFactory
+    BUILDERS = {
+      intro: Bagel::Video::ClipBuilders::IntroClipBuilder,
+      point: Bagel::Video::ClipBuilders::PointClipBuilder,
+      stats: Bagel::Video::ClipBuilders::StatsClipBuilder
+    }
+
+    def self.for(type, data)
+      BUILDERS[type].new(data)
+    end
+  end
+end

data/lib/bagel/video/clip_builders/clip_builder.rb

@@ -0,0 +1,32 @@
+module Bagel::Video::ClipBuilders
+  class ClipBuilder
+    attr_reader :clip
+
+    def initialize(data)
+      @clip = Video::Clip.new(Timeframe.new(data[:start], data[:finish]))
+      post_initialize(data)
+    end
+
+    def set_id
+      raise_not_implemented_error(self.class, __method__)
+    end
+
+    def add_clip_fade
+      raise_not_implemented_error(self.class, __method__)
+    end
+
+    def add_overlays
+      raise_not_implemented_error(self.class, __method__)
+    end
+
+    private
+
+    def post_initialize(data)
+      raise_not_implemented_error(self.class, __method__)
+    end
+
+    def raise_not_implemented_error(klass, method)
+      raise NotImplementedError, "#{klass} has not implemented method '#{method}'"
+    end
+  end
+end

data/lib/bagel/video/clip_builders/intro_clip_builder.rb

@@ -0,0 +1,37 @@
+module Bagel::Video::ClipBuilders
+  class IntroClipBuilder < ClipBuilder
+    private attr_reader :title, :description
+
+    ID = '00-intro'
+
+    def set_id
+      clip.id = ID
+    end
+
+    def add_clip_fade
+      clip.fade = Video::Fade.new(in_start: 0, in_duration: 1.5, out_start: 6.5, out_duration: 1.5)
+    end
+
+    def add_overlays
+      add_intro_overlay
+    end
+
+    private
+
+    def post_initialize(data)
+      @title, @description = data[:title], data[:description]
+    end
+
+    def add_intro_overlay
+      clip.overlays << intro_overlay
+    end
+
+    def intro_overlay
+      Overlays::Intro.new(intro_graphic)
+    end
+
+    def intro_graphic
+      Graphic::Intro.new(title, description).save
+    end
+  end
+end