PROCEDURE gfa_m_fadeof__(destadr__%,rows__%,col__%,speed__%,options__%,pattern__%) ' **************************************************************************** ' *** *** ' ** ******** ** * ** Ein Produkt von ** ' ** ********* ********* Hans-Peter Burk und Helmut Micko ** ' ** ** ********* Software Entwicklungen ** ' ** ********* *** * *** ** ' ** ** *** * *** Library : GFA_GLIB.3_0 ** ' ** ********* *** * *** Name : M_FADEOF ** ' ** ******** *** * *** Version : 1.0 22.12.1989 14:46 ** ' ** Autor : Helmut Micko ** ' *** *** ' **************************************************************************** ' *** Funktion : Ausblenden eines Bildbereichs in der mittleren *** ' ** Aufl”sung. ** ' ** Parameter : 1.Adresse des auszublendenden Bereichs ** ' ** 2.Anzahl der Zeilen, die ausgeblendet werden sollen ** ' ** 3.Farbe des Bereichs nach dem Ausblenden ** ' ** 4.Geschwindigkeit (0-65535 0=schnell) ** ' ** 5.Nummer des Ausblendeffekts (1-13) ** ' ** 6.Muster (16 Bit) ** ' ** Lib_rv__% : == 0 = Alles Ok == -1 = INLINE-Code nicht geladen ** ' *** Lib_rv__$ : Unbenutzt *** ' **************************************************************************** LOCAL codeadr__% INLINE codeadr__%,1382 IF BYTE{codeadr__%}=&H48 ~C:codeadr__%(L:destadr__%,W:rows__%,W:col__%,W:speed__%,W:options__%,W:pattern__%) lib_rv__%=0 ELSE lib_rv__%=-1 ENDIF RETURN