Handbook
Glossary
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
raylib.demo.live-coding
slots.private
;
M:
my-color
color<<
2
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