--- a/FLIReader.st	Mon Apr 21 17:28:25 1997 +0200
+++ b/FLIReader.st	Mon Apr 21 18:57:23 1997 +0200
@@ -78,6 +78,38 @@
         (Delay untilMilliseconds:tNext) wait.
         tNext := tNext + (reader frameDelay).
     ].
+
+    |reader film view tNext|
+
+    FLIReader fromFile:('/cdrom/video/fli/dh_hai.fli').
+    reader := FLIReader readFile:'/cdrom/video/fli/dh_hai.fli'.
+    reader isNil ifTrue:[^ nil].
+    film := reader images.
+    view := StandardSystemView extent:(film first extent).
+    view openAndWait.
+
+    tNext := Time millisecondClockValue + (reader frameDelay).
+    film do:[:frame |
+        frame displayOn:view x:0 y:0.
+        (Delay untilMilliseconds:tNext) wait.
+        tNext := tNext + (reader frameDelay).
+    ].
+
+
+    |reader film view tNext|
+
+    reader := FLIReader readFile:'/cdrom/video/fli/wedding.fli'.
+    reader isNil ifTrue:[^ nil].
+    film := reader images.
+    view := StandardSystemView extent:(film first extent).
+    view openAndWait.
+
+    tNext := Time millisecondClockValue + (reader frameDelay).
+    film do:[:frame |
+        frame displayOn:view x:0 y:0.
+        (Delay untilMilliseconds:tNext) wait.
+        tNext := tNext + (reader frameDelay).
+    ].
 "
 ! !
 
@@ -288,9 +320,9 @@
 
 deltaChunkAt:chunkOffs
 "/    'deltaChunkAt' infoPrintCR.
-    self halt:'not yet implemented'
+    self halt:'FLI delta chunks not yet implemented'
 
-    "Modified: 4.4.1997 / 22:46:11 / cg"
+    "Modified: 21.4.1997 / 17:30:29 / cg"
 !
 
 lcChunkAt:chunkOffs
@@ -520,6 +552,6 @@
 !FLIReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FLIReader.st,v 1.4 1997-04-05 09:27:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FLIReader.st,v 1.5 1997-04-21 16:57:23 cg Exp $'
 ! !
 FLIReader initialize!