Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Original freetype-gl32 back |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
56386d64a02a865378f01685acdacc93 |
User & Date: | bernd 2013-11-27 23:54:25.606 |
Context
2013-11-27
| ||
23:55 | Right access types check-in: 3c139c69f5 user: bernd tags: trunk | |
23:54 | Original freetype-gl32 back check-in: 56386d64a0 user: bernd tags: trunk | |
22:31 | Freetype-gl*.fs properly linked check-in: 7cd8045508 user: bernd tags: trunk | |
Changes
Changes to freetype-gl/Makefile.forth.
1 2 3 4 5 | # Generic makefile, for crosscompiling use make -f Makefile.<target> INCLUDES = -I$(NDK)/usr/include -I$(NDK)/usr/local/include/ SWIG = swig TARGETS = freetype-gl.fsx | | > | 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 | # Generic makefile, for crosscompiling use make -f Makefile.<target> INCLUDES = -I$(NDK)/usr/include -I$(NDK)/usr/local/include/ SWIG = swig TARGETS = freetype-gl.fsx LIBRARY = freetype-gl.fs OPTIONS = -forth -no-sectioncomments -stackcomments $(INCLUDES) INSTALL = /usr/bin/install -c ARCH= VERSION = `gforth --version 2>&1 | cut -f2 -d' '` SHELL = /bin/sh RMTREE = rm -rf prefix = exec_prefix = ${prefix} libexecdir = $(package)${exec_prefix}/lib libccdir = $(subst $(DESTDIR),,$(libexecdir)/gforth$(ARCH)/$(VERSION)/libcc-named/) srcdir = . DESTDIR = /home/bernd/proj/minos2/gles2 LIBTOOL = arm-linux-androideabi-libtool all: $(TARGETS) build-libcc-named: $(LIBRARY) $(TARGETS) $(RMTREE) lib/gforth$(ARCH)/$(VERSION)/libcc-named/ -for i in $(LIBRARY); do ./libforth -e "s\" `pwd`/lib/gforth$(ARCH)/$(VERSION)/libcc-named/\" libcc-named-dir-v 2! libcc-path clear-path libcc-named-dir libcc-path also-path :noname 2drop s\" $(DESTDIR)$(libccdir)\" ; is replace-rpath" $(srcdir)/$$i -e bye; done |
︙ | ︙ |
Changes to freetype-gl/freetype-gl32.fs.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | \ This file has been generated using SWIG and fsi, \ and is already platform dependent, search for the corresponding \ fsi-file to compile it where no one has compiled it before ;) \ GForth has its own dynamic loader and doesn't need addional C-Code. \ That's why this file contains normal Gforth-code( version 0.6.9 or higher ) \ and could be used directly with include or require. \ As all comments are stripped during the compilation, please \ insert the copyright notice of the original file here. Vocabulary freetype-gl get-current also freetype-gl definitions c-library freetype_gl s" freetype-gl" add-lib [IFDEF] android | > > > > | < | 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 | \ This file has been generated using SWIG and fsi, \ and is already platform dependent, search for the corresponding \ fsi-file to compile it where no one has compiled it before ;) \ GForth has its own dynamic loader and doesn't need addional C-Code. \ That's why this file contains normal Gforth-code( version 0.6.9 or higher ) \ and could be used directly with include or require. \ As all comments are stripped during the compilation, please \ insert the copyright notice of the original file here. [IFDEF] android s" /data/data/gnu.gforth/lib/libfreetype-gl.so" open-lib drop [THEN] Vocabulary freetype-gl get-current also freetype-gl definitions c-library freetype_gl s" freetype-gl" add-lib [IFDEF] android s" ./.libs" add-libpath \c #include "../../../../../freetype-gl/freetype-gl.h" [ELSE] \c #include <freetype-gl.h> [THEN] \ -------===< structs >===-------- \ vec4 begin-structure vec4 |
︙ | ︙ | |||
42 43 44 45 46 47 48 | \ ivec4 begin-structure ivec4 drop 0 16 +field ivec4-data drop 0 16 +field ivec4-xyzw drop 0 12 +field ivec4-rgb drop 0 16 +field ivec4-rgba drop 0 12 +field ivec4-xyz | | | | | | | | | 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | \ ivec4 begin-structure ivec4 drop 0 16 +field ivec4-data drop 0 16 +field ivec4-xyzw drop 0 12 +field ivec4-rgb drop 0 16 +field ivec4-rgba drop 0 12 +field ivec4-xyz drop 0 16 +field ivec4-xyzw_ drop 16 end-structure \ ivec4_xyzw_ begin-structure ivec4_xyzw_ drop 12 4 +field ivec4_xyzw_-w drop 0 4 +field ivec4_xyzw_-x drop 4 4 +field ivec4_xyzw_-y drop 8 4 +field ivec4_xyzw_-z drop 16 end-structure \ ivec3 begin-structure ivec3 drop 0 12 +field ivec3-data drop 0 12 +field ivec3-rgb drop 0 12 +field ivec3-xyz drop 0 8 +field ivec3-xy |
︙ | ︙ | |||
72 73 74 75 76 77 78 | \ ivec2 begin-structure ivec2 drop 0 8 +field ivec2-data drop 0 8 +field ivec2-xy drop 8 end-structure \ vector_t begin-structure vector_t | | > | | < | | | | | | | | | | | | < | | | < | | | | | | | | | | > > | | | | | | | | | | | | | | | | | 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 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 | \ ivec2 begin-structure ivec2 drop 0 8 +field ivec2-data drop 0 8 +field ivec2-xy drop 8 end-structure \ vector_t begin-structure vector_t field: vector_t-items field: vector_t-capacity field: vector_t-size field: vector_t-item_size end-structure \ texture_atlas_t begin-structure texture_atlas_t field: texture_atlas_t-nodes field: texture_atlas_t-width field: texture_atlas_t-height field: texture_atlas_t-depth field: texture_atlas_t-used field: texture_atlas_t-id field: texture_atlas_t-data end-structure \ kerning_t begin-structure kerning_t field: kerning_t-charcode field: kerning_t-kerning end-structure \ texture_glyph_t begin-structure texture_glyph_t field: texture_glyph_t-charcode field: texture_glyph_t-id field: texture_glyph_t-width field: texture_glyph_t-height field: texture_glyph_t-offset_x field: texture_glyph_t-offset_y field: texture_glyph_t-advance_x field: texture_glyph_t-advance_y field: texture_glyph_t-s0 field: texture_glyph_t-t0 field: texture_glyph_t-s1 field: texture_glyph_t-t1 field: texture_glyph_t-kerning field: texture_glyph_t-outline_type field: texture_glyph_t-outline_thickness drop 72 end-structure \ texture_font_t begin-structure texture_font_t field: texture_font_t-glyphs field: texture_font_t-atlas field: texture_font_t-filename field: texture_font_t-size field: texture_font_t-hinting field: texture_font_t-outline_type field: texture_font_t-outline_thickness field: texture_font_t-filtering 5 +field texture_font_t-lcd_weights field: texture_font_t-height field: texture_font_t-linegap field: texture_font_t-ascender field: texture_font_t-descender field: texture_font_t-underline_position field: texture_font_t-underline_thickness end-structure \ ------===< functions >===------- c-function vector_new vector_new n -- a c-function vector_delete vector_delete a -- void c-function vector_get vector_get a n -- a c-function vector_front vector_front a -- a c-function vector_back vector_back a -- a |
︙ | ︙ |
Changes to freetype-gl/freetype-gl64.fs.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | \ This file has been generated using SWIG and fsi, \ and is already platform dependent, search for the corresponding \ fsi-file to compile it where no one has compiled it before ;) \ GForth has its own dynamic loader and doesn't need addional C-Code. \ That's why this file contains normal Gforth-code( version 0.6.9 or higher ) \ and could be used directly with include or require. \ As all comments are stripped during the compilation, please \ insert the copyright notice of the original file here. Vocabulary freetype-gl get-current also freetype-gl definitions c-library freetype_gl s" freetype-gl" add-lib [IFDEF] android s" ./.libs" add-libpath | > > > > < | | | | 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 | \ This file has been generated using SWIG and fsi, \ and is already platform dependent, search for the corresponding \ fsi-file to compile it where no one has compiled it before ;) \ GForth has its own dynamic loader and doesn't need addional C-Code. \ That's why this file contains normal Gforth-code( version 0.6.9 or higher ) \ and could be used directly with include or require. \ As all comments are stripped during the compilation, please \ insert the copyright notice of the original file here. [IFDEF] android s" /data/data/gnu.gforth/lib/libfreetype-gl.so" open-lib drop [THEN] Vocabulary freetype-gl get-current also freetype-gl definitions c-library freetype_gl s" freetype-gl" add-lib [IFDEF] android s" ./.libs" add-libpath \c #include "../../../../../freetype_gl/freetype-gl.h" [ELSE] \c #include <freetype-gl.h> [THEN] \ -------===< structs >===-------- \ struct vec4 begin-structure struct-vec4 drop 0 16 +field struct-vec4-VEC4_ drop 16 end-structure \ vec4_VEC4 begin-structure vec4_VEC4 drop 0 16 +field vec4_VEC4-RGBA_ drop 0 16 +field vec4_VEC4-data drop 0 12 +field vec4_VEC4-rgb drop 0 16 +field vec4_VEC4-rgba drop 0 12 +field vec4_VEC4-xyz drop 16 end-structure \ vec4_VEC4_RGBA begin-structure vec4_VEC4_RGBA |
︙ | ︙ | |||
133 134 135 136 137 138 139 | drop 4 end-structure \ ivec4 begin-structure ivec4 drop 0 16 +field ivec4-IVEC4 drop 16 end-structure \ ivec4_IVEC4 begin-structure ivec4_IVEC4 | | | 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 | drop 4 end-structure \ ivec4 begin-structure ivec4 drop 0 16 +field ivec4-IVEC4 drop 16 end-structure \ ivec4_IVEC4 begin-structure ivec4_IVEC4 drop 0 16 +field ivec4_IVEC4-RGBA_ drop 0 16 +field ivec4_IVEC4-data drop 0 12 +field ivec4_IVEC4-rgb drop 0 16 +field ivec4_IVEC4-rgba drop 0 12 +field ivec4_IVEC4-xyz drop 16 end-structure \ ivec4_IVEC4_RGBA begin-structure ivec4_IVEC4_RGBA |
︙ | ︙ | |||
180 181 182 183 184 185 186 | begin-structure ivec3 drop 0 12 +field ivec3-IVEC3 drop 12 end-structure \ ivec3_IVEC3 begin-structure ivec3_IVEC3 drop 0 12 +field ivec3_IVEC3-data drop 0 12 +field ivec3_IVEC3-rgb | | | 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 | begin-structure ivec3 drop 0 12 +field ivec3-IVEC3 drop 12 end-structure \ ivec3_IVEC3 begin-structure ivec3_IVEC3 drop 0 12 +field ivec3_IVEC3-data drop 0 12 +field ivec3_IVEC3-rgb drop 0 12 +field ivec3_IVEC3-RGB_ drop 0 12 +field ivec3_IVEC3-xyz drop 0 8 +field ivec3_IVEC3-xy drop 12 end-structure \ ivec3_IVEC3_RGB begin-structure ivec3_IVEC3_RGB drop 8 4 +field ivec3_IVEC3_RGB-b drop 0 4 +field ivec3_IVEC3_RGB-r |
︙ | ︙ | |||
217 218 219 220 221 222 223 | drop 4 end-structure \ ivec2 begin-structure ivec2 drop 0 8 +field ivec2-IVEC2 drop 8 end-structure \ ivec2_IVEC2 begin-structure ivec2_IVEC2 | | | 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 | drop 4 end-structure \ ivec2 begin-structure ivec2 drop 0 8 +field ivec2-IVEC2 drop 8 end-structure \ ivec2_IVEC2 begin-structure ivec2_IVEC2 drop 0 8 +field ivec2_IVEC2-XY_ drop 0 8 +field ivec2_IVEC2-data drop 0 8 +field ivec2_IVEC2-xy drop 8 end-structure \ ivec2_IVEC2_XY begin-structure ivec2_IVEC2_XY drop 0 4 +field ivec2_IVEC2_XY-x drop 4 4 +field ivec2_IVEC2_XY-y |
︙ | ︙ |
Changes to freetype-gl32.fs.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | \ This file has been generated using SWIG and fsi, \ and is already platform dependent, search for the corresponding \ fsi-file to compile it where no one has compiled it before ;) \ GForth has its own dynamic loader and doesn't need addional C-Code. \ That's why this file contains normal Gforth-code( version 0.6.9 or higher ) \ and could be used directly with include or require. \ As all comments are stripped during the compilation, please \ insert the copyright notice of the original file here. Vocabulary freetype-gl get-current also freetype-gl definitions c-library freetype_gl s" freetype-gl" add-lib [IFDEF] android | > > > > | < | 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 | \ This file has been generated using SWIG and fsi, \ and is already platform dependent, search for the corresponding \ fsi-file to compile it where no one has compiled it before ;) \ GForth has its own dynamic loader and doesn't need addional C-Code. \ That's why this file contains normal Gforth-code( version 0.6.9 or higher ) \ and could be used directly with include or require. \ As all comments are stripped during the compilation, please \ insert the copyright notice of the original file here. [IFDEF] android s" /data/data/gnu.gforth/lib/libfreetype-gl.so" open-lib drop [THEN] Vocabulary freetype-gl get-current also freetype-gl definitions c-library freetype_gl s" freetype-gl" add-lib [IFDEF] android s" ./.libs" add-libpath \c #include "../../../../../freetype-gl/freetype-gl.h" [ELSE] \c #include <freetype-gl.h> [THEN] \ -------===< structs >===-------- \ vec4 begin-structure vec4 |
︙ | ︙ | |||
42 43 44 45 46 47 48 | \ ivec4 begin-structure ivec4 drop 0 16 +field ivec4-data drop 0 16 +field ivec4-xyzw drop 0 12 +field ivec4-rgb drop 0 16 +field ivec4-rgba drop 0 12 +field ivec4-xyz | | | | | | | | | 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | \ ivec4 begin-structure ivec4 drop 0 16 +field ivec4-data drop 0 16 +field ivec4-xyzw drop 0 12 +field ivec4-rgb drop 0 16 +field ivec4-rgba drop 0 12 +field ivec4-xyz drop 0 16 +field ivec4-xyzw_ drop 16 end-structure \ ivec4_xyzw_ begin-structure ivec4_xyzw_ drop 12 4 +field ivec4_xyzw_-w drop 0 4 +field ivec4_xyzw_-x drop 4 4 +field ivec4_xyzw_-y drop 8 4 +field ivec4_xyzw_-z drop 16 end-structure \ ivec3 begin-structure ivec3 drop 0 12 +field ivec3-data drop 0 12 +field ivec3-rgb drop 0 12 +field ivec3-xyz drop 0 8 +field ivec3-xy |
︙ | ︙ | |||
72 73 74 75 76 77 78 | \ ivec2 begin-structure ivec2 drop 0 8 +field ivec2-data drop 0 8 +field ivec2-xy drop 8 end-structure \ vector_t begin-structure vector_t | | > | | < | | | | | | | | | | | | < | | | < | | | | | | | | | | > > | | | | | | | | | | | | | | | | | 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 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 | \ ivec2 begin-structure ivec2 drop 0 8 +field ivec2-data drop 0 8 +field ivec2-xy drop 8 end-structure \ vector_t begin-structure vector_t field: vector_t-items field: vector_t-capacity field: vector_t-size field: vector_t-item_size end-structure \ texture_atlas_t begin-structure texture_atlas_t field: texture_atlas_t-nodes field: texture_atlas_t-width field: texture_atlas_t-height field: texture_atlas_t-depth field: texture_atlas_t-used field: texture_atlas_t-id field: texture_atlas_t-data end-structure \ kerning_t begin-structure kerning_t field: kerning_t-charcode field: kerning_t-kerning end-structure \ texture_glyph_t begin-structure texture_glyph_t field: texture_glyph_t-charcode field: texture_glyph_t-id field: texture_glyph_t-width field: texture_glyph_t-height field: texture_glyph_t-offset_x field: texture_glyph_t-offset_y field: texture_glyph_t-advance_x field: texture_glyph_t-advance_y field: texture_glyph_t-s0 field: texture_glyph_t-t0 field: texture_glyph_t-s1 field: texture_glyph_t-t1 field: texture_glyph_t-kerning field: texture_glyph_t-outline_type field: texture_glyph_t-outline_thickness drop 72 end-structure \ texture_font_t begin-structure texture_font_t field: texture_font_t-glyphs field: texture_font_t-atlas field: texture_font_t-filename field: texture_font_t-size field: texture_font_t-hinting field: texture_font_t-outline_type field: texture_font_t-outline_thickness field: texture_font_t-filtering 5 +field texture_font_t-lcd_weights field: texture_font_t-height field: texture_font_t-linegap field: texture_font_t-ascender field: texture_font_t-descender field: texture_font_t-underline_position field: texture_font_t-underline_thickness end-structure \ ------===< functions >===------- c-function vector_new vector_new n -- a c-function vector_delete vector_delete a -- void c-function vector_get vector_get a n -- a c-function vector_front vector_front a -- a c-function vector_back vector_back a -- a |
︙ | ︙ |
Changes to freetype-gl64.fs.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | \ This file has been generated using SWIG and fsi, \ and is already platform dependent, search for the corresponding \ fsi-file to compile it where no one has compiled it before ;) \ GForth has its own dynamic loader and doesn't need addional C-Code. \ That's why this file contains normal Gforth-code( version 0.6.9 or higher ) \ and could be used directly with include or require. \ As all comments are stripped during the compilation, please \ insert the copyright notice of the original file here. Vocabulary freetype-gl get-current also freetype-gl definitions c-library freetype_gl s" freetype-gl" add-lib [IFDEF] android s" ./.libs" add-libpath | > > > > < | | | | 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 | \ This file has been generated using SWIG and fsi, \ and is already platform dependent, search for the corresponding \ fsi-file to compile it where no one has compiled it before ;) \ GForth has its own dynamic loader and doesn't need addional C-Code. \ That's why this file contains normal Gforth-code( version 0.6.9 or higher ) \ and could be used directly with include or require. \ As all comments are stripped during the compilation, please \ insert the copyright notice of the original file here. [IFDEF] android s" /data/data/gnu.gforth/lib/libfreetype-gl.so" open-lib drop [THEN] Vocabulary freetype-gl get-current also freetype-gl definitions c-library freetype_gl s" freetype-gl" add-lib [IFDEF] android s" ./.libs" add-libpath \c #include "../../../../../freetype_gl/freetype-gl.h" [ELSE] \c #include <freetype-gl.h> [THEN] \ -------===< structs >===-------- \ struct vec4 begin-structure struct-vec4 drop 0 16 +field struct-vec4-VEC4_ drop 16 end-structure \ vec4_VEC4 begin-structure vec4_VEC4 drop 0 16 +field vec4_VEC4-RGBA_ drop 0 16 +field vec4_VEC4-data drop 0 12 +field vec4_VEC4-rgb drop 0 16 +field vec4_VEC4-rgba drop 0 12 +field vec4_VEC4-xyz drop 16 end-structure \ vec4_VEC4_RGBA begin-structure vec4_VEC4_RGBA |
︙ | ︙ | |||
133 134 135 136 137 138 139 | drop 4 end-structure \ ivec4 begin-structure ivec4 drop 0 16 +field ivec4-IVEC4 drop 16 end-structure \ ivec4_IVEC4 begin-structure ivec4_IVEC4 | | | 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 | drop 4 end-structure \ ivec4 begin-structure ivec4 drop 0 16 +field ivec4-IVEC4 drop 16 end-structure \ ivec4_IVEC4 begin-structure ivec4_IVEC4 drop 0 16 +field ivec4_IVEC4-RGBA_ drop 0 16 +field ivec4_IVEC4-data drop 0 12 +field ivec4_IVEC4-rgb drop 0 16 +field ivec4_IVEC4-rgba drop 0 12 +field ivec4_IVEC4-xyz drop 16 end-structure \ ivec4_IVEC4_RGBA begin-structure ivec4_IVEC4_RGBA |
︙ | ︙ | |||
180 181 182 183 184 185 186 | begin-structure ivec3 drop 0 12 +field ivec3-IVEC3 drop 12 end-structure \ ivec3_IVEC3 begin-structure ivec3_IVEC3 drop 0 12 +field ivec3_IVEC3-data drop 0 12 +field ivec3_IVEC3-rgb | | | 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 | begin-structure ivec3 drop 0 12 +field ivec3-IVEC3 drop 12 end-structure \ ivec3_IVEC3 begin-structure ivec3_IVEC3 drop 0 12 +field ivec3_IVEC3-data drop 0 12 +field ivec3_IVEC3-rgb drop 0 12 +field ivec3_IVEC3-RGB_ drop 0 12 +field ivec3_IVEC3-xyz drop 0 8 +field ivec3_IVEC3-xy drop 12 end-structure \ ivec3_IVEC3_RGB begin-structure ivec3_IVEC3_RGB drop 8 4 +field ivec3_IVEC3_RGB-b drop 0 4 +field ivec3_IVEC3_RGB-r |
︙ | ︙ | |||
217 218 219 220 221 222 223 | drop 4 end-structure \ ivec2 begin-structure ivec2 drop 0 8 +field ivec2-IVEC2 drop 8 end-structure \ ivec2_IVEC2 begin-structure ivec2_IVEC2 | | | 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 | drop 4 end-structure \ ivec2 begin-structure ivec2 drop 0 8 +field ivec2-IVEC2 drop 8 end-structure \ ivec2_IVEC2 begin-structure ivec2_IVEC2 drop 0 8 +field ivec2_IVEC2-XY_ drop 0 8 +field ivec2_IVEC2-data drop 0 8 +field ivec2_IVEC2-xy drop 8 end-structure \ ivec2_IVEC2_XY begin-structure ivec2_IVEC2_XY drop 0 4 +field ivec2_IVEC2_XY-x drop 4 4 +field ivec2_IVEC2_XY-y |
︙ | ︙ |
Changes to ftgl-helper.fs.
︙ | ︙ | |||
16 17 18 19 20 21 22 | also freetype-gl also opengl 512 Value atlas# atlas# dup 1 texture_atlas_new Value atlas | | > > > | | | 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | also freetype-gl also opengl 512 Value atlas# atlas# dup 1 texture_atlas_new Value atlas tex: atlas-tex atlas-tex current-tex atlas texture_atlas_t-id ! \ : atlas-tex atlas texture_atlas_t-id l@ dup to current-tex \ GL_TEXTURE_2D swap glBindTexture ; \ render font into vertex buffers 2 sfloats buffer: penxy Variable color $FFC0A0FF color ! : xy, { glyph -- } |
︙ | ︙ |
Changes to ftgl-sample.fs.
︙ | ︙ | |||
26 27 28 29 30 31 32 | Variable text2$ "这是一个文本:在德语说" text2$ $! : glyph-draw ( -- ) 0.01e 0.02e 0.15e 1.0e glClearColor clear Ambient 1 ambient% glUniform1fv <render | | | > | | 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 | Variable text2$ "这是一个文本:在德语说" text2$ $! : glyph-draw ( -- ) 0.01e 0.02e 0.15e 1.0e glClearColor clear Ambient 1 ambient% glUniform1fv <render 0e penxy sf! -20e penxy sfloat+ sf! font1 to font text1$ $@ render-string -100e penxy sf! -80e penxy sfloat+ sf! font2 to font text2$ $@ render-string all-glyphs render> sync ; : glyph-demo ( -- ) program init [IFDEF] hidekb hidekb [THEN] 1 level# +! BEGIN glyph-draw >looper level# @ 0= UNTIL ; previous previous previous |
Changes to gl-terminal.fs.
︙ | ︙ | |||
351 352 353 354 355 356 357 | what's at-xy what's at-deltaxy what's page what's attr! >term IS attr! IS page IS at-deltaxy IS at-xy default-out op-vector ! \ initialize : term-init ( -- ) | | | | 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 | what's at-xy what's at-deltaxy what's page what's attr! >term IS attr! IS page IS at-deltaxy IS at-xy default-out op-vector ! \ initialize : term-init ( -- ) >screen-orientation create-terminal-program to terminal-program terminal-program terminal-init term-load-textures form-chooser unit-matrix MVPMatrix set-matrix ; :noname defers window-init ['] TerminalShader recompile-shader term-init config-changer ; IS window-init window-init previous \ remove opengl from search order [IFDEF] android previous [THEN] |
Changes to gles2/freetype-gl32.fs.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | \ This file has been generated using SWIG and fsi, \ and is already platform dependent, search for the corresponding \ fsi-file to compile it where no one has compiled it before ;) \ GForth has its own dynamic loader and doesn't need addional C-Code. \ That's why this file contains normal Gforth-code( version 0.6.9 or higher ) \ and could be used directly with include or require. \ As all comments are stripped during the compilation, please \ insert the copyright notice of the original file here. Vocabulary freetype-gl get-current also freetype-gl definitions c-library freetype_gl s" freetype-gl" add-lib [IFDEF] android | > > > > | < | 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 | \ This file has been generated using SWIG and fsi, \ and is already platform dependent, search for the corresponding \ fsi-file to compile it where no one has compiled it before ;) \ GForth has its own dynamic loader and doesn't need addional C-Code. \ That's why this file contains normal Gforth-code( version 0.6.9 or higher ) \ and could be used directly with include or require. \ As all comments are stripped during the compilation, please \ insert the copyright notice of the original file here. [IFDEF] android s" /data/data/gnu.gforth/lib/libfreetype-gl.so" open-lib drop [THEN] Vocabulary freetype-gl get-current also freetype-gl definitions c-library freetype_gl s" freetype-gl" add-lib [IFDEF] android s" ./.libs" add-libpath \c #include "../../../../../freetype-gl/freetype-gl.h" [ELSE] \c #include <freetype-gl.h> [THEN] \ -------===< structs >===-------- \ vec4 begin-structure vec4 |
︙ | ︙ | |||
42 43 44 45 46 47 48 | \ ivec4 begin-structure ivec4 drop 0 16 +field ivec4-data drop 0 16 +field ivec4-xyzw drop 0 12 +field ivec4-rgb drop 0 16 +field ivec4-rgba drop 0 12 +field ivec4-xyz | | | | | | | | | 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | \ ivec4 begin-structure ivec4 drop 0 16 +field ivec4-data drop 0 16 +field ivec4-xyzw drop 0 12 +field ivec4-rgb drop 0 16 +field ivec4-rgba drop 0 12 +field ivec4-xyz drop 0 16 +field ivec4-xyzw_ drop 16 end-structure \ ivec4_xyzw_ begin-structure ivec4_xyzw_ drop 12 4 +field ivec4_xyzw_-w drop 0 4 +field ivec4_xyzw_-x drop 4 4 +field ivec4_xyzw_-y drop 8 4 +field ivec4_xyzw_-z drop 16 end-structure \ ivec3 begin-structure ivec3 drop 0 12 +field ivec3-data drop 0 12 +field ivec3-rgb drop 0 12 +field ivec3-xyz drop 0 8 +field ivec3-xy |
︙ | ︙ | |||
72 73 74 75 76 77 78 | \ ivec2 begin-structure ivec2 drop 0 8 +field ivec2-data drop 0 8 +field ivec2-xy drop 8 end-structure \ vector_t begin-structure vector_t | | > | | < | | | | | | | | | | | | < | | | < | | | | | | | | | | > > | | | | | | | | | | | | | | | | | 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 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 | \ ivec2 begin-structure ivec2 drop 0 8 +field ivec2-data drop 0 8 +field ivec2-xy drop 8 end-structure \ vector_t begin-structure vector_t field: vector_t-items field: vector_t-capacity field: vector_t-size field: vector_t-item_size end-structure \ texture_atlas_t begin-structure texture_atlas_t field: texture_atlas_t-nodes field: texture_atlas_t-width field: texture_atlas_t-height field: texture_atlas_t-depth field: texture_atlas_t-used field: texture_atlas_t-id field: texture_atlas_t-data end-structure \ kerning_t begin-structure kerning_t field: kerning_t-charcode field: kerning_t-kerning end-structure \ texture_glyph_t begin-structure texture_glyph_t field: texture_glyph_t-charcode field: texture_glyph_t-id field: texture_glyph_t-width field: texture_glyph_t-height field: texture_glyph_t-offset_x field: texture_glyph_t-offset_y field: texture_glyph_t-advance_x field: texture_glyph_t-advance_y field: texture_glyph_t-s0 field: texture_glyph_t-t0 field: texture_glyph_t-s1 field: texture_glyph_t-t1 field: texture_glyph_t-kerning field: texture_glyph_t-outline_type field: texture_glyph_t-outline_thickness drop 72 end-structure \ texture_font_t begin-structure texture_font_t field: texture_font_t-glyphs field: texture_font_t-atlas field: texture_font_t-filename field: texture_font_t-size field: texture_font_t-hinting field: texture_font_t-outline_type field: texture_font_t-outline_thickness field: texture_font_t-filtering 5 +field texture_font_t-lcd_weights field: texture_font_t-height field: texture_font_t-linegap field: texture_font_t-ascender field: texture_font_t-descender field: texture_font_t-underline_position field: texture_font_t-underline_thickness end-structure \ ------===< functions >===------- c-function vector_new vector_new n -- a c-function vector_delete vector_delete a -- void c-function vector_get vector_get a n -- a c-function vector_front vector_front a -- a c-function vector_back vector_back a -- a |
︙ | ︙ |
Changes to gles2/freetype-gl64.fs.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | \ This file has been generated using SWIG and fsi, \ and is already platform dependent, search for the corresponding \ fsi-file to compile it where no one has compiled it before ;) \ GForth has its own dynamic loader and doesn't need addional C-Code. \ That's why this file contains normal Gforth-code( version 0.6.9 or higher ) \ and could be used directly with include or require. \ As all comments are stripped during the compilation, please \ insert the copyright notice of the original file here. Vocabulary freetype-gl get-current also freetype-gl definitions c-library freetype_gl s" freetype-gl" add-lib [IFDEF] android s" ./.libs" add-libpath | > > > > < | | | | 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 | \ This file has been generated using SWIG and fsi, \ and is already platform dependent, search for the corresponding \ fsi-file to compile it where no one has compiled it before ;) \ GForth has its own dynamic loader and doesn't need addional C-Code. \ That's why this file contains normal Gforth-code( version 0.6.9 or higher ) \ and could be used directly with include or require. \ As all comments are stripped during the compilation, please \ insert the copyright notice of the original file here. [IFDEF] android s" /data/data/gnu.gforth/lib/libfreetype-gl.so" open-lib drop [THEN] Vocabulary freetype-gl get-current also freetype-gl definitions c-library freetype_gl s" freetype-gl" add-lib [IFDEF] android s" ./.libs" add-libpath \c #include "../../../../../freetype_gl/freetype-gl.h" [ELSE] \c #include <freetype-gl.h> [THEN] \ -------===< structs >===-------- \ struct vec4 begin-structure struct-vec4 drop 0 16 +field struct-vec4-VEC4_ drop 16 end-structure \ vec4_VEC4 begin-structure vec4_VEC4 drop 0 16 +field vec4_VEC4-RGBA_ drop 0 16 +field vec4_VEC4-data drop 0 12 +field vec4_VEC4-rgb drop 0 16 +field vec4_VEC4-rgba drop 0 12 +field vec4_VEC4-xyz drop 16 end-structure \ vec4_VEC4_RGBA begin-structure vec4_VEC4_RGBA |
︙ | ︙ | |||
133 134 135 136 137 138 139 | drop 4 end-structure \ ivec4 begin-structure ivec4 drop 0 16 +field ivec4-IVEC4 drop 16 end-structure \ ivec4_IVEC4 begin-structure ivec4_IVEC4 | | | 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 | drop 4 end-structure \ ivec4 begin-structure ivec4 drop 0 16 +field ivec4-IVEC4 drop 16 end-structure \ ivec4_IVEC4 begin-structure ivec4_IVEC4 drop 0 16 +field ivec4_IVEC4-RGBA_ drop 0 16 +field ivec4_IVEC4-data drop 0 12 +field ivec4_IVEC4-rgb drop 0 16 +field ivec4_IVEC4-rgba drop 0 12 +field ivec4_IVEC4-xyz drop 16 end-structure \ ivec4_IVEC4_RGBA begin-structure ivec4_IVEC4_RGBA |
︙ | ︙ | |||
180 181 182 183 184 185 186 | begin-structure ivec3 drop 0 12 +field ivec3-IVEC3 drop 12 end-structure \ ivec3_IVEC3 begin-structure ivec3_IVEC3 drop 0 12 +field ivec3_IVEC3-data drop 0 12 +field ivec3_IVEC3-rgb | | | 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 | begin-structure ivec3 drop 0 12 +field ivec3-IVEC3 drop 12 end-structure \ ivec3_IVEC3 begin-structure ivec3_IVEC3 drop 0 12 +field ivec3_IVEC3-data drop 0 12 +field ivec3_IVEC3-rgb drop 0 12 +field ivec3_IVEC3-RGB_ drop 0 12 +field ivec3_IVEC3-xyz drop 0 8 +field ivec3_IVEC3-xy drop 12 end-structure \ ivec3_IVEC3_RGB begin-structure ivec3_IVEC3_RGB drop 8 4 +field ivec3_IVEC3_RGB-b drop 0 4 +field ivec3_IVEC3_RGB-r |
︙ | ︙ | |||
217 218 219 220 221 222 223 | drop 4 end-structure \ ivec2 begin-structure ivec2 drop 0 8 +field ivec2-IVEC2 drop 8 end-structure \ ivec2_IVEC2 begin-structure ivec2_IVEC2 | | | 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 | drop 4 end-structure \ ivec2 begin-structure ivec2 drop 0 8 +field ivec2-IVEC2 drop 8 end-structure \ ivec2_IVEC2 begin-structure ivec2_IVEC2 drop 0 8 +field ivec2_IVEC2-XY_ drop 0 8 +field ivec2_IVEC2-data drop 0 8 +field ivec2_IVEC2-xy drop 8 end-structure \ ivec2_IVEC2_XY begin-structure ivec2_IVEC2_XY drop 0 4 +field ivec2_IVEC2_XY-x drop 4 4 +field ivec2_IVEC2_XY-y |
︙ | ︙ |
Changes to gles2/ftgl-helper.fs.
︙ | ︙ | |||
16 17 18 19 20 21 22 | also freetype-gl also opengl 512 Value atlas# atlas# dup 1 texture_atlas_new Value atlas | | > > > | | | 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | also freetype-gl also opengl 512 Value atlas# atlas# dup 1 texture_atlas_new Value atlas tex: atlas-tex atlas-tex current-tex atlas texture_atlas_t-id ! \ : atlas-tex atlas texture_atlas_t-id l@ dup to current-tex \ GL_TEXTURE_2D swap glBindTexture ; \ render font into vertex buffers 2 sfloats buffer: penxy Variable color $FFC0A0FF color ! : xy, { glyph -- } |
︙ | ︙ |
Changes to gles2/ftgl-sample.fs.
︙ | ︙ | |||
26 27 28 29 30 31 32 | Variable text2$ "这是一个文本:在德语说" text2$ $! : glyph-draw ( -- ) 0.01e 0.02e 0.15e 1.0e glClearColor clear Ambient 1 ambient% glUniform1fv <render | | | > | | 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 | Variable text2$ "这是一个文本:在德语说" text2$ $! : glyph-draw ( -- ) 0.01e 0.02e 0.15e 1.0e glClearColor clear Ambient 1 ambient% glUniform1fv <render 0e penxy sf! -20e penxy sfloat+ sf! font1 to font text1$ $@ render-string -100e penxy sf! -80e penxy sfloat+ sf! font2 to font text2$ $@ render-string all-glyphs render> sync ; : glyph-demo ( -- ) program init [IFDEF] hidekb hidekb [THEN] 1 level# +! BEGIN glyph-draw >looper level# @ 0= UNTIL ; previous previous previous |
Changes to gles2/gl-terminal.fs.
︙ | ︙ | |||
351 352 353 354 355 356 357 | what's at-xy what's at-deltaxy what's page what's attr! >term IS attr! IS page IS at-deltaxy IS at-xy default-out op-vector ! \ initialize : term-init ( -- ) | | | | 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 | what's at-xy what's at-deltaxy what's page what's attr! >term IS attr! IS page IS at-deltaxy IS at-xy default-out op-vector ! \ initialize : term-init ( -- ) >screen-orientation create-terminal-program to terminal-program terminal-program terminal-init term-load-textures form-chooser unit-matrix MVPMatrix set-matrix ; :noname defers window-init ['] TerminalShader recompile-shader term-init config-changer ; IS window-init window-init previous \ remove opengl from search order [IFDEF] android previous [THEN] |
Changes to gles2/widgets-test.fs.
︙ | ︙ | |||
59 60 61 62 63 64 65 | 8 x ! dpy-h @ 4 / y ! "Dös isch a Tägscht!" text-string $! $884400FF text-color ! font1 text-font ! f8 >o rdrop 8 x ! dpy-h @ 5 8 */ y ! "这是一个文本:在德语说" text-string $! $004488FF text-color ! font2 text-font ! | < | | | | > | < | | | > > > > > > > | 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 | 8 x ! dpy-h @ 4 / y ! "Dös isch a Tägscht!" text-string $! $884400FF text-color ! font1 text-font ! f8 >o rdrop 8 x ! dpy-h @ 5 8 */ y ! "这是一个文本:在德语说" text-string $! $004488FF text-color ! font2 text-font ! : widgets-draw ( -- ) f1 >o draw o> f7 >o draw o> f2 >o draw o> f3 >o draw o> f8 >o draw o> f4 >o draw o> f5 >o draw o> f6 >o draw o> ; : widgets-test <draw0 draw0> <draw1 widgets-draw draw1> <draw2 widgets-draw draw2> sync ; also [IFDEF] android android [THEN] : widgets-demo ( -- ) program init [IFDEF] hidekb hidekb [THEN] 1 level# +! BEGIN widgets-test >looper level# @ 0= UNTIL ; previous |
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 | \ 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 [IFUNDEF] android window-init [THEN] vocabulary minos also minos definitions 0 Value layer \ drawing layer object class field: caller-w |
︙ | ︙ |
Changes to widgets-test.fs.
︙ | ︙ | |||
59 60 61 62 63 64 65 | 8 x ! dpy-h @ 4 / y ! "Dös isch a Tägscht!" text-string $! $884400FF text-color ! font1 text-font ! f8 >o rdrop 8 x ! dpy-h @ 5 8 */ y ! "这是一个文本:在德语说" text-string $! $004488FF text-color ! font2 text-font ! | < | | | | > | < | | | > > > > > > > | 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 | 8 x ! dpy-h @ 4 / y ! "Dös isch a Tägscht!" text-string $! $884400FF text-color ! font1 text-font ! f8 >o rdrop 8 x ! dpy-h @ 5 8 */ y ! "这是一个文本:在德语说" text-string $! $004488FF text-color ! font2 text-font ! : widgets-draw ( -- ) f1 >o draw o> f7 >o draw o> f2 >o draw o> f3 >o draw o> f8 >o draw o> f4 >o draw o> f5 >o draw o> f6 >o draw o> ; : widgets-test <draw0 draw0> <draw1 widgets-draw draw1> <draw2 widgets-draw draw2> sync ; also [IFDEF] android android [THEN] : widgets-demo ( -- ) program init [IFDEF] hidekb hidekb [THEN] 1 level# +! BEGIN widgets-test >looper level# @ 0= UNTIL ; previous |
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 | \ 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 [IFUNDEF] android window-init [THEN] vocabulary minos also minos definitions 0 Value layer \ drawing layer object class field: caller-w |
︙ | ︙ |