commit
7bb790ad18
@ -0,0 +1,104 @@ |
|||||||
|
--help functions & output |
||||||
|
function print_listing(lst) |
||||||
|
for ins in all(lst) do |
||||||
|
print(join(ins, " ")) |
||||||
|
end |
||||||
|
end |
||||||
|
|
||||||
|
function print_memory(mems) |
||||||
|
for label, listing in pairs(mems) do |
||||||
|
print("::"..label.."::") |
||||||
|
print_listing(listing) |
||||||
|
end |
||||||
|
end |
||||||
|
|
||||||
|
function export_memory(mems) |
||||||
|
out = "m = {}" |
||||||
|
for label, listing in pairs(mems) do |
||||||
|
out = out.."\n\nm[\""..label.."\"] = {\n" |
||||||
|
for l in all(listing) do |
||||||
|
out = out.."{" |
||||||
|
if l[1] == "jump" then |
||||||
|
out = out.."\""..l[1].."\", \""..l[2].."\"" |
||||||
|
else |
||||||
|
out = out.."\""..l[1].."\"" |
||||||
|
if (#l > 1) out = out..", "..l[2] |
||||||
|
if (#l > 2) out = out..", "..l[3] |
||||||
|
end |
||||||
|
out = out.."},\n" |
||||||
|
end |
||||||
|
out = out.."}" |
||||||
|
end |
||||||
|
|
||||||
|
return out |
||||||
|
end |
||||||
|
|
||||||
|
function join(strings, delimiter) |
||||||
|
out = "" |
||||||
|
first = true |
||||||
|
for s in all(strings) do |
||||||
|
if (not first) out = out..delimiter |
||||||
|
first = false |
||||||
|
out = out..tostr(s) |
||||||
|
end |
||||||
|
|
||||||
|
return out |
||||||
|
end |
||||||
|
|
||||||
|
function list_table(strings) |
||||||
|
if type(strings) == "string" then |
||||||
|
return "\""..strings.."\"" |
||||||
|
elseif type(strings) ~= "table" then |
||||||
|
return tostr(strings) |
||||||
|
end |
||||||
|
|
||||||
|
out = "{" |
||||||
|
first = true |
||||||
|
for k,v in pairs(strings) do |
||||||
|
if (not first) out = out..", " |
||||||
|
first = false |
||||||
|
out = out..tostr(k).."="..list_table(v) |
||||||
|
end |
||||||
|
|
||||||
|
out = out.."}" |
||||||
|
|
||||||
|
return out |
||||||
|
end |
||||||
|
|
||||||
|
function deep_eq(this, other) |
||||||
|
if (tostr(this) ~= tostr(other)) return false |
||||||
|
if tostr(this) == "[table]" then |
||||||
|
if (#this ~= #other) return false |
||||||
|
|
||||||
|
for i, v in pairs(this) do |
||||||
|
if (not deep_eq(v, other[i])) return false |
||||||
|
end |
||||||
|
end |
||||||
|
return true |
||||||
|
end |
||||||
|
|
||||||
|
function deep_copy(target) |
||||||
|
if (type(target) ~= "table") return target |
||||||
|
|
||||||
|
local t = {} |
||||||
|
for k, v in pairs(target) do |
||||||
|
t[k] = deep_copy(v) |
||||||
|
end |
||||||
|
return t |
||||||
|
end |
||||||
|
|
||||||
|
function get_banks(memory) |
||||||
|
local output = {} |
||||||
|
local main_idx = 1 |
||||||
|
for bank, listing in pairs(memory) do |
||||||
|
add(output,bank) |
||||||
|
if bank=="main" then |
||||||
|
main_idx = #output |
||||||
|
end |
||||||
|
end |
||||||
|
|
||||||
|
output[main_idx] = output[1] |
||||||
|
output[1] = "main" |
||||||
|
|
||||||
|
return output |
||||||
|
end |
@ -0,0 +1,201 @@ |
|||||||
|
--listing pane |
||||||
|
|
||||||
|
//room for 14 lines in the listing |
||||||
|
|
||||||
|
selected_address = {"main", 1} |
||||||
|
|
||||||
|
function l_pane_update() |
||||||
|
if current_pane == 1 then |
||||||
|
if last_edit_pane == 3 then |
||||||
|
handle = holding |
||||||
|
if (handle==nil) handle=under |
||||||
|
addr = get_address_from_handle(handle) |
||||||
|
if (addr ~= nil) selected_address=addr |
||||||
|
end |
||||||
|
last_edit_pane = 1 |
||||||
|
|
||||||
|
if btn(4) then |
||||||
|
dx = 0 |
||||||
|
dy = 0 |
||||||
|
|
||||||
|
if (btn(0) and tx > 0) dx -= 1 |
||||||
|
if (btn(1) and tx < 127) dx += 1 |
||||||
|
if (btn(2) and ty > 0) dy -= 1 |
||||||
|
if (btn(3) and ty < 127) dy += 1 |
||||||
|
|
||||||
|
local h = nil |
||||||
|
for handle in all(record_list) do |
||||||
|
if deep_eq(handle.address, selected_address) then |
||||||
|
h = handle |
||||||
|
end |
||||||
|
end |
||||||
|
if h ~= nil then |
||||||
|
perform_edit(m, h, dx, dy, false) |
||||||
|
end |
||||||
|
else |
||||||
|
if btnp(2) then |
||||||
|
selected_address[2] -= 1 |
||||||
|
if selected_address[2] < 1 then |
||||||
|
selected_address[1] = get_previous_bank(selected_address[1]) |
||||||
|
selected_address[2] = #m[selected_address[1]] |
||||||
|
end |
||||||
|
end |
||||||
|
if btnp(3) then |
||||||
|
selected_address[2] += 1 |
||||||
|
if selected_address[2] > #m[selected_address[1]] then |
||||||
|
selected_address[1] = get_next_bank(selected_address[1]) |
||||||
|
selected_address[2] = 1 |
||||||
|
end |
||||||
|
end |
||||||
|
end |
||||||
|
end |
||||||
|
end |
||||||
|
|
||||||
|
// this should get run when we |
||||||
|
// switch from the render pane |
||||||
|
// to the listing pane, to get |
||||||
|
// a selection in the listing |
||||||
|
// pane |
||||||
|
function get_address_from_handle(handle) |
||||||
|
if handle ~= nil then |
||||||
|
return deep_copy(handle.address) |
||||||
|
else |
||||||
|
return nil |
||||||
|
end |
||||||
|
end |
||||||
|
|
||||||
|
function get_previous_bank(bank) |
||||||
|
local i = #banks |
||||||
|
for b in all(banks) do |
||||||
|
if b == bank then |
||||||
|
break |
||||||
|
end |
||||||
|
i += 1 |
||||||
|
if i > #banks then |
||||||
|
i = 1 |
||||||
|
end |
||||||
|
end |
||||||
|
return banks[i] |
||||||
|
end |
||||||
|
|
||||||
|
function get_next_bank(bank) |
||||||
|
local i = 1 |
||||||
|
for b in all(banks) do |
||||||
|
i += 1 |
||||||
|
if i > #banks then |
||||||
|
i = 1 |
||||||
|
end |
||||||
|
if b == bank then |
||||||
|
break |
||||||
|
end |
||||||
|
end |
||||||
|
return banks[i] |
||||||
|
end |
||||||
|
|
||||||
|
disp_start = 1 |
||||||
|
window_size = 14 |
||||||
|
margin = 2 |
||||||
|
function l_pane_draw() |
||||||
|
the_listing = make_listing() |
||||||
|
|
||||||
|
s_index = nil |
||||||
|
|
||||||
|
for idx, listing in pairs(the_listing) do |
||||||
|
if deep_eq(listing[3], selected_address) then |
||||||
|
s_index = idx |
||||||
|
end |
||||||
|
end |
||||||
|
|
||||||
|
// if the selected line is |
||||||
|
// outside the bounds, then |
||||||
|
// move the bounds. |
||||||
|
|
||||||
|
// if the selected line is |
||||||
|
// less than start+margin |
||||||
|
// then we need to move start |
||||||
|
// up (decrease it) |
||||||
|
while s_index < disp_start + margin do |
||||||
|
disp_start = disp_start - 1 |
||||||
|
end |
||||||
|
|
||||||
|
// if it's greater than |
||||||
|
// start+window_size - margin |
||||||
|
// then we need to move start |
||||||
|
// down (increase it) |
||||||
|
while s_index >= disp_start + window_size - margin do |
||||||
|
disp_start = disp_start + 1 |
||||||
|
end |
||||||
|
|
||||||
|
// if start + window_size is |
||||||
|
// greater than the number of |
||||||
|
// lines in the listing, then |
||||||
|
// move back up (decrease) |
||||||
|
if disp_start + window_size > #the_listing then |
||||||
|
disp_start = #the_listing - window_size + 1 |
||||||
|
end |
||||||
|
|
||||||
|
// if start is less than 1 |
||||||
|
// then start should be 1 |
||||||
|
if (disp_start < 1) disp_start = 1 |
||||||
|
|
||||||
|
for i, v in pairs(the_listing) do |
||||||
|
if i>=disp_start and i < disp_start + window_size then |
||||||
|
print(v[1], 0, 17+7*(i - disp_start), v[2]) |
||||||
|
end |
||||||
|
end |
||||||
|
end |
||||||
|
|
||||||
|
function make_listing() |
||||||
|
local output = {} |
||||||
|
for bank in all(banks) do |
||||||
|
contents = m[bank] |
||||||
|
|
||||||
|
str = ":"..bank..":" |
||||||
|
col = 13 |
||||||
|
addr = nil |
||||||
|
|
||||||
|
add(output, {str, col, addr}) |
||||||
|
|
||||||
|
for j,op in pairs(contents) do |
||||||
|
str = op_pretty_print(op) |
||||||
|
col = get_line_color(bank, j) |
||||||
|
addr = {bank, j} |
||||||
|
|
||||||
|
add(output, {str, col, addr}) |
||||||
|
end |
||||||
|
end |
||||||
|
|
||||||
|
return output |
||||||
|
end |
||||||
|
function get_line_color(bank, idx) |
||||||
|
if bank==selected_address[1] |
||||||
|
and idx==selected_address[2] then |
||||||
|
return 6 |
||||||
|
end |
||||||
|
return 13 |
||||||
|
end |
||||||
|
|
||||||
|
function op_pretty_print(op) |
||||||
|
opc = "n" |
||||||
|
|
||||||
|
if (op[1]=="return") opc="return" |
||||||
|
if (op[1]=="jump") opc="j" |
||||||
|
if (op[1]=="scale") opc="s" |
||||||
|
if (op[1]=="rotate") opc="rot " |
||||||
|
if (op[1]=="move") opc="m" |
||||||
|
if (op[1]=="place") opc="p" |
||||||
|
if (op[1]=="draw") opc="d" |
||||||
|
if (op[1]=="draw_abs") opc="a" |
||||||
|
if (op[1]=="color") opc="c" |
||||||
|
|
||||||
|
if #op == 2 then |
||||||
|
opc = opc..op[2] |
||||||
|
elseif #op == 3 then |
||||||
|
arg1 = sub(tostr(op[2]), 1, 3) |
||||||
|
arg2 = sub(tostr(op[3]), 1, 3) |
||||||
|
opc = opc..arg1..","..arg2 |
||||||
|
end |
||||||
|
|
||||||
|
return opc |
||||||
|
end |
||||||
|
|
@ -0,0 +1,121 @@ |
|||||||
|
--remder pane |
||||||
|
|
||||||
|
holding = nil |
||||||
|
under = nil |
||||||
|
|
||||||
|
tx = 64 |
||||||
|
ty = 64 |
||||||
|
|
||||||
|
function r_pane_update() |
||||||
|
|
||||||
|
if current_pane == 3 then |
||||||
|
if last_edit_pane == 1 then |
||||||
|
under = get_handle_from_address(selected_address) |
||||||
|
if under ~= nil then |
||||||
|
tx = under.handle.position[1] |
||||||
|
ty = under.handle.position[2] |
||||||
|
end |
||||||
|
end |
||||||
|
last_edit_pane = 3 |
||||||
|
|
||||||
|
dx = 0 |
||||||
|
dy = 0 |
||||||
|
|
||||||
|
if (btn(0) and tx > 0) dx -= 1 |
||||||
|
if (btn(1) and tx < 127) dx += 1 |
||||||
|
if (btn(2) and ty > 0) dy -= 1 |
||||||
|
if (btn(3) and ty < 127) dy += 1 |
||||||
|
|
||||||
|
tx += dx |
||||||
|
ty += dy |
||||||
|
|
||||||
|
under = find_handle(record_list, tx, ty) |
||||||
|
|
||||||
|
if holding ~= nil then |
||||||
|
perform_edit(m, holding, dx, dy, true) |
||||||
|
end |
||||||
|
|
||||||
|
if not btn(4) then |
||||||
|
holding = nil |
||||||
|
elseif holding == nil then |
||||||
|
holding = under |
||||||
|
end |
||||||
|
|
||||||
|
end |
||||||
|
end |
||||||
|
|
||||||
|
// this should get run when we |
||||||
|
// switch from the listing pane |
||||||
|
// to the render pane, to get |
||||||
|
// a handle to be targeting in |
||||||
|
// the render pane. |
||||||
|
function get_handle_from_address(address) |
||||||
|
if holding ~= nil and deep_eq(holding.address, address) then |
||||||
|
return holding |
||||||
|
elseif under ~=nil and deep_eq(under.address, address) then |
||||||
|
return under |
||||||
|
end |
||||||
|
|
||||||
|
for handle in all(record_list) do |
||||||
|
if deep_eq(handle.address, address) then |
||||||
|
return handle |
||||||
|
end |
||||||
|
end |
||||||
|
|
||||||
|
return nil |
||||||
|
end |
||||||
|
|
||||||
|
function find_handle(record_list, x, y) |
||||||
|
close_one = nil |
||||||
|
dist = 8 |
||||||
|
for h in all(record_list) do |
||||||
|
if h.handle ~= nil then |
||||||
|
nx = h.handle.position[1] |
||||||
|
ny = h.handle.position[2] |
||||||
|
|
||||||
|
nd = abs(nx-x) + abs(ny-y) |
||||||
|
if nd < dist then |
||||||
|
close_one = h |
||||||
|
dist = nd |
||||||
|
end |
||||||
|
end |
||||||
|
end |
||||||
|
return close_one |
||||||
|
end |
||||||
|
|
||||||
|
|
||||||
|
-- rendering |
||||||
|
function r_pane_draw() |
||||||
|
record_list = {} |
||||||
|
|
||||||
|
-- draw the path |
||||||
|
vectorate(m, {pre=nil, post=add_to_record_list}) |
||||||
|
|
||||||
|
-- draw the path handles |
||||||
|
if show_path_handles then |
||||||
|
for rec in all(record_list) do |
||||||
|
h = rec.handle |
||||||
|
|
||||||
|
if rec.operation[1] == "rotate" then |
||||||
|
line(rec.state.position[1], |
||||||
|
rec.state.position[2], |
||||||
|
h.position[1], h.position[2], 13) |
||||||
|
elseif rec.operation[1] == "scale" then |
||||||
|
line(rec.state.position[1], |
||||||
|
rec.state.position[2], |
||||||
|
h.position[1], h.position[2], 13) |
||||||
|
end |
||||||
|
spr(h.sprite, h.position[1]-3, h.position[2]-3) |
||||||
|
end |
||||||
|
end |
||||||
|
|
||||||
|
if last_edit_pane == 3 then |
||||||
|
spr(0, tx-4, ty-4) |
||||||
|
else |
||||||
|
for r in all(record_list) do |
||||||
|
if deep_eq(r.address, selected_address) then |
||||||
|
spr(0, r.handle.position[1]-4, r.handle.position[2]-4) |
||||||
|
end |
||||||
|
end |
||||||
|
end |
||||||
|
end |
@ -0,0 +1,177 @@ |
|||||||
|
--update logic |
||||||
|
|
||||||
|
function _init() |
||||||
|
show_path_handles = true |
||||||
|
use_linked_editing = false |
||||||
|
|
||||||
|
record_list = {} |
||||||
|
|
||||||
|
last_edit_pane = 3 |
||||||
|
current_pane = 3 |
||||||
|
|
||||||
|
banks = get_banks(m) |
||||||
|
end |
||||||
|
|
||||||
|
function _update() |
||||||
|
if btn(5) then |
||||||
|
if (btnp(0)) current_pane -= 1 |
||||||
|
if (btnp(1)) current_pane += 1 |
||||||
|
if (current_pane > 3) current_pane = 3 |
||||||
|
if (current_pane < 1) current_pane = 1 |
||||||
|
|
||||||
|
if btnp(2) then |
||||||
|
if holding ~= nil then |
||||||
|
add_node(m, holding) |
||||||
|
elseif under ~= nil and current_pane == 3 then |
||||||
|
add_node(m, under) |
||||||
|
end |
||||||
|
end |
||||||
|
|
||||||
|
if btnp(3) then |
||||||
|
if holding ~= nil then |
||||||
|
remove_node(m, holding, not use_linked_editing) |
||||||
|
elseif under ~= nil and current_pane == 3 then |
||||||
|
remove_node(m, under, not use_linked_editing) |
||||||
|
end |
||||||
|
end |
||||||
|
else |
||||||
|
r_pane_update() |
||||||
|
end |
||||||
|
l_pane_update() |
||||||
|
toolkit_update() |
||||||
|
end |
||||||
|
|
||||||
|
--a function to make execution |
||||||
|
--records |
||||||
|
function add_to_record_list(state, operation) |
||||||
|
local record = {} |
||||||
|
if (#state.stack == 0) return |
||||||
|
|
||||||
|
record.step = #record_list + 1 |
||||||
|
|
||||||
|
record.address = {} |
||||||
|
record.address[1] = state.stack[#state.stack][1] |
||||||
|
record.address[2] = state.stack[#state.stack][2]-1 |
||||||
|
record.operation = operation |
||||||
|
|
||||||
|
record.state = deep_copy(state) |
||||||
|
|
||||||
|
record.handle = handle_from_operation(operation, state) |
||||||
|
|
||||||
|
add(record_list, record) |
||||||
|
end |
||||||
|
|
||||||
|
function handle_from_operation(operation, state) |
||||||
|
local handle = {} |
||||||
|
handle.position = {} |
||||||
|
handle.position[1] = state.position[1] |
||||||
|
handle.position[2] = state.position[2] |
||||||
|
handle.sprite = 1 |
||||||
|
|
||||||
|
if operation[1] == "scale" then |
||||||
|
handle.position[1] -= 8 |
||||||
|
handle.position[2] -= 8 |
||||||
|
|
||||||
|
handle.sprite = 19 |
||||||
|
elseif operation[1] == "rotate" then |
||||||
|
dx = 10*cos(state.rotation) |
||||||
|
dy = 10*sin(state.rotation) |
||||||
|
handle.position[1] += dx |
||||||
|
handle.position[2] += dy |
||||||
|
|
||||||
|
handle.sprite = 3 |
||||||
|
elseif operation[1] == "place" then |
||||||
|
handle.sprite = 2 |
||||||
|
end |
||||||
|
|
||||||
|
return handle |
||||||
|
end |
||||||
|
|
||||||
|
function perform_edit(m, record, dx, dy, transformed) |
||||||
|
edit(m, record, dx, dy, transformed) |
||||||
|
if not use_linked_editing then |
||||||
|
next_step = record_list[record.step+1] |
||||||
|
cur_op = record.operation[1] |
||||||
|
next_op = next_step.operation[1] |
||||||
|
if ((next_op == "draw" or next_op == "move") |
||||||
|
and (cur_op == "draw" or cur_op == "move")) then |
||||||
|
edit(m, next_step, -dx, -dy, transformed) |
||||||
|
end |
||||||
|
end |
||||||
|
end |
||||||
|
|
||||||
|
|
||||||
|
function edit(mem, record, cursor_x, cursor_y, transformed) |
||||||
|
state = record.state |
||||||
|
bank = record.address[1] |
||||||
|
line_no = record.address[2] |
||||||
|
|
||||||
|
-- very important to transform |
||||||
|
-- *back* into the space of the |
||||||
|
-- instruction coordinates |
||||||
|
dx = (1.0/state.scale) * ( |
||||||
|
cursor_x*cos(-state.rotation) |
||||||
|
- cursor_y*sin(-state.rotation)) |
||||||
|
dy = (1.0/state.scale) * ( |
||||||
|
cursor_x*sin(-state.rotation) |
||||||
|
+ cursor_y*cos(-state.rotation)) |
||||||
|
|
||||||
|
-- we need to allow for this. |
||||||
|
if not transformed then |
||||||
|
dx = cursor_x |
||||||
|
dy = cursor_y |
||||||
|
end |
||||||
|
|
||||||
|
if (record.operation[1] == "jump") return |
||||||
|
if (record.operation[1] == "rotate") then |
||||||
|
mem[bank][line_no][2] += 0.01*cursor_y |
||||||
|
end |
||||||
|
if (record.operation[1] == "scale") then |
||||||
|
mem[bank][line_no][2] += 0.02*cursor_y |
||||||
|
end |
||||||
|
if (record.operation[1] == "return") return |
||||||
|
if (record.operation[1] == "draw" |
||||||
|
or record.operation[1] == "move" |
||||||
|
or record.operation[1] == "place" |
||||||
|
or record.operation[1] == "draw_abs") then |
||||||
|
mem[bank][line_no][2] += dx |
||||||
|
mem[bank][line_no][3] += dy |
||||||
|
end |
||||||
|
end |
||||||
|
|
||||||
|
function add_node(m, record) |
||||||
|
address = record.address |
||||||
|
|
||||||
|
cur_op = record.operation |
||||||
|
|
||||||
|
next_op = m[address[1]][address[2]+1] |
||||||
|
|
||||||
|
if next_op[1] == "draw" then |
||||||
|
new_op = {"draw", next_op[2]/2, next_op[3]/2} |
||||||
|
next_op[2] = next_op[2]/2 |
||||||
|
next_op[3] = next_op[3]/2 |
||||||
|
add(m[address[1]], new_op, address[2]+1) |
||||||
|
elseif next_op[1] == "return" or |
||||||
|
next_op[1] == "jump" or |
||||||
|
next_op[1] == "scale" or |
||||||
|
next_op[1] == "rotate" then |
||||||
|
new_op = {"draw", cur_op[2]/2, cur_op[3]/2} |
||||||
|
add(m[address[1]], new_op, address[2]+1) |
||||||
|
end |
||||||
|
end |
||||||
|
|
||||||
|
function remove_node(m, record, linked_editing) |
||||||
|
address = record.address |
||||||
|
cur_op = record.operation |
||||||
|
next_op = m[address[1]][address[2]+1] |
||||||
|
|
||||||
|
if next_op[1] == "draw" or |
||||||
|
next_op[1] == "move" then |
||||||
|
if linked_editing then |
||||||
|
next_op[2] += cur_op[2] |
||||||
|
next_op[3] += cur_op[3] |
||||||
|
end |
||||||
|
end |
||||||
|
|
||||||
|
deli(m[address[1]], address[2]) |
||||||
|
end |
@ -0,0 +1,102 @@ |
|||||||
|
--vectorator |
||||||
|
printh("\n\n\n\n\n\n\n\n\n") |
||||||
|
|
||||||
|
instructions = { |
||||||
|
"return", |
||||||
|
"jump", |
||||||
|
"scale", |
||||||
|
"rotate", |
||||||
|
"draw", |
||||||
|
"draw_abs", |
||||||
|
"move", |
||||||
|
"place" |
||||||
|
} |
||||||
|
|
||||||
|
function empty_state() |
||||||
|
return { |
||||||
|
stack={{"main", 1}}, |
||||||
|
scale=1, |
||||||
|
position={0,0}, |
||||||
|
rotation=0 |
||||||
|
} |
||||||
|
end |
||||||
|
|
||||||
|
state = nil |
||||||
|
|
||||||
|
function vectorate(mem, callbacks) |
||||||
|
state = empty_state() |
||||||
|
|
||||||
|
while true do |
||||||
|
height = #state.stack |
||||||
|
bank = state.stack[height][1] |
||||||
|
index = state.stack[height][2] |
||||||
|
|
||||||
|
state.stack[height][2] += 1 |
||||||
|
|
||||||
|
instruction = mem[bank][index] |
||||||
|
perform(state, instruction, callbacks) |
||||||
|
|
||||||
|
//printh(list_table(state)) |
||||||
|
if (#state.stack == 0) break |
||||||
|
end |
||||||
|
end |
||||||
|
|
||||||
|
function perform(s, op, cb) |
||||||
|
if cb == nil then |
||||||
|
cb = {pre=nil, post=nil} |
||||||
|
end |
||||||
|
|
||||||
|
if cb.pre ~= nil then |
||||||
|
cb.pre(s, op) |
||||||
|
end |
||||||
|
|
||||||
|
if op[1] == "return" then |
||||||
|
s.stack[#s.stack] = nil |
||||||
|
elseif op[1] == "jump" then |
||||||
|
if m[op[2]] ~= nil then |
||||||
|
add(s.stack, {op[2], 1}) |
||||||
|
end |
||||||
|
elseif op[1] == "scale" then |
||||||
|
s.scale = s.scale * op[2] |
||||||
|
elseif op[1] == "rotate" then |
||||||
|
s.rotation += op[2] |
||||||
|
else |
||||||
|
x = s.scale * ( |
||||||
|
op[2]*cos(s.rotation) |
||||||
|
- op[3]*sin(s.rotation)) |
||||||
|
y = s.scale * ( |
||||||
|
op[2]*sin(s.rotation) |
||||||
|
+ op[3]*cos(s.rotation)) |
||||||
|
|
||||||
|
if op[1] == "move" then |
||||||
|
s.position[1] = s.position[1] + x |
||||||
|
s.position[2] = s.position[2] + y |
||||||
|
end |
||||||
|
|
||||||
|
if op[1] == "place" then |
||||||
|
s.position[1] = x |
||||||
|
s.position[2] = y |
||||||
|
end |
||||||
|
|
||||||
|
if op[1] == "draw" then |
||||||
|
line(s.position[1], s.position[2], |
||||||
|
s.position[1]+x, s.position[2]+y, |
||||||
|
10) |
||||||
|
s.position[1] += x |
||||||
|
s.position[2] += y |
||||||
|
end |
||||||
|
|
||||||
|
if op[1] == "draw_abs" then |
||||||
|
line(s.position[1], |
||||||
|
s.position[2], |
||||||
|
x, y, |
||||||
|
10) |
||||||
|
s.position[1] = x |
||||||
|
s.position[2] = y |
||||||
|
end |
||||||
|
end |
||||||
|
|
||||||
|
if cb.post ~= nil then |
||||||
|
cb.post(s, op) |
||||||
|
end |
||||||
|
end |
@ -0,0 +1,174 @@ |
|||||||
|
pico-8 cartridge // http://www.pico-8.com |
||||||
|
version 41 |
||||||
|
__lua__ |
||||||
|
#include help_functions.lua |
||||||
|
#include vector_engine.lua |
||||||
|
#include vram.lua |
||||||
|
#include update_logic.lua |
||||||
|
#include draw_logic.lua |
||||||
|
#include listing_pane.lua |
||||||
|
#include center_pane.lua |
||||||
|
#include render_pane.lua |
||||||
|
__gfx__ |
||||||
|
00000000000000000000000000000000111111111111111111111111111111111111111111111111111111111111111100000000000000000000000000000000 |
||||||
|
07700770000000000000000000000c00111111111111111111111111111111111111199999999991111111188111111100000000000000000000000000000000 |
||||||
|
0780087000099000000660000ccc0c00111111188111111111111111111111111111191111111191111111888811111100000000000000000000000000000000 |
||||||
|
00000000009009000060060000077c00111111811811111111111118111111111111111118881191111111111111111100000000000000000000000000000000 |
||||||
|
00000000009009000060060000c77000111118111181111111118118111111a1111199111818119111119911bb11111100000000000000000000000000000000 |
||||||
|
07800870000990000006600000c0ccc01111888118881111111118111111aa1111191a918888819111191191b111111100000000000000000000000000000000 |
||||||
|
07700770000000000000000000c0000011111181181111111111111991aa11111119a191888881911119119111b1111100000000000000000000000000000000 |
||||||
|
00000000000000000000000000000000199991811819999111188191a91111111111991a88888191111199111111b11100000000000000000000000000000000 |
||||||
|
0000000000000000000000000000000019111181181111911111119a19188111111a1111a1111191116611cc1c1bb11100000000000000000000000000000000 |
||||||
|
0000000000000000000000000bbb000019111181181111911111111991111111111a111119911191161161177c11111100000000000000000000000000000000 |
||||||
|
0000000000000000000000000bb000001911118118111191111111a11181111111a1111191a91991161161c77111111100000000000000000000000000000000 |
||||||
|
0000000000000000000000000b0b00001911111111111191111111a18118111111a111119a191111116611c1cc11111100000000000000000000000000000000 |
||||||
|
0000000000000000000000000000b0b0191111111111119111111a11811111111a111111a9911111111111111111111100000000000000000000000000000000 |
||||||
|
00000000000000000000000000000bb0191111111111119111111a11111111111a11111a11111111111111888811111100000000000000000000000000000000 |
||||||
|
0000000000000000000000000000bbb019999999999999911111a11111111111111111a111111111111111188111111100000000000000000000000000000000 |
||||||
|
00000000000000000000000000000000111111111111111111111111111111111111111111111111111111111111111100000000000000000000000000000000 |
||||||
|
00000000000000000000000000000000111111111111111111111111111111111111111111111111000000000000000000000000000000000000000000000000 |
||||||
|
00000000000000000000000000000000111111188111111111111111111111111111991111111111000000000000000000000000000000000000000000000000 |
||||||
|
00000000000000000000000000000000111111811811111111111111111111111111911111111111000000000000000000000000000000000000000000000000 |
||||||
|
00000000000000000000000000000000111118111181111111111118111111111111111111111111000000000000000000000000000000000000000000000000 |
||||||
|
00000000000000000000000000000000111188811888111111118118111111a11111991111111111000000000000000000000000000000000000000000000000 |
||||||
|
000000000000000000000000000000001111118118111111111118111111aa1111191a9111111111000000000000000000000000000000000000000000000000 |
||||||
|
0000000000000000000000000000000011111181181111111111111111aa11111119a19111111111000000000000000000000000000000000000000000000000 |
||||||
|
00000000000000000000000000000000199991811819999111188111aa1111111111991a11111111000000000000000000000000000000000000000000000000 |
||||||
|
0000000000000000000000000000000019111181181111911111111a11188111111a1111a1111111000000000000000000000000000000000000000000000000 |
||||||
|
0000000000000000000000000000000019111181181111911111111a11111111111a111119911191000000000000000000000000000000000000000000000000 |
||||||
|
000000000000000000000000000000001911111111111191111111a11181111111a1111191a91991000000000000000000000000000000000000000000000000 |
||||||
|
000000000000000000000000000000001911111111111191111111a18118111111a111119a191111000000000000000000000000000000000000000000000000 |
||||||
|
07777770000000000000000000000000191111111111119111111a11811111111a111111a9911111000000000000000000000000000000000000000000000000 |
||||||
|
07888870000000000000000000000000191111111111119111111a11111111111a11111a11111111000000000000000000000000000000000000000000000000 |
||||||
|
0078870000000000000000000000000019999999999999911111a11111111111111111a111111111000000000000000000000000000000000000000000000000 |
||||||
|
00077000000000000000000000000000111111111111111111111111111111111111111111111111000000000000000000000000000000000000000000000000 |
||||||
|
__label__ |
||||||
|
66656565666555556665666566656665656555556565666566556655555566655665555556656665666556656655566555555555555555555555555555555555 |
||||||
|
56556565655555556555666565655655656555556565656565656565555556556555555565555655656565656565655555555555555555555555555555555555 |
||||||
|
56556665665555556655656566655655666555556665666565656565555556556665555566655655665565656565655555555555555555555555555555555555 |
||||||
|
56556565655555556555656565555655556555556565656565656565555556555565555555655655656565656565656555555555555555555555555555555555 |
||||||
|
56556565666555556665656565555655666555556565656565656665555566656655555566555655656566556565666555555555555555555555555555555555 |
||||||
|
55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555 |
||||||
|
55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555 |
||||||
|
55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555 |
||||||
|
55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555 |
||||||
|
55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555 |
||||||
|
55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555 |
||||||
|
55555555555555555555555555555555555555555555555555555555555555555555555555555555555555577777755555555555555555555555555555555555 |
||||||
|
55555555555555555555555555555555555555555555555555555555555555555555555555555555555555578888755555555555555555555555555555555555 |
||||||
|
55555555555555555555555555555555555555555555555555555555555555555555555555555555555555557887555555555555555555555555555555555555 |
||||||
|
55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555775555555555555555555555555555555555555 |
||||||
|
00000000000000000000000000000000000000055777777777777777777550000000000000000000000000000000000000000000000000000000000000000000 |
||||||
|
00000000000000000000000000000000000000055711111111111111117550000000000000000000000000000000000000000000000000000000000000000000 |
||||||
|
0000ddd0ddd0ddd0dd00000000000000000000055711111111111111117550000000000000000000000000000000000000000000000000000000000000000000 |
||||||
|
0d00ddd0d0d00d00d0d00d000000000000000005571111111881111111755000000000000bbb0000000000000000000000000000000000000000000000000000 |
||||||
|
0000d0d0ddd00d00d0d000000000000000000005571111118118111111755000000000000bb00000000000000000000000000000000000000000000000000000 |
||||||
|
0d00d0d0d0d00d00d0d00d000000000000000005571111181111811111755000000000000b0b0000000000000000000000000000000000000000000000000000 |
||||||
|
0000d0d0d0d0ddd0d0d000000000000000000005571111888118881111755000000000000000b0b0000000000000000000000000000000000000000000000000 |
||||||
|
00000000000000000000000000000000000000055711111181181111117550000000000000000bb0000000000000000000000000000000000000000000000000 |
||||||
|
0000000000000000000000000000000000000005571999918118199991755000000000000000bbb0000000000000000000000000000000000000000000000000 |
||||||
|
6660666066600000666066600000000000000005571911118118111191755000000000000000000d000000000000000000000000000000000000000000000000 |
||||||
|
60606060006000000060606000000000000000055719111181181111917550000000000000000000d00000000000000000000000000000000000000000000000 |
||||||
|
666066600660000066606660000000000000000557191111811811119175500000000000000000000d0000000000000000000000000000000000000000000000 |
||||||
|
6000606000600600600060600000000000000005571911111111111191755000000000000000000000d660000000000000000000000000000000000000000000 |
||||||
|
60006660666060006660666000000000000000055719111111111111917550000000000000000000006da6000000000000000000000000000000000000000000 |
||||||
|
00000000000000000000000000000000000000055719111111111111917550000000000000000000006006aaa000000000000000000000000000000000000000 |
||||||
|
00000000000000000000000000000000000000055719999999999999917550000000000000000000000660000aaa000000000000000000000000000000000000 |
||||||
|
0dd0dd000000d000ddd0d0d0ddd00000000000055711111111111111117550000000000000000000000000000000aaa000000000000000000000000000000000 |
||||||
|
d0000d000000d000d0d0d0d0d0d00000000000055777777777777777777550000000000000000000000000000000000aaaa09900000000000000000000000000 |
||||||
|
ddd00d000000ddd0ddd0ddd0ddd0000000000005555555555555555555555000000000000000000000000000000000000009a090000000000000000000000000 |
||||||
|
00d00d000000d0d0d0d000d0d0d0000000000005555555555555555555555000000000000000000000000000000000000009a090000000000000000000000000 |
||||||
|
dd00ddd00d00ddd0ddd000d0ddd000000000000555555555555555555555500000000000000000000000000000000000000a9900000000000000000000000000 |
||||||
|
000000000000000000000000000000000000000556666666666666666665500000000000000000000000000000000000000a0000000000000000000000000000 |
||||||
|
00000000000000000000000000000000000000055611111111111111116550000000000000000000000000000000000000a00000000000000000000000000000 |
||||||
|
dd00dd00ddd000000000ddd000000000000000055611111111111111116550000000000000000000000000000000000000a00000000000000000000000000000 |
||||||
|
d0d00d00d0d00000000000d000000000000000055611111111111111116550000000000000000000000000000000000000a00000000000000000000000000000 |
||||||
|
d0d00d00d0d0000000000dd00000000000000005561111111811111111655000000000000000000000000000000000000a000000000000000000000000000000 |
||||||
|
d0d00d00d0d000000d0000d000000000000000055611118118111111a1655000000000000000000000000000000000000a000000000000000000000000000000 |
||||||
|
ddd0ddd0ddd00d00d000ddd0000000000000000556111118111111aa11655000000000000000000000000000000000000a000000000000000000000000000000 |
||||||
|
0000000000000000000000000000000000000005561111111991aa111165500000000000000000000000000000000000a0000000000000000000000000000000 |
||||||
|
00000000000000000000000000000000000000055611188191a9111111655000000000000000000000bbb00000000000a0000000000000000000000000000000 |
||||||
|
dd000000ddd00000dd00ddd00000000000000005561111119a19188111655000000000000000000000bb00000000000a00000000000000000000000000000000 |
||||||
|
d0d00000d00000000d0000d00000000000000005561111111991111111655000000000000000000000b0b0000000000a00000000000000000000000000000000 |
||||||
|
d0d0ddd0ddd000000d000dd0000000000000000556111111a111811111655000000000000000000000000b0b0000000a00000000000000000000000000000000 |
||||||
|
d0d0000000d00d000d0000d0000000000000000556111111a1811811116550000000000000000000000000bb000000a000000000000000000000000000000000 |
||||||
|
ddd00000ddd0d000ddd0ddd000000000000000055611111a1181111111655000000000000000000000000bbb000000a000000000000000000000000000000000 |
||||||
|
00000000000000000000000000000000000000055611111a1111111111655000000000000000000000000000d00000a000000000000000000000000000000000 |
||||||
|
0000000000000000000000000000000000000005561111a1111111111165500000000000c0000000000000000d000a0000000000000000000000000000000000 |
||||||
|
0dd0ddd00000ddd0ddd0000000000000000000055611111111111111116550000000ccc0c00000000000000000d00a0000000000000000000000000000000000 |
||||||
|
d000d0d0000000d0d0000000000000000000000556666666666666666665500000000077c000000000000000000d990000000000000000000000000000000000 |
||||||
|
ddd0d0d0000000d0ddd00000000000000000000555555555555555555555500000000c7700000000000000000009d09000000000000000000000000000000000 |
||||||
|
00d0d0d0000000d000d00000000000000000000555555555555555555555500000000c0ccc000000000000000aa9009000000000000000000000000000000000 |
||||||
|
dd00ddd00d0000d0ddd00000000000000000000555555555555555555555500000000c0d000000000000000aa000990000000000000000000000000000000000 |
||||||
|
00000000000000000000000000000000000000055666666666666666666550000000000d000000000000aaa00000000000000000000000000000000000000000 |
||||||
|
000000000000000000000000000000000000000556111111111111111165500000000000d000000000aa00000000000000000000000000000000000000000000 |
||||||
|
dd000000dd00ddd00000d000000000000000000556111199111111111165500000000000d000000aaa0000000000000000000000000000000000000000000000 |
||||||
|
d0d000000d00d0000000d000000000000000000556111191111111111165500000000000d0000aa0000000000000000000000000000000000000000000000000 |
||||||
|
d0d0ddd00d00ddd00000ddd00000000000000005561111111111111111655000000000000d9aa000000000000000000000000000000000000000000000000000 |
||||||
|
d0d000000d0000d00d00d0d00000000000000005561111991111111111655000000000009da90000000000000000000000000000000000000000000000000000 |
||||||
|
ddd00000ddd0ddd0d000ddd000000000000000055611191a9111111111655000000000009a090000000000000000000000000000000000000000000000000000 |
||||||
|
0000000000000000000000000000000000000005561119a1911111111165500000000000a9900000000000000000000000000000000000000000000000000000 |
||||||
|
0000000000000000000000000000000000000005561111991a1111111165500000000000a0000000000000000000000000000000000000000000000000000000 |
||||||
|
ddd0ddd0ddd0dd000dd0d0d0000000000000000556111a1111a111111165500000000000a0000000000000000000000000000000000000000000000000000000 |
||||||
|
0d00d000d0d0d0d0d000d0d0000000000000000556111a11111991119165500000000000a0000000000000000000000000000000000000000000000000000000 |
||||||
|
0d00dd00ddd0d0d0d000ddd000000000000000055611a1111191a919916550000000000a00000000000000000000000000000000000000000000000000000000 |
||||||
|
0d00d000d0d0d0d0d00000d000000000000000055611a111119a1911116550000000000a00000000000000000000000000000000000000000000000000000000 |
||||||
|
dd00d000d0d0d0d00dd0ddd00000000000000005561a111111a99111116550000000000a00000000000000000000000000000000000000000000000000000000 |
||||||
|
0000000000000000000000000000000000000005561a11111a111111116550000000000a00000000000000000000000000000000000000000000000000000000 |
||||||
|
000000000000000000000000000000000000000556111111a111111111655000000000a000000000000000000077007700000000000000000000000000000000 |
||||||
|
ddd0ddd0ddd0dd000dd0d0d00000000000000005561111111111111111655000000000a000000000000000000078008700000000000000000000000000000000 |
||||||
|
0d00d000d0d0d0d0d000d0d00000000000000005566666666666666666655000000000a000000000000000000000000000000000000000000000000000000000 |
||||||
|
0d00dd00ddd0d0d0d000ddd0000000000000000555555555555555555555500000000a0000000000000000000000000000000000000000000000000000000000 |
||||||
|
0d00d000d0d0d0d0d00000d0000000000000000555555555555555555555500000000a0000000000000000000078008700000000000000000000000000000000 |
||||||
|
dd00d000d0d0d0d00dd0ddd0000000000000000555555555555555555555500000000a0000000000000000000077007700000000000000000000000000000000 |
||||||
|
000000000000000000000000000000000000000556666666666666666665500000000a0000000000000000000000000000000000000000000000000000000000 |
||||||
|
00000000000000000000000000000000000000055611111111111111116550000000a00000000000000000000000000000000000000000000000000000000000 |
||||||
|
ddd0ddd0ddd0d0d0ddd0dd0000000000000000055611111118811111116550000000a00000000000000000000000000000000000000000000000000000000000 |
||||||
|
d0d0d0000d00d0d0d0d0d0d000000000000000055611111188881111116550000000a00000000000000000000000000000000000000000000000099000000000 |
||||||
|
dd00dd000d00d0d0dd00d0d000000000000000055611111111111111116550000000a000000000000000000000000000000000000000000000009a0900000000 |
||||||
|
d0d0d0000d00d0d0d0d0d0d000000000000000055611119911bb1111116550000009900000000000000000000000000000000000000000000000900900000000 |
||||||
|
d0d0ddd00d000dd0d0d0d0d000000000000000055611191191b1111111655000009a090000000000000000000000000000000000000000000000a99000000000 |
||||||
|
0000000000000000000000000000000000000005561119119111b111116550000090a9000000000000000000000000000000000000000000000a000000000000 |
||||||
|
000000000000000000000000000000000000000556111199111111b11165500000099a00000000000000000000000000000000000000000000a0000000000000 |
||||||
|
0000ddd0ddd0dd000dd0d0d0000000000000000556116611cc1c1bb11165500000000a00000000000000000000000000000000000000000000a0000000000000 |
||||||
|
0d00d000d0d0d0d0d000d0d00d0000000000000556161161177c111111655000000000a000000000000000000000000000000000000000000a00000000000000 |
||||||
|
0000dd00ddd0d0d0d000ddd0000000000000000556161161c7711111116550000000000a0000000000000000000000000000000000000000a000000000000000 |
||||||
|
0d00d000d0d0d0d0d00000d00d0000000000000556116611c1cc11111165500000000000a000000000000000000000000000000000000000a000000000000000 |
||||||
|
0000d000d0d0d0d00dd0ddd0000000000000000556111111111111111165500000000000a00000000000000000000000000000000000000a0000000000000000 |
||||||
|
0000000000000000000000000000000000000005561111118888111111655000000000000a000000000000000000000000000000000000a00000000000000000 |
||||||
|
00000000000000000000000000000000000000055611111118811111116550000000000000a0000000000000000000000000000000000a000000000000000000 |
||||||
|
ddd00dd0ddd00000ddd00000ddd000000000000556111111111111111165500000000000000a000000000000000000000000000000000a000000000000000000 |
||||||
|
d0d0d0d00d000000d0d0000000d0000000000005566666666666666666655000000000000000a0000000000000000000000000000000a0000000000000000000 |
||||||
|
dd00d0d00d000000d0d000000dd0000000000005555555555555555555555000000000000000a000000000000000000000000000000a00000000000000000000 |
||||||
|
d0d0d0d00d000000d0d0000000d00000000000055555555555555555555550000000000000000a00000000000000000000000000000a00000000000000000000 |
||||||
|
d0d0dd000d000000ddd00d00ddd000000000000555555555555555555555500000000000000000a000000000000000000000000000a000000000000000000000 |
||||||
|
0000000000000000000000000000000000000005555555555555555555555000000000000000000a0000000000000000000000000a0000000000000000000000 |
||||||
|
0000000000000000000000000000000000000005555555555555555555555000000000000000000a000000000000000000000000990000000000000000000000 |
||||||
|
dd000000dd00ddd000000000ddd00000000000055555555555555555555550000000000000000000a990000000000aaaaaaaaaa9a09000000000000000000000 |
||||||
|
d0d000000d00d00000000000d0d000000000000555555555555555555555500000000000000000009da9aaaaaaaaa00000000009009000000000000000000000 |
||||||
|
d0d0ddd00d00ddd00000ddd0ddd00000000000055555555555555555555550000000000000000000d00900000000000000000000990000000000000000000000 |
||||||
|
d0d000000d0000d00d00000000d000000000000555555555555555555555500000000000000000dd099000000000000000000000000000000000000000000000 |
||||||
|
ddd00000ddd0ddd0d000000000d00d00000000055555555555555555555550000000000000000d00000000000000000000000000000000000000000000000000 |
||||||
|
000000000000000000000000000000000000000555555555555555555555500000000000000cd000000000000000000000000000000000000000000000000000 |
||||||
|
00000000000000000000000000000000000000055555555555555555555550000000000cccdc0000000000000000000000000000000000000000000000000000 |
||||||
|
dd000000dd00ddd00000d0000000ddd00000000555555555555555555555500000000000077c0000000000000000000000000000000000000000000000000000 |
||||||
|
d0d000000d0000d00000d0000000d0d00000000555555555555555555555500000000000c7700000000000000000000000000000000000000000000000000000 |
||||||
|
d0d0ddd00d0000d00000ddd00000d0d00000000555555555555555555555500000000000c0ccc000000000000000000000000000000000000000000000000000 |
||||||
|
d0d000000d0000d00d00d0d00000d0d00000000555555555555555555555500000000000c0000000000000000000000000000000000000000000000000000000 |
||||||
|
ddd00000ddd000d0d000ddd00d00ddd0000000055555555555555555555550000000000000000000000000000000000000000000000000000000000000000000 |
||||||
|
00000000000000000000000000000000000000055555555555555555555550000000000000000000000000000000000000000000000000000000000000000000 |
||||||
|
00000000000000000000000000000000000000055555555555555555555550000000000000000000000000000000000000000000000000000000000000000000 |
||||||
|
ddd0ddd0ddd0d0d0ddd0dd0000000000000000055555555555555555555550000000000000000000000000000000000000000000000000000000000000000000 |
||||||
|
d5d5d5555d55d5d5d5d5d5d555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555 |
||||||
|
dd66dd555d55d6d5dd65d5d556656665666566655555555555555666665555555666665555655666665555556665566566655555666556656655666555555555 |
||||||
|
d6d5d6655d55d6d5d5d5d5d565556565656565655555555555556656566556556665566556556655666555556555656565655555666565656565655555555555 |
||||||
|
d6d6ddd55d555dd5d5d5d5d565556655666566555555555555556665666566656655566556556655566555556655656566555555656565656565665555555555 |
||||||
|
66555665555556556565555565656565656565655555555555556656566556556665566556556655666555556555656565655555656565656565655555555555 |
||||||
|
56666655555556556655555566656565656566655555555555555666665555555666665565555666665555556555665565655555656566556665666555555555 |
||||||
|
55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555 |
||||||
|
56666655555556666655555566655665555566656655665555555666665555555666665555556665566555556655666565556665666566655555555555555555 |
||||||
|
66565665565566656665555556556565555565656565656555556656566556556655566555555655656555556565655565556555565565555555555555555555 |
||||||
|
66656665666566555665555556556565555566656565656555556665666566656655566555555655656555556565665565556655565566555555555555555555 |
||||||
|
66565665565566555665555556556565555565656565656555556656566556556665666555555655656555556565655565556555565565555555555555555555 |
||||||
|
56666655555556666655555556556655555565656665666555555666665555555666665555555655665555556665666566656665565566655555555555555555 |
||||||
|
|
After Width: | Height: | Size: 17 KiB |
@ -0,0 +1,32 @@ |
|||||||
|
--vram |
||||||
|
m = {} |
||||||
|
|
||||||
|
m = {} |
||||||
|
|
||||||
|
m["main"] = { |
||||||
|
{"place", 83, 28}, |
||||||
|
{"scale", 1.6848}, |
||||||
|
{"draw", 10.5, 3}, |
||||||
|
{"draw", -3.8129, 8.8452}, |
||||||
|
{"scale", 1.2497}, |
||||||
|
{"draw", -10.7256, 0.3008}, |
||||||
|
{"jump", "fancy"}, |
||||||
|
{"jump", "fancy"}, |
||||||
|
{"return"}, |
||||||
|
} |
||||||
|
|
||||||
|
m["fancy"] = { |
||||||
|
{"rotate", 0.32}, |
||||||
|
{"draw", -5.9592, -7.2068}, |
||||||
|
{"draw", -7.5694, -2.1986}, |
||||||
|
{"draw", 3.4559, 2.4058}, |
||||||
|
{"draw", 0.9285, 3.3168}, |
||||||
|
{"draw", -1.5299, 3.2654}, |
||||||
|
{"draw", -4.6618, 0.9604}, |
||||||
|
{"draw", -3.7027, -3.3118}, |
||||||
|
{"draw", 0.147, -2.3546}, |
||||||
|
{"draw", 2.0169, -4.0995}, |
||||||
|
{"draw", -4.5193, -0.6135}, |
||||||
|
{"draw", -4.2146, 3.2033}, |
||||||
|
{"return"}, |
||||||
|
} |
Loading…
Reference in new issue