rotation<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: rotation<< ( value object -- )

Methods

USING: accessors alien.c-types classes.struct
classes.struct.private math raylib ;

M: Camera2D rotation<<
    T{ struct-slot-spec
        { name "rotation" }
        { offset 16 }
        { class float }
        { initial 0.0 }
        { type float }
    } write-struct-slot ; inline


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

M: Transform rotation<<
    T{ struct-slot-spec
        { name "rotation" }
        { offset 12 }
        { class Vector4 }
        { initial
            S{ Vector4 { x 0.0 } { y 0.0 } { z 0.0 } { w 0.0 } }
        }
        { type Quaternion }
    } write-struct-slot ; inline


USING: accessors slots.private tinyvg ;

M: arc-ellipse rotation<< 7 set-slot ; inline


USING: accessors kernel math slots slots.private tetris.piece ;

M: piece rotation<<
    [ dup integer? [ \ integer bad-slot-value ] unless ] dip
    3 set-slot ; inline