GfxLib refreshes incorrectly screen in W98

antonigual — Sat, 22 Apr 2006 10:30:05 -0000

The computer: P166 non-MMX, 80Mb Ram, S3Trio 4Mb PCI card.
Software: W98SE, DirectX8, FB 0.15 +0.16april
Windows resolution is set to 1024*768*32.

With the following program the screen refresh bands are
put rendomly in the window, and a correct image is
never created. The code uses only a PSET, no frills.
Using SET FBgfx=gdi does'nt solve the problem.

Sorry for the code, it was created for a short code contest
[code]
1 IF n% THEN x% = RND * 640 + 1 ELSE RANDOMIZE TIMER
2 IF n% THEN y% = RND * 480 ELSE SCREEN 12
3 IF n% THEN r% = RND * 80 + (80 \ 8) ELSE READ p%, b&
4 IF n% THEN clr% = INT(RND * 4) * 4 ELSE PALETTE p%, b&
5 IF n% THEN a = RND * 3.141592 ELSE IF p% < 15 THEN
GOTO 3
6 IF n% THEN b = RND * 3.141592 / 1.5 ELSE n% = 1
7 IF n% AND x% = 0 THEN GOTO 1 ELSE x1% = CINT(COS(a)
* SIN(b) * 100)
8 y1% = CINT(SIN(a) * SIN(b) * 100)
9 z1% = CINT(COS(b) * 100)
10 FOR i% = -r% TO r%
11 i1% = i% * 100 / CSNG(r%)
12 FOR j% = -SQR(r% * r% - i% * i%) TO SQR(r% * r% -
i% * i%)
13 j1% = j% * 100 / CSNG(r%)
14 k1% = SQR(11000 - i1% * i1% - j1% * j1%)
15 c! = 3 * (x1% * i1% + j1% * y1% + k1% * z1%) / 10000
16 ccc% = 1 + clr% + INT(c!) + (RND > (c! - INT(c!)))
17 PSET (x% + i%, y% + j%), ccc%
18 NEXT j%, i%
19 IF LEN(INKEY$) THEN ELSE GOTO 1
20 DATA
0,&h5,1,&h10,2,&h20,3,&h30,4,&h500,5,&h1000,6,&h2000,7,&h3000,8,&h50000,9,&h100000,10,&h200000,11,&h300000,12,&h50505,13,&h101010,14,&h202020,15,&h303030
[/code]

Recent changes to bugs

GfxLib refreshes incorrectly screen in W98