Material Creation tool for Sculptris...

BlitzMax Forums/OpenGL Module/Material Creation tool for Sculptris...

Taron (Posted 2010) [#1]

MaCrea, I'm calling this little app that helps create materials for sculpting apps like Sculptris or Zbrush. However, Nvidia cards, again, have no trouble with this at all, but ATI is making problems as usual. I don't know what I neglected this time in my GLSL construction, assuming the problem is there, but if anyone of you has any idea, I'd be thrilled to learn how to deal with those cards. SuperStrict Framework brl.GLMax2D 'Import brl.random Import pub.glew Import brl.StandardIO Import brl.pngloader 'Import pub.tablet AppTitle="MaCrea v0.02c" SetGraphicsDriver GLMax2DDriver() Global Width:Int = 1024 Global Height:Int = 1024 Global hWidth:Int=Width*0.5 Global hHeight:Int=Height*0.5 GLGraphics (Width,Height,0) 'Graphics (Width,Height) glewInit() glFlush() glOrtho (0, Width, Height, 0, -100, 100) glEnable(GL_ALPHA_TEST) glAlphaFunc(GL_NOTEQUAL,0) glEnable(GL_BLEND); glEnable(GL_TEXTURE_2D ) glEnable(GL_DITHER) '------------------------- Shader01 Global Shader01_vert:String Shader01_vert = .. "varying vec2 vTexCoord;~r~n"+.. "varying vec3 v;~r~n"+.. "void main(void) {~r~n"+.. " v = gl_Vertex.xyz;~r~n"+.. " vTexCoord = gl_MultiTexCoord0.xy;~r~n"+.. " gl_Position = ftransform();~r~n"+.. " gl_FrontColor = gl_Color;~r~n"+.. "}" Global Shader01_frag:String Shader01_frag = .. "uniform sampler2D colorTexture;~r~n" +.. "uniform vec3 lpos;~r~n" +.. "uniform float llit;~r~n" +.. "uniform float slit;~r~n" +.. "uniform float sublit;~r~n" +.. "uniform int soft;~r~n" +.. "uniform int bg;~r~n" +.. "varying vec2 vTexCoord;~r~n" +.. "varying vec3 v;~r~n" +.. "void main (void){~r~n" +.. " vec3 norm = vec3(-1.0+vTexCoord.x*2,-1.0+vTexCoord.y*2,0.0);~r~n"+.. " float len = norm.x*norm.x+norm.y*norm.y;~r~n"+.. " if (len>1.0 && bg)~r~n discard;~r~n"+.. " norm.z = sqrt(1.0-len);~r~n"+.. " norm = normalize(norm);~r~n"+.. " vec3 vdir = vec3(-(v.x-256),-(v.y-256),10000.0);~r~n"+.. " vdir = normalize(vdir);~r~n"+.. " vec3 ldir = vec3((lpos.x-(256+512*vTexCoord.x)),(lpos.y-(256+512*vTexCoord.y)),lpos.z);~r~n"+.. " ldir = normalize(ldir);~r~n"+.. " vec3 R = reflect(ldir,norm);~r~n"+.. " float spec = max(dot(-R,vdir),0.0);~r~n"+.. " float lite = dot(norm,ldir);~r~n"+.. " float sublite = 0.0;~r~n"+.. " vec4 subcol = vec4(0.0,0.0,0.0,0.0);~r~n"+.. " if (sublit > 0.0) {~r~n"+.. " sublite = max(sublit+lite/(1.0+sublit),0.0);~r~n"+.. " sublite *= sublite*llit;~r~n"+.. " subcol = vec4(1.0,sublite*0.5+0.5,sublite*0.5+0.45,1.0)*sublit;~r~n"+.. " }~r~n"+.. " lite = max(lite,0.0);~r~n"+.. " if (soft == 1) {~r~n"+.. " lite *=lite;~r~n"+.. " }~r~n"+.. " lite *= llit;~r~n"+.. " gl_FragColor = gl_Color*(lite+subcol*sublite+(0.15*pow(spec,15.0*slit)+0.25*pow(spec,150.0*slit))*slit);~r~n"+.. " gl_FragColor.a = 1.0;~r~n"+.. "}" rem " vec4 color = texture2D(colorTexture, vTexCoord.st);~r~n"+.. " vec3 norm = vec3(-1.0+v.x*2.0,-1.0+v.y*2.0,v.z);~r~n"+.. " vec3 vdir = vec3(-(v.x-512),-(v.y-512),2000-norm.z*20);~r~n"+.. " vec3 ldir = vec3(-(v.x-112),-(v.y-584),(100-norm.z*20));~r~n"+.. " norm = normalize(norm);~r~n"+.. " ldir = normalize(ldir);~r~n"+.. " vdir = normalize(vdir);~r~n"+.. " vec3 R = reflect(ldir,norm);~r~n"+.. " float spec = max(dot(-R,vdir),0.0);~r~n"+.. " float lite = dot(norm,ldir)*0.3;~r~n"+.. " norm.y *= -1.0;~r~n"+.. " gl_FragColor = gl_Color*lite+0.75*pow(spec,25.0);~r~n"+.. " gl_FragColor.a = color.a;~r~n"+.. "}" endrem '========================== create Shader01 program ================================= Local shader01_vert_id:Int = glCreateShader(GL_VERTEX_SHADER) Local sptr:Byte Ptr = Shader01_vert.ToCString() Local slen:Int = Shader01_vert.Length glShaderSource(shader01_vert_id,1, Varptr sptr, Varptr slen) glCompileShader(shader01_vert_id) Local shader01_frag_id:Int = glCreateShader(GL_FRAGMENT_SHADER) sptr = Shader01_frag.ToCString() slen = Shader01_frag.Length glShaderSource(shader01_frag_id,1, Varptr sptr, Varptr slen) glCompileShader(shader01_frag_id) Local Shader01:Int = glCreateProgram() glAttachShader(Shader01, shader01_vert_id) glAttachShader(Shader01, shader01_frag_id) glLinkProgram(Shader01) glUseProgram(Shader01) Global lpos:Int = glGetUniformLocation( Shader01, "lpos") Global llit:Int = glGetUniformLocation( Shader01, "llit") Global slit:Int = glGetUniformLocation( Shader01, "slit") Global sublit:Int = glGetUniformLocation( Shader01, "sublit") Global soft:Int = glGetUniformLocation( Shader01, "soft") Global bg:Int = glGetUniformLocation( Shader01, "bg") Local snap:TPixmap = CreatePixmap(512,512,PF_RGBA8888) Global palletpix:TPixmap = CreatePixmap(200,200,PF_RGBA8888) For Local y:Float = 0 Until 200 For Local x:Float = 0 Until 200 Local px:Float = -((x/100)-1.0) Local py:Float = (y/100)-1.0 Local dot:Float = px*px+py*py If dot dot = Sqr(dot) px:/dot py:/dot End If Local dtemp:Float = ACos(-py)'*57.29578 If px<0 Then dtemp = 360-dtemp Local fb:Float = 0'dtemp * 255.0 Local fg:Float = 0'dtemp*255*fg^0.75 Local fr:Float = 0'dtemp*255*fb^0.75 Local gtemp:Float=dot If gtemp>0.825 Then gtemp=0.825 gtemp=gtemp/0.825 If dtemp<240 Then fb = (1.0-Abs(dtemp/120-1))'^0.5 If dtemp<120 Then fr = (1.0-(dtemp/120))'^0.5 If dtemp>240 Then fr = ((dtemp-240)/120)'^0.5 If dtemp>120 And dtemp<360 Then fg = (1.0-Abs((dtemp-120)/120-1))'^0.5 dtemp = fb*fb+fg*fg+fr*fr If dtemp dtemp = 1.0/Sqr(dtemp) fb:*dtemp fg:*dtemp fr:*dtemp End If 'dtemp:/360 dtemp = fb If fg>dtemp Then dtemp=fg If fr>dtemp Then dtemp=fr dtemp = 1.0-dtemp Local b:Int = gtemp*(dtemp+fb)*255 Local g:Int = gtemp*(dtemp+fg)*255 Local r:Int = gtemp*(dtemp+fr)*255 If b>$ff Then b = $ff If g>$ff Then g = $ff If r>$ff Then r = $ff If b <0 Then b=0 If g <0 Then g=0 If r <0 Then r=0 Local temp:Float = dot-0.65 dot:-0.825 If dot > 0 dot = 1.0-(dot/0.5892) If dot < 0 Then dot = 0 dot=dot^2 r:*dot g:*dot b:*dot r:+(1.0-dot)*255 g:+(1.0-dot)*255 b:+(1.0-dot)*255 If temp>0 temp = Sin(temp*220)^2 *$ff If temp<0 Then temp=0 'b:+temp 'g:+temp 'r:+temp EndIf EndIf If b>$ff Then b = $ff If g>$ff Then g = $ff If r>$ff Then r = $ff palletpix.WritePixel(x,y,b|g Shl 8|r Shl 16|$ff Shl 24) Next Next Local palletID:Int glGenTextures(1, Varptr palletID) glBindTexture(GL_TEXTURE_2D, palletID) glTexImage2D(GL_TEXTURE_2D, 0, 4, palletpix.Width, palletpix.Height, 0, GL_RGBA, GL_UNSIGNED_BYTE, palletpix.pixels) glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER, GL_LINEAR) glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER, GL_LINEAR) glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_WRAP_S , GL_REPEAT) glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_WRAP_T , GL_REPEAT) Global zpos:Float = 1000.0 Local mxstore:Float = MouseX() Local mystore:Float = MouseY() Local mzstore:Float = MouseZ() Local mx:Float[20] Local my:Float[20] Local mz:Float[20] Local mlit:Float[20] Local mslit:Float[20] Local msublit:Float[20] Local msoft:Int[20] Local mR:Float[20] Local mG:Float[20] Local mB:Float[20] For Local i:Int = 0 Until 20 mx[i] = hWidth my[i] = hHeight mz[i] = zpos mlit[i] = 0.5 mslit[i] = 0.5 msublit[i] = 0.0 msoft[i] = 0 mR[i]=1.0 mG[i]=1.0 mB[i]=1.0 Next Local curcol:Float[3] Local all_bg:Int = 0 Local busy:Byte = 0 Local pbusy:Byte = 0 Local colset:Byte = 1 Local num:Int = 0 Local cur:Int = 0 While Not (KeyHit(KEY_ESCAPE) Or AppTerminate()) If KeyHit(KEY_NUMADD) Or KeyHit(KEY_EQUALS) Then num:+1;cur:+1 If KeyHit(KEY_NUMSUBTRACT) Or KeyHit(KEY_MINUS) Then num:-1 If num < 0 Then num = 0 If num > 20 Then num = 20 If KeyHit(KEY_TILDE) Then all_bg:~1 If KeyHit(KEY_TAB) Then msoft[cur]:~1 If KeyHit(KEY_UP) Then cur:+1 If KeyHit(KEY_DOWN) Then cur:-1 If cur <0 Then cur = num If cur >num Then cur = 0 If Not MouseDown(1) Then pbusy=0 If MouseX()<230 And MouseX()>30 And MouseY()<500 And MouseY()>256 And MouseDown(1) And busy=0 pbusy=1 Local pix:Float[3] glReadPixels(MouseX(),Height-MouseY(),1,1,GL_RGB,GL_FLOAT,pix) mR[cur]=pix[0] mG[cur]=pix[1] mB[cur]=pix[2] colset=1 EndIf busy=0 If pbusy=0 And colset=1 curcol[0] = mR[cur] curcol[1] = mG[cur] curcol[2] = mB[cur] colset=0 End If If MouseDown(1) And pbusy=0 Local mult:Float = 1.0+Abs(mz[cur])*0.01 If KeyDown (KEY_A) For Local i:Int = 0 To num mx[i]:+ (MouseX()-mxstore)*mult my[i]:- (MouseY()-mystore)*mult Next Else mx[cur]:+ (MouseX()-mxstore)*mult my[cur]:- (MouseY()-mystore)*mult End If busy=1 End If If MouseDown(3) If KeyDown (KEY_A) For Local i:Int = 0 To num mz[i]:+(MouseY()-mystore)*50;busy=1 Next Else mz[cur]:+(MouseY()-mystore)*50;busy=1 EndIf EndIf mz[cur]:+(MouseZ()-mzstore)*100 If MouseDown(2) If KeyDown(KEY_LCONTROL) Or KeyDown(KEY_RCONTROL) If KeyDown (KEY_A) For Local i:Int = 0 To num mslit[i]:-(MouseY()-mystore)*0.01;If mslit[i]<0.25 Then mslit[i]=0.25 Next Else mslit[cur]:-(MouseY()-mystore)*0.01;If mslit[cur]<0.25 Then mslit[cur]=0.25 EndIf Else If KeyDown(KEY_LSHIFT) Or KeyDown(KEY_RSHIFT) If KeyDown (KEY_A) For Local i:Int = 0 To num msublit[i]:-(MouseY()-mystore)*0.01;If msublit[i]<0.0 Then msublit[i]=0 Next Else msublit[cur]:-(MouseY()-mystore)*0.01;If msublit[cur]<0.0 Then msublit[cur]=0 EndIf Else If KeyDown (KEY_A) For Local i:Int = 0 To num mlit[i]:-(MouseY()-mystore)*0.01;If mlit[i]<0.0 Then mlit[i]=0 Next Else mlit[cur]:-(MouseY()-mystore)*0.01;If mlit[cur]<0.0 Then mlit[cur]=0 EndIf EndIf busy=1 EndIf mxstore = MouseX() mystore = MouseY() mzstore = MouseZ() glClear(GL_COLOR_BUFFER_BIT) glUseProgram(Shader01) glBlendFunc(GL_ONE,GL_ZERO) glUniform1iv(bg,1, [all_bg]); For Local i:Int = 0 To num glUniform3fv(lpos,1, [mx[i],my[i],mz[i]]); glUniform1fv(llit,1, [mlit[i]]); glUniform1fv(slit,1, [mslit[i]*mslit[i]*mlit[i]]); glUniform1fv(sublit,1, [msublit[i]]); glUniform1iv(soft,1, [msoft[i]]); glColor4f(mR[i],mG[i],mB[i],1.0) glBegin (GL_QUADS) glTexCoord2f(0,1); glVertex2f(256,256) glTexCoord2f(0,0); glVertex2f(256,hHeight+256) glTexCoord2f(1,0); glVertex2f(hWidth+256,hHeight+256) glTexCoord2f(1,1); glVertex2f(hWidth+256,256) glEnd glBlendFunc(GL_ONE,GL_ONE) Next If KeyHit(KEY_S) glReadPixels(256,256,512,512,GL_RGBA,GL_UNSIGNED_BYTE, snap.pixels) snap = YFlipPixmap(snap) Local filter:String = "PNG(*.png):png;All Files:*" Local filename:String = RequestFile("Save Image (*.png)", filter:String, True) If filename SavePixmapPNG( snap,filename,9 ) EndIf End If glUseProgram(0) glBlendFunc(GL_ONE,GL_ZERO) glColor4f(mR[cur],mG[cur],mB[cur],1.0) glBegin (GL_QUADS) glColor4f(curcol[0],curcol[1],curcol[2],1.0) glVertex2f(30,460) glVertex2f(30,500) glColor4f(0.5,0.5,0.5,1.0) glVertex2f(230,500) glVertex2f(230,460) glEnd glActiveTexture(GL_TEXTURE0); glBindTexture(GL_TEXTURE_2D, palletID) glColor4f(1.0,1.0,1.0,1.0) glBegin (GL_QUADS) glTexCoord2f(0,0); glVertex2f(30,256) glTexCoord2f(0,1); glVertex2f(30,456) glTexCoord2f(1,1); glVertex2f(230,456) glTexCoord2f(1,0); glVertex2f(230,256) glEnd glActiveTexture(GL_TEXTURE0); glBindTexture(GL_TEXTURE_2D, 0) glBlendFunc(GL_SRC_ALPHA,GL_ONE_MINUS_SRC_ALPHA) glColor4f(1.0,1.0,1.0,0.5) GLDrawText("NUMBER OF LIGHTS:" + (num+1) +" [NUMPAD+/-]",10,10) GLDrawText("ACTIVE LIGHT:" + (cur+1) + " [CURSOR up/down]",10,26) GLDrawText("x: "+Int(mx[cur]),10,42);GLDrawText(" diffuse: "+(mlit[cur]),100,42) GLDrawText("y: "+Int(my[cur]),10,58);GLDrawText(" specular: "+(mslit[cur]),100,58) GLDrawText("z: "+Int(mz[cur]),10,74);GLDrawText("subsurface: "+(msublit[cur]),100,74) GLDrawText("softmode:"+msoft[cur]+" [TAB]to toggle",10,90) GLDrawText("Left Mouse for xy position",10,110) GLDrawText("Middle Mouse for z position",10,126) GLDrawText("Right Mouse for light brightness, hold [CONTROL] to adjust spec, [SHIFT] to adjust subsurface!",10,142) GLDrawText("Hold down [A] to manipulate all lights.",10,158) GLDrawText("[TILDE] to toggle background.",10,174) GLDrawText("[s] to save your material as PNG.",10,190) Flip 0 Wend

_JIM (Posted 2010) [#2]

Hi Taron, I've tried looking through the shader code and everything seems to be fine but I can't get it to work properly (yay ATI!). Got some work now but later I'll try converting it to my little shader framework and see if I get lucky :-)

Taron (Posted 2010) [#3]

Ah, Jim, that would be awesome! It's such a painful stuff for me always... no idea why it has to be such a gamble. :{ THANKS in advance!

_JIM (Posted 2010) [#4]

Fixed it! As I said a while ago, ATI wants you to play by the book. The error was that the "&&" operator needs two bools instead of bool and int. Not sure what that bg does, but here's the fixed code: SuperStrict Framework brl.GLMax2D 'Import brl.random Import pub.glew Import brl.StandardIO Import brl.pngloader 'Import pub.tablet AppTitle="MaCrea v0.02c" SetGraphicsDriver GLMax2DDriver() Global Width:Int = 1024 Global Height:Int = 1024 Global hWidth:Int=Width*0.5 Global hHeight:Int=Height*0.5 GLGraphics (Width,Height,0) 'Graphics (Width,Height) glewInit() glFlush() glOrtho (0, Width, Height, 0, -100, 100) glEnable(GL_ALPHA_TEST) glAlphaFunc(GL_NOTEQUAL,0) glEnable(GL_BLEND); glEnable(GL_TEXTURE_2D ) glEnable(GL_DITHER) '------------------------- Shader01 Global Shader01_vert:String Shader01_vert = .. "varying vec2 vTexCoord;~r~n"+.. "varying vec3 v;~r~n"+.. "void main(void) {~r~n"+.. " v = gl_Vertex.xyz;~r~n"+.. " vTexCoord = gl_MultiTexCoord0.xy;~r~n"+.. " gl_Position = ftransform();~r~n"+.. " gl_FrontColor = gl_Color;~r~n"+.. "}" Global Shader01_frag:String Shader01_frag = .. "uniform sampler2D colorTexture;~r~n" +.. "uniform vec3 lpos;~r~n" +.. "uniform float llit;~r~n" +.. "uniform float slit;~r~n" +.. "uniform float sublit;~r~n" +.. "uniform int soft;~r~n" +.. "uniform int bg;~r~n" +.. "varying vec2 vTexCoord;~r~n" +.. "varying vec3 v;~r~n" +.. "void main (void){~r~n" +.. " vec3 norm = vec3(-1.0+vTexCoord.x*2,-1.0+vTexCoord.y*2,0.0);~r~n"+.. " float len = norm.x*norm.x+norm.y*norm.y;~r~n"+.. " if (len>1.0 && (bg>0))~r~n discard;~r~n" + .. " norm.z = sqrt(1.0-len);~r~n"+.. " norm = normalize(norm);~r~n"+.. " vec3 vdir = vec3(-(v.x-256),-(v.y-256),10000.0);~r~n"+.. " vdir = normalize(vdir);~r~n"+.. " vec3 ldir = vec3((lpos.x-(256+512*vTexCoord.x)),(lpos.y-(256+512*vTexCoord.y)),lpos.z);~r~n"+.. " ldir = normalize(ldir);~r~n"+.. " vec3 R = reflect(ldir,norm);~r~n"+.. " float spec = max(dot(-R,vdir),0.0);~r~n"+.. " float lite = dot(norm,ldir);~r~n"+.. " float sublite = 0.0;~r~n"+.. " vec4 subcol = vec4(0.0,0.0,0.0,0.0);~r~n"+.. " if (sublit > 0.0) {~r~n"+.. " sublite = max(sublit+lite/(1.0+sublit),0.0);~r~n"+.. " sublite *= sublite*llit;~r~n"+.. " subcol = vec4(1.0,sublite*0.5+0.5,sublite*0.5+0.45,1.0)*sublit;~r~n"+.. " }~r~n"+.. " lite = max(lite,0.0);~r~n"+.. " if (soft == 1) {~r~n"+.. " lite *=lite;~r~n"+.. " }~r~n"+.. " lite *= llit;~r~n"+.. " gl_FragColor = gl_Color*(lite+subcol*sublite+(0.15*pow(spec,15.0*slit)+0.25*pow(spec,150.0*slit))*slit);~r~n"+.. " gl_FragColor.a = 1.0;~r~n"+.. "}" rem " vec4 color = texture2D(colorTexture, vTexCoord.st);~r~n"+.. " vec3 norm = vec3(-1.0+v.x*2.0,-1.0+v.y*2.0,v.z);~r~n"+.. " vec3 vdir = vec3(-(v.x-512),-(v.y-512),2000-norm.z*20);~r~n"+.. " vec3 ldir = vec3(-(v.x-112),-(v.y-584),(100-norm.z*20));~r~n"+.. " norm = normalize(norm);~r~n"+.. " ldir = normalize(ldir);~r~n"+.. " vdir = normalize(vdir);~r~n"+.. " vec3 R = reflect(ldir,norm);~r~n"+.. " float spec = max(dot(-R,vdir),0.0);~r~n"+.. " float lite = dot(norm,ldir)*0.3;~r~n"+.. " norm.y *= -1.0;~r~n"+.. " gl_FragColor = gl_Color*lite+0.75*pow(spec,25.0);~r~n"+.. " gl_FragColor.a = color.a;~r~n"+.. "}" endrem '========================== create Shader01 program ================================= Local shader01_vert_id:Int = glCreateShader(GL_VERTEX_SHADER) Local sptr:Byte Ptr = Shader01_vert.ToCString() Local slen:Int = Shader01_vert.Length glShaderSource(shader01_vert_id,1, Varptr sptr, Varptr slen) glCompileShader(shader01_vert_id) Local shader01_frag_id:Int = glCreateShader(GL_FRAGMENT_SHADER) sptr = Shader01_frag.ToCString() slen = Shader01_frag.Length glShaderSource(shader01_frag_id,1, Varptr sptr, Varptr slen) glCompileShader(shader01_frag_id) Local Shader01:Int = glCreateProgram() glAttachShader(Shader01, shader01_vert_id) glAttachShader(Shader01, shader01_frag_id) glLinkProgram(Shader01) glUseProgram(Shader01) Global lpos:Int = glGetUniformLocation( Shader01, "lpos") Global llit:Int = glGetUniformLocation( Shader01, "llit") Global slit:Int = glGetUniformLocation( Shader01, "slit") Global sublit:Int = glGetUniformLocation( Shader01, "sublit") Global soft:Int = glGetUniformLocation( Shader01, "soft") Global bg:Int = glGetUniformLocation( Shader01, "bg") Local snap:TPixmap = CreatePixmap(512,512,PF_RGBA8888) Global palletpix:TPixmap = CreatePixmap(200,200,PF_RGBA8888) For Local y:Float = 0 Until 200 For Local x:Float = 0 Until 200 Local px:Float = -((x/100)-1.0) Local py:Float = (y/100)-1.0 Local dot:Float = px*px+py*py If dot dot = Sqr(dot) px:/dot py:/dot End If Local dtemp:Float = ACos(-py)'*57.29578 If px<0 Then dtemp = 360-dtemp Local fb:Float = 0'dtemp * 255.0 Local fg:Float = 0'dtemp*255*fg^0.75 Local fr:Float = 0'dtemp*255*fb^0.75 Local gtemp:Float=dot If gtemp>0.825 Then gtemp=0.825 gtemp=gtemp/0.825 If dtemp<240 Then fb = (1.0-Abs(dtemp/120-1))'^0.5 If dtemp<120 Then fr = (1.0-(dtemp/120))'^0.5 If dtemp>240 Then fr = ((dtemp-240)/120)'^0.5 If dtemp>120 And dtemp<360 Then fg = (1.0-Abs((dtemp-120)/120-1))'^0.5 dtemp = fb*fb+fg*fg+fr*fr If dtemp dtemp = 1.0/Sqr(dtemp) fb:*dtemp fg:*dtemp fr:*dtemp End If 'dtemp:/360 dtemp = fb If fg>dtemp Then dtemp=fg If fr>dtemp Then dtemp=fr dtemp = 1.0-dtemp Local b:Int = gtemp*(dtemp+fb)*255 Local g:Int = gtemp*(dtemp+fg)*255 Local r:Int = gtemp*(dtemp+fr)*255 If b>$ff Then b = $ff If g>$ff Then g = $ff If r>$ff Then r = $ff If b <0 Then b=0 If g <0 Then g=0 If r <0 Then r=0 Local temp:Float = dot-0.65 dot:-0.825 If dot > 0 dot = 1.0-(dot/0.5892) If dot < 0 Then dot = 0 dot=dot^2 r:*dot g:*dot b:*dot r:+(1.0-dot)*255 g:+(1.0-dot)*255 b:+(1.0-dot)*255 If temp>0 temp = Sin(temp*220)^2 *$ff If temp<0 Then temp=0 'b:+temp 'g:+temp 'r:+temp EndIf EndIf If b>$ff Then b = $ff If g>$ff Then g = $ff If r>$ff Then r = $ff palletpix.WritePixel(x,y,b|g Shl 8|r Shl 16|$ff Shl 24) Next Next Local palletID:Int glGenTextures(1, Varptr palletID) glBindTexture(GL_TEXTURE_2D, palletID) glTexImage2D(GL_TEXTURE_2D, 0, 4, palletpix.Width, palletpix.Height, 0, GL_RGBA, GL_UNSIGNED_BYTE, palletpix.pixels) glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER, GL_LINEAR) glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER, GL_LINEAR) glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_WRAP_S , GL_REPEAT) glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_WRAP_T , GL_REPEAT) Global zpos:Float = 1000.0 Local mxstore:Float = MouseX() Local mystore:Float = MouseY() Local mzstore:Float = MouseZ() Local mx:Float[20] Local my:Float[20] Local mz:Float[20] Local mlit:Float[20] Local mslit:Float[20] Local msublit:Float[20] Local msoft:Int[20] Local mR:Float[20] Local mG:Float[20] Local mB:Float[20] For Local i:Int = 0 Until 20 mx[i] = hWidth my[i] = hHeight mz[i] = zpos mlit[i] = 0.5 mslit[i] = 0.5 msublit[i] = 0.0 msoft[i] = 0 mR[i]=1.0 mG[i]=1.0 mB[i]=1.0 Next Local curcol:Float[3] Local all_bg:Int = 0 Local busy:Byte = 0 Local pbusy:Byte = 0 Local colset:Byte = 1 Local num:Int = 0 Local cur:Int = 0 While Not (KeyHit(KEY_ESCAPE) Or AppTerminate()) If KeyHit(KEY_NUMADD) Or KeyHit(KEY_EQUALS) Then num:+1;cur:+1 If KeyHit(KEY_NUMSUBTRACT) Or KeyHit(KEY_MINUS) Then num:-1 If num < 0 Then num = 0 If num > 20 Then num = 20 If KeyHit(KEY_TILDE) Then all_bg:~1 If KeyHit(KEY_TAB) Then msoft[cur]:~1 If KeyHit(KEY_UP) Then cur:+1 If KeyHit(KEY_DOWN) Then cur:-1 If cur <0 Then cur = num If cur >num Then cur = 0 If Not MouseDown(1) Then pbusy=0 If MouseX()<230 And MouseX()>30 And MouseY()<500 And MouseY()>256 And MouseDown(1) And busy=0 pbusy=1 Local pix:Float[3] glReadPixels(MouseX(),Height-MouseY(),1,1,GL_RGB,GL_FLOAT,pix) mR[cur]=pix[0] mG[cur]=pix[1] mB[cur]=pix[2] colset=1 EndIf busy=0 If pbusy=0 And colset=1 curcol[0] = mR[cur] curcol[1] = mG[cur] curcol[2] = mB[cur] colset=0 End If If MouseDown(1) And pbusy=0 Local mult:Float = 1.0+Abs(mz[cur])*0.01 If KeyDown (KEY_A) For Local i:Int = 0 To num mx[i]:+ (MouseX()-mxstore)*mult my[i]:- (MouseY()-mystore)*mult Next Else mx[cur]:+ (MouseX()-mxstore)*mult my[cur]:- (MouseY()-mystore)*mult End If busy=1 End If If MouseDown(3) If KeyDown (KEY_A) For Local i:Int = 0 To num mz[i]:+(MouseY()-mystore)*50;busy=1 Next Else mz[cur]:+(MouseY()-mystore)*50;busy=1 EndIf EndIf mz[cur]:+(MouseZ()-mzstore)*100 If MouseDown(2) If KeyDown(KEY_LCONTROL) Or KeyDown(KEY_RCONTROL) If KeyDown (KEY_A) For Local i:Int = 0 To num mslit[i]:-(MouseY()-mystore)*0.01;If mslit[i]<0.25 Then mslit[i]=0.25 Next Else mslit[cur]:-(MouseY()-mystore)*0.01;If mslit[cur]<0.25 Then mslit[cur]=0.25 EndIf Else If KeyDown(KEY_LSHIFT) Or KeyDown(KEY_RSHIFT) If KeyDown (KEY_A) For Local i:Int = 0 To num msublit[i]:-(MouseY()-mystore)*0.01;If msublit[i]<0.0 Then msublit[i]=0 Next Else msublit[cur]:-(MouseY()-mystore)*0.01;If msublit[cur]<0.0 Then msublit[cur]=0 EndIf Else If KeyDown (KEY_A) For Local i:Int = 0 To num mlit[i]:-(MouseY()-mystore)*0.01;If mlit[i]<0.0 Then mlit[i]=0 Next Else mlit[cur]:-(MouseY()-mystore)*0.01;If mlit[cur]<0.0 Then mlit[cur]=0 EndIf EndIf busy=1 EndIf mxstore = MouseX() mystore = MouseY() mzstore = MouseZ() glClear(GL_COLOR_BUFFER_BIT) glUseProgram(Shader01) glBlendFunc(GL_ONE,GL_ZERO) glUniform1iv(bg,1, [all_bg]); For Local i:Int = 0 To num glUniform3fv(lpos,1, [mx[i],my[i],mz[i]]); glUniform1fv(llit,1, [mlit[i]]); glUniform1fv(slit,1, [mslit[i]*mslit[i]*mlit[i]]); glUniform1fv(sublit,1, [msublit[i]]); glUniform1iv(soft,1, [msoft[i]]); glColor4f(mR[i],mG[i],mB[i],1.0) glBegin (GL_QUADS) glTexCoord2f(0,1); glVertex2f(256,256) glTexCoord2f(0,0); glVertex2f(256,hHeight+256) glTexCoord2f(1,0); glVertex2f(hWidth+256,hHeight+256) glTexCoord2f(1,1); glVertex2f(hWidth+256,256) glEnd glBlendFunc(GL_ONE,GL_ONE) Next If KeyHit(KEY_S) glReadPixels(256,256,512,512,GL_RGBA,GL_UNSIGNED_BYTE, snap.pixels) snap = YFlipPixmap(snap) Local filter:String = "PNG(*.png):png;All Files:*" Local filename:String = RequestFile("Save Image (*.png)", filter:String, True) If filename SavePixmapPNG( snap,filename,9 ) EndIf End If glUseProgram(0) glBlendFunc(GL_ONE,GL_ZERO) glColor4f(mR[cur],mG[cur],mB[cur],1.0) glBegin (GL_QUADS) glColor4f(curcol[0],curcol[1],curcol[2],1.0) glVertex2f(30,460) glVertex2f(30,500) glColor4f(0.5,0.5,0.5,1.0) glVertex2f(230,500) glVertex2f(230,460) glEnd glActiveTexture(GL_TEXTURE0); glBindTexture(GL_TEXTURE_2D, palletID) glColor4f(1.0,1.0,1.0,1.0) glBegin (GL_QUADS) glTexCoord2f(0,0); glVertex2f(30,256) glTexCoord2f(0,1); glVertex2f(30,456) glTexCoord2f(1,1); glVertex2f(230,456) glTexCoord2f(1,0); glVertex2f(230,256) glEnd glActiveTexture(GL_TEXTURE0); glBindTexture(GL_TEXTURE_2D, 0) glBlendFunc(GL_SRC_ALPHA,GL_ONE_MINUS_SRC_ALPHA) glColor4f(1.0,1.0,1.0,0.5) GLDrawText("NUMBER OF LIGHTS:" + (num+1) +" [NUMPAD+/-]",10,10) GLDrawText("ACTIVE LIGHT:" + (cur+1) + " [CURSOR up/down]",10,26) GLDrawText("x: "+Int(mx[cur]),10,42);GLDrawText(" diffuse: "+(mlit[cur]),100,42) GLDrawText("y: "+Int(my[cur]),10,58);GLDrawText(" specular: "+(mslit[cur]),100,58) GLDrawText("z: "+Int(mz[cur]),10,74);GLDrawText("subsurface: "+(msublit[cur]),100,74) GLDrawText("softmode:"+msoft[cur]+" [TAB]to toggle",10,90) GLDrawText("Left Mouse for xy position",10,110) GLDrawText("Middle Mouse for z position",10,126) GLDrawText("Right Mouse for light brightness, hold [CONTROL] to adjust spec, [SHIFT] to adjust subsurface!",10,142) GLDrawText("Hold down [A] to manipulate all lights.",10,158) GLDrawText("[TILDE] to toggle background.",10,174) GLDrawText("[s] to save your material as PNG.",10,190) Flip 0 Wend My little shader framework has a "DebugLog" output when shader compilation fails. The error popped in there and it was really easy to fix :-) A bit offtopic: Taron, I want to chat a bit with you. Any way I can contact you?

Taron (Posted 2010) [#5]

I just sent you an email! ;) THANK YOU a million times! I really would be thrilled, if that was all! Nothing else had to be changed? Just the if "(len>1.0 && (bg>0))~r~n discard;"? Wow... in some ways that's a slap in the face, hahaha, and scary, actually. But if that's all... my god. I have to get more disciplin into my coding. I wanted to make BG a bool, but couldn't find a uniform connection at byte level, just int, floats and their arrays. BG is a switch to turn on or off the processing of the area around the sphere. Silly little gimmik, really, but it was a request. Again, THANK YOU so much, Jim! I'm a fan of your spirit, you're a real example!

_JIM (Posted 2010) [#6]

That was the only modification, yes. I myself would have coded like that a while ago. However, I've stumbled upon this error more than once (not in GLSL though) and made a habbit of checking ints (and ESPECIALLY floats) with > or ==. I said especially floats because they have a habbit of not being precisely 0 :)