Check-in [58e9376a19]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Chante update-size to use a slightly smaller power than square root for size
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 58e9376a197642b3137292a875d8667c1b01acf1
User & Date: bernd 2019-09-05 20:39:08
Context
2019-09-06
15:12
Make presentations run under current MINOS2 check-in: 958b568710 user: bernd tags: trunk
2019-09-05
20:39
Chante update-size to use a slightly smaller power than square root for size check-in: 58e9376a19 user: bernd tags: trunk
2019-08-30
21:57
Fix disabling IPv6 check-in: 6ed16db24a user: bernd tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to gui.fs.

23
24
25
26
27
28
29
30
31


32
33
34
35
36
37
38
39
40


41
42
43
44
45
46
47

require minos2/font-style.fs

: slide-frame ( glue color -- o )
    font-size# 70% f* }}frame ;
: bar-frame ( glue color -- o )
    font-size# 20% f* }}frame dup .button3 ;
: update-size# ( -- )
    screen-pwh max s>f


    default-diag screen-diag f/ fsqrt 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



glue new Constant glue-sleft
glue new Constant glue-sright
glue ' new static-a with-allocater Constant glue-left
glue ' new static-a with-allocater Constant glue-right

: glue0 ( -- ) 0e fdup







|

>
>
|




<
<


>
>







23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38


39
40
41
42
43
44
45
46
47
48
49

require minos2/font-style.fs

: slide-frame ( glue color -- o )
    font-size# 70% f* }}frame ;
: bar-frame ( glue color -- o )
    font-size# 20% f* }}frame dup .button3 ;
: update-gsize# ( -- )
    screen-pwh max s>f
    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# ;



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
glue ' new static-a with-allocater Constant glue-right

: glue0 ( -- ) 0e fdup