RedMoon/game.lua at master · VictorCarlquist/RedMoon · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
local cena 		= Rscene.new()
local render 	= Rrender.new()
local camera 	= Rcamera.new()
local key 		= Rkeyboard.new()

	render:setCamera(camera)
	camera:setLocY(0.01)
	render:initWindow(800,600,1,600,false)

	render:setScene(cena)

function Object (self)
	local cobj = Rwavefront.new(self.name)
	cobj:loadFile(self.model)
	cobj:setLoc(self.loc.x,self.loc.y,self.loc.z)
	if self.scale ~= nil then
		cobj:setScale(self.scale.x,self.scale.y,self.scale.z)
	end
	return cobj
end


local cube2 = Object {
		model = 'import/supermercado.obj',
		loc = {x = 0,y =-3 ,z =1},
		name = 'a',
		force = 12,
		inteligency = 12

	}
cena:addWavefront(cube2)

local cube = Object {
		model = 'import/c.obj',
		loc = {x = 0,y =1 ,z =1},
		name = 'b'
	}
	cena:addWavefront(cube)

local cube3 = Object {
		model = 'import/c.obj',
		loc = {x = 0,y =-10 ,z =1},
		name = 'b',
		scale = {x=20, y=0.1,z=20}
	}
	cena:addWavefront(cube3)

local lamp = RlightLamp.new('light1')
	cena:addLightLamp(lamp)


--#############--##############--
local ctheta,cphi = 0,0
function move_camera(theta,phi) --
	local x,y,z

	x = math.sin(ctheta+theta)*math.cos(cphi+phi)+camera:getLocX()
	z = math.cos(ctheta+theta)*math.cos(cphi+phi)+camera:getLocZ()
	y = math.sin(cphi+phi)+camera:getLocY()
	camera:setLocT(x,y,z)

	ctheta = ctheta + theta
	cphi = cphi + phi
end

local ltheta = 0
function move_light(theta) --
	local x,z,y
	y = 20

	x = math.sin(ltheta+theta)*12
	z = math.cos(ltheta+theta)*12

	lamp:setLocX(x)
	lamp:setLocZ(z)
	lamp:setLocY(y)

	cube:setLocX(x)
	cube:setLocZ(z)
	cube:setLocY(y-5)
	--camera:setLoc(x,y,z)

	ltheta = ltheta + theta

end

move_light(0.01)
local run = true
	while  run do
		local time = os.clock();
		if(key:isKeyPressed(Rkeys.K_q)) then
			run = false
		end
		if key:isKeyPressed(Rkeys.K_w) then
			camera:setLocZ(camera:getLocZ()+math.cos(ctheta)*0.1)
			camera:setLocX(camera:getLocX()+math.sin(ctheta)*0.1)

			move_camera(0,0) -- update camera position
		end
		if key:isKeyPressed(Rkeys.K_s) then

			camera:setLocZ(camera:getLocZ()-math.cos(ctheta)*0.1)
			camera:setLocX(camera:getLocX()-math.sin(ctheta)*0.1)
			move_camera(0,0) -- update camera position
		end
		if key:isKeyPressed(Rkeys.K_a) then
		   	--camera:setRotY(camera:getRotY()+1)
		   	move_camera(0.04,0)
		end
		if key:isKeyPressed(Rkeys.K_d) then
			--camera:setRotY(camera:getRotY()-1)
			move_camera(-0.04,0)
		end
	    render:render()
	   	move_light(0.01)
	   -- print(60/(os.clock()-time)/100)

	    -- run = false

	end