akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

devote 2/3rds of screen to definitions

This commit is contained in:
Kartik K. Agaram 2021-04-25 17:55:17 -07:00
parent 35a6f3cc99
commit 8e89dd5a78
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
shell/main.mu
View File

@ -10,8 +10,8 @@ fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk)
initialize-sandbox sandbox, 1/with-screen
load-state data-disk, sandbox, globals
$main:loop: {
render-globals screen, globals, 0/x, 0/y, 0x40/xmax, 0x2f/screen-height-without-menu
render-sandbox screen, sandbox, 0x41/sandbox-left-margin, 1/y, 0x80/screen-width, 0x2f/screen-height-without-menu
render-globals screen, globals, 0/x, 0/y, 0x55/xmax, 0x2f/screen-height-without-menu
render-sandbox screen, sandbox, 0x56/sandbox-left-margin, 1/y, 0x80/screen-width, 0x2f/screen-height-without-menu
{
var key/eax: byte <- read-key keyboard
compare key, 0

2
shell/sandbox.mu
View File

@ -573,7 +573,7 @@ fn edit-sandbox _self: (addr sandbox), key: byte, globals: (addr global-table),
{
compare tweak-real-screen?, 0/false
break-if-=
clear-sandbox-output real-screen, self, 0x41/sandbox-left-margin, 1/y, 0x80/screen-width, 0x2f/screen-height-without-menu
clear-sandbox-output real-screen, self, 0x56/sandbox-left-margin, 1/y, 0x80/screen-width, 0x2f/screen-height-without-menu
}
var screen-cell/eax: (addr handle cell) <- get self, screen-var
clear-screen-cell screen-cell