Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Somewhat repair older presentations |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
99af21523b7c9afafc593a3b7bcbae9f |
User & Date: | bernd 2019-06-19 21:24:26.353 |
Context
2019-06-19
| ||
23:24 | Cleanup message data structures check-in: fbd7109fed user: bernd tags: trunk | |
21:24 | Somewhat repair older presentations check-in: 99af21523b user: bernd tags: trunk | |
2019-06-17
| ||
23:00 | Group context handling changed check-in: 5cb84dae88 user: bernd tags: trunk | |
Changes
Changes to doc/ef2018-presentation.fs.
︙ | ︙ | |||
621 622 623 624 625 626 627 628 629 630 631 632 633 634 | }}z }}z slide[] to top-widget also opengl : !widgets ( -- ) top-widget .htop-resize 1e ambient% sf! set-uniforms ; [IFDEF] writeout-en lsids ' .lsids s" ef2018/en" r/w create-file throw dup >r outfile-execute r> close-file throw [THEN] | > | 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 | }}z }}z slide[] to top-widget also opengl : !widgets ( -- ) set-fullscreen-hint 1 set-compose-hint top-widget .htop-resize 1e ambient% sf! set-uniforms ; [IFDEF] writeout-en lsids ' .lsids s" ef2018/en" r/w create-file throw dup >r outfile-execute r> close-file throw [THEN] |
︙ | ︙ |
Changes to doc/ft2018-presentation.fs.
︙ | ︙ | |||
53 54 55 56 57 58 59 | glue ' new static-a with-allocater Constant glue-left glue ' new static-a with-allocater Constant glue-right : glue0 ( -- ) 0e fdup [ glue-left .hglue-c ]L df! [ glue-right .hglue-c ]L df! ; : trans-frame ( o -- ) | | | | | | 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 | glue ' new static-a with-allocater Constant glue-left glue ' new static-a with-allocater Constant glue-right : glue0 ( -- ) 0e fdup [ glue-left .hglue-c ]L df! [ glue-right .hglue-c ]L df! ; : trans-frame ( o -- ) >o transp# to frame-color o> ; : solid-frame ( o -- ) >o white# to frame-color o> ; : !slides ( nprev n -- ) over >r n2-img m2-img $q-img r@ m/$-switch u>= IF swap THEN r> n/m-switch u>= IF rot THEN rot dup .parent-w .parent-w /flop drop rot dup .parent-w .parent-w /flop drop rot dup .parent-w .parent-w /flip drop trans-frame trans-frame solid-frame update-size# update-glue over slide# ! slides[] $[] @ /flip drop slides[] $[] @ /flop drop glue0 ; : fade-img ( r0..1 img1 img2 -- ) >r >r $FF fm* f>s $FFFFFF00 or dup r> >o color, to frame-color parent-w .parent-w /flop drop o> invert $FFFFFF00 or r> >o color, to frame-color parent-w .parent-w /flop drop o> ; : fade!slides ( r0..1 n -- ) dup m/$-switch = IF fdup $q-img m2-img fade-img THEN dup n/m-switch = IF fdup m2-img n2-img fade-img THEN ; |
︙ | ︙ | |||
214 215 216 217 218 219 220 | {{ $FFFFFFFF pres-frame {{ glue*l }}glue \ ) $CCDDDD3F 4e }}frame dup .button1 "net2o: ΜΙΝΩΣ2 GUI, $quid “crypto”" /title "($quid = Ethisches Micropayment mit effizienter BlockChain)" /subtitle {{ {{ glue*l }}glue | | | 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 | {{ $FFFFFFFF pres-frame {{ glue*l }}glue \ ) $CCDDDD3F 4e }}frame dup .button1 "net2o: ΜΙΝΩΣ2 GUI, $quid “crypto”" /title "($quid = Ethisches Micropayment mit effizienter BlockChain)" /subtitle {{ {{ glue*l }}glue {{ $0000007F color, to x-color \tiny l" Sed ut perspiciatis unde omnis iste natus error sit voluptatem accusantium doloremque laudantium, totam rem aperiam, eaque ipsa quae ab illo inventore veritatis et quasi architecto beatae vitae dicta sunt explicabo. " }}i18n-text \bold "Nemo enim ipsam voluptatem quia voluptas sit aspernatur aut odit aut fugit," }}text \regular " sed quia consequuntur magni dolores eos qui ratione voluptatem sequi nesciunt. Neque porro quisquam est, qui " }}text \italic "dolorem ipsum quia dolor sit amet," }}text \regular " consectetur, adipisci velit, sed quia non numquam eius modi tempora incidunt ut labore et dolore magnam aliquam quaerat voluptatem. Ut enim ad minima veniam, quis nostrum exercitationem ullam corporis suscipit laboriosam, nisi ut aliquid ex ea commodi consequatur? Quis autem vel eum iure reprehenderit qui in ea voluptate velit esse quam nihil molestiae consequatur, vel illum " }}text \bold-italic "qui dolorem eum fugiat" }}text \regular " quo voluptas nulla pariatur?" }}text glue*l }}glue }}p cbl dpy-w @ 44.5% fm* dup .par-split /center glue*l }}glue }}v glue*2 }}glue }}z \ ) $CCDDDD3F 4e }}frame dup .button1 "Bernd Paysan" /author "Forth–Tagung 2018, Essen" /location glue*l }}glue \ ) $CCDDDD3F 4e }}frame dup .button1 }}v box[] >o font-size# to border o Value title-page o o> }}z box[] dup >slides |
︙ | ︙ | |||
311 312 313 314 315 316 317 | "image " "Größeres Bild" b\\ "animation " "Klasse für Animationen" b\\ "canvas " "Vektor–Grafik (TBD)" b\\ "video " "Video–Player (TBD)" b\\ }}vt glue*l }}glue tex: vp0 glue*l ' vp0 }}vp vp[] | | | 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 | "image " "Größeres Bild" b\\ "animation " "Klasse für Animationen" b\\ "canvas " "Vektor–Grafik (TBD)" b\\ "video " "Video–Player (TBD)" b\\ }}vt glue*l }}glue tex: vp0 glue*l ' vp0 }}vp vp[] $FFBFFFFF color, fdup to slider-color to slider-fgcolor font-size# f2/ f2/ to slider-border dup font-size# f2/ fdup vslider }}h box[] }}v box[] >bdr }}z box[] /flip dup >slides |
︙ | ︙ | |||
399 400 401 402 403 404 405 | }}vt glue*l }}glue }}v box[] >bdr {{ glue*l }}glue tex: $quid-logo-large ' $quid-logo-large "squid-logo.png" 0.666e }}image-file | | | 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 | }}vt glue*l }}glue }}v box[] >bdr {{ glue*l }}glue tex: $quid-logo-large ' $quid-logo-large "squid-logo.png" 0.666e }}image-file drop >o $FFFFFFC0 color, to frame-color o o> /right }}v box[] >bdr }}z box[] /flip dup >slides \ page 11 {{ $e4cF77FF pres-frame |
︙ | ︙ |
Changes to gui-night.fs.
︙ | ︙ | |||
23 24 25 26 27 28 29 | $40C0FFFF $000000FF $000000FF $FFFFFFFF re-text-emoji-fade-color toggle-color $FF0040FF re-text-color pw-num-col# $cc6600FF re-text-color pw-text-col# $FFFFFFFF re-text-color show-sign-color# $550000FF $005500FF re-fade-color pw-bg-col# $88FF00FF re-color dark-blue# $00FF0020 re-color chbs-col# | | | 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | $40C0FFFF $000000FF $000000FF $FFFFFFFF re-text-emoji-fade-color toggle-color $FF0040FF re-text-color pw-num-col# $cc6600FF re-text-color pw-text-col# $FFFFFFFF re-text-color show-sign-color# $550000FF $005500FF re-fade-color pw-bg-col# $88FF00FF re-color dark-blue# $00FF0020 re-color chbs-col# $000020BF re-color login-bg-col# $FF000000 $FF0000FF re-fade-color pw-err-col# $444444FF re-color chat-col# $224444FF re-color chat-bg-col# $222222FF re-color posting-bg-col# $FFFFBBFF re-text-color link-blue $88FF88FF re-text-color re-green $FF8888FF re-text-color obj-red |
︙ | ︙ |
Changes to gui.fs.
︙ | ︙ | |||
228 229 230 231 232 233 234 | glue*lll± >o 1Mglue fnip 1000e fswap hglue-c glue! 0glue fnip 1filll fswap dglue-c glue! 1glue vglue-c glue! o> glue new Constant glue*shrink glue*shrink >o 0e 1filll 0e hglue-c glue! 1glue dglue-c glue! 1glue vglue-c glue! o> ' dark-blue >body f@ | | | 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 | glue*lll± >o 1Mglue fnip 1000e fswap hglue-c glue! 0glue fnip 1filll fswap dglue-c glue! 1glue vglue-c glue! o> glue new Constant glue*shrink glue*shrink >o 0e 1filll 0e hglue-c glue! 1glue dglue-c glue! 1glue vglue-c glue! o> ' dark-blue >body f@ {{ login-bg-col# pres-frame dark-blue# ' dark-blue >body f! {{ {{ glue*lll± }}glue }}v ' net2o-logo "doc/net2o.png" 0.666e }}image-file Constant net2o-glue /center !i18n l" net2o GUI" /title !lit \footnote cbl dark-blue net2o-version }}text /center |
︙ | ︙ | |||
1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 | }}v box[] }}z net2o[] Value n2o-frame \ top widgets : !widgets ( -- ) top-widget .htop-resize pw-field engage 1e ambient% sf! set-uniforms ; [IFDEF] x11 x11:XClassHint buffer: net2o-wm-class [THEN] | > | 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 | }}v box[] }}z net2o[] Value n2o-frame \ top widgets : !widgets ( -- ) \ 1 set-compose-hint top-widget .htop-resize pw-field engage 1e ambient% sf! set-uniforms ; [IFDEF] x11 x11:XClassHint buffer: net2o-wm-class [THEN] |
︙ | ︙ |