home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D4.DMS / in.adf / IFFSupport1.8 / txt / ShowCycle.mod < prev    next >
Encoding:
Text File  |  1992-11-03  |  1.2 KB  |  61 lines
  1. (*---------------------------------------------------------------------------
  2.     :Program.    ShowCycle.mod
  3.     :Author.     Fridtjof Siebert
  4.     :Address.    Nobileweg 67, D-7-Stgt-40
  5.     :Shortcut.   [fbs]
  6.     :Version.    1.8
  7.     :Date.       02-Nov-92
  8.     :Copyright.  PD
  9.     :Language.   Oberon
  10.     :Translator. Amiga Oberon 3.0
  11.     :Imports.    IFFSupport [fbs].
  12.     :UpDate.     none.
  13.     :Contents.   Demo zu IFFSupport für Colorcycling.
  14.     :Remark.     Aufruf: ShowCycle <filename>
  15. ---------------------------------------------------------------------------*)
  16.  
  17. MODULE ShowCycle;
  18.  
  19.  
  20. IMPORT arg: Arguments,
  21.        I:   Intuition,
  22.        IFF: IFFSupport,
  23.        d:   Dos;
  24.  
  25. VAR
  26.   MyScreen   : I.ScreenPtr;
  27.   WindowDummy: I.WindowPtr;
  28.   Name       : ARRAY 80 OF CHAR;
  29.   length     : INTEGER;
  30.   Ciapra [0BFE001H]: SHORTSET;
  31.  
  32. BEGIN
  33.  
  34.   IF arg.NumArgs()#1 THEN
  35.  
  36.     HALT(20);
  37.  
  38.   ELSE
  39.  
  40.     arg.GetArg(1,Name);
  41.  
  42.     IF IFF.ReadILBM(Name,{IFF.front,IFF.visible},MyScreen,WindowDummy) THEN
  43.  
  44.       IF IFF.DoCycle(IFF.IFFInfo,MyScreen) THEN END;
  45.  
  46.       WHILE 6 IN Ciapra DO d.Delay(3) END;
  47.  
  48.       IFF.EndCycle(IFF.IFFInfo);
  49.  
  50.       I.OldCloseScreen(MyScreen);
  51.  
  52.     ELSE
  53.  
  54.       I.DisplayBeep(NIL);
  55.  
  56.     END;
  57.  
  58.   END;
  59.  
  60. END ShowCycle.
  61.