CvScalar cvColorToScalar(double packed_color, int arrtype) {
    void *fptr;
    CvScalar retval, *temp;

    fptr = dlsym(_Chcv_handle, "cvColorToScalar_chdl");
    if(fptr == NULL) {
        fprintf(_stderr, "Error: %s(): dlsym(): %s\n", __func__,  dlerror());
        return retval;
    }
    dlrunfun(fptr, &temp, cvColorToScalar, packed_color, arrtype);
    retval=*temp;
    free(temp);
    return retval;
}