sdongles/kolibrios
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

add forgotten tcc files

Browse Source 
git-svn-id: svn://kolibrios.org@7760 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Kirill Lipatov (Leency) 2020-04-04 15:15:50 +00:00
parent 1fa2b55388
commit 52461ceda9
2 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
data/Tupfile.lua
View File

@ -167,6 +167,9 @@ extra_files = {
{"kolibrios/develop/oberon07/Samples/", PROGS .. "/develop/oberon07/Samples/*"},
{"kolibrios/develop/c--/", PROGS .. "/cmm/c--/*"},
{"kolibrios/develop/tcc/", "common/develop/tcc/*"},
{"kolibrios/develop/tcc/include/", "common/develop/tcc/include/*"},
{"kolibrios/develop/tcc/lib/", "common/develop/tcc/lib/*"},
{"kolibrios/develop/tcc/samples/", "common/develop/tcc/samples/*"},
{"kolibrios/develop/TinyBasic/", "common/develop/TinyBasic/*"},
{"kolibrios/utils/cnc_editor/cnc_editor", PROGS .. "/other/cnc_editor/cnc_editor"},
{"kolibrios/utils/cnc_editor/kolibri.NC", PROGS .. "/other/cnc_editor/kolibri.NC"},

14
programs/cmm/examples/window.c
View File

@ -20,4 +20,18 @@ void draw_window()
WriteText(100,50,0x80,0,"Textline small");
WriteText(100,70,0x90,0,"Textline big");
DrawBar(100, 110, 100, 100, 0x66AF86);
draw_ascii();
}
void draw_ascii()
{
char s[2];
int i, x, y;
s[1]=EOS;
for (i=0; i<256; i++) {
y = i / 20;
x = i % 20;
s[0] = i;
WriteText(x*33, y*33, 0x91, 0, #s);
}
}