OpenEuphoria

Simple fader

• Posted by Eduardo Uemura Okada <cool at ART.COM.BR> Jul 17, 1997
• 1052 views

This is a simple "fader" in/out screen I did.
 This uses the technique of turn palette colors to do impression of fading.
 I know it is simple basic, but if anyone can give a hand "turning off"
that horrible red in the corners, without turn color 16 in palette (this
makes the routine slower and ugly!), I'll like it.
 Enjoy!
 Comments and sugestions to

Eduardo Uemura Okada
e-mail: cool at art.com.br

begin 600 fader.ex
M('-C<F5E;BP@=V%I= T*<V5Q=65N8V4@8FET;6%P#0H-"G-C<F5E;CUG<F%P
M:&EC<U]M;V1E*#$Y*0T*#0IB:71M87 ]<F5A9%]B:71M87 H(E-T;VYE+F)M
M<"(I#0IA;&Q?<&%L971T92AB:71M87!;,5TO,C I#0H-"F9O<B!G/3$@=&\@
M,3DX(&)Y(#$X(&1O#0H)9F]R(&8],2!T;R S,#8@8GD@,3@@9&\-"@D)9&ES
M('!A; T*<&%L/3(P#0IF;W(@9#TQ('1O(#$V(&1O#0H);65T97(]=&EM92@I
M9&\-"FUE=&5R/71I;64H*0T*"6UE=&5R/6UE=&5R*S N,0T*"0EW:&EL92!M
@;6%P6S%=+W!A;"D-"@EP86P]<&%L*S$-"F5N9"!F;W)L
`
end

begin 600 stone.bmp
M0DV>!0```````#8$```H````$P```!(````!`` at ``````& at !``#.#@``V X`
M`````````````````(" @ ```( ``(" ``" ``" @ ``@ ```( `@ ! @( `
M0$ ``/^ ``" 0 ``_P! ``! @ #___\`P,# ````_P``__\``/\``/__``#_
M````_P#_`(#__P" _P``__^ `/^ @ " `/\`0(#_`.[N[@#=W=T`S,S,`+N[
MNP"JJJH`F9F9`(B(B !W=W<`9F9F`%5550!$1$0`,S,S`"(B(@`1$1$`S/__
MS !F_\P`,__,``#_S #_S,P`F<S,`&;,S `SS,P``,S,`/^9S #,F<P`F9G,
M`&:9S `SF<P``)G,`/]FS #,9LP`F6;,`&9FS `S9LP``&;,`/\SS #,,\P`
MF3/,`&8SS `S,\P``#/,`/\`S #,`,P`F0#,`&8`S `S`,P```#,`/__F0#,
M9@#_,V8`S#-F`)DS9@!F,V8`,S-F```S9@#_`&8`S !F`)D`9@!F`&8`,P!F
M,P`S`#,````S`,S_``"9_P``9O\``#/_``#_S ``S,P``)G,``!FS ``,\P`
M(2 !R2<I````*2<DGR ?'R,?( \/(R4F*"D````F)B,A(!\!()\>#Y\C)B8F
M* ``*2@D)"$@(R DGR A(,DC)24I````)R<D(R$@`1\A=0\B(20!)R@````H
M)LDB'R$='G4='A\A( $F*0```"@H)<D@'@\/'R$/#R$?(R4H````*"<G)"0@
M'Q^?("$@( $C)R@````I)R4E)"4?(I^?(!\C(<DF*0```"@G)24E)2,C)R0!
K`````"@H*"@H*"@H*2@F*"@I* `````````I````*0``*0```````````"@H
`
end