From 206518b33789a53e8372355196f1f7c3d033abdf Mon Sep 17 00:00:00 2001
From: Josh Holtrop <jholtrop+hg@gmail.com>
Date: Thu, 18 Nov 2010 10:17:17 -0500
Subject: [PATCH] click to spawn sphere on pick point

---
 anaglymtd.lua | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/anaglymtd.lua b/anaglymtd.lua
index 37d2ca9..7299e8d 100644
--- a/anaglymtd.lua
+++ b/anaglymtd.lua
@@ -1,7 +1,7 @@
 
 ag.import("std")
 
-td = {mx = 0, my = 0, picking = false}
+td = {mx = 0, my = 0, picking = false, pick_x = 0, pick_y = 0}
 
 function init_event()
     ground = std.createPlanePointNormal(0, 0, 0, 0, 0, 1)
@@ -40,6 +40,8 @@ function update_event()
         td.picking = (x_coord >= 0 and x_coord <= 15 and y_coord >= 0 and y_coord <= 15)
         if (td.picking) then
             grid_selector:setPosition(x_coord - 7.5, y_coord - 7.5, 0)
+            td.pick_x = x_coord
+            td.pick_y = y_coord
         end
     end
     grid_selector:setVisible(td.picking)
@@ -49,3 +51,13 @@ function mouse_motion_event(x, y)
     td.mx = x
     td.my = y
 end
+
+function mousebutton_down_event(button, x, y)
+    if (button == 1) then
+        if td.picking then
+            local s = ag.createSphere(0.48)
+            s:setColor(math.random(), math.random(), math.random())
+            s:setPosition(td.pick_x - 7.5, td.pick_y - 7.5, 0.6)
+        end
+    end
+end