Revision of square.lua

capitalex revised this gist 5 months ago. Go to revision

1 file changed, 141 insertions

square.lua(file created)

		@@ -0,0 +1,141 @@
1	+	require "prelude"
2	+	local function _zt()
3	+	local y, x = POP(''), POP('')
4	+	PUSH('', x * y)
5	+	end
6	+	local function _zp()
7	+	local y, x = POP(''), POP('')
8	+	PUSH('', x + y)
9	+	end
10	+	local function _sqrt()
11	+	local x = POP('')
12	+	PUSH('', math.sqrt(x))
13	+	end
14	+	local function _print()
15	+	print(POP(''))
16	+	end
17	+	local function _pprint()
18	+	require "pprint" (POP(''))
19	+	end
20	+	local function _drop()
21	+	POP('')
22	+	end
23	+	local function _dup()
24	+	PUSH("x", POP(''))
25	+	PUSH('', PEEK("x"))
26	+	PUSH('', POP("x"))
27	+	end
28	+	local function _enter()
29	+	_dup()
30	+	PUSH('', PEEK("lobby"))
31	+	do
32	+	local value, object = POP(''), POP('')
33	+	PUSHTO(object, "lobby", value)
34	+	end
35	+	_dup()
36	+	_me()
37	+	do
38	+	local value, object = POP(''), POP('')
39	+	PUSHTO(object, "parent", value)
40	+	end
41	+	_become()
42	+	end
43	+	local function _leave()
44	+	POP("lobby")
45	+	PUSH('', PEEK("parent"))
46	+	_me()
47	+	do
48	+	local value, object = POP(''), POP('')
49	+	PUSHTO(object, "child", value)
50	+	end
51	+	PUSH('', POP("parent"))
52	+	_become()
53	+	PUSH('', POP("child"))
54	+	end
55	+	local function _rectangle()
56	+	love.graphics.rectangle(POP('fill-mode'), POP('x'), POP('y'), POP('w'), POP('h'))
57	+	end
58	+	local function _ZCrectangle()
59	+	PUSH('', PEEK("position"))
60	+	_enter()
61	+	PUSH('', PEEK("parent"))
62	+	PUSH('', PEEK("x"))
63	+	do
64	+	local value, object = POP(''), POP('')
65	+	PUSHTO(object, "x", value)
66	+	end
67	+	PUSH('', PEEK("parent"))
68	+	PUSH('', PEEK("y"))
69	+	do
70	+	local value, object = POP(''), POP('')
71	+	PUSHTO(object, "y", value)
72	+	end
73	+	_leave()
74	+	_drop()
75	+	PUSH('', PEEK("size"))
76	+	_enter()
77	+	PUSH('', PEEK("parent"))
78	+	PUSH('', PEEK("x"))
79	+	do
80	+	local value, object = POP(''), POP('')
81	+	PUSHTO(object, "w", value)
82	+	end
83	+	PUSH('', PEEK("parent"))
84	+	PUSH('', PEEK("x"))
85	+	do
86	+	local value, object = POP(''), POP('')
87	+	PUSHTO(object, "h", value)
88	+	end
89	+	_leave()
90	+	_drop()
91	+	_rectangle()
92	+	end
93	+	local function _draw()
94	+	PUSH('', PEEK("player"))
95	+	_enter()
96	+	PUSH('', "fill")
97	+	PUSH("fill-mode", POP(''))
98	+	_ZCrectangle()
99	+	_leave()
100	+	_drop()
101	+	end
102	+	local function _newzmpoint()
103	+	_object()
104	+	_enter()
105	+	PUSH('', PEEK("parent"))
106	+	PUSH('', POPFROM(POP(''), "x"))
107	+	PUSH("x", POP(''))
108	+	PUSH('', PEEK("parent"))
109	+	PUSH('', POPFROM(POP(''), "y"))
110	+	PUSH("y", POP(''))
111	+	_leave()
112	+	end
113	+	_object()
114	+	_enter()
115	+	PUSH('', 100)
116	+	PUSH("x", POP(''))
117	+	PUSH('', 100)
118	+	PUSH("y", POP(''))
119	+	_newzmpoint()
120	+	PUSH("position", POP(''))
121	+	PUSH('', 25)
122	+	PUSH("x", POP(''))
123	+	PUSH('', 25)
124	+	PUSH("y", POP(''))
125	+	_newzmpoint()
126	+	PUSH("size", POP(''))
127	+	_object()
128	+	_enter()
129	+	PUSH('', 1)
130	+	PUSH("r", POP(''))
131	+	PUSH('', 1)
132	+	PUSH("g", POP(''))
133	+	PUSH('', 0)
134	+	PUSH("b", POP(''))
135	+	_leave()
136	+	PUSH("color", POP(''))
137	+	_leave()
138	+	PUSH("player", POP(''))
139	+	function love.draw()
140	+	_draw()
141	+	end

Newer Older