shape<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: shape<< ( value object -- )

Methods

USING: accessors arrays.shaped slots.private ;

M: abnormal-shape shape<< 2 set-slot ; inline


USING: accessors arrays.shaped slots.private ;

M: block-array shape<< 3 set-slot ; inline


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

M: cpCircleShape shape<<
    T{ struct-slot-spec
        { name "shape" }
        { offset 0 }
        { class cpShape }
        { initial
            S{ cpShape
                { klass f }
                { body f }
                { bb
                    S{ cpBB
                        { l 0.0 }
                        { b 0.0 }
                        { r 0.0 }
                        { t 0.0 }
                    }
                }
                { sensor 0 }
                { e 0.0 }
                { u 0.0 }
                { surface_v S{ cpVect { x 0.0 } { y 0.0 } } }
                { data f }
                { collision_type 0 }
                { group 0 }
                { layers 0 }
                { hashid 0 }
            }
        }
        { type cpShape }
    } write-struct-slot ; inline


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

M: cpPolyShape shape<<
    T{ struct-slot-spec
        { name "shape" }
        { offset 0 }
        { class cpShape }
        { initial
            S{ cpShape
                { klass f }
                { body f }
                { bb
                    S{ cpBB
                        { l 0.0 }
                        { b 0.0 }
                        { r 0.0 }
                        { t 0.0 }
                    }
                }
                { sensor 0 }
                { e 0.0 }
                { u 0.0 }
                { surface_v S{ cpVect { x 0.0 } { y 0.0 } } }
                { data f }
                { collision_type 0 }
                { group 0 }
                { layers 0 }
                { hashid 0 }
            }
        }
        { type cpShape }
    } write-struct-slot ; inline


USING: accessors alien alien.syntax chipmunk.ffi classes.struct
classes.struct.private ;

M: cpSegmentQueryInfo shape<<
    T{ struct-slot-spec
        { name "shape" }
        { offset 0 }
        { class c-ptr }
        { type pointer: cpShape }
    } write-struct-slot ; inline


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

M: cpSegmentShape shape<<
    T{ struct-slot-spec
        { name "shape" }
        { offset 0 }
        { class cpShape }
        { initial
            S{ cpShape
                { klass f }
                { body f }
                { bb
                    S{ cpBB
                        { l 0.0 }
                        { b 0.0 }
                        { r 0.0 }
                        { t 0.0 }
                    }
                }
                { sensor 0 }
                { e 0.0 }
                { u 0.0 }
                { surface_v S{ cpVect { x 0.0 } { y 0.0 } } }
                { data f }
                { collision_type 0 }
                { group 0 }
                { layers 0 }
                { hashid 0 }
            }
        }
        { type cpShape }
    } write-struct-slot ; inline


USING: accessors graphviz.attributes slots.private ;

M: node-attributes shape<< 31 set-slot ; inline


USING: accessors shapefiles.private slots.private ;

M: record shape<< 4 set-slot ; inline


USING: accessors arrays.shaped slots.private ;

M: shaped-array shape<< 3 set-slot ; inline


USING: accessors arrays kernel slots slots.private tensors ;

M: tensor shape<<
    [ dup array? [ \ array bad-slot-value ] unless ] dip
    2 set-slot ; inline


USING: accessors arrays.shaped slots.private ;

M: uniform-shape shape<< 2 set-slot ; inline