shape<< ( value object -- )


Vocabulary
accessors

Inputs
valuean object
objectan 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 random slots.private ;

M: inv-gamma-distribution shape<< 2 set-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