Mercurial > repos > tabletprog
comparison samples/freetype.tp @ 333:577406b25f89
Added binding for SDL_SetTextureColorMod and SDL_GetTextureColorMod and updated the Freetype sample to use it for setting the color of text
| author | Michael Pavone <pavone@retrodev.com> |
|---|---|
| date | Sun, 29 Mar 2015 09:43:24 -0700 |
| parents | e70f9d3f19f8 |
| children |
comparison
equal
deleted
inserted
replaced
| 332:ead24192ed45 | 333:577406b25f89 |
|---|---|
| 184 x <- 0 | 184 x <- 0 |
| 185 while: { x < (curGlyph width) } do: { | 185 while: { x < (curGlyph width) } do: { |
| 186 //FIXME: This will probably only work on little endian machines | 186 //FIXME: This will probably only work on little endian machines |
| 187 bytearr set: dstIdx (pixels get: idx) | 187 bytearr set: dstIdx (pixels get: idx) |
| 188 dstIdx <- dstIdx + 1 | 188 dstIdx <- dstIdx + 1 |
| 189 bytearr set: dstIdx (color r) | 189 bytearr set: dstIdx 255u8 //(color r) |
| 190 dstIdx <- dstIdx + 1 | 190 dstIdx <- dstIdx + 1 |
| 191 bytearr set: dstIdx (color g) | 191 bytearr set: dstIdx 255u8 (color g) |
| 192 dstIdx <- dstIdx + 1 | 192 dstIdx <- dstIdx + 1 |
| 193 bytearr set: dstIdx (color b) | 193 bytearr set: dstIdx 255u8 (color b) |
| 194 dstIdx <- dstIdx + 1 | 194 dstIdx <- dstIdx + 1 |
| 195 | 195 |
| 196 idx <- idx + 1 | 196 idx <- idx + 1 |
| 197 x <- x + 1 | 197 x <- x + 1 |
| 198 } | 198 } |
| 225 x <- 0 | 225 x <- 0 |
| 226 while: { x < (curGlyph width) } do: { | 226 while: { x < (curGlyph width) } do: { |
| 227 //FIXME: This will probably only work on little endian machines | 227 //FIXME: This will probably only work on little endian machines |
| 228 bytearr set: dstIdx (pixels get: idx) | 228 bytearr set: dstIdx (pixels get: idx) |
| 229 dstIdx <- dstIdx + 1 | 229 dstIdx <- dstIdx + 1 |
| 230 bytearr set: dstIdx (color r) | 230 bytearr set: dstIdx 255u8 //(color r) |
| 231 dstIdx <- dstIdx + 1 | 231 dstIdx <- dstIdx + 1 |
| 232 bytearr set: dstIdx (color g) | 232 bytearr set: dstIdx 255u8 (color g) |
| 233 dstIdx <- dstIdx + 1 | 233 dstIdx <- dstIdx + 1 |
| 234 bytearr set: dstIdx (color b) | 234 bytearr set: dstIdx 255u8 (color b) |
| 235 dstIdx <- dstIdx + 1 | 235 dstIdx <- dstIdx + 1 |
| 236 | 236 |
| 237 idx <- idx + 1 | 237 idx <- idx + 1 |
| 238 x <- x + 1 | 238 x <- x + 1 |
| 239 } | 239 } |
| 258 } | 258 } |
| 259 glyphDict <- dict hash | 259 glyphDict <- dict hash |
| 260 foreach: glyphs :idx glyph { | 260 foreach: glyphs :idx glyph { |
| 261 glyphDict set: (glyph charCode) glyph | 261 glyphDict set: (glyph charCode) glyph |
| 262 } | 262 } |
| 263 drawTex colorMod!: color | |
| 263 _pixelFactor <- ((face unitsPerEm) f64) * 72.0 / (fontSize * (dpi f64)) | 264 _pixelFactor <- ((face unitsPerEm) f64) * 72.0 / (fontSize * (dpi f64)) |
| 264 option value: #{ | 265 option value: #{ |
| 265 texture <- drawTex | 266 texture <- drawTex |
| 266 width <- aWidth | 267 width <- aWidth |
| 267 height <- aHeight | 268 height <- aHeight |