Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | 32 bit problem with glGetShaderInfoLog fixed |
|---|---|
| Timelines: | family | ancestors | trunk |
| Files: | files | file ages | folders |
| SHA1: |
c7ea2c6286db7b77eff4d2ee062f82dc |
| User & Date: | bernd 2014-08-15 00:11:38 |
Context
|
2014-08-15
| ||
| 00:11 | 32 bit problem with glGetShaderInfoLog fixed Leaf check-in: c7ea2c6286 user: bernd tags: trunk | |
|
2014-07-01
| ||
| 23:49 | Added gl-slideshow.fs link to gles2 directory check-in: 6785b2f715 user: bernd tags: trunk | |
Changes
Changes to gl-helper.fs.
156 156 choose-config create-context getwh ; 157 157 158 158 ?looper \ init-opengl ." Screen size: " dpy-w ? dpy-h ? cr 159 159 160 160 \ gl shader program 161 161 162 162 : .glsl-error ( shader -- ) 163 - $1000 pad pad cell+ glGetShaderInfoLog pad cell+ pad @ #lf skip 163 + $1000 pad pad cell+ glGetShaderInfoLog pad cell+ pad l@ #lf skip 164 164 BEGIN #lf $split dup WHILE 2swap cr type REPEAT 2drop 165 165 dup IF cr type ELSE 2drop THEN ; 166 166 167 167 : compile-shader ( source shadertype -- shader ) 168 168 \ ." Compile shader:" cr over @ cstring>sstring type 169 169 glCreateShader dup >r IF 170 170 r@ 1 rot 0 glShaderSource
Changes to gl-slideshow.fs.
264 264 slidelist $[]slurp-file current-slide off reshow ; 265 265 : thumb-show ( addr u -- ) 266 266 slidelist $[]slurp-file current-slide off rethumb ; 267 267 268 268 previous previous 269 269 270 270 \ s" slide.lst" slide-show 271 + 272 +win 0= [IF] window-init [THEN]
Changes to gles2/gl-helper.fs.
156 156 choose-config create-context getwh ; 157 157 158 158 ?looper \ init-opengl ." Screen size: " dpy-w ? dpy-h ? cr 159 159 160 160 \ gl shader program 161 161 162 162 : .glsl-error ( shader -- ) 163 - $1000 pad pad cell+ glGetShaderInfoLog pad cell+ pad @ #lf skip 163 + $1000 pad pad cell+ glGetShaderInfoLog pad cell+ pad l@ #lf skip 164 164 BEGIN #lf $split dup WHILE 2swap cr type REPEAT 2drop 165 165 dup IF cr type ELSE 2drop THEN ; 166 166 167 167 : compile-shader ( source shadertype -- shader ) 168 168 \ ." Compile shader:" cr over @ cstring>sstring type 169 169 glCreateShader dup >r IF 170 170 r@ 1 rot 0 glShaderSource
Changes to gles2/gl-slideshow.fs.
264 264 slidelist $[]slurp-file current-slide off reshow ; 265 265 : thumb-show ( addr u -- ) 266 266 slidelist $[]slurp-file current-slide off rethumb ; 267 267 268 268 previous previous 269 269 270 270 \ s" slide.lst" slide-show 271 + 272 +win 0= [IF] window-init [THEN]