Commit d4b6e862 authored by Bernd Paysan's avatar Bernd Paysan

Chante update-size to use a slightly smaller power than square root for size

parent 165e39e9
......@@ -27,18 +27,20 @@ require minos2/font-style.fs
font-size# 70% f* }}frame ;
: bar-frame ( glue color -- o )
font-size# 20% f* }}frame dup .button3 ;
: update-size# ( -- )
: update-gsize# ( -- )
screen-pwh max s>f
default-diag screen-diag f/ fsqrt default-scale f* 1/f #64 fm*
default-diag screen-diag f/
[ 5e fsqrt 1e f+ f2/ 1e f- ] FLiteral f**
default-scale f* 1/f #64 fm*
f/ fround to font-size#
font-size# 133% f* fround to baseline#
font-size# 32e f/ to pixelsize# ;
update-size#
require minos2/text-style.fs
require minos2/md-viewer.fs
update-gsize#
glue new Constant glue-sleft
glue new Constant glue-sright
glue ' new static-a with-allocater Constant glue-left
......
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