faded 0.1.0

data/History.txt

@@ -0,0 +1,5 @@
+== 0.1.0 / 2007-07-10
+
+* The beginning of something amazing
+  * Basic BAC calculation with time variation
+

data/Manifest.txt

@@ -0,0 +1,11 @@
+History.txt
+Manifest.txt
+README.txt
+Rakefile
+bin/party
+lib/faded.rb
+lib/faded/drink.rb
+lib/faded/person.rb
+test/test_faded.rb
+test/test_chart.rb
+test/test_helper.rb

data/README.txt

@@ -0,0 +1,51 @@
+Faded
+    by Chris Van Pelt
+    vandev.com
+
+== DESCRIPTION:
+  
+A delightfully helpful tool to roughly determine your current Blood Alcohol content level
+
+== FEATURES/PROBLEMS:
+  
+* Pretty simple
+
+== SYNOPSIS:
+
+  you = Faded::Person.new(:male, 175)
+  you.drink("30 minutes ago", :manhattan)
+  you.bac => 0.023
+  you.bac("15 minutes ago") => 0.017
+
+== REQUIREMENTS:
+
+  Chronic
+
+== INSTALL:
+
+  sudo gem install faded
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2007 FIX
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+'Software'), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,19 @@
+# -*- ruby -*-
+
+require 'rubygems'
+require 'hoe'
+require './lib/faded.rb'
+
+Hoe.new('faded', Faded::VERSION) do |p|
+  p.rubyforge_name = 'faded'
+  p.author = 'Chris Van Pelt'
+  p.email = 'vanpelt@gmail.com'
+  p.summary = 'Calculates your Blood Alcohol Content (BAC) level'
+  p.description = p.paragraphs_of('README.txt', 2..5).join("\n\n")
+  p.url = p.paragraphs_of('README.txt', 0).first.split(/\n/)[1..-1]
+  p.changes = p.paragraphs_of('History.txt', 0..1).join("\n\n")
+  
+  p.extra_deps << ['chronic', '>= 0.2.0']
+end
+
+# vim: syntax=Ruby

data/lib/faded.rb

@@ -0,0 +1,27 @@
+require 'rubygems'
+require 'chronic'
+
+$:.unshift File.dirname(__FILE__) # For use/testing when no gem is installed
+
+require 'faded/drink'
+require 'faded/person'
+
+module Faded
+  VERSION = '0.1.0'
+  
+  # Widmark r factor (reduced body mass).
+  # Men:   0.50-0.90 avg 0.68.
+  # Women: 0.45-0.63 avg 0.55. --adjust to 58 for better accuracy according to charts...
+  WIDMARK_R = {:male => 0.68, :female => 0.55}
+
+  # Widmark beta factor (alcohol metabolized per hour).
+  # Between 1.0% and 2.4%, avg 1.7%.
+  WIDMARK_BETA = 0.017
+
+  # Ethyl Alcohol weight in pounds.
+  ALC_WEIGHT = 0.0514
+
+  # 1987, Fitzgerald & Hume discover specific
+  # gravity of blood is important, at 1.055 g/ml.
+  GRAVITY_OF_BLOOD = 1.055
+end

data/lib/faded/drink.rb

@@ -0,0 +1,54 @@
+module Faded
+  class Drink
+    attr_accessor :what, :when
+    
+    # Amount of alchol in drinks by ounce
+    @@drinks = {
+      :manhattan => 1.15,
+      :dry_martinni => 1.00,
+      :malt_liqour => 0.71,
+      :airline_miniature => 0.70,
+      :whiskey_sour => 0.60,
+      :wine => 0.55,
+      :beer => 0.5,
+      :near_beer => 0.28,
+    }
+    
+    def initialize what, at = Time.now
+      @what = what.to_s.downcase.gsub(/\s/,'_').intern
+      raise "Unknown drink" unless @@drinks.keys.include? @what
+      @when = at
+    end
+    
+    def hours_ago time = Time.now
+      (time - @when) / 3600
+    end
+    
+    def to_s
+      @when.strftime('%I:%M %a')
+    end
+    
+    def alcohol
+      @@drinks[@what]
+    end
+    
+    def self.concoct type, oz
+      @@drinks[type.to_s.downcase.gsub(/\s/,'_').intern] = oz
+    end
+    
+    
+    # Proof goes to 200.
+    def proof_to_percent(proof)
+      proof / 2
+    end
+    
+    # For N fluid ounces of alcohol, find pure alcohol content from percentage.
+    def percent_to_oz(percent, oz)
+      oz * percent
+    end
+    
+    def oz_to_lbs(oz)
+      oz * ALC_WEIGHT
+    end
+  end
+end

data/lib/faded/person.rb

@@ -0,0 +1,76 @@
+module Faded
+  class Person
+    attr_reader :time
+    
+    def initialize(sex, weight, current_time = Time.now)
+      @sex = sex.to_s =~ /^(m|d)/i ? :male : :female
+      @body_weight = weight
+      @drinks = []
+      @time = current_time #- 90
+      @drank = 0
+    end
+    
+    def time=(time)
+      @time = parse_time time#- 90
+    end
+    
+    def drink at = Time.now, what = :beer, how_many = 1 
+      how_many.times do |i|
+        @drinks << Drink.new(what, parse_time(at))
+      end
+      bac
+    end
+    
+    def drinks
+      @drank == @drinks.size ? @drinks : @drinks.sort { |a,b| a.when <=> b.when }.reject { |d| d.when >= @time }
+    end
+    
+    def hours_drinking
+      (@time - drinks.first.when) / 3600
+    end
+    
+    def next_drink(drink)
+      found = drinks[drinks.index(drink) + 1]
+      found ? found.when : @time
+    end
+    
+    # Blood Alcohol Concentration (by removing metabolized alcohol over drinking time.) 
+    def bac time = nil
+      @time = parse_time(time) if time
+      level = ("%.3f" % (wtac(total_alc_weight) - hours_drinking * WIDMARK_BETA)).to_f if drinks.size > 0
+      level && level > 0 ? level : 0.0
+    end
+    
+    # Water Tissue Alcohol Concentration
+    def wtac alc_weight
+      alc_weight * GRAVITY_OF_BLOOD / bha * 100
+    end
+    
+    # Portion of body that holds alcohol.
+    def bha
+      @body_weight * WIDMARK_R[@sex]
+    end
+    
+    
+    # A less accurate way to measure
+    def shit_bac
+      bac = drinks.inject(0.0) do |total, drink|
+        concentration = wtac(drink.alcohol * ALC_WEIGHT) - drink.hours_ago(next_drink(drink)) * WIDMARK_BETA
+        total += concentration < 0 ? 0 : concentration
+      end
+      ("%.3f" % bac).to_f
+    end
+    
+    def total_alc_weight
+      drinks.inject(0) do |total, drink|
+        total += drink.alcohol
+      end * ALC_WEIGHT
+    end
+    
+    private
+    
+    def parse_time(time)
+      time.is_a?(Time) ? time : Chronic.parse(time) || Time.now
+    end
+  end
+end

data/test/test_chart.rb

@@ -0,0 +1,51 @@
+require File.dirname(__FILE__) + '/test_helper'
+
+class ChartTest < Test::Unit::TestCase
+  def setup
+    @men = [
+      [ 100, 120, 140, 160, 180, 200, 220, 240],
+      [ 0.04, 0.03, 0.03, 0.02, 0.02, 0.02, 0.02, 0.02 ],
+      [ 0.08, 0.06, 0.05, 0.05, 0.04, 0.04, 0.03, 0.03 ],
+      [ 0.11, 0.09, 0.08, 0.07, 0.06, 0.06, 0.05, 0.05 ],
+      [ 0.15, 0.12, 0.11, 0.09, 0.08, 0.08, 0.07, 0.06 ],
+      [ 0.19, 0.16, 0.13, 0.12, 0.11, 0.09, 0.09, 0.08 ],
+      [ 0.23, 0.19, 0.16, 0.14, 0.13, 0.11, 0.10, 0.09 ],
+      [ 0.26, 0.22, 0.19, 0.16, 0.15, 0.13, 0.12, 0.11 ],
+      [ 0.30, 0.25, 0.21, 0.19, 0.17, 0.15, 0.14, 0.13 ],
+      [ 0.34, 0.28, 0.24, 0.21, 0.19, 0.17, 0.15, 0.14 ],
+      [ 0.38, 0.31, 0.27, 0.23, 0.21, 0.19, 0.17, 0.16 ]
+    ]
+    
+    @women = [
+      [ 90, 100, 120, 140, 160, 180, 200, 220, 240],
+      [ 0.05, 0.05, 0.04, 0.03, 0.03, 0.03, 0.02, 0.02, 0.02 ],
+      [ 0.10, 0.09, 0.08, 0.07, 0.06, 0.05, 0.05, 0.04, 0.04 ],
+      [ 0.15, 0.14, 0.11, 0.10, 0.09, 0.08, 0.07, 0.06, 0.06 ],
+      [ 0.20, 0.18, 0.15, 0.13, 0.11, 0.10, 0.09, 0.08, 0.08 ],
+      [ 0.25, 0.23, 0.19, 0.16, 0.14, 0.13, 0.11, 0.10, 0.09 ],
+      [ 0.30, 0.27, 0.23, 0.19, 0.17, 0.15, 0.14, 0.12, 0.11 ],
+      [ 0.35, 0.32, 0.27, 0.23, 0.20, 0.18, 0.16, 0.14, 0.13 ],
+      [ 0.40, 0.36, 0.30, 0.26, 0.23, 0.20, 0.18, 0.17, 0.15 ],
+      [ 0.45, 0.41, 0.34, 0.29, 0.26, 0.23, 0.20, 0.19, 0.17 ],
+      [ 0.51, 0.45, 0.38, 0.32, 0.28, 0.25, 0.23, 0.21, 0.19 ]
+    ]
+  end
+  
+  def test_men_no_time_within
+    @men[1..-1].each_with_index do |bacs, drinks|
+      @men[0].each_with_index do |weight, i|
+        dude = Person.new(:male, weight)
+        assert_in_delta bacs[i], dude.drink(Time.now - 10, :beer, drinks + 1), 0.023
+      end
+    end
+  end
+  
+  def test_women_no_time_within
+    @women[1..-1].each_with_index do |bacs, drinks|
+      @women[0].each_with_index do |weight, i|
+        chick = Person.new(:female, weight)
+        assert_in_delta bacs[i], chick.drink(Time.now - 10, :beer, drinks + 1), 0.043
+      end
+    end
+  end
+end

data/test/test_faded.rb

@@ -0,0 +1,55 @@
+require File.dirname(__FILE__) + '/test_helper'
+
+class FadedTest < Test::Unit::TestCase
+  def test_not_that_drunk_dude
+    marty = Person.new(:male, 160)
+    marty.drink "2 hours ago"
+    marty.drink "1 hour ago"
+    assert_equal 0.016, marty.bac
+  end
+  
+  def test_pretty_drunk_chick
+    lola = Person.new('chick', 150)
+    lola.drink "1 hour ago", :dry_martinni
+    lola.drink "15 minutes ago", :airline_miniature, 2
+    assert_equal 0.141, lola.bac
+  end
+  
+  def test_drink_over_an_hour_ago_no_effect
+    jim = Person.new(:m, 200)
+    jim.drink "90 minutes ago", :wine
+    assert_equal 0.0, jim.bac
+    jim.drink "3 hours ago", :wine
+    assert_equal 0.0, jim.bac
+    jim.drink "60 minutes ago", :wine
+    assert_equal 0.015, jim.bac
+  end
+  
+  def test_change_in_time
+    melinda = Person.new(:fem, 130)
+    melinda.drink "90 minutes ago", :beer
+    assert_equal 0.012, melinda.bac
+    melinda.time = "30 minutes ago"
+    assert_equal 0.021, melinda.bac
+    melinda.time = "1 hour from now"
+    assert_equal 0.0, melinda.bac
+    melinda.drink "20 minutes from now", :manhattan
+    assert_equal 0.083, melinda.bac
+  end
+  
+  def test_just_had_a_beer
+    chris = Person.new('dude', 175)
+    chris.drink Time.now, :beer
+    assert_equal 0.0, chris.bac
+    chris.time = "10 minutes from now"
+    assert_equal 0.02, chris.bac
+    assert_equal 0.016, chris.bac("25 minutes from now")
+  end
+  
+  def test_5_beers_still_drunk_5_hours_later
+    crazy = Person.new(:male, 200)
+    crazy.drink "3 hours ago", :beer, 5
+    assert_equal 0.049, crazy.bac
+    assert_equal 0.015, crazy.bac("2 hours from now")
+  end
+end

data/test/test_helper.rb

@@ -0,0 +1,10 @@
+require 'rubygems'
+require 'test/unit'
+
+require File.dirname(__FILE__) + '/../lib/faded'
+
+include Faded
+
+class Test::Unit::TestCase
+
+end

metadata

@@ -0,0 +1,78 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.2
+specification_version: 1
+name: faded
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+date: 2007-07-14 00:00:00 -07:00
+summary: Calculates your Blood Alcohol Content (BAC) level
+require_paths: 
+- lib
+email: vanpelt@gmail.com
+homepage: "    by Chris Van Pelt"
+rubyforge_project: faded
+description: "== FEATURES/PROBLEMS:  * Pretty simple  == SYNOPSIS:  you = Faded::Person.new(:male, 175) you.drink(\"30 minutes ago\", :manhattan) you.bac => 0.023 you.bac(\"15 minutes ago\") => 0.017  == REQUIREMENTS:"
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+post_install_message: 
+authors: 
+- Chris Van Pelt
+files: 
+- History.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- bin/party
+- lib/faded.rb
+- lib/faded/drink.rb
+- lib/faded/person.rb
+- test/test_faded.rb
+- test/test_chart.rb
+- test/test_helper.rb
+test_files: 
+- test/test_chart.rb
+- test/test_faded.rb
+- test/test_helper.rb
+rdoc_options: 
+- --main
+- README.txt
+extra_rdoc_files: 
+- History.txt
+- Manifest.txt
+- README.txt
+executables: 
+- party
+extensions: []
+
+requirements: []
+
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: chronic
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 0.2.0
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.2.1
+    version: