PROCEDURE gfa_l_cpoff__(paladr__%,speed__%) ' **************************************************************************** ' *** *** ' ** ******** ** * ** Ein Produkt von ** ' ** ********* ********* Hans-Peter Burk und Helmut Micko ** ' ** ** ********* Software Entwicklungen ** ' ** ********* *** * *** ** ' ** ** *** * *** Library : GFA_GLIB.3_0 ** ' ** ********* *** * *** Name : L_CPOFF ** ' ** ******** *** * *** Version : 1.4 12.12.1989 18:26 ** ' ** Autor : Helmut Micko ** ' *** *** ' **************************************************************************** ' *** Funktion : Ausblenden einer Farbpalette in der niedrigsten *** ' ** Aufl”sung. ** ' ** Parameter : 1.Adresse der Farbpalette (16 Words) ** ' ** 2.Geschwindigkeit (0=schnell) ** ' ** ** ' ** ** ' ** ** ' ** ** ' ** Lib_rv__% : Unbenutzt ** ' *** Lib_rv__$ : Unbenutzt *** ' **************************************************************************** LOCAL bufadr__%,i1__%,i2__%,col__%,redv__%,greenv__%,bluev__% INLINE bufadr__%,32 FOR i1__%=0 TO 31 STEP 2 WORD{bufadr__%+i1__%}=DPEEK(paladr__%+i1__%) NEXT i1__% FOR i1__%=1 TO 7 FOR i2__%=0 TO 31 STEP 2 col__%=WORD{bufadr__%+i2__%} redv__%=(col__% AND &H700)/256-1 greenv__%=(col__% AND &H70)/16-1 bluev__%=(col__% AND &H7)-1 IF redv__%<0 redv__%=0 ENDIF IF greenv__%<0 greenv__%=0 ENDIF IF bluev__%<0 bluev__%=0 ENDIF WORD{bufadr__%+i2__%}=redv__%*256+greenv__%*16+bluev__% NEXT i2__% ~XBIOS(6,L:bufadr__%) PAUSE speed__% NEXT i1__% RETURN