PC Toledo

Alaminojunior, veja o link abaixo:

http://translate.google.com.br/translat ... R&ie=UTF-8

Abraços,

Alaminojunior, o colega primeiramente tentou se comunicar em espanhol (mesmo dominando o idioma, incrível que pareça eu pouco entendí), depois apresentou o GFORCE como biblioteca gráficas e agora está esclarecendo que o objetivo dele é produzir o memso efeito de fadein e fadeout da biblioteca GRUMPFISH. Esse efeito é de desaparecimento e aparecimento de caracteres na tela. Como se estivesse iluminado gradualmente a intesidade de cores dos caracteres em tela e diminuindo com fadeout. A tentativa que ele não está conseguindo é através da função VGAPALETTE da CT.LIB que alteraria a intensidade das TONALIDADES das cores, criando o mesmo efeito.

Esse tipo de efeito, também é utilizado em modo gráfico para exibição de fotos por exemplo. Teríamos que perguntar ao Jean se ele precisa para modo gráfico (isto é para algum jpg) ou simplesmente mudar a tonalidade de cores dos caracteres exibidos em tela.

Interessante essa do Google. Confesso que já tinha visto essa da tradução, me perdoem, mas nem me lembrava que servia pra isso.
Obrigado aí Toledo e Pablo.

Ok, after some seek, i have found in the fast lib 2 functions : 'degrade' and 'upgrade' to do what i would

the code (very simple) :
local cpalette

cPalette:=GetPalette()
Upgrade(cpalette)
rinkey(2)
Degrade(cpalette)

The only thing to do : load a bitmap in mode vga (16 or 256 colors) and apply the functions
But i work in another function find in rpcxlib, But i have to transform internal functions to make it work with gforce lib

*--------------------------------------------------------------------------
* Nice piece of code which demonstrates the DIMMING of colours.
* All colours on the screen will fade to BLACK.
*--------------------------------------------------------------------------

*-- Get the current composition of PL_GREEN
R_GetRGB ( PL_GREEN, @nRed, @nGreen, @nBlue )

*-- Loop to put the colours to BLACK (gradually)
FOR i := 63 TO 0 STEP -1

*-- Scaling factor
N := i / 63

*-- Decrease BRIGHT WHITE
R_SetRGB ( PL_BRIGHT_WHITE, N * aBWhite[1], N * aBWhite[2], N * aBWhite[3] )

*-- Decrease WHITE
R_SetRGB ( PL_WHITE, N * aWhite[1], N * aWhite[2], N * aWhite[3] )

*-- Decrease YELLOW
R_SetRGB ( PL_YELLOW, N * aYellow[1], N * aYellow[2], N * aYellow[3] )

*-- Decrease GREEN
R_SetRGB ( PL_GREEN, N * nRed, N * nGreen, N * nBlue )

*-- Little delay
IF INKEY ( 0.1 ) = K_ESC
*-- <Esc> pressed : abort
EXIT
ENDIF

NEXT

SETCOLOR ('W/N')

CLEAR

Thank you for ypur help
jean-michel - kimono59