point<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: point<< ( value object -- )

Methods

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

M: RayCollision point<<
    T{ struct-slot-spec
        { name "point" }
        { offset 8 }
        { class Vector3 }
        { initial S{ Vector3 { x 0.0 } { y 0.0 } { z 0.0 } } }
        { type Vector3 }
    } write-struct-slot ; inline


USING: accessors cairo.ffi classes.struct classes.struct.private
;

M: cairo_path_data_t point<<
    T{ struct-slot-spec
        { name "point" }
        { offset 0 }
        { class cairo_path_data_t-point }
        { initial
            S{ cairo_path_data_t-point { x 0.0 } { y 0.0 } }
        }
        { type cairo_path_data_t-point }
    } write-struct-slot ; inline


USING: accessors kernel math math.parser.private slots.private ;

M: float-parse point<<
    [ integer>fixnum-strict ] dip 3 set-slot ; inline


USING: accessors quadtrees slots.private ;

M: quadtree point<< 3 set-slot ; inline


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

M: readline_state point<<
    T{ struct-slot-spec
        { name "point" }
        { offset 0 }
        { class fixnum }
        { initial 0 }
        { type int }
    } write-struct-slot ; inline