Incorrect colours in Windows

[HezkoreParticipant]

It seems colours are incorrect when compiling to Windows.
But are correct when using Emscripten.

Here’s how my Windows executable looks: (Wrong)

And here’s Emscripten: (Correct)

Here’s the test code:

Monkey

#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Method OnRender( canvas:Canvas ) Override 'Blue via HEX canvas.Color=GetHexColor("#282C34") canvas.DrawRect(0,0,256,256) 'Blue via RGB canvas.Color=New Color(40.0/255.0,44.0/255.0,52.0/255.0) canvas.DrawRect(256,0,256,256) 'Green via HEX canvas.Color=GetHexColor("#223333") canvas.DrawRect(0,256,256,256) End End Function Main() New AppInstance New MyWindow App.Run() End 'Taken from Mojo's theme loader Function GetHexColor:Color(str:String) Local a:=1.0,r:=0.0,g:=0.0,b:=0.0 If str.StartsWith("#") If str.Length=4 '#RGB r=StringToULong( str.Slice( 1,2 ),16 )/15.0 g=StringToULong( str.Slice( 2,3 ),16 )/15.0 b=StringToULong( str.Slice( 3,4 ),16 )/15.0 Else If str.Length=5 '#ARGB a=StringToULong( str.Slice( 1,2 ),16 )/15.0 r=StringToULong( str.Slice( 2,3 ),16 )/15.0 g=StringToULong( str.Slice( 3,4 ),16 )/15.0 b=StringToULong( str.Slice( 4,5 ),16 )/15.0 Else If str.Length=7 '#RRGGBB r=StringToULong( str.Slice( 1,3 ),16 )/255.0 g=StringToULong( str.Slice( 3,5 ),16 )/255.0 b=StringToULong( str.Slice( 5,7 ),16 )/255.0 Else If str.Length=9 '#AARRGGBB a=StringToULong( str.Slice( 1,3 ),16 )/255.0 r=StringToULong( str.Slice( 3,5 ),16 )/255.0 g=StringToULong( str.Slice( 5,7 ),16 )/255.0 b=StringToULong( str.Slice( 7,9 ),16 )/255.0 Else Return Color.Magenta Endif Else Return Color.Magenta Endif Return New Color( r,g,b,a ) End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59

#Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window Method OnRender( canvas:Canvas ) Override 'Blue via HEX canvas.Color=GetHexColor("#282C34") canvas.DrawRect(0,0,256,256) 'Blue via RGB canvas.Color=New Color(40.0/255.0,44.0/255.0,52.0/255.0) canvas.DrawRect(256,0,256,256) 'Green via HEX canvas.Color=GetHexColor("#223333") canvas.DrawRect(0,256,256,256) End End   Function Main() New AppInstance New MyWindow App.Run() End   'Taken from Mojo's theme loader Function GetHexColor:Color(str:String) Local a:=1.0,r:=0.0,g:=0.0,b:=0.0 If str.StartsWith("#") If str.Length=4 '#RGB r=StringToULong( str.Slice( 1,2 ),16 )/15.0 g=StringToULong( str.Slice( 2,3 ),16 )/15.0 b=StringToULong( str.Slice( 3,4 ),16 )/15.0 Else If str.Length=5 '#ARGB a=StringToULong( str.Slice( 1,2 ),16 )/15.0 r=StringToULong( str.Slice( 2,3 ),16 )/15.0 g=StringToULong( str.Slice( 3,4 ),16 )/15.0 b=StringToULong( str.Slice( 4,5 ),16 )/15.0 Else If str.Length=7 '#RRGGBB r=StringToULong( str.Slice( 1,3 ),16 )/255.0 g=StringToULong( str.Slice( 3,5 ),16 )/255.0 b=StringToULong( str.Slice( 5,7 ),16 )/255.0 Else If str.Length=9 '#AARRGGBB a=StringToULong( str.Slice( 1,3 ),16 )/255.0 r=StringToULong( str.Slice( 3,5 ),16 )/255.0 g=StringToULong( str.Slice( 5,7 ),16 )/255.0 b=StringToULong( str.Slice( 7,9 ),16 )/255.0 Else Return Color.Magenta Endif Else Return Color.Magenta Endif Return New Color( r,g,b,a ) End

[Mark SiblyKeymaster]

Might be something up with OpenGL initializion. Does this produce a ‘smooth’ range of colors?

Monkey

Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) End Method OnRender( canvas:Canvas ) Override App.RequestRender() For Local r:=0 until 256 For Local g:=0 until 256 canvas.Color=New Color( r/256.0,g/256,0 ) canvas.DrawPoint( r,g ) Next Next End End Function Main() New AppInstance New MyWindow App.Run() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Namespace myapp   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window   Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null )   Super.New( title,width,height,flags ) End   Method OnRender( canvas:Canvas ) Override App.RequestRender() For Local r:=0 until 256 For Local g:=0 until 256 canvas.Color=New Color( r/256.0,g/256,0 ) canvas.DrawPoint( r,g ) Next Next End End   Function Main()   New AppInstance New MyWindow App.Run() End

[HezkoreParticipant]

It certainly does not.

Looks great in Emscripten though!

[Mark SiblyKeymaster]

Woah, 4 bit color!

Will investigate…also, what OS/graphics card are you using?

[HezkoreParticipant]

Thanks Mark, you da man!

I’m on Windows 10.
Ati/AMD card (r390x)
I updated my GPU drivers, uninstalled every program that might interfere with my colours (like f.lux), but sofar nothing’s solved it.

I first noticed the problem when trying to make a Theme for Ted2Go and all the colours ending up wrong.
So I’ve been whining over at the Ted2Go thread heh.

[Mark SiblyKeymaster]

OK, just pushed a possible fix to the ‘develop’ branch.

[Mark SiblyKeymaster]

Actually, before trying that you might want to give this a go – does it give a clean gradation of red in the lower half (top half yellow)?

Monkey

#import "<libc>" #import "<sdl2>" #import "<gles20>" Namespace sdl2test Using sdl2.. Using gles20.. Class SdlWindow Field sdlWindow:SDL_Window Ptr Field sdlGLContext:SDL_GLContext Method New() SDL_Init( SDL_INIT_VIDEO ) libc.atexit( SDL_Quit ) SDL_GL_SetAttribute( SDL_GL_CONTEXT_PROFILE_MASK,SDL_GL_CONTEXT_PROFILE_ES ) SDL_GL_SetAttribute( SDL_GL_CONTEXT_MAJOR_VERSION,2 ) SDL_GL_SetAttribute( SDL_GL_CONTEXT_MINOR_VERSION,0 ) SDL_GL_SetAttribute( SDL_GL_DOUBLEBUFFER,1 ) SDL_GL_SetAttribute( SDL_GL_RED_SIZE,8 ) SDL_GL_SetAttribute( SDL_GL_GREEN_SIZE,8 ) SDL_GL_SetAttribute( SDL_GL_BLUE_SIZE,8 ) sdlWindow=SDL_CreateWindow( "SDL2 OpenGL Window",SDL_WINDOWPOS_CENTERED,SDL_WINDOWPOS_CENTERED,640,480,SDL_WINDOW_OPENGL ) sdlGLContext=SDL_GL_CreateContext( sdlWindow ) SDL_GL_MakeCurrent( sdlWindow,sdlGLContext ) End Method Run() Repeat Local event:SDL_Event While( SDL_PollEvent( Varptr event ) ) Select event.type Case SDL_WINDOWEVENT Local wevent:=Cast<SDL_WindowEvent Ptr>( Varptr event ) Select wevent->event Case SDL_WINDOWEVENT_CLOSE libc.exit_(0) End End Wend OnRender() SDL_GL_SwapWindow( sdlWindow ) Forever End Method OnRender() glClearColor( 1,1,0,1 ) glClear( GL_COLOR_BUFFER_BIT ) glEnable( GL_SCISSOR_TEST ) For Local y:=0 Until 256 glScissor( 0,y,640,1 ) glClearColor( y/256.0,0,0,1 ) glClear( GL_COLOR_BUFFER_BIT ) Next glDisable( GL_SCISSOR_TEST ) End End Function Main() Local window:=New SdlWindow window.Run() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99

#import "<libc>" #import "<sdl2>" #import "<gles20>"   Namespace sdl2test   Using sdl2.. Using gles20..   Class SdlWindow   Field sdlWindow:SDL_Window Ptr   Field sdlGLContext:SDL_GLContext Method New() SDL_Init( SDL_INIT_VIDEO ) libc.atexit( SDL_Quit ) SDL_GL_SetAttribute( SDL_GL_CONTEXT_PROFILE_MASK,SDL_GL_CONTEXT_PROFILE_ES ) SDL_GL_SetAttribute( SDL_GL_CONTEXT_MAJOR_VERSION,2 ) SDL_GL_SetAttribute( SDL_GL_CONTEXT_MINOR_VERSION,0 ) SDL_GL_SetAttribute( SDL_GL_DOUBLEBUFFER,1 ) SDL_GL_SetAttribute( SDL_GL_RED_SIZE,8 ) SDL_GL_SetAttribute( SDL_GL_GREEN_SIZE,8 ) SDL_GL_SetAttribute( SDL_GL_BLUE_SIZE,8 ) sdlWindow=SDL_CreateWindow( "SDL2 OpenGL Window",SDL_WINDOWPOS_CENTERED,SDL_WINDOWPOS_CENTERED,640,480,SDL_WINDOW_OPENGL ) sdlGLContext=SDL_GL_CreateContext( sdlWindow ) SDL_GL_MakeCurrent( sdlWindow,sdlGLContext ) End Method Run() Repeat Local event:SDL_Event While( SDL_PollEvent( Varptr event ) ) Select event.type Case SDL_WINDOWEVENT Local wevent:=Cast<SDL_WindowEvent Ptr>( Varptr event ) Select wevent->event Case SDL_WINDOWEVENT_CLOSE libc.exit_(0) End End   Wend OnRender() SDL_GL_SwapWindow( sdlWindow )   Forever End Method OnRender() glClearColor( 1,1,0,1 ) glClear( GL_COLOR_BUFFER_BIT ) glEnable( GL_SCISSOR_TEST ) For Local y:=0 Until 256 glScissor( 0,y,640,1 ) glClearColor( y/256.0,0,0,1 ) glClear( GL_COLOR_BUFFER_BIT ) Next glDisable( GL_SCISSOR_TEST ) End End     Function Main()   Local window:=New SdlWindow window.Run() End

[HezkoreParticipant]

Yep, you did it Mark!
Looks great now, and finally I can have the IDE colours I want heh.
Thanks for the quick fix.

Update: Oh didn’t see your second post.
I’ve still got the old version though and that last example you posted looks fine even on that one.

[Author]

Posts