slack: first rendering of test data
This commit is contained in:
parent
0d905ca59e
commit
c407d842a4
|
@ -79,7 +79,7 @@ fn render-image screen: (addr screen), _img: (addr image), xmin: int, ymin: int,
|
|||
render-raw-image screen, img2, xmin, ymin, width, height
|
||||
return
|
||||
}
|
||||
abort "render-image: unrecognized image type"
|
||||
#? abort "render-image: unrecognized image type"
|
||||
}
|
||||
|
||||
## helpers
|
||||
|
|
|
@ -19,7 +19,77 @@ type tab {
|
|||
# the current page at
|
||||
}
|
||||
|
||||
fn render-environment env: (addr environment), users: (addr array user), channels: (addr array channel), items: (addr array item) {
|
||||
# static buffer sizes in this file:
|
||||
# item-padding-hor # in pixels
|
||||
# item-padding-ver # in characters
|
||||
# avatar-side # in pixels
|
||||
# avatar-space-hor # in characters
|
||||
# author-name-padding-ver # in characters
|
||||
# post-right-coord # in characters
|
||||
|
||||
fn render-environment screen: (addr screen), env: (addr environment), users: (addr array user), channels: (addr array channel), _items: (addr array item) {
|
||||
clear-screen screen
|
||||
var tmp-width/eax: int <- copy 0
|
||||
var tmp-height/ecx: int <- copy 0
|
||||
tmp-width, tmp-height <- screen-size screen
|
||||
var screen-height: int
|
||||
copy-to screen-height, tmp-height
|
||||
#
|
||||
var y/ecx: int <- copy 1/item-padding-ver
|
||||
var items/esi: (addr array item) <- copy _items
|
||||
var i/ebx: int <- copy 0
|
||||
var max/edx: int <- length items
|
||||
{
|
||||
compare i, max
|
||||
break-if->=
|
||||
compare y, screen-height
|
||||
break-if->=
|
||||
var offset/eax: (offset item) <- compute-offset items, i
|
||||
var curr-item/eax: (addr item) <- index items, offset
|
||||
y <- render-item screen, curr-item, users, y, screen-height
|
||||
i <- increment
|
||||
loop
|
||||
}
|
||||
}
|
||||
|
||||
fn render-item screen: (addr screen), _item: (addr item), _users: (addr array user), y: int, screen-height: int -> _/ecx: int {
|
||||
var item/esi: (addr item) <- copy _item
|
||||
var users/edi: (addr array user) <- copy _users
|
||||
var author-index-addr/ecx: (addr int) <- get item, by
|
||||
var author-index/ecx: int <- copy *author-index-addr
|
||||
var author-offset/ecx: (offset user) <- compute-offset users, author-index
|
||||
var author/ecx: (addr user) <- index users, author-offset
|
||||
# author avatar
|
||||
var author-avatar/ebx: (addr image) <- get author, avatar
|
||||
{
|
||||
compare author-avatar, 0
|
||||
break-if-=
|
||||
var y/edx: int <- copy y
|
||||
y <- shift-left 4/log2font-height
|
||||
render-image screen, author-avatar, 0x18/item-padding-hor, y, 0x50/avatar-side, 0x50/avatar-side
|
||||
}
|
||||
# author name
|
||||
var author-real-name-ah/eax: (addr handle array byte) <- get author, real-name
|
||||
var author-real-name/eax: (addr array byte) <- lookup *author-real-name-ah
|
||||
set-cursor-position screen, 0x10/avatar-space-hor, y
|
||||
draw-text-wrapping-right-then-down-from-cursor-over-full-screen screen, author-real-name, 0xf/white 0/black
|
||||
increment y
|
||||
# text
|
||||
var text-ah/eax: (addr handle array byte) <- get item, text
|
||||
var _text/eax: (addr array byte) <- lookup *text-ah
|
||||
var text/edx: (addr array byte) <- copy _text
|
||||
var x/eax: int <- copy 0x10/avatar-space-hor
|
||||
var text-y/ecx: int <- copy y
|
||||
text-y <- add 1/author-name-padding-ver
|
||||
x, text-y <- draw-text-wrapping-right-then-down screen, text, x text-y, 0x50/xmax=post-right-coord screen-height, x text-y, 7/fg 0/bg
|
||||
# flush
|
||||
add-to y, 6
|
||||
compare y, text-y
|
||||
{
|
||||
break-if-<
|
||||
return y
|
||||
}
|
||||
return text-y
|
||||
}
|
||||
|
||||
fn update-environment env: (addr environment), key: byte {
|
||||
|
|
|
@ -75,7 +75,7 @@ fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk)
|
|||
var env-storage: environment
|
||||
var env/ebx: (addr environment) <- address env-storage
|
||||
{
|
||||
render-environment env, users, channels, items
|
||||
render-environment screen, env, users, channels, items
|
||||
{
|
||||
var key/eax: byte <- read-key keyboard
|
||||
compare key, 0
|
||||
|
|
Loading…
Reference in New Issue