From 28d0d6eacd8eeb525dae0e3b19c4ce48beaafc5c Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Thu, 23 Oct 2008 03:46:21 +0000 Subject: [PATCH] 2008-10-22 20:45 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * harbour/contrib/gtwvg/tests/demowvg.prg ! Minor change to change the color pallet of screen. --- harbour/ChangeLog | 4 ++++ harbour/contrib/gtwvg/tests/demowvg.prg | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 27dcd9673a..d8ddece62f 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,10 @@ 2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org) */ +2008-10-22 20:45 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) + * harbour/contrib/gtwvg/tests/demowvg.prg + ! Minor change to change the color pallet of screen. + 2008-10-22 20:11 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * harbour/contrib/gtwvg/gtwvg.c * harbour/contrib/gtwvg/gtwvg.h diff --git a/harbour/contrib/gtwvg/tests/demowvg.prg b/harbour/contrib/gtwvg/tests/demowvg.prg index 3bcdac0069..7d423bf0d5 100644 --- a/harbour/contrib/gtwvg/tests/demowvg.prg +++ b/harbour/contrib/gtwvg/tests/demowvg.prg @@ -333,10 +333,12 @@ PROCEDURE WvtNextGets_X() LOCAL scr := SaveScreen( 0,0,maxrow(),maxcol() ) LOCAL wvtScr := Wvt_SaveScreen( 0,0,maxrow(),maxcol() ) + Static nPalletMultiplier := 0 + // Change the values of pallatte arbitrarily though yu can fine tune // these values with realistic values. // - aNewPalette[ 8 ] := aNewPalette[ 8 ] + 100000 + aNewPalette[ 8 ] := aNewPalette[ 8 ] + ( 100000 * ++nPalletMultiplier ) Wvt_SetPalette( aNewPalette )