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.652 |
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 157 158 159 160 161 162 |
choose-config create-context getwh ;
?looper \ init-opengl ." Screen size: " dpy-w ? dpy-h ? cr
\ gl shader program
: .glsl-error ( shader -- )
| | | 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 |
choose-config create-context getwh ;
?looper \ init-opengl ." Screen size: " dpy-w ? dpy-h ? cr
\ gl shader program
: .glsl-error ( shader -- )
$1000 pad pad cell+ glGetShaderInfoLog pad cell+ pad l@ #lf skip
BEGIN #lf $split dup WHILE 2swap cr type REPEAT 2drop
dup IF cr type ELSE 2drop THEN ;
: compile-shader ( source shadertype -- shader )
\ ." Compile shader:" cr over @ cstring>sstring type
glCreateShader dup >r IF
r@ 1 rot 0 glShaderSource
|
| ︙ | ︙ |
Changes to gl-slideshow.fs.
| ︙ | ︙ | |||
264 265 266 267 268 269 270 |
slidelist $[]slurp-file current-slide off reshow ;
: thumb-show ( addr u -- )
slidelist $[]slurp-file current-slide off rethumb ;
previous previous
\ s" slide.lst" slide-show
| > > | 264 265 266 267 268 269 270 271 272 |
slidelist $[]slurp-file current-slide off reshow ;
: thumb-show ( addr u -- )
slidelist $[]slurp-file current-slide off rethumb ;
previous previous
\ s" slide.lst" slide-show
win 0= [IF] window-init [THEN]
|
Changes to gles2/gl-helper.fs.
| ︙ | ︙ | |||
156 157 158 159 160 161 162 |
choose-config create-context getwh ;
?looper \ init-opengl ." Screen size: " dpy-w ? dpy-h ? cr
\ gl shader program
: .glsl-error ( shader -- )
| | | 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 |
choose-config create-context getwh ;
?looper \ init-opengl ." Screen size: " dpy-w ? dpy-h ? cr
\ gl shader program
: .glsl-error ( shader -- )
$1000 pad pad cell+ glGetShaderInfoLog pad cell+ pad l@ #lf skip
BEGIN #lf $split dup WHILE 2swap cr type REPEAT 2drop
dup IF cr type ELSE 2drop THEN ;
: compile-shader ( source shadertype -- shader )
\ ." Compile shader:" cr over @ cstring>sstring type
glCreateShader dup >r IF
r@ 1 rot 0 glShaderSource
|
| ︙ | ︙ |
Changes to gles2/gl-slideshow.fs.
| ︙ | ︙ | |||
264 265 266 267 268 269 270 |
slidelist $[]slurp-file current-slide off reshow ;
: thumb-show ( addr u -- )
slidelist $[]slurp-file current-slide off rethumb ;
previous previous
\ s" slide.lst" slide-show
| > > | 264 265 266 267 268 269 270 271 272 |
slidelist $[]slurp-file current-slide off reshow ;
: thumb-show ( addr u -- )
slidelist $[]slurp-file current-slide off rethumb ;
previous previous
\ s" slide.lst" slide-show
win 0= [IF] window-init [THEN]
|