Busca la libreria GFORCE

[Toledo]

Alaminojunior, veja o link abaixo:

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

Abraços,

[Pablo César]

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.

[alaminojunior]

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.

[kimono59]

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