Commit 22462bb9 authored by Bernd Paysan's avatar Bernd Paysan

Show avatar only when known

parent 3e4e6975
......@@ -433,11 +433,11 @@ glue*avatar >o pixelsize# 64 fm* 0e 0g glue-dup hglue-c glue! vglue-c glue! 0glu
: read-avatar ( addr u -- addr' u' )
?read-enc-hashed mem>thumb atlas-region ;
: show-avatar ( addr u -- o )
2dup avatar# #@ nip 0= IF
2dup read-avatar 2swap avatar# #!
ELSE 2drop THEN
glue*avatar last# cell+ $@ drop }}thumb
>r {{ r> }}v 40%b ;
[: 2dup avatar# #@ nip 0= IF
2dup read-avatar 2swap avatar# #!
ELSE 2drop THEN
glue*avatar last# cell+ $@ drop }}thumb
>r {{ r> }}v 40%b ;] catch IF 2drop THEN ;
: re-avatar ( last# -- )
>r r@ $@ read-avatar r> cell+ $@ smove ;
......
\ messages 06aug2014py
\ Copyright © 2014-2016 Bernd Paysan
\ Copyright © 2014-2019 Bernd Paysan
\ This program is free software: you can redistribute it and/or modify
\ it under the terms of the GNU Affero General Public License as published by
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment