[FEATURE] toclipboard & fromclipboard

ascii.cpp

@@ -294,6 +294,7 @@ void cls(uint8_t value) {
         debug_prompt = 0;
         debug_text[debug_prompt] = '>';
     }
+    cursor_x = cursor_y = 0;
 }
 
 void ink(uint8_t value) {
@@ -322,15 +323,22 @@ void print(const char *str, int x, int y) {
     if (x >= 0) cursor_x = min(x, screen_width-1);
     if (y >= 0) cursor_y = min(y, screen_height-1);
     int len = SDL_strlen(str);
-    if ((cursor_x+len) > screen_width) len -= ((cursor_x+len) - screen_width);
+    const int pos = cursor_x+cursor_y*screen_width;
+    if (pos+len > screen_width*screen_height) len -= ((pos+len) - screen_width*screen_height);
     //int offset = x+y*screen_width;
     for (int i=0; i < len; ++i) {
-        CHRSCR(cursor_x+i, cursor_y) = str[i];
-        if (current_mode != 0) COLSCR(cursor_x+i, cursor_y) = current_color;
+        char_screen[pos+i] = str[i];
+        if (current_mode != 0) color_screen[pos+i] = current_color;
         //char_screen[offset+i] = str[i];
         //if (current_mode != 0) color_screen[offset+i] = current_color;
     }
-    cursor_x += len;
+    cursor_x = (pos+len)%screen_width;
+    cursor_y = (pos+len)/screen_width;
+}
+
+void crlf() {
+    cursor_x=0;
+    cursor_y = min(cursor_y+1, screen_height-1);
 }
 
 bool btn(uint8_t i) {
@@ -423,9 +431,9 @@ int rnd(int x) {
     srand(x);
 }*/
 
-char tostr_tmp[256];
+char str_tmp[1024];
 const char* tostr(float val) {
-    return SDL_itoa(val, tostr_tmp, 10);
+    return SDL_itoa(val, str_tmp, 10);
 }
 
 void debug_set_prompt() {
@@ -489,6 +497,12 @@ const char* chr(uint8_t ascii) {
     return chr_trans;
 }
 
+const char* substr(const char* str, uint8_t start, uint8_t length) {
+    memcpy(str_tmp, &str[start], length);
+    str_tmp[length] = '\0';
+    return str_tmp;
+}
+
 void setchar(uint8_t index, uint8_t b0, uint8_t b1, uint8_t b2, uint8_t b3, uint8_t b4, uint8_t b5, uint8_t b6, uint8_t b7) {
     mem[MEM_CHAR_OFFSET+index*8] = b0;
     mem[MEM_CHAR_OFFSET+index*8+1] = b1;
@@ -557,3 +571,22 @@ void filein(const char* str, uint16_t addr, uint16_t size) {
     fread(&mem[addr], size, 1, f);
     fclose(f);
 }
+
+void toclipboard(const char* str) {
+    SDL_SetClipboardText(str);
+}
+
+const char* fromclipboard() {
+    char* text = SDL_GetClipboardText();
+    int len = strlen(text);
+    if (len > 1023) {
+        len = 27;
+        SDL_memcpy(str_tmp, "ERROR! CLIPBOARD TOO LARGE", len);
+    } else {
+        SDL_memcpy(str_tmp, text, len);
+    }
+    str_tmp[len] = '\0';
+    SDL_free((void*)text);
+
+    return str_tmp;
+}

ascii.h

@@ -120,6 +120,7 @@ void color(uint8_t ink, uint8_t paper, int8_t border=-1);
 
 void locate(uint8_t x, uint8_t y);                  // global::cursorx, global::cursory
 void print(const char *str, int x = -1, int y = -1);
+void crlf();
 
 bool btn(uint8_t i);
 bool btnp(uint8_t i);
@@ -163,6 +164,7 @@ void debug_get_cmd();
 
 uint8_t ascii(const char *str, uint8_t index);
 const char* chr(uint8_t ascii);
+const char* substr(const char* str, uint8_t start, uint8_t length);
 
 void setchar(uint8_t index, uint8_t b0, uint8_t b1, uint8_t b2, uint8_t b3, uint8_t b4, uint8_t b5, uint8_t b6, uint8_t b7);
 uint8_t peek(uint16_t addr);
@@ -178,3 +180,6 @@ void load(const char* str);
 
 void fileout(const char* str, uint16_t addr, uint16_t size);
 void filein(const char* str, uint16_t addr, uint16_t size);
+
+void toclipboard(const char* str);
+const char* fromclipboard();

demos/pong.lua

@@ -0,0 +1,140 @@
+function init()
+    setmode(1)
+    setchar(94, 0xff, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
+    piano = { "_____", "\143\143\143\154\154", "     ", "\143\143\143\154\154", "^^^^^", "_____",
+        "\143\143\143\154\154", "     ", "\143\143\143\154\154", "     ", "\143\143\143\154\154", "^^^^^" }
+    notes = {"C ", "C#", "D ", "D#", "E ", "F ", "F#", "G ", "G#", "A ", "A#", "B "}
+    pnotes = {"c", "c#", "d", "d#", "e", "f", "f#", "g", "g#", "a", "a#", "b"}
+
+    piano_pos=18
+    mousewait=0
+    compas = 0
+    compasos = {}
+    for i=0,31 do compasos[i] = 108 end
+    compasos[0] = 49
+    compasos[1] = 49
+    compasos[2] = 49
+    compasos[7] = 50
+    compasos[8] = 50
+    compasos[9] = 50
+    compasos[10] = 50
+
+    old_mouse_x,old_mouse_y = 0,0
+end
+
+function update()
+    color(COLOR_WHITE, COLOR_BLACK)
+    cls()
+    for i=0,11 do
+        local k = 11-i
+        local pos = ((piano_pos+i)%12)+1
+        local oct = flr((piano_pos+i)/12)+1
+        color(COLOR_WHITE, COLOR_BLACK)
+        print(notes[pos], 1, 10+k)
+        color(COLOR_BLACK, COLOR_WHITE)
+        print(piano[pos], 3, 10+k)
+        color(COLOR_BLACK, COLOR_LIGHT_GRAY+flr(oct%2))
+        print("_______\003_______\003_______\003_______\003", 8, 10+k)
+        color(COLOR_BLACK, oct)
+        if pos==6 then
+            print(tostr(oct), 0, 10+k)
+        else
+            print(" ", 0, 10+k)
+        end
+    end
+
+    piano_pos = mid(0, piano_pos+mousewheel(), 96)
+
+    if mousewait>0 then mousewait=mousewait-1 end
+    if mousebutton(1) and mousewait==0 then
+        if mousex()<8 and mousey()>=10 and mousey()<=21 then
+            local note = piano_pos+(11-(mousey()-10))
+            play("l4o"..tostr(note/12)..pnotes[(note%12)+1])
+            mousewait=10
+        end
+    end
+
+    for i=0,31 do
+        local n = compasos[i]
+        if n>=piano_pos and n<=piano_pos+11 then
+            if i>0 and n~=compasos[i-1] then
+                local oct = flr(n/12)+1
+                color(COLOR_BLACK, COLOR_LIGHT_GRAY+flr(oct%2))
+                print("\003",7+i,10+11-(n-piano_pos))
+            end
+            color(COLOR_BLACK,COLOR_LIGHT_RED)
+            if i==31 or compasos[i+1]~=n then
+                print("\003",8+i,10+11-(n-piano_pos))
+            else
+                print("_",8+i,10+11-(n-piano_pos))
+            end
+        end
+    end
+    
+    if mousex()>=8 and  mousey()>=10 and mousey()<=21 then
+        if mousebutton(1) then
+            compasos[mousex()-8] = piano_pos+11-(mousey()-10)
+            if old_mouse_x ~= mousex() or old_mouse_y ~= mousey() then
+                local note = piano_pos+11-(mousey()-10)
+                play("l4o"..tostr(note/12)..pnotes[(note%12)+1])
+            end    
+            old_mouse_x,old_mouse_y = mousex(),mousey()
+        else
+            old_mouse_x,old_mouse_y = 0,0
+            if mousebutton(3) then
+                compasos[mousex()-8] = 108
+            end
+        end
+    end
+
+    if btnp(KEY_RETURN) then play_song() end
+
+    color(15,0)print("\143",0,0)
+    color(14,0)print("\143",1,0)
+    color(12,0)print("\143",2,0)
+    color(6,0)print("\143",3,0)
+    color(4,0)print("\143",4,0)
+    color(5,4)print("\143",5,0)
+    color(9,0)print("\143",6,0)
+    color(1,0)print("\143",7,0)
+    color(0,0)print("\143",8,0)
+
+end
+
+function play_song()
+    local note_size = {1,2,3,4,6,8,12,16,24,32}
+    local note_names = {"c","c#","d", "d#","e","f","f#","g","g#","a","a#","b"}
+    local song = ""
+
+    local current_note = 255
+    local current_octave = 4
+    local p=0
+    while p<32 do
+        current_note = compasos[p]
+        local d=0
+        while current_note == compasos[p] do d=d+1 p=p+1 end
+        local o = flr(current_note/12)
+        if o<9 and current_octave~=o then
+            current_octave=o
+            song=song.."o"..tostr(o)
+        end
+        local n = current_note%12
+        local note = note_names[n+1]
+        while d>0 do
+            local i=1
+            while d>note_size[i] do i=i+1 end
+            if note_size[i]>d then i=i-1 end
+            d=d-note_size[i]
+            if current_length~=i-1 then
+                current_length = i-1
+                song=song.."l"..tostr(i-1)
+            end
+            if o<9 then
+                song=song..note
+            else
+                song=song.."r"
+            end
+        end
+    end
+    play(song)
+end

demos/tetris.lua

@@ -0,0 +1,175 @@
+--struct Tetromino { Uint16 figure; Uint8 orig, prev, next; };
+tetromino = { {figure=0x0660, orig=0, prev=0, next=0}, {figure=0x4444, orig=1, prev=2, next=2}, {figure=0x0F00, orig=1, prev=1, next=1}, {figure=0x0C60, orig=2, prev=4, next=4}, {figure=0x2640, orig=2, prev=3, next=3}, {figure=0x06C0, orig=3, prev=6, next=6}, {figure=0x4620, orig=3, prev=5, next=5}, {figure=0x4460, orig=4, prev=8, next=10}, {figure=0x2E00, orig=4, prev=9, next=7}, {figure=0xC440, orig=4, prev=10, next=8}, {figure=0x0E80, orig=4, prev=7, next=9}, {figure=0x44C0, orig=5, prev=12, next=14}, {figure=0x0E20, orig=5, prev=13, next=11},  {figure=0x6440, orig=5, prev=14, next=12}, {figure=0x8E00, orig=5, prev=11, next=13}, {figure=0x4640, orig=6, prev=16, next=18}, {figure=0x4E00, orig=6, prev=17, next=15}, {figure=0x4C40, orig=6, prev=18, next=16}, {figure=0x0E40, orig=6, prev=15, next=17} }
+starting = { 0, 1, 3, 5, 7, 11, 15 }
+papers = { COLOR_LIGHT_RED, COLOR_LIGHT_GREEN, COLOR_LIGHT_BLUE, COLOR_YELLOW, COLOR_LIGHT_CYAN, COLOR_LIGHT_MAGENTA, COLOR_BROWN, COLOR_WHITE }
+inks = { COLOR_RED, COLOR_GREEN, COLOR_BLUE, COLOR_BROWN, COLOR_CYAN, COLOR_MAGENTA, COLOR_RED, COLOR_LIGHT_GRAY }
+--colors = {0x4c, 0x2a, 0x19, 0x6e, 0x3b, 0xd5, 0x56, 0x7f}
+--Uint8 colors[8][3] { {255, 0, 0}, {0, 255, 0}, {0, 0, 255}, {255, 255, 0}, {0, 255, 255}, {255, 0, 255}, {255, 128, 0}, {255, 255, 255} };
+board = {} --[20][10];
+piece_pos = {x=3, y=0}
+current_piece,next_piece,level,lines,score = 0,0,0,0,0
+speed = (20-min(19, level))*3
+
+function is_valid_move()
+    local x = piece_pos.x+3
+    local y = piece_pos.y+3
+    local piece = tetromino[current_piece+1].figure
+    for i=0,15 do
+        if ((piece & 1 == 1) and ( (x >= 10) or (x < 0) or (y >= 20) or (board[x+y*10] ~= 0) ) ) then return false end
+        piece = piece >> 1
+        x=x-1
+        if x < piece_pos.x then
+            x=piece_pos.x+3
+            y=y-1
+        end
+    end
+    return true
+end
+
+function check_lines()
+    local count = 0
+    local line = 19
+    while line > 0 do
+        local complete = true
+        for x=0,9 do
+            complete = (board[x+line*10] ~= 0)
+            if not complete then break end
+        end
+        if complete then
+            count=count+1
+            for y=line,1,-1 do
+                for x=0,9 do
+                    board[x+y*10] = board[x+(y-1)*10]
+                end
+            end
+        else
+            line=line-1
+        end
+    end
+    lines=lines+count
+    local scoremult = {40,100,300,1200}
+    if count > 0 then score = score + scoremult[count] * (level+1) end
+    level = flr(lines / 10)
+end
+
+function fix_piece()
+    local x = piece_pos.x+3
+    local y = piece_pos.y+3
+    local piece = tetromino[current_piece+1].figure
+    for i=0,15 do
+        if piece & 1 == 1 then
+             board[x+y*10] = tetromino[current_piece+1].orig+1
+        end
+        piece = piece >> 1
+        x=x-1
+        if x < piece_pos.x then
+            x = piece_pos.x+3
+            y=y-1
+        end
+    end
+    piece_pos = {x=3, y=0}
+    current_piece = next_piece
+    next_piece = starting[rnd(7)+1]
+    check_lines()
+end
+
+function draw_cube(x,y,col)
+    color(inks[col+1],papers[col+1])
+    print("\001",x+1,y)
+end
+
+function draw_tetromino(init_x,init_y,piece_to_draw)
+    local x = init_x+3
+    local y = init_y+3
+    local piece = tetromino[piece_to_draw+1].figure
+    for i=0,15 do
+        if piece & 1 == 1 then
+            draw_cube(x, y, tetromino[piece_to_draw+1].orig)
+        end
+        piece = piece >> 1
+        x=x-1
+        if x < init_x then
+            x = init_x+3
+            y=y-1
+        end
+    end
+end
+
+--[[
+void print(int x, int y, const char* text, Uint8 color) {
+    int cc = 0;
+    SDL_SetTextureColorMod(sdlTexture, colors[color][0], colors[color][1], colors[color][2]);
+    SDL_Rect src {0, 0, 8, 8}, dst {x, y, 16, 16};
+    while (text[cc] != 0) {
+        if (text[cc] == 32) continue;
+        else if (text[cc] >= 65) { src.x = ((text[cc]-65)%6)*8; src.y = ((text[cc]-65)/6)*8; }
+        else if (text[cc] < 65) { src.x = ((text[cc]-22)%6)*8; src.y = ((text[cc]-22)/6)*8; }
+        SDL_RenderCopy(sdlRenderer, sdlTexture, &src, &dst);
+        cc++; dst.x+=16;
+    }
+}
+--]]
+
+function init()
+    setmode(1)
+    current_piece = starting[rnd(7)+1]
+    next_piece = starting[rnd(7)+1]
+
+    piece_pos = {x=3, y=0}
+    level,lines,score = 0,0,0
+    speed = (20-min(19, level))*3
+
+    for i=0,20*10 do board[i] = 0 end
+    setchar(1,0xff,0x81,0x81,0x81,0x81,0x81,0x81,0xff)
+    border(COLOR_BLUE)
+end
+
+function update()
+    if btnp(KEY_RIGHT) then
+        piece_pos.x = piece_pos.x + 1
+        if not is_valid_move() then piece_pos.x=piece_pos.x-1 end
+    end
+    if btnp(KEY_LEFT) then
+        piece_pos.x = piece_pos.x - 1
+        if not is_valid_move() then piece_pos.x=piece_pos.x+1 end
+    end
+    if btnp(KEY_DOWN) then
+        piece_pos.y = piece_pos.y + 1
+        if not is_valid_move() then piece_pos.y=piece_pos.y-1 end
+    end
+    if btnp(KEY_UP) then 
+        current_piece = tetromino[current_piece+1].next
+        if not is_valid_move() then current_piece = tetromino[current_piece+1].prev end
+    end
+    paper(COLOR_BLACK)
+    cls()
+    ink(COLOR_BLUE) print("LEVEL "..tostr(level), 3, 5) -- color 2
+    ink(COLOR_RED) print("SCORE "..tostr(score), 3, 7) -- color 0
+    ink(COLOR_GREEN) print("LINES "..tostr(lines), 3, 9) -- color 1
+    color(COLOR_DARK_GRAY,COLOR_LIGHT_GRAY)
+    for i=0,20 do print ("\001",14,i+5) print("\001",25,i+5) end
+    print("\001\001\001\001\001\001\001\001\001\001\001\001",14,25)
+    for y=0,19 do
+        for x=0,9 do
+            if board[x+y*10] ~= 0 then
+                draw_cube(14+x, y+5, board[x+y*10]-1)
+            end
+        end
+    end
+    draw_tetromino(27, 5, next_piece)
+    draw_tetromino(14+piece_pos.x, 5+piece_pos.y, current_piece)
+    speed=speed-1
+    if speed == 0 then
+        speed = (20-min(19, level))*3
+        piece_pos.y=piece_pos.y+1
+        if not is_valid_move() then
+            piece_pos.y=piece_pos.y-1
+            if piece_pos.y==0 then
+                init()
+            else
+                fix_piece()
+                play("c")
+            end
+        end
+    end
+end

lua.cpp

@@ -2,6 +2,86 @@
 #include "lua/lua.hpp"
 #include "ascii.h"
 
+void reverse(char* str, int len) {
+    int i = 0, j = len - 1, temp;
+    while (i < j) {
+        temp = str[i];
+        str[i] = str[j];
+        str[j] = temp;
+        i++;
+        j--;
+    }
+}
+  
+int intToStr(int x, char str[], int d) {
+    int i = 0;
+    while (x) {
+        str[i++] = (x % 10) + '0';
+        x = x / 10;
+    }
+ 
+    while (i < d) str[i++] = '0';
+    reverse(str, i);
+    str[i] = '\0';
+    return i;
+}
+  
+int ftoa(float n, char* res, int afterpoint) {
+    int ipart = (int)n;
+    float fpart = n - (float)ipart;
+    int i = intToStr(ipart, res, 1);
+    fpart = fpart * SDL_pow(10, afterpoint);
+    if (int(fpart) != 0) {
+        res[i++] = '.';
+        i += intToStr((int)fpart, res + i, afterpoint);
+        while(res[i-1] == '0') res[--i] = '\0';
+    }
+    return i;
+}
+
+char tempstr[1024];
+uint16_t ts_index = 0;
+
+void table_to_str(lua_State *L, int indx);
+
+void value_to_str(lua_State *L, int indx) {
+    if (lua_isnoneornil(L, indx)) {
+        SDL_memcpy(&tempstr[ts_index], "nil", 3); ts_index+=3;
+    } else if (lua_isfunction(L, indx) || lua_iscfunction(L,indx)) {
+        SDL_memcpy(&tempstr[ts_index], "[function]", 10); ts_index+=10;
+    } else if (lua_istable(L, indx)) {
+        table_to_str(L, indx);
+    } else if (lua_type(L, indx) == LUA_TNUMBER) {
+        const float val = luaL_checknumber(L, indx);
+        const int len = ftoa(val, &tempstr[ts_index], 4); ts_index+=len;
+    } else if (lua_isboolean(L,indx)) {
+        if (lua_toboolean(L, indx)) {
+            SDL_memcpy(&tempstr[ts_index], "true", 4); ts_index+=4;
+        } else {
+            SDL_memcpy(&tempstr[ts_index], "false", 5); ts_index+=5;
+        }
+    } else if (lua_isstring(L,indx)) {
+        const char* str = luaL_checkstring(L,indx);
+        tempstr[ts_index++] = '"';
+        SDL_memcpy(&tempstr[ts_index], str, strlen(str)); ts_index+=strlen(str);
+        tempstr[ts_index++] = '"';
+    }
+}
+
+void table_to_str(lua_State *L, int indx) {
+    tempstr[ts_index++] = '{';
+    lua_pushnil(L);
+    bool first = true;
+    while (lua_next(L, indx) != 0) {
+        if (first) { first=false; } else { tempstr[ts_index++] = ','; }
+        value_to_str(L, lua_gettop(L)-1);
+        tempstr[ts_index++] = '=';
+        value_to_str(L, lua_gettop(L));
+        lua_pop(L, 1);
+    }
+    tempstr[ts_index++] = '}';
+}
+
 extern "C" {
     static int cpp_cls(lua_State *L) {
         uint8_t color = luaL_optinteger(L, 1, 32);
@@ -54,6 +134,11 @@ extern "C" {
         return 0;
     }
 
+    static int cpp_crlf(lua_State *L) {
+        crlf();
+        return 0;
+    }
+
     static int cpp_btn(lua_State *L) {
         uint8_t i = luaL_checkinteger(L, 1);
         lua_pushboolean(L, btn(i));
@@ -163,9 +248,28 @@ extern "C" {
         return 0;
     }
     static int cpp_tostr(lua_State *L) {
-        float val = luaL_checknumber(L, 1);
-        lua_pushstring(L, tostr(val));
+        ts_index=0;
+        value_to_str(L, 1); tempstr[ts_index] = '\0';
+        lua_pushstring(L, tempstr);
         return 1;
+        /*
+        if (lua_isnoneornil(L,1)) {
+            lua_pushstring(L, "nil");
+        } else if (lua_isfunction(L,1) || lua_iscfunction(L,1)) {
+            lua_pushstring(L, "[function]");
+        } else if (lua_istable(L,1)) {
+            lua_gettable
+            lua_pushstring(L, "[function]");
+        } else if (lua_isstring(L,1)) {
+            lua_pushstring(L, luaL_checkstring(L,1));
+        } else if (lua_isboolean(L,1)) {
+            lua_pushstring(L, lua_toboolean(L, 1) ? "true" : "false");
+        } else {
+            const float val = luaL_checknumber(L, 1);
+            lua_pushstring(L, tostr(val));
+        }
+        return 1;
+        */
     }
     static int cpp_ascii(lua_State *L) {
         const char* str = luaL_checkstring(L, 1);
@@ -183,6 +287,13 @@ extern "C" {
         lua_pushinteger(L, strlen(str));
         return 1;
     }
+    static int cpp_substr(lua_State *L) {
+        const char* str = luaL_checkstring(L, 1);
+        int start = luaL_checknumber(L, 2);
+        int length = luaL_checknumber(L, 3);
+        lua_pushstring(L, substr(str, start, length));
+        return 1;
+    }
     
     static int cpp_setchar(lua_State *L) {
         int index = luaL_checkinteger(L, 1);
@@ -270,6 +381,17 @@ extern "C" {
         filein(str, addr, size);
         return 0;
     }
+
+    static int cpp_toclipboard(lua_State *L) {
+        const char* str = luaL_checkstring(L, 1);
+        toclipboard(str);
+        return 0;
+    }
+
+    static int cpp_fromclipboard(lua_State *L) {
+        lua_pushstring(L, fromclipboard());
+        return 1;
+    }
 }
 
 #define STATE_STOPPED 0
@@ -319,6 +441,7 @@ void lua_init(const char* filename, const bool start_playing) {
 
     lua_pushcfunction(L,cpp_locate);       lua_setglobal(L, "locate");
     lua_pushcfunction(L,cpp_print);     lua_setglobal(L, "print");
+    lua_pushcfunction(L,cpp_crlf);     lua_setglobal(L, "crlf");
 
     lua_pushcfunction(L,cpp_btn);       lua_setglobal(L, "btn");
     lua_pushcfunction(L,cpp_btnp);      lua_setglobal(L, "btnp");
@@ -346,6 +469,7 @@ void lua_init(const char* filename, const bool start_playing) {
     lua_pushcfunction(L,cpp_ascii);     lua_setglobal(L, "ascii");
     lua_pushcfunction(L,cpp_chr);     lua_setglobal(L, "chr");
     lua_pushcfunction(L,cpp_strlen);     lua_setglobal(L, "strlen");
+    lua_pushcfunction(L,cpp_substr);     lua_setglobal(L, "substr");
 
     lua_pushcfunction(L,cpp_setchar);     lua_setglobal(L, "setchar");
     lua_pushcfunction(L,cpp_peek);     lua_setglobal(L, "peek");
@@ -360,6 +484,8 @@ void lua_init(const char* filename, const bool start_playing) {
 
     lua_pushcfunction(L,cpp_fileout);     lua_setglobal(L, "fileout");
     lua_pushcfunction(L,cpp_filein);     lua_setglobal(L, "filein");
+    lua_pushcfunction(L,cpp_toclipboard);     lua_setglobal(L, "toclipboard");
+    lua_pushcfunction(L,cpp_fromclipboard);     lua_setglobal(L, "fromclipboard");
 
     lua_pushinteger(L, 0); lua_setglobal(L, "KEY_UNKNOWN");
     lua_pushinteger(L, 4); lua_setglobal(L, "KEY_A");

pong.lua

@@ -1,115 +0,0 @@
-function init()
-    -- mode 1: 40x30 characters
-    setmode(1)
-    -- prepare everything for the match
-    reset_match()
-    p1,p2=0,0   -- reset scores
-end
-
-function update()
-    cls()
-
-    -- ball movement
-    -- 'wait' is a counter to skip some cycles before moving the ball, so it starts slower
-    -- 'speed' defines how many cycles to skip. Every 5 hits to the paddles 'speed' goes down by 1, effectively increasing the ball's speed
-    -- 'speed' is reset every point
-    wait=wait-1
-    if wait==0 then
-        wait=speed
-        -- move ball
-        bx=bx+dx
-        by=by+dy
-        -- if ball hits top or down walls, bounce
-        if by==0 or by==29 then
-            dy=-dy
-            if playing then play("a") end   -- if we are not playing, be quiet
-        end
-
-        -- during a match, paddles bounce the ball and left and right walls award points
-        -- but before or after a match the ball just bounces around
-        if playing then
-            -- if ball hits left or right ball, reset the ball and award a point to the opposing paddle
-            if bx==0 then p2=p2+1 reset_ball() end
-            if bx==39 then p1=p1+1 reset_ball() end
-            -- if ball hits paddle, bounce
-            if (bx==1 and by>=y1 and by<=y1+4) or (bx==38 and by>=y2 and by<=y2+4) then
-                play("c")
-                dx=-dx
-                -- also, increase hits. Every 5 hits the ball will speed up (only if it's not already as fast as possible)
-                hits=hits+1
-                if (hits%5 == 0) and (speed>0) then speed=speed-1 end 
-            end
-        else
-            -- when not playing, just bounce freely
-            if bx==0 or bx==39 then dx=-dx end
-        end
-    end
-
-    -- player 1 controls
-    if btn(KEY_Q) and y1>0 then y1=y1-1 end
-    if btn(KEY_A) and y1<25 then y1=y1+1 end
-
-    -- player 2 controls
-    if btn(KEY_UP) and y2>0 then y2=y2-1 end
-    if btn(KEY_DOWN) and y2<25 then y2=y2+1 end
-
-    -- draw net
-    if playing then for i=0,29 do print("\145",20,i) end end
-
-    -- draw score
-    print(p1,18,3)
-    print(p2,22,3)
-
-    -- draw ball
-    print("\143",flr(bx),flr(by))
-
-    -- draw paddles
-    for i=0,4 do
-        print("\143",1,y1+i)
-        print("\143",38,y2+i)
-    end
-
-    if not playing then
-        -- while not playing show the messages
-        if p1==10 then print("PLAYER 1 WINS!", 14, 8)
-        elseif p2==10 then print("PLAYER 2 WINS!", 14, 8) 
-        else print("PONG!", 18, 10) end
-
-        print("Press SPACE to play", 11, 20)
-        if btn(KEY_SPACE) then
-            start_match()
-        end
-    end
-
-end
-
-function start_match()
-    playing=true
-    p1,p2=0,0   -- reset scores
-end
-
-function reset_match()
-    play("l2drl2d#l4e>l2crr<e>crr<l4e>crrrl2r cl4dl2d#l4el2cl4del2r<b>l4dl2rl4crrrl2r< drl2d#l4e>l2crr<e>crr<l4e>crrrl2r< l2argl4f#l2a>l4cl2errdl4cl2<al4>drrrl2r< l2drl2d#l4e>l2crr<e>crr<l4e>crrrl2r cl4dl2d#l4el2cl4del2r<b>l4dl2rl4crrrl2r<")
-
-    playing=false
-    bx,by=20,15 -- init ball's position
-    dx,dy=1,1   -- init ball's direction
-    y1,y2=14,14 -- init paddle's y coordinate
-    wait=1      -- reset wait counter
-    speed=4     -- reset speed
-    hits=0      -- reset hits counter
-end
-
-function reset_ball()
-    play("l0o3bagfedc") -- play sad tune
-    bx,by=20,15         -- reset ball's position
-    speed=4             -- reset speed
-    hits=0              -- reset hits counter
-    dx=-dx              -- invert x direction
-
-    -- si algu arriba a 10, la partida acaba
-    if p1==10 or p2==10 then
-        playing=false
-        play("o5l1crl0ergrl4o6c")
-    end
-end

tools/music.lua

@@ -0,0 +1,172 @@
+function init()
+    setmode(1)
+    setchar(94, 0xff, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
+    piano = { "_____", "\143\143\143\154\154", "     ", "\143\143\143\154\154", "^^^^^", "_____",
+        "\143\143\143\154\154", "     ", "\143\143\143\154\154", "     ", "\143\143\143\154\154", "^^^^^" }
+    notes = {"C ", "C#", "D ", "D#", "E ", "F ", "F#", "G ", "G#", "A ", "A#", "B "}
+    pnotes = {"c", "c#", "d", "d#", "e", "f", "f#", "g", "g#", "a", "a#", "b"}
+
+    piano_pos=18
+    mousewait=0
+    compas = 0
+    compasos = {}
+    for i=0,1279 do compasos[i] = 108 end
+    compasos[0] = 49
+    compasos[1] = 49
+    compasos[2] = 49
+    compasos[7] = 50
+    compasos[8] = 50
+    compasos[9] = 50
+    compasos[10] = 50
+
+    old_mouse_x,old_mouse_y = 0,0
+end
+
+function update()
+    color(COLOR_WHITE, COLOR_BLACK)
+    cls()
+    ink(COLOR_BLACK)
+    for i=0,39 do
+        if (i==compas) then paper(COLOR_LIGHT_RED) else paper(COLOR_LIGHT_GRAY) end
+        print("___\003",(i%10)*4,flr(i/10)+5)
+    end
+
+    if mousebutton(1) and mousey()<=8 and mousey()>=5 then
+        compas = flr(mousex()/4)+(mousey()-5)*10
+    end
+
+    for i=0,11 do
+        local k = 11-i
+        local pos = ((piano_pos+i)%12)+1
+        local oct = flr((piano_pos+i)/12)+1
+        color(COLOR_WHITE, COLOR_BLACK)
+        print(notes[pos], 1, 10+k)
+        color(COLOR_BLACK, COLOR_WHITE)
+        print(piano[pos], 3, 10+k)
+        color(COLOR_BLACK, COLOR_LIGHT_GRAY+flr(oct%2))
+        print("_______\003_______\003_______\003_______\003", 8, 10+k)
+        color(COLOR_BLACK, oct)
+        if pos==6 then
+            print(tostr(oct), 0, 10+k)
+        else
+            print(" ", 0, 10+k)
+        end
+    end
+
+    piano_pos = mid(0, piano_pos+mousewheel(), 96)
+
+    if mousewait>0 then mousewait=mousewait-1 end
+    if mousebutton(1) and mousewait==0 then
+        if mousex()<8 and mousey()>=10 and mousey()<=21 then
+            local note = piano_pos+(11-(mousey()-10))
+            play("l4o"..tostr(note/12)..pnotes[(note%12)+1])
+            mousewait=10
+        end
+    end
+
+    for i=0,31 do
+        local n = compasos[(compas*32)+i]
+        if n>=piano_pos and n<=piano_pos+11 then
+            if i>0 and n~=compasos[(compas*32)+i-1] then
+                local oct = flr(n/12)+1
+                color(COLOR_BLACK, COLOR_LIGHT_GRAY+flr(oct%2))
+                print("\003",7+i,10+11-(n-piano_pos))
+            end
+            color(COLOR_BLACK,COLOR_LIGHT_RED)
+            if i==31 or compasos[(compas*32)+i+1]~=n then
+                print("\003",8+i,10+11-(n-piano_pos))
+            else
+                print("_",8+i,10+11-(n-piano_pos))
+            end
+        end
+    end
+
+    if mousex()>=8 and  mousey()>=10 and mousey()<=21 then
+        if mousebutton(1) then
+            compasos[(compas*32)+mousex()-8] = piano_pos+11-(mousey()-10)
+            if old_mouse_x ~= mousex() or old_mouse_y ~= mousey() then
+                local note = piano_pos+11-(mousey()-10)
+                play("l4o"..tostr(note/12)..pnotes[(note%12)+1])
+            end    
+            old_mouse_x,old_mouse_y = mousex(),mousey()
+        else
+            old_mouse_x,old_mouse_y = 0,0
+            if mousebutton(3) then
+                compasos[(compas*32)+mousex()-8] = 108
+            end
+        end
+    end
+
+    if btnp(KEY_RETURN) then
+        if btn(KEY_LSHIFT) then
+            play_song(true)
+        else
+            play_song()
+        end
+    end
+
+    color(15,0)print("\143",0,0)
+    color(14,0)print("\143",1,0)
+    color(12,0)print("\143",2,0)
+    color(6,0)print("\143",3,0)
+    color(4,0)print("\143",4,0)
+    color(5,4)print("\143",5,0)
+    color(9,0)print("\143",6,0)
+    color(1,0)print("\143",7,0)
+    color(0,0)print("\143",8,0)
+
+end
+
+function search_song_end()
+    local i = 1279
+    while i>0 and compasos[i] == 108 do i=i-1 end
+    return i+1
+end
+
+function play_song(entire_song)
+    entire_song = entire_song or false
+    local note_size = {1,2,3,4,6,8,12,16,24,32}
+    local note_names = {"c","c#","d", "d#","e","f","f#","g","g#","a","a#","b"}
+    local song = ""
+
+    local current_note = 255
+    local current_octave = 4
+
+    local p=compas*32
+    local ends=32+compas*32
+
+    if entire_song then
+        p=0
+        ends=search_song_end()
+    end
+
+    while p<ends do
+        current_note = compasos[p]
+        local d=0
+        while d<32 and current_note == compasos[p] do d=d+1 p=p+1 end
+        local o = flr(current_note/12)
+        if o<9 and current_octave~=o then
+            current_octave=o
+            song=song.."o"..tostr(o)
+        end
+        local n = current_note%12
+        local note = note_names[n+1]
+        while d>0 do
+            local i=1
+            while d>note_size[i] do i=i+1 end
+            if note_size[i]>d then i=i-1 end
+            d=d-note_size[i]
+            if current_length~=i-1 then
+                current_length = i-1
+                song=song.."l"..tostr(i-1)
+            end
+            if o<9 then
+                song=song..note
+            else
+                song=song.."r"
+            end
+        end
+    end
+    log(song)
+    play(song)
+end