gamebox 0.2.1 → 0.3.2

data/lib/gamebox/behaviors/collidable/circle_collidable.rb

@@ -1,4 +1,4 @@
-require 'collidable/collidable_shape'
+
 
 class CircleCollidable < CollidableShape
 
@@ -7,11 +7,11 @@ class CircleCollidable < CollidableShape
   end
 
   def center_x
-    actor_x + radius
+    actor_x
   end
 
   def center_y
-    actor_y + radius
+    actor_y
   end
 
 end

data/lib/gamebox/behaviors/collidable/polygon_collidable.rb

@@ -1,4 +1,4 @@
-require 'collidable/collidable_shape'
+
 
 class PolygonCollidable < CollidableShape
   attr_accessor :cw_local_points

data/lib/gamebox/behaviors/graphical.rb

@@ -1,10 +1,10 @@
-require 'behavior'
+
 # keeps track of an image for you based on the actor's class
 # by default it expects images to be:
 # data/graphics/classname.png
 class Graphical < Behavior
 
-  attr_accessor :image, :num_x_tiles, :num_y_tiles
+  attr_accessor :image, :num_x_tiles, :num_y_tiles, :rotation
   def setup
 
     @image = @actor.resource_manager.load_actor_image @actor
@@ -13,9 +13,10 @@ class Graphical < Behavior
     @num_y_tiles = @opts[:num_y_tiles]
     @num_x_tiles ||= 1
     @num_y_tiles ||= 1
+    @rotation = 0.0
 
-    graphical_obj = self
-    relegates :image, :graphical, :width, :height
+    relegates :image, :graphical, :width, :height, :rotation, :rotation=, 
+      :scale, :scale=, :x_scale, :y_scale, :x_scale=, :y_scale=
   end
 
   def graphical
@@ -34,4 +35,29 @@ class Graphical < Behavior
     @tiled
   end
 
+  def scale
+    @scale || 1
+  end
+
+  def scale=(s)
+    @scale = s
+  end
+
+  def x_scale
+    @x_scale || scale
+  end
+
+  def x_scale=(xs)
+    @x_scale = xs
+  end
+
+
+  def y_scale
+    @y_scale || scale
+  end
+
+  def y_scale=(ys)
+    @y_scale = ys
+  end
+
 end

data/lib/gamebox/behaviors/layered.rb

@@ -1,4 +1,4 @@
-require 'behavior'
+
 # Keeps track of the layer that something is to be drawn on.
 # By default it sets everything to layer 0 and parallax layer of
 # 1.

data/lib/gamebox/behaviors/physical.rb

@@ -1,8 +1,3 @@
-require 'physics'
-require 'behavior'
-require 'inflector'
-require 'publisher'
-
 # Physical behavior will place your Actor in a physical world.
 # example:
 # :physical => {
@@ -29,6 +24,7 @@ class Physical < Behavior
   def setup
     @parts = {}
     @shapes = []
+    @constraints = []
     @segments_groups = []
 
     @moment_of_inertia = @opts[:moment]
@@ -41,11 +37,16 @@ class Physical < Behavior
 
     build_secondary_shapes
 
+
     register
+    warp(vec2(@actor.x,@actor.y))
 
     # write code here to keep physics and x,y of actor in sync
     relegates :x, :y, :x=, :y=, :shape, :body, :parts,
-      :rotation, :warp, :segment_groups, :physical
+      :rotation, :warp, :segment_groups, :physical,
+      :pivot, :pin, :spring, :slide, :groove,
+      :rotary_spring, :rotary_limit, :ratchet,
+      :gear, :motor
   end
 
   def setup_friction
@@ -101,6 +102,8 @@ class Physical < Behavior
     end
 
     @shapes << @shape
+
+    @body.p = vec2(actor.x,actor.y)
   end
 
   def build_secondary_shapes
@@ -108,22 +111,37 @@ class Physical < Behavior
     if @opts[:shapes]
       for obj in @opts[:shapes]
         for part_name, part_def in obj
-          # add another shape here
-          part_shape_array = part_def[:verts].collect{|v| vec2(v[0],v[1])}
-          part_shape = CP::Shape::Poly.new(@body, part_shape_array, part_def[:offset])
+          # TODO merge this with build main shape
+          part_shape = nil
+          case part_def[:shape]
+          when :poly
+            part_shape_array = part_def[:verts].collect{|v| vec2(v[0],v[1])}
+            part_shape = CP::Shape::Poly.new(@body, part_shape_array, part_def[:offset])
+            part_shape.collision_type = part_name.to_sym
+
+            # TODO pass all physics params to parts (ie u and e)
+            part_shape.u = @friction
+            verts = part_def[:verts].dup
+            verts << part_def[:verts][0]
+            @segments_groups << verts
+          when :circle
+            part_shape = CP::Shape::Circle.new(@body, part_def[:radius], part_def[:offset])
+          else
+            raise "unsupported sub shape type"
+          end
           part_shape.collision_type = part_name.to_sym
-          # TODO pass all physics params to parts (ie u and e)
-          part_shape.u = @friction
           @shapes << part_shape
-          verts = part_def[:verts].dup
-          verts << part_def[:verts][0]
-          @segments_groups << verts
+          # puts @shapes.inspect
         end
       end
     end
   end
 
   def register
+    @actor.when :remove_me do
+      cleanup_constraints
+    end
+
     physical_obj = self
     if @actor.stage.respond_to? :register_physical_object
       if @opts[:fixed]
@@ -159,7 +177,6 @@ class Physical < Behavior
     else
       ((body.a) * 180.0 / Math::PI + 90) % 360
     end
-#    rot_deg = rotation.round % 360
   end
 
   def warp(new_p)
@@ -171,19 +188,85 @@ class Physical < Behavior
     self
   end
 
-#  def image
-#    old_image = nil
-#    rot_deg = rotation.round % 360
-#
-#    if @actor.is? :animated
-#      old_image = @actor.animated.image
-#    elsif @actor.is? :graphical
-#      old_image = @actor.graphical.image
-#    end
-#
-#    if old_image
-#      # XXX rotate when drawing, not when getting image
-#      old_image.rotozoom(rot_deg,1,true)
-#    end
-#  end
+  def pivot(my_anchor, other_physical, other_anchor)
+    pivot = CP::Constraint::PivotJoint.new(physical.body, other_physical.body, my_anchor, other_anchor)
+    @actor.stage.register_physical_constraint pivot
+    @constraints << pivot
+    pivot
+  end
+
+  def pin(my_anchor, other_physical, other_anchor)
+    pin = CP::Constraint::PinJoint.new(physical.body, other_physical.physical.body, my_anchor, other_anchor)
+    @actor.stage.register_physical_constraint pin
+    @constraints << pin
+    pin
+  end
+
+  def spring(my_anchor, other_physical, other_anchor, rest_length, stiffness, damping)
+    spring = CP::Constraint::DampedSpring.new(physical.body,other_physical.body,
+                                         my_anchor,other_anchor, rest_length, stiffness, damping)
+    @actor.stage.register_physical_constraint spring
+    @constraints << spring
+    spring
+  end
+
+  def slide(my_anchor, other_physical, other_anchor, min_distance, max_distance)
+    slide = CP::Constraint::SlideJoint.new(physical.body, other_physical.body, my_anchor, other_anchor, min_distance, max_distance)
+    @actor.stage.register_physical_constraint slide
+    @constraints << slide
+    slide
+  end
+
+  def groove(groove_start, groove_end, other_physical, other_anchor)
+    groove = CP::Constraint::GrooveJoint.new(physical.body, other_physical.body, groove_start, groove_end, other_anchor)
+    @actor.stage.register_physical_constraint groove
+    @constraints << groove
+    groove
+  end
+
+  #
+  # All of these rotary joint types expect angles in radians.
+  #
+
+  def rotary_spring(other_physical, rest_angle, stiffness, damping)
+    rotary_spring = CP::Constraint::DampedRotarySpring.new(physical.body, other_physical.body, rest_angle, stiffness, damping)
+    @actor.stage.register_physical_constraint rotary_spring
+    @constraints << rotary_spring
+    rotary_spring
+  end
+
+  def rotary_limit(other_physical, min_angle, max_angle)
+    rotary_limit = CP::Constraint::RotaryLimitJoint.new(physical.body, other_physical.body, min_angle, max_angle)
+    @actor.stage.register_physical_constraint rotary_limit
+    @constraints << rotary_limit
+    rotary_limit
+  end
+
+  def ratchet(other_physical, phase, ratchet)
+    ratchet_joint = CP::Constraint::RatchetJoint.new(physical.body, other_physical.body, phase, ratchet)
+    @actor.stage.register_physical_constraint ratchet_joint
+    @constraints << ratchet_joint
+    ratchet_joint
+  end
+
+  def gear(other_physical, phase, ratio)
+    gear = CP::Constraint::GearJoint.new(physical.body, other_physical.body, phase, ratio)
+    @actor.stage.register_physical_constraint gear
+    @constraints << gear
+    gear
+  end
+
+  def motor(other_physical, rate)
+    motor = CP::Constraint::SimpleMotor.new(physical.body, other_physical.body, rate)
+    @actor.stage.register_physical_constraint motor
+    @constraints << motor
+    motor
+  end
+
+  def cleanup_constraints
+    @constraints.each do |c|
+      @actor.stage.unregister_physical_constraint c
+    end
+  end
+
 end

data/lib/gamebox/behaviors/timed.rb

@@ -0,0 +1,33 @@
+class Timed < Behavior
+
+  def setup
+    actor.when :remove_me do |actor|
+      clear_timers
+    end
+
+    @timers = []
+    relegates :add_timer, :remove_timer
+  end
+
+  def add_timer(name, ms, recurring = true, &block)
+    timer_name = "#{actor.object_id} #{name}"
+    @timers << timer_name
+    actor.stage.add_timer timer_name, ms do
+      block.call
+      actor.stage.remove_timer timer_name unless recurring
+    end
+  end
+
+  def remove_timer(name)
+    timer_name = "#{actor.object_id} #{name}"
+    @timers.delete timer_name
+    actor.stage.remove_timer timer_name
+  end
+
+  def clear_timers
+    @timers.each do |timer_name|
+      actor.stage.remove_timer timer_name
+    end
+  end
+
+end

data/lib/gamebox/behaviors/updatable.rb

@@ -1,4 +1,4 @@
-require 'behavior'
+
 
 class Updatable < Behavior
   

data/lib/gamebox/class_finder.rb

@@ -4,27 +4,7 @@ module ClassFinder
   def find(name)
     klass = nil
     klass_name = Inflector.camelize(name)
-
-    begin
-      klass = Object.const_get(klass_name)
-    rescue NameError => ex
-      # not there yet
-        log(:warn, ex)
-      begin
-        require "#{name}"
-      rescue LoadError => ex
-        # maybe its included somewhere else
-        log(:warn, ex)
-      ensure
-        begin
-          klass = Object.const_get(klass_name)
-        rescue Exception => ex
-          # leave this alone.. maybe there isnt a NameView
-          log(:warn, ex)
-          
-        end
-      end
-    end
+    klass = Object.const_get(klass_name) rescue
     
     klass
   end

data/lib/gamebox/console_app.rb

@@ -1,39 +1,41 @@
-puts "Connecting to game..."
-require 'irb'
-require 'irb/completion'
-module IRB
-  def IRB.start_session(obj)
-    unless $irb
-      IRB.setup nil
-      ## maybe set some opts here, as in parse_opts in irb/init.rb?
-      IRB.load_modules
-    end
+if $0 == __FILE__
+  puts "Connecting to game..."
+  require 'irb'
+  require 'irb/completion'
+  module IRB
+    def IRB.start_session(obj)
+      unless $irb
+        IRB.setup nil
+        ## maybe set some opts here, as in parse_opts in irb/init.rb?
+        IRB.load_modules
+      end
     
-    workspace = WorkSpace.new(obj)
+      workspace = WorkSpace.new(obj)
 
-    if @CONF[:SCRIPT] ## normally, set by parse_opts
-      $irb = Irb.new(workspace, @CONF[:SCRIPT])
-    else
-      $irb = Irb.new(workspace)
-    end
+      if @CONF[:SCRIPT] ## normally, set by parse_opts
+        $irb = Irb.new(workspace, @CONF[:SCRIPT])
+      else
+        $irb = Irb.new(workspace)
+      end
 
-    @CONF[:IRB_RC].call($irb.context) if @CONF[:IRB_RC]
-    @CONF[:MAIN_CONTEXT] = $irb.context
+      @CONF[:IRB_RC].call($irb.context) if @CONF[:IRB_RC]
+      @CONF[:MAIN_CONTEXT] = $irb.context
 
-    trap("INT") do
-      $irb.signal_handle
-    end
+      trap("INT") do
+        $irb.signal_handle
+      end
 
-    catch(:IRB_EXIT) do
-      $irb.eval_input
-    end
-    print "\n"
+      catch(:IRB_EXIT) do
+        $irb.eval_input
+      end
+      print "\n"
     
-    ## might want to reset your app's interrupt handler here
+      ## might want to reset your app's interrupt handler here
+    end
   end
-end
 
-require 'drb'
-DRb.start_service
-game = DRbObject.new nil, "druby://localhost:7373"
-IRB.start_session game
+  require 'drb'
+  DRb.start_service
+  game = DRbObject.new nil, "druby://localhost:7373"
+  IRB.start_session game
+end

data/lib/gamebox/constants.rb

@@ -0,0 +1,481 @@
+enum = 0
+MOUSE_LEFT = enum += 1
+MOUSE_MIDDLE = enum += 1
+MOUSE_RIGHT = enum += 1
+MOUSE_LMASK = enum += 1
+MOUSE_MMASK = enum += 1
+MOUSE_RMASK = enum += 1
+
+K_UNKNOWN = enum += 1
+K_FIRST = enum += 1
+K_BACKSPACE = KbBackspace
+K_TAB = KbTab
+K_CLEAR = enum += 1
+K_RETURN = KbReturn
+K_PAUSE = enum += 1
+K_ESCAPE = KbEscape
+K_SPACE = KbSpace
+K_EXCLAIM = enum += 1
+K_QUOTEDBL = enum += 1
+K_HASH = enum += 1
+K_DOLLAR = enum += 1
+K_AMPERSAND = enum += 1
+K_QUOTE = enum += 1
+K_LEFTPAREN = enum += 1
+K_RIGHTPAREN = enum += 1
+K_ASTERISK = enum += 1
+K_PLUS = enum += 1
+K_COMMA = enum += 1
+K_MINUS = enum += 1
+K_PERIOD = enum += 1
+K_SLASH = enum += 1
+K_0 = Kb0
+K_1 = Kb1
+K_2 = Kb2
+K_3 = Kb3
+K_4 = Kb4
+K_5 = Kb5
+K_6 = Kb6
+K_7 = Kb7
+K_8 = Kb8
+K_9 = Kb9
+K_COLON = enum += 1
+K_SEMICOLON = enum += 1
+K_LESS = enum += 1
+K_EQUALS = enum += 1
+K_GREATER = enum += 1
+K_QUESTION = enum += 1
+K_AT = enum += 1
+K_LEFTBRACKET = enum += 1
+K_BACKSLASH = enum += 1
+K_RIGHTBRACKET = enum += 1
+K_CARET = enum += 1
+K_UNDERSCORE = enum += 1
+K_BACKQUOTE = enum += 1
+K_A = KbA
+K_B = KbB 
+K_C = KbC 
+K_D = KbD 
+K_E = KbE 
+K_F = KbF 
+K_G = KbG 
+K_H = KbH 
+K_I = KbI 
+K_J = KbJ 
+K_K = KbK 
+K_L = KbL 
+K_M = KbM 
+K_N = KbN 
+K_O = KbO 
+K_P = KbP 
+K_Q = KbQ 
+K_R = KbR 
+K_S = KbS 
+K_T = KbT 
+K_U = KbU 
+K_V = KbV 
+K_W = KbW 
+K_X = KbX 
+K_Y = KbY 
+K_Z = KbZ 
+K_DELETE = KbDelete
+
+K_WORLD_0 = enum += 1
+K_WORLD_1 = enum += 1
+K_WORLD_2 = enum += 1
+K_WORLD_3 = enum += 1
+K_WORLD_4 = enum += 1
+K_WORLD_5 = enum += 1
+K_WORLD_6 = enum += 1
+K_WORLD_7 = enum += 1
+K_WORLD_8 = enum += 1
+K_WORLD_9 = enum += 1
+K_WORLD_10 = enum += 1
+K_WORLD_11 = enum += 1
+K_WORLD_12 = enum += 1
+K_WORLD_13 = enum += 1
+K_WORLD_14 = enum += 1
+K_WORLD_15 = enum += 1
+K_WORLD_16 = enum += 1
+K_WORLD_17 = enum += 1
+K_WORLD_18 = enum += 1
+K_WORLD_19 = enum += 1
+K_WORLD_20 = enum += 1
+K_WORLD_21 = enum += 1
+K_WORLD_22 = enum += 1
+K_WORLD_23 = enum += 1
+K_WORLD_24 = enum += 1
+K_WORLD_25 = enum += 1
+K_WORLD_26 = enum += 1
+K_WORLD_27 = enum += 1
+K_WORLD_28 = enum += 1
+K_WORLD_29 = enum += 1
+K_WORLD_30 = enum += 1
+K_WORLD_31 = enum += 1
+K_WORLD_32 = enum += 1
+K_WORLD_33 = enum += 1
+K_WORLD_34 = enum += 1
+K_WORLD_35 = enum += 1
+K_WORLD_36 = enum += 1
+K_WORLD_37 = enum += 1
+K_WORLD_38 = enum += 1
+K_WORLD_39 = enum += 1
+K_WORLD_40 = enum += 1
+K_WORLD_41 = enum += 1
+K_WORLD_42 = enum += 1
+K_WORLD_43 = enum += 1
+K_WORLD_44 = enum += 1
+K_WORLD_45 = enum += 1
+K_WORLD_46 = enum += 1
+K_WORLD_47 = enum += 1
+K_WORLD_48 = enum += 1
+K_WORLD_49 = enum += 1
+K_WORLD_50 = enum += 1
+K_WORLD_51 = enum += 1
+K_WORLD_52 = enum += 1
+K_WORLD_53 = enum += 1
+K_WORLD_54 = enum += 1
+K_WORLD_55 = enum += 1
+K_WORLD_56 = enum += 1
+K_WORLD_57 = enum += 1
+K_WORLD_58 = enum += 1
+K_WORLD_59 = enum += 1
+K_WORLD_60 = enum += 1
+K_WORLD_61 = enum += 1
+K_WORLD_62 = enum += 1
+K_WORLD_63 = enum += 1
+K_WORLD_64 = enum += 1
+K_WORLD_65 = enum += 1
+K_WORLD_66 = enum += 1
+K_WORLD_67 = enum += 1
+K_WORLD_68 = enum += 1
+K_WORLD_69 = enum += 1
+K_WORLD_70 = enum += 1
+K_WORLD_71 = enum += 1
+K_WORLD_72 = enum += 1
+K_WORLD_73 = enum += 1
+K_WORLD_74 = enum += 1
+K_WORLD_75 = enum += 1
+K_WORLD_76 = enum += 1
+K_WORLD_77 = enum += 1
+K_WORLD_78 = enum += 1
+K_WORLD_79 = enum += 1
+K_WORLD_80 = enum += 1
+K_WORLD_81 = enum += 1
+K_WORLD_82 = enum += 1
+K_WORLD_83 = enum += 1
+K_WORLD_84 = enum += 1
+K_WORLD_85 = enum += 1
+K_WORLD_86 = enum += 1
+K_WORLD_87 = enum += 1
+K_WORLD_88 = enum += 1
+K_WORLD_89 = enum += 1
+K_WORLD_90 = enum += 1
+K_WORLD_91 = enum += 1
+K_WORLD_92 = enum += 1
+K_WORLD_93 = enum += 1
+K_WORLD_94 = enum += 1
+K_WORLD_95 = enum += 1
+
+K_KP0 = enum += 1
+K_KP1 = enum += 1
+K_KP2 = enum += 1
+K_KP3 = enum += 1
+K_KP4 = enum += 1
+K_KP5 = enum += 1
+K_KP6 = enum += 1
+K_KP7 = enum += 1
+K_KP8 = enum += 1
+K_KP9 = enum += 1
+K_KP_PERIOD = enum += 1
+K_KP_DIVIDE = enum += 1
+K_KP_MULTIPLY = enum += 1
+K_KP_MINUS = enum += 1
+K_KP_PLUS = enum += 1
+K_KP_ENTER = enum += 1
+K_KP_EQUALS = enum += 1
+
+K_UP = KbUp
+K_DOWN = KbDown
+K_RIGHT = KbRight
+K_LEFT = KbLeft
+K_INSERT = enum += 1
+K_HOME = KbHome
+K_END = KbEnd
+K_PAGEUP = enum += 1
+K_PAGEDOWN = enum += 1
+
+K_F1 = enum += 1
+K_F2 = enum += 1
+K_F3 = enum += 1
+K_F4 = enum += 1
+K_F5 = enum += 1
+K_F6 = enum += 1
+K_F7 = enum += 1
+K_F8 = enum += 1
+K_F9 = enum += 1
+K_F10 = enum += 1
+K_F11 = enum += 1
+K_F12 = enum += 1
+K_F13 = enum += 1
+K_F14 = enum += 1
+K_F15 = enum += 1
+
+K_NUMLOCK = enum += 1
+K_CAPSLOCK = enum += 1
+K_SCROLLOCK = enum += 1
+K_RSHIFT = enum += 1
+K_LSHIFT = enum += 1
+K_RCTRL = enum += 1
+K_LCTRL = enum += 1
+K_RALT = enum += 1
+K_LALT = enum += 1
+K_RMETA = enum += 1
+K_LMETA = enum += 1
+K_LSUPER = enum += 1
+K_RSUPER = enum += 1
+K_MODE = enum += 1
+	
+K_HELP = enum += 1
+K_PRINT = enum += 1
+K_SYSREQ = enum += 1
+K_BREAK = enum += 1
+K_MENU = enum += 1
+K_POWER = enum += 1
+K_EURO = enum += 1
+K_LAST = enum += 1
+
+K_MOD_NONE = enum += 1
+K_MOD_LSHIFT = enum += 1
+K_MOD_RSHIFT = enum += 1
+K_MOD_LCTRL = enum += 1
+K_MOD_RCTRL = enum += 1
+K_MOD_LALT = enum += 1
+K_MOD_RALT = enum += 1
+K_MOD_LMETA = enum += 1
+K_MOD_RMETA = enum += 1
+K_MOD_NUM = enum += 1
+K_MOD_CAPS = enum += 1
+K_MOD_MODE = enum += 1
+K_MOD_RESERVED = enum += 1
+
+K_MOD_CTRL = enum += 1
+K_MOD_SHIFT = enum += 1
+K_MOD_ALT = enum += 1
+K_MOD_META = enum += 1
+
+
+# key/mouse event mappings
+# Hash to translate mouse button sym to string
+MOUSE2STR = {
+  MOUSE_LEFT => "left",
+  MOUSE_MIDDLE => "middle",
+  MOUSE_RIGHT => "right"
+}
+# And to translate the other way...
+STR2MOUSE = MOUSE2STR.invert()
+# And allow numbers too (1 = left, so on)...
+STR2MOUSE[1] = MOUSE_LEFT
+STR2MOUSE[2] = MOUSE_MIDDLE
+STR2MOUSE[3] = MOUSE_RIGHT
+
+# All the keys which have ASCII print values
+# It is 87 lines from here to the closing }, if you want to skip it...
+KEY2ASCII = {
+  K_BACKSPACE => "\b",
+  K_TAB => "\t",
+  K_RETURN => "\n", #SDL docs: "\r". Win vs *nix? What about Mac?
+  K_ESCAPE => "^[",
+  K_SPACE => " ",
+  K_EXCLAIM => "!",
+  K_QUOTEDBL => "\"",
+  K_HASH => "#",
+  K_DOLLAR => "$",
+  K_AMPERSAND => "&",
+  K_QUOTE => "\'",
+  K_LEFTPAREN => "(",
+  K_RIGHTPAREN => ")",
+  K_ASTERISK => "*",
+  K_PLUS => "+",
+  K_COMMA => ",",
+  K_MINUS => "-",
+  K_PERIOD => ".",
+  K_SLASH => "/",
+  K_0 => "0",
+  K_1 => "1",
+  K_2 => "2",
+  K_3 => "3",
+  K_4 => "4",
+  K_5 => "5",
+  K_6 => "6",
+  K_7 => "7",
+  K_8 => "8",
+  K_9 => "9",
+  K_COLON => ":",
+  K_SEMICOLON => ";",
+  K_LESS => "<",
+  K_EQUALS => "=",
+  K_GREATER => ">",
+  K_QUESTION => "?",
+  K_AT => "@",
+  K_LEFTBRACKET => "[",
+  K_BACKSLASH => "\\",
+  K_RIGHTBRACKET => "]",
+  K_CARET => "^",
+  K_UNDERSCORE => "_",
+  K_BACKQUOTE => "`",
+  K_A => "a",
+  K_B => "b",
+  K_C => "c",
+  K_D => "d",
+  K_E => "e",
+  K_F => "f",
+  K_G => "g",
+  K_H => "h",
+  K_I => "i",
+  K_J => "j",
+  K_K => "k",
+  K_L => "l",
+  K_M => "m",
+  K_N => "n",
+  K_O => "o",
+  K_P => "p",
+  K_Q => "q",
+  K_R => "r",
+  K_S => "s",
+  K_T => "t",
+  K_U => "u",
+  K_V => "v",
+  K_W => "w",
+  K_X => "x",
+  K_Y => "y",
+  K_Z => "z",
+  K_KP0 => "0",
+  K_KP1 => "1",
+  K_KP2 => "2",
+  K_KP3 => "3",
+  K_KP4 => "4",
+  K_KP5 => "5",
+  K_KP6 => "6",
+  K_KP7 => "7",
+  K_KP8 => "8",
+  K_KP9 => "9",
+  K_KP_PERIOD => ".",
+  K_KP_DIVIDE => "/",
+  K_KP_MULTIPLY => "*",
+  K_KP_MINUS => "-",
+  K_KP_PLUS => "+",
+  K_KP_ENTER => "\n", #again, SDL docs say "\r"
+  K_KP_EQUALS => "=",
+}
+
+# And to translate the other way...
+ASCII2KEY = KEY2ASCII.invert()
+# accept uppercase letters too, return same as lowercase version:
+("a".."z").each{ |letter| ASCII2KEY[letter.upcase] = ASCII2KEY[letter] }
+
+# All the keys that are affected by the Shift key, in lower case
+# 49 lines from here to the end of the hash
+KEY2LOWER = {
+  K_QUOTE => "\'",
+  K_COMMA => ",",
+  K_MINUS => "-",
+  K_PERIOD => ".",
+  K_SLASH => "/",
+  K_0 => "0",
+  K_1 => "1",
+  K_2 => "2",
+  K_3 => "3",
+  K_4 => "4",
+  K_5 => "5",
+  K_6 => "6",
+  K_7 => "7",
+  K_8 => "8",
+  K_9 => "9",
+  K_SEMICOLON => ";",
+  K_EQUALS => "=",
+  K_LEFTBRACKET => "[",
+  K_BACKSLASH => "\\",
+  K_RIGHTBRACKET => "]",
+  K_BACKQUOTE => "`",
+  K_A => "a",
+  K_B => "b",
+  K_C => "c",
+  K_D => "d",
+  K_E => "e",
+  K_F => "f",
+  K_G => "g",
+  K_H => "h",
+  K_I => "i",
+  K_J => "j",
+  K_K => "k",
+  K_L => "l",
+  K_M => "m",
+  K_N => "n",
+  K_O => "o",
+  K_P => "p",
+  K_Q => "q",
+  K_R => "r",
+  K_S => "s",
+  K_T => "t",
+  K_U => "u",
+  K_V => "v",
+  K_W => "w",
+  K_X => "x",
+  K_Y => "y",
+  K_Z => "z",
+}
+
+# All the keys that are affected by the Shift key, in UPPER case
+# 49 lines from here to the end of the hash
+KEY2UPPER = {
+  K_QUOTE => "\"",
+  K_COMMA => "<",
+  K_MINUS => "_",
+  K_PERIOD => ">",
+  K_SLASH => "?",
+  K_0 => ")",
+  K_1 => "!",
+  K_2 => "@",
+  K_3 => "#",
+  K_4 => "$",
+  K_5 => "%",
+  K_6 => "^",
+  K_7 => "&",
+  K_8 => "*",
+  K_9 => "(",
+  K_SEMICOLON => ":",
+  K_EQUALS => "+",
+  K_LEFTBRACKET => "{",
+  K_BACKSLASH => "|",
+  K_RIGHTBRACKET => "}",
+  K_BACKQUOTE => "~",
+  K_A => "A",
+  K_B => "B",
+  K_C => "C",
+  K_D => "D",
+  K_E => "E",
+  K_F => "F",
+  K_G => "G",
+  K_H => "H",
+  K_I => "I",
+  K_J => "J",
+  K_K => "K",
+  K_L => "L",
+  K_M => "M",
+  K_N => "N",
+  K_O => "O",
+  K_P => "P",
+  K_Q => "Q",
+  K_R => "R",
+  K_S => "S",
+  K_T => "T",
+  K_U => "U",
+  K_V => "V",
+  K_W => "W",
+  K_X => "X",
+  K_Y => "Y",
+  K_Z => "Z",
+}
+
+