Handbook
Glossary
velocity<< ( value object -- )
Vocabulary
accessors
Inputs
value
an
object
object
an
object
Outputs
None
Definition
IN:
accessors
GENERIC:
velocity<<
( value object -- )
Methods
USING:
accessors
audio.engine
slots.private
;
M:
audio-listener
velocity<<
4
set-slot
;
inline
USING:
accessors
audio.engine
slots.private
;
M:
audio-source
velocity<<
4
set-slot
;
inline
USING:
accessors
benchmark.nbody
kernel
slots
slots.private
specialized-arrays.instances.alien.c-types.double
;
M:
body
velocity<<
[
dup
double-array?
[
\
double-array
bad-slot-value
]
unless
]
dip
3
set-slot
;
inline
USING:
accessors
benchmark.nbody-simd
classes.struct
classes.struct.private
math.vectors.simd.cords
;
M:
body
velocity<<
T{
struct-slot-spec
{
name
"velocity"
}
{
offset 32
}
{
class
double-4
}
{
initial
double-4{
0.0 0.0 0.0 0.0
}
}
{
type
double-4
}
}
write-struct-slot
;
inline
USING:
accessors
kernel
math.vectors.simd
slots
slots.private
terrain
;
M:
player
velocity<<
[
dup
float-4?
[
\
float-4
bad-slot-value
]
unless
]
dip
5
set-slot
;
inline