deac/presentation.fs
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

typewriter fertig. <animation> und <tw> implementiert und fertig

Browse source
This commit is contained in:
Denis Knauf 2011-01-16 13:33:07 +01:00
parent ed28a880c2
commit 21931e95ed
2 changed files with 23 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
presentation.fs
View file

@ -29,9 +29,17 @@
endcase nip
;
: typewriter-type ( addr len -- ) over + swap +do 10 ms i @ emit loop ;
variable ptype-lenl \ Wieviele Zeichen bereits in dieser Zeile geschrieben wurden
variable typewriter-delay
: typewriter-type ( addr len -- )
typewriter-delay @ -rot
over + swap +do
dup ms i @ emit
loop
drop
;
50 typewriter-delay !
variable ptype-lenl \ Wieviele Zeichen bereits in dieser Zeile geschrieben wurden
defer ptype-type
' type is ptype-type
: ptype-word ( addrw addrc c -- addrc+1 )
@ -49,7 +57,6 @@ defer ptype-type
)
;
: ptype-newline ( lenm lenl addrw addrc -- lenm 0 addrw )
\ s\" is a newline\n" type
10 ptype-word \ lenm lenl addrw=addrc+1
nip 0 swap \ lenm lenl=0 addrw
;
@ -86,7 +93,7 @@ defer ptype-type
endcase
loop \ addre lenm lenl addrw
over ptype-lenl !
nip nip tuck - type
nip nip tuck - ptype-type
;
: ptype ( addr len -- ) term-width ptype-lenl @ ptype-init ptype' ;
: ptype-reset ( -- ) 0 ptype-lenl ! ;
@ -123,9 +130,12 @@ ptype-reset \ ptype-lenl sollte von Anfang an 0 sein
: </bc> ( -- ) ['] {/bc} , ;
: {br} ( addr -- addr ) cr ptype-reset ;
: <br> ( -- , xt-{br} ) ['] {br} , ;
\ : {animation} ( addr -- addr ) cell+ @ is ptype-type ;
\ : <animation> ( -- addr u- , xt-{animation} 0 ) ['] {animation} , ' , ;
\ : </animation> ( -- ) ['] {/animation} , ;
: {animation} ( addr , xt -- addr ) dup @ ['] ptype-type defer! cell+ ;
: <animation> ( xt -- addr u- , xt-{animation} xt ) ['] {animation} , , ;
: {/animation} ( addr -- addr ) ['] type is ptype-type ;
: </animation> ( -- , xt-{/animation} ) ['] {/animation} , ;
: <tw> ( -- , xt xt ) ['] typewriter-type <animation> ;
: </tw> ( -- , xt ) </animation> ;
\ Es folgen ein paar blockorientierte Kennzeichnungen.
: {h} ( addr , len -- addr )
cr

10
presentation.p.fs
View file

@ -41,19 +41,15 @@
<presentation>
<h> !" Dies ist eine Testpraesentation!" </h>
<p>
!" Eines Tages hatten wir [" <b> !" Harald Steinlechner" </b>
!" und " <b> !" Denis Knauf" </b>
!" Eines Tages hatten wir [" <b> <tw> !" Harald Steinlechner" </tw> </b>
!" und " <b> <tw> !" Denis Knauf" </tw> </b>
!" ] die tolle Idee, eine Praesentationssoftware zu schreiben."
<br>
<br>
<b>
</p>
<en>
<||> !" erstens" </||>
<||> !" zweitens" </||>
<||> !" dann" </||>
</en>
</b>
</p>
<np>
<h> !" Ergebnis" </h>
<p> <b> !" Das hier" </b> </p>