color<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: color<< ( value object -- )

Methods

USING: accessors classes.struct classes.struct.private raylib ;

M: MaterialMap color<<
    T{ struct-slot-spec
        { name "color" }
        { offset 20 }
        { class Color }
        { initial S{ Color { r 0 } { g 0 } { b 0 } { a 0 } } }
        { type Color }
    } write-struct-slot ; inline


USING: accessors slots.private ui.gadgets.charts.axes ;

M: axis color<< 18 set-slot ; inline


USING: accessors gpu.demos.bunny kernel sequences slots
slots.private ;

M: bunny-uniforms color<<
    [ dup sequence? [ \ sequence bad-slot-value ] unless ] dip
    5 set-slot ; inline


USING: accessors benchmark.chameneos-redux slots.private ;

M: creature color<< 3 set-slot ; inline


USING: accessors graphviz.attributes slots.private ;

M: edge-attributes color<< 6 set-slot ; inline


USING: accessors graphviz.attributes slots.private ;

M: graph-attributes color<< 11 set-slot ; inline


USING: accessors slots.private ui.gadgets.grid-lines ;

M: grid-lines color<< 2 set-slot ; inline


USING: accessors raylib.demo.mesh-picking slots.private ;

M: hit-state color<< 3 set-slot ; inline


USING: accessors logic.examples.zebra-short slots.private ;

M: house color<< 2 set-slot ; inline


USING: accessors logic.examples.zebra2 slots.private ;

M: house color<< 2 set-slot ; inline


USING: accessors logic.examples.zebra slots.private ;

M: house color<< 2 set-slot ; inline


USING: accessors slots.private ui.gadgets.charts.lines ;

M: line color<< 18 set-slot ; inline


USING: accessors slots.private ui.gadgets.lists ;

M: list color<< 25 set-slot ; inline


USING: accessors graphviz.attributes slots.private ;

M: node-attributes color<< 3 set-slot ; inline


USING: accessors classes.struct classes.struct.private
math.vectors.simd papier.map ;

M: papier-vertex-struct color<<
    T{ struct-slot-spec
        { name "color" }
        { offset 32 }
        { class float-4 }
        { initial float-4{ 0.0 0.0 0.0 0.0 } }
        { type float-4 }
    } write-struct-slot ; inline


USING: accessors slots.private ui.pens.polygon ;

M: polygon color<< 2 set-slot ; inline


USING: accessors jamshred.tunnel slots.private ;

M: segment color<< 7 set-slot ; inline


USING: accessors fonts slots.private ;

M: selection color<< 5 set-slot ; inline


USING: accessors slots.private ui.gadgets.menus.private ;

M: separator-pen color<< 2 set-slot ; inline


USING: accessors kernel math.vectors.simd papier.map slots
slots.private ;

M: slab color<<
    [ dup float-4? [ \ float-4 bad-slot-value ] unless ] dip
    8 set-slot ; inline


USING: accessors slots.private ui.pens.solid ;

M: solid color<< 3 set-slot ; inline


USING: accessors gpu.demos.raytrace kernel sequences slots
slots.private ;

M: sphere-uniforms color<<
    [ dup sequence? [ \ sequence bad-slot-value ] unless ] dip
    4 set-slot ; inline


USING: accessors arrays gpu.demos.raytrace kernel slots
slots.private ;

M: sphere color<<
    [ dup array? [ \ array bad-slot-value ] unless ] dip
    6 set-slot ; inline


USING: accessors slots.private tetris.tetromino ;

M: tetromino color<< 3 set-slot ; inline


USING: L-system accessors slots.private ;

M: turtle color<< 7 set-slot ; inline


USING: accessors compiler.cfg.ssa.interference slots.private ;

M: vreg-info color<< 7 set-slot ; inline