Mercurial > repos > tabletprog

comparison modules/sdl.tp @ 333:577406b25f89

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 ead24192ed45
children 98534108b854
comparison
equal deleted inserted replaced
332:ead24192ed45 333:577406b25f89
587 } 587 }
588 588
589 llMessage: blendMode withVars: { 589 llMessage: blendMode withVars: {
590 mode <- obj_uint32 ptr 590 mode <- obj_uint32 ptr
591 } andCode: { 591 } andCode: {
592 mode <-make_object: (addr_of: obj_uint32_meta) NULL 0 592 mode <- make_object: (addr_of: obj_uint32_meta) NULL 0
593 SDL_GetTextureBlendMode: texture (addr_of: (mode num)) 593 SDL_GetTextureBlendMode: texture (addr_of: (mode num))
594 mode 594 mode
595 }
596
597 llMessage: colorMod! withVars: {
598 color <- object ptr
599 tmp <- object ptr
600 r <- obj_uint8 ptr
601 g <- obj_uint8 ptr
602 b <- obj_uint8 ptr
603 intret <- obj_int32 ptr
604 } andCode: :color {
605 tmp <- mcall: r 1 color
606 r <- (mcall: uint8 1 tmp) castTo: (obj_uint8 ptr)
607 tmp <- mcall: g 1 color
608 g <- (mcall: uint8 1 tmp) castTo: (obj_uint8 ptr)
609 tmp <- mcall: b 1 color
610 b <- (mcall: uint8 1 tmp) castTo: (obj_uint8 ptr)
611 intret <- make_object: (addr_of: obj_int32_meta) NULL 0
612 intret num!: (SDL_SetTextureColorMod: texture (r num) (g num) (b num))
613 intret
614 }
615
616 llMessage: colorMod withVars: {
617 color <- object ptr
618 r <- obj_uint8 ptr
619 g <- obj_uint8 ptr
620 b <- obj_uint8 ptr
621 rescode <- int32_t
622 } andCode: {
623 r <- make_object: (addr_of: obj_uint8_meta) NULL 0
624 g <- make_object: (addr_of: obj_uint8_meta) NULL 0
625 b <- make_object: (addr_of: obj_uint8_meta) NULL 0
626 rescode <- SDL_GetTextureColorMod: texture (addr_of: (r num)) (addr_of: (g num)) (addr_of: (b num))
627 if: rescode {
628 mcall: none 1 option
629 } else: {
630 mcall: value 2 option (mcall: r:g:b 4 sdl r g b)
631 }
595 } 632 }
596 633
597 llMessage: destroy withVars: {} andCode: { 634 llMessage: destroy withVars: {} andCode: {
598 SDL_DestroyTexture: texture 635 SDL_DestroyTexture: texture
599 true 636 true