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

Merge branch 'master' of github.com:DenisKnauf/presentation.fs

Browse source
This commit is contained in:
Denis Knauf 2011-01-16 01:52:32 +01:00
commit ed28a880c2
3 changed files with 31 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
presentation.fs
View file

@ -160,6 +160,23 @@ ptype-reset \ ptype-lenl sollte von Anfang an 0 sein
: {/li} ( addr -- addr ) cr ; : {/li} ( addr -- addr ) cr ;
: </li> ( addr len -- , xt-{/li} ) ['] {/li} , swap ! ; : </li> ( addr len -- , xt-{/li} ) ['] {/li} , swap ! ;
variable enumerationCount ( -- addr )
: {||} ( addr -- addr )
enumerationCount @ 1+ enumerationCount !
s" " type enumerationCount @ 0 U.R s" ) " type
5 ptype-lenl !
cell+
;
: <||> ( -- addr u0 , xt-{||} 0 ) ['] {||} , here 0 , 0 ;
: {/||} ( addr -- addr ) cr ;
: </||> ( addr len -- , xt-{/||} ) ['] {/||} , swap ! ;
: {en} ( -- ) ;
: <en> ( -- , xt-{en} ) ['] {en} , ;
: {/en} ( -- ) ;
: </en> ( -- , xt-{/en} ) ['] {en} , ;
: {np} ( -- ) : {np} ( -- )
0 sgr \ Alle Bildschirmeigenschaften zuruecksetzen 0 sgr \ Alle Bildschirmeigenschaften zuruecksetzen
page \ Bildschirm leeren page \ Bildschirm leeren

9
presentation.p.fs
View file

@ -44,6 +44,15 @@
!" Eines Tages hatten wir [" <b> !" Harald Steinlechner" </b> !" Eines Tages hatten wir [" <b> !" Harald Steinlechner" </b>
!" und " <b> !" Denis Knauf" </b> !" und " <b> !" Denis Knauf" </b>
!" ] die tolle Idee, eine Praesentationssoftware zu schreiben." !" ] die tolle Idee, eine Praesentationssoftware zu schreiben."
<br>
<br>
<b>
<en>
<||> !" erstens" </||>
<||> !" zweitens" </||>
<||> !" dann" </||>
</en>
</b>
</p> </p>
<np> <np>
<h> !" Ergebnis" </h> <h> !" Ergebnis" </h>