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

viele kommentare entfernt. typewritertype. grammatikfehler

Browse source
This commit is contained in:
Denis Knauf 2011-01-15 22:40:49 +01:00
parent aa6d926cb9
commit 15e5ee2b39
2 changed files with 3 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
presentation.fs
View file

@ -29,6 +29,7 @@
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
: ptype-word ( addrw addrc c -- addrc+1 )
-rot \ c addrw addrc
@ -55,9 +56,7 @@ variable ptype-lenl \ Wieviele Zeichen bereits in dieser Zeile geschrieben wurde
swap 1+ swap \ lenm lenl+=1 addrw
;
: ptype-anychar ( lenm lenl addrw addrc -- lenm lenl addrw addrc )
\ s\" => any char\n" type
2over <=
\ .s cr
if
\ lenm lenl addrw addrc
rot tuck over swap - \ lenm addrw lenl addrc addrc-lenl \ m w l c c-l
@ -68,27 +67,21 @@ variable ptype-lenl \ Wieviele Zeichen bereits in dieser Zeile geschrieben wurde
else \ Word erst in der naechsten Zeile ausgeben.
nip 2dup - negate -rot \ lenm addrc-addrw addrw addrc
then
cr
10 emit
then
rot 1+ -rot
\ .s cr
\ s\" <= any char\n" type
;
: ptype' ( addre lenm 0 addrw addre addr -- )
\ .s cr
\ addre ist fuer die schleife unwichtig
+do \ lenm lenl addrw
i dup c@ \ lenm lenl addrw addrc c
clearwspace
\ s\" loop>\n" type .s cr
case \ lenm lenl addrw addrc c
10 of ptype-newline endof
32 of ptype-space endof
drop ptype-anychar
endcase
\ .s cr
loop \ addre lenm lenl addrw
\ .s cr
over ptype-lenl !
nip nip tuck - type
;

2
presentation.p.fs
View file

@ -8,7 +8,7 @@
<p>
!" Natuerlich Text: " <f> s\" !\" Irgend ein Text\"" !! </f>
<br>
!" (Manchmal ist '" <f> s\" s\" Etwa wenn man !\" erklaeren zu wollen\" !!" !! </f> !" ' noetig)"
!" (Manchmal ist '" <f> s\" s\" Etwa wenn man !\" erklaeren will\" !!" !! </f> !" ' noetig)"
</p>
;
: p4-2