C++ (Cpp) Video::get_widthの例

コード例 #1

ファイル: FluxusVideo.cpp プロジェクト: rmoorman/fluxus

Scheme_Object *video_width(int argc, Scheme_Object **argv)
{
    MZ_GC_DECL_REG(1);
    MZ_GC_VAR_IN_REG(0, argv);
    MZ_GC_REG();
    if (!SCHEME_NUMBERP(argv[0]))
        scheme_wrong_type("video-width", "number", 0, argc, argv);

    Video *v = find_video("video-width", argv[0]);
    int w = 0;
    if (v != NULL)
        w = v->get_width();

    MZ_GC_UNREG();
    return scheme_make_integer_value(w);
}