Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fixed Linux problem with FreetypeGL - need to init context first |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
10867065c556d46e0ae498df1a82a3c4 |
User & Date: | bernd 2014-03-21 20:02:10.851 |
Context
2014-03-21
| ||
21:29 | Work on boxes check-in: 1a914abaed user: bernd tags: trunk | |
20:02 | Fixed Linux problem with FreetypeGL - need to init context first check-in: 10867065c5 user: bernd tags: trunk | |
19:39 | Linux version updated check-in: f2ee538d66 user: bernd tags: trunk | |
Changes
Changes to ftgl-sample.fs.
1 2 3 | \ freetype GL example require gl-helper.fs | | | 1 2 3 4 5 6 7 8 9 10 11 | \ freetype GL example require gl-helper.fs ctx 0= [IF] window-init [THEN] require ftgl-helper.fs \ Demo Toplevel also freetype-gl also opengl |
︙ | ︙ |
Changes to gles2/ftgl-sample.fs.
1 2 3 | \ freetype GL example require gl-helper.fs | | | 1 2 3 4 5 6 7 8 9 10 11 | \ freetype GL example require gl-helper.fs ctx 0= [IF] window-init [THEN] require ftgl-helper.fs \ Demo Toplevel also freetype-gl also opengl |
︙ | ︙ |
Changes to gles2/widgets.fs.
1 2 3 4 5 6 7 8 9 10 11 12 | \ MINOS2 widget basis \ A MINOS2 widget is composed of drawable elements, boxes and actors. \ to make things easier, neither drawable elements nor boxes need an actor. require gl-helper.fs require ftgl-helper.fs require mini-oof2.fs get-current also [IFDEF] android android [THEN] also opengl | > > < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | \ MINOS2 widget basis \ A MINOS2 widget is composed of drawable elements, boxes and actors. \ to make things easier, neither drawable elements nor boxes need an actor. require gl-helper.fs ctx 0= [IF] window-init [THEN] require ftgl-helper.fs require mini-oof2.fs get-current also [IFDEF] android android [THEN] also opengl vocabulary minos also minos definitions 0 Value layer \ drawing layer object class field: caller-w |
︙ | ︙ | |||
166 167 168 169 170 171 172 | z-bias set-color+ program glUseProgram style-tex ; : draw1> ( -- ) GL_TRIANGLES draw-elements v0 i0 ; : <draw2 ( -- ) 2 to layer s" " glyphs$ $! ; : draw2> ( -- ) glyphs$ $@ load-glyph$ ; : <draw3 ( -- ) 3 to layer | | < | | 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 | z-bias set-color+ program glUseProgram style-tex ; : draw1> ( -- ) GL_TRIANGLES draw-elements v0 i0 ; : <draw2 ( -- ) 2 to layer s" " glyphs$ $! ; : draw2> ( -- ) glyphs$ $@ load-glyph$ ; : <draw3 ( -- ) 3 to layer <render ; : draw3> ( -- ) render> v0 i0 ; Variable style-i# : load-style ( addr u -- n ) style-tex style-i# @ 8 /mod 128 * >r 128 * r> 2swap load-subtex 2drop style-i# @ 1 style-i# +! ; : style: load-style Create , DOES> @ frame# ! ; "button.png" style: button1 "button2.png" style: button2 "button3.png" style: button3 previous previous previous set-current |
Changes to opengl/linux.fs.
︙ | ︙ | |||
238 239 240 241 242 243 244 | : getwh ( -- ) 0 0 dpy-w @ dpy-h @ glViewport ; :noname ; handler-class to DoNull \ doesn't exist :noname ; handler-class to DoOne \ doesn't exit, either :noname ic event look_chars $FF look_key comp_stat XUtf8LookupString ?dup-IF look_chars swap | | > | 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 | : getwh ( -- ) 0 0 dpy-w @ dpy-h @ glViewport ; :noname ; handler-class to DoNull \ doesn't exist :noname ; handler-class to DoOne \ doesn't exit, either :noname ic event look_chars $FF look_key comp_stat XUtf8LookupString ?dup-IF look_chars swap ELSE look_key l@ x-key>ekey THEN 2dup "\e" str= IF 2drop -1 level# +! ELSE unkeys THEN ; handler-class to DoKeyPress :noname ; handler-class to DoKeyRelease :noname 0 *input action ! 1 *input pressure ! e.time @ s>d *input starttime 2! 0. *input downtime 2! e.x l@ e.y l@ *input y0 ! *input x0 ! ; handler-class to DoButtonPress :noname 1 *input action ! 0 *input pressure ! e.time l@ s>d *input starttime 2@ d- *input downtime 2! |
︙ | ︙ |
Changes to widgets.fs.
1 2 3 4 5 6 7 8 9 10 11 12 | \ MINOS2 widget basis \ A MINOS2 widget is composed of drawable elements, boxes and actors. \ to make things easier, neither drawable elements nor boxes need an actor. require gl-helper.fs require ftgl-helper.fs require mini-oof2.fs get-current also [IFDEF] android android [THEN] also opengl | > > < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | \ MINOS2 widget basis \ A MINOS2 widget is composed of drawable elements, boxes and actors. \ to make things easier, neither drawable elements nor boxes need an actor. require gl-helper.fs ctx 0= [IF] window-init [THEN] require ftgl-helper.fs require mini-oof2.fs get-current also [IFDEF] android android [THEN] also opengl vocabulary minos also minos definitions 0 Value layer \ drawing layer object class field: caller-w |
︙ | ︙ | |||
166 167 168 169 170 171 172 | z-bias set-color+ program glUseProgram style-tex ; : draw1> ( -- ) GL_TRIANGLES draw-elements v0 i0 ; : <draw2 ( -- ) 2 to layer s" " glyphs$ $! ; : draw2> ( -- ) glyphs$ $@ load-glyph$ ; : <draw3 ( -- ) 3 to layer | | < | | 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 | z-bias set-color+ program glUseProgram style-tex ; : draw1> ( -- ) GL_TRIANGLES draw-elements v0 i0 ; : <draw2 ( -- ) 2 to layer s" " glyphs$ $! ; : draw2> ( -- ) glyphs$ $@ load-glyph$ ; : <draw3 ( -- ) 3 to layer <render ; : draw3> ( -- ) render> v0 i0 ; Variable style-i# : load-style ( addr u -- n ) style-tex style-i# @ 8 /mod 128 * >r 128 * r> 2swap load-subtex 2drop style-i# @ 1 style-i# +! ; : style: load-style Create , DOES> @ frame# ! ; "button.png" style: button1 "button2.png" style: button2 "button3.png" style: button3 previous previous previous set-current |