Have done more tests & the problem seems to be if you set a colour to RGB(255,255,255). The following code cycles through all the combinations of 4 colours (RED,GREEN,BLUE,WHITE) in fan mode & strip mode, it then runs the test again but changing the white to just 1 value lower (254,255,255).
The 1st run of both tests produce errors in the output in that you never see a white box, however with the white colour change there are no errors.
No errors on any of the tests on V10 & also of note the text that is printed below the boxes is white in V10, whereas it changes colour to the box above it in V11.(BTW am running 11.322 so not aware if this is 322 specific or any other V11 beta). If someone else could test & confirm or deny these problems or if I am missing something please let me know.
Lee
p.s only tested on Win7 as only thing I have
// --------------------------------- //
// Project: v10polytest
// Start: Saturday, April 27, 2013
// IDE Version: 11.322
GLOBAL grabcol%,colours%[],loop%,loop2%,loop3%,xoff%=0,c1$,c2%,c3$,c4%,conv%,errorcount%
DIMDATA colours%[],RGB(255,0,0),RGB(0,255,0),RGB(0,0,255),RGB(255,255,255)
conv%=Base_convert$(3333,4,10)
FOR loop3=0 TO 1
GOSUB test1
KEYWAIT
GOSUB test2
KEYWAIT
colours[3]=RGB(254,255,255) // Change last colour to not perfect white
NEXT
SUB test1: //Fan mode
errorcount%=0
FOR loop2=0 TO conv
c1$=Base_convert$(loop2,10,4)
c2=LEN(c1$)
IF c2 = 1 THEN c3$="000"+c1$ //cba to write a padding function for this test ;)
IF c2 = 2 THEN c3$="00"+c1$
IF c2 = 3 THEN c3$="0"+c1$
IF c2 = 4 THEN c3$=c1$
FOR loop = 0 TO 3
c4% = MID$(c3$,loop,1)
STARTPOLY -1
POLYVECTOR xoff+loop , loop ,0,0,colours[c4]
POLYVECTOR xoff+loop , loop+90 ,0,0,colours[c4]
POLYVECTOR xoff+loop+90 , loop+90 ,0,0,colours[c4]
POLYVECTOR xoff+loop+90 , loop ,0,0,colours[c4]
ENDPOLY
PRINT c4,xoff,100
PRINT colours[c4],xoff,110
grabcol = GETPIXEL(xoff+loop+10,loop+10)
PRINT grabcol,xoff,120
IF grabcol<>colours[c4]
PRINT "Error",xoff,130
INC errorcount
ENDIF
INC xoff,100
NEXT
xoff=0
PRINT c3$,0,140
SHOWSCREEN
SLEEP 100
NEXT
PRINT errorcount,0,0
SHOWSCREEN
ENDSUB
SUB test2: //Strip mode
errorcount%=0
FOR loop2=0 TO conv
c1$=Base_convert$(loop2,10,4)
c2=LEN(c1$)
IF c2 = 1 THEN c3$="000"+c1$
IF c2 = 2 THEN c3$="00"+c1$
IF c2 = 3 THEN c3$="0"+c1$
IF c2 = 4 THEN c3$=c1$
FOR loop = 0 TO 3
c4% = MID$(c3$,loop,1)
STARTPOLY -1,2
POLYVECTOR xoff+loop , loop ,0,0,colours[c4]
POLYVECTOR xoff+loop , loop+90 ,0,0,colours[c4]
POLYVECTOR xoff+loop+90 , loop ,0,0,colours[c4]
POLYVECTOR xoff+loop+90 , loop+90 ,0,0,colours[c4]
ENDPOLY
PRINT c4,xoff,100
PRINT colours[c4],xoff,110
grabcol = GETPIXEL(xoff+loop+10,loop+10)
PRINT grabcol,xoff,120
IF grabcol<>colours[c4]
PRINT "Error",xoff,130
INC errorcount
ENDIF
INC xoff,100
NEXT
xoff=0
PRINT c3$,0,140
SHOWSCREEN
SLEEP 100
NEXT
PRINT errorcount,0,0
SHOWSCREEN
ENDSUB
FUNCTION Base_convert$: number$,frombase%,tobase%
LOCAL charset$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
LOCAL loop%,value%,temp%,result$
number$=UCASE$(number$)
IF frombase < 2 OR frombase > 36 OR tobase% < 2 OR tobase% > 36 THEN RETURN number$
FOR loop = 1 TO LEN(number$)
value = INSTR(charset$, MID$(number$, loop-1, 1))
IF value < 0 OR value >= frombase THEN RETURN
temp = temp + value * POW(frombase,(LEN(number$) - loop))
NEXT
IF temp < 0 THEN RETURN number$
result$ = ""
REPEAT
value = MOD(temp,tobase)
temp = FLOOR(temp / tobase)
result$ = MID$(charset$, value , 1) + result$
UNTIL temp <= 0
RETURN result$
ENDFUNCTION
// Uncomment for GLBasic V10
//FUNCTION Floor%: value%
// RETURN INTEGER(value)
//ENDFUNCTION
