Max 5 API Reference

jit.transfer.quintic.c

/*
 *  jit.transfer.quintic.c
 *
 *  Copyright 2001-2005 - Cycling '74
 *  Derek Gerstmann - derek@cycling74.com
 *
 *  Functor for a 5th order (quintic) polynomial transfer function
 *
 */

// -----------------------------------------------------------------------------

#include "jit.common.h"
#include "jit.functor.h"

// -----------------------------------------------------------------------------

typedef struct _jit_functor_transfer_quintic
{
    t_jit_object    ob;
    
    /* a + b * val + c * val^2 + d * val^3 + e * val^4 + f * val^5 */
    
    float           float32[6]; // a, b, c, d, e, f
    double          float64[6]; // a, b, c, d, e, f
        
} t_jit_functor_transfer_quintic;

// -----------------------------------------------------------------------------

t_jit_object *jit_functor_transfer_quintic_new(void);
t_jit_err jit_functor_transfer_quintic_free(t_jit_functor_transfer_quintic *x);
t_jit_err jit_functor_transfer_quintic_a(t_jit_functor_transfer_quintic *x, void *attr, long argc, t_atom *argv);
t_jit_err jit_functor_transfer_quintic_b(t_jit_functor_transfer_quintic *x, void *attr, long argc, t_atom *argv);
t_jit_err jit_functor_transfer_quintic_c(t_jit_functor_transfer_quintic *x, void *attr, long argc, t_atom *argv);
t_jit_err jit_functor_transfer_quintic_d(t_jit_functor_transfer_quintic *x, void *attr, long argc, t_atom *argv);
t_jit_err jit_functor_transfer_quintic_e(t_jit_functor_transfer_quintic *x, void *attr, long argc, t_atom *argv);
t_jit_err jit_functor_transfer_quintic_f(t_jit_functor_transfer_quintic *x, void *attr, long argc, t_atom *argv);
t_jit_err jit_functor_transfer_quintic_recalc(t_jit_functor_transfer_quintic *x);

long jit_functor_transfer_quintic_eval_fixed(t_jit_functor_transfer_quintic *x, long dimcount, long *vals);
float jit_functor_transfer_quintic_eval_float32(t_jit_functor_transfer_quintic *x, long dimcount, float *vals);
double jit_functor_transfer_quintic_eval_float64(t_jit_functor_transfer_quintic *x, long dimcount, double *vals);
long jit_functor_transfer_quintic_eval_fixed_scalar(t_jit_functor_transfer_quintic *x, long val);
float jit_functor_transfer_quintic_eval_float32_scalar(t_jit_functor_transfer_quintic *x, float val);
double jit_functor_transfer_quintic_eval_float64_scalar(t_jit_functor_transfer_quintic *x, double val);

t_class * _jit_functor_transfer_quintic_class;

// -----------------------------------------------------------------------------

t_jit_err jit_functor_transfer_quintic_init(void)
{
    t_jit_object *attr;

    // create functor class
    _jit_functor_transfer_quintic_class = jit_class_new("jit_functor_transfer_quintic",
        (method)jit_functor_transfer_quintic_new,(method)jit_functor_transfer_quintic_free,
        sizeof(t_jit_functor_transfer_quintic),0L);

    // add attribute methods
    attr = jit_object_new(_jit_sym_jit_attr_offset,"a",_jit_sym_float64,0,
        (method)0L,(method)jit_functor_transfer_quintic_a, 0);
    jit_class_addattr(_jit_functor_transfer_quintic_class,attr);
    attr = jit_object_new(_jit_sym_jit_attr_offset,"b",_jit_sym_float64,0,
        (method)0L,(method)jit_functor_transfer_quintic_b, 0);
    jit_class_addattr(_jit_functor_transfer_quintic_class,attr);
    attr = jit_object_new(_jit_sym_jit_attr_offset,"c",_jit_sym_float64,0,
        (method)0L,(method)jit_functor_transfer_quintic_c, 0);
    jit_class_addattr(_jit_functor_transfer_quintic_class,attr);
    attr = jit_object_new(_jit_sym_jit_attr_offset,"d",_jit_sym_float64,0,
        (method)0L,(method)jit_functor_transfer_quintic_d, 0);
    jit_class_addattr(_jit_functor_transfer_quintic_class,attr);
    attr = jit_object_new(_jit_sym_jit_attr_offset,"e",_jit_sym_float64,0,
        (method)0L,(method)jit_functor_transfer_quintic_e, 0);
    jit_class_addattr(_jit_functor_transfer_quintic_class,attr);
    attr = jit_object_new(_jit_sym_jit_attr_offset,"f",_jit_sym_float64,0,
        (method)0L,(method)jit_functor_transfer_quintic_f, 0);
    jit_class_addattr(_jit_functor_transfer_quintic_class,attr);
    
    // add evaluation methods
    jit_class_addmethod(_jit_functor_transfer_quintic_class, 
        (method)jit_functor_transfer_quintic_eval_fixed, "evalfixed", A_CANT, 0L);
    jit_class_addmethod(_jit_functor_transfer_quintic_class, 
        (method)jit_functor_transfer_quintic_eval_float32, "evalfloat32", A_CANT, 0L);
    jit_class_addmethod(_jit_functor_transfer_quintic_class, 
        (method)jit_functor_transfer_quintic_eval_float64, "evalfloat64", A_CANT, 0L);

    // add to functor registry
    jit_functor_setup_class(_jit_functor_transfer_quintic_class,"transfer","quintic");
    jit_class_register(_jit_functor_transfer_quintic_class);
    return JIT_ERR_NONE;
}

t_jit_object *jit_functor_transfer_quintic_new(void)
{
    t_jit_functor_transfer_quintic *x;

    if (x = (t_jit_functor_transfer_quintic *)jit_object_alloc(_jit_functor_transfer_quintic_class)) {

        // initialization
        
        // default to Ken Perlin's improved noise smoothing polynomial: 6t^5 - 15t^4 + 10t^3
        x->float64[0] = x->float32[0] = 0.0f;
        x->float64[1] = x->float32[1] = 0.0f;
        x->float64[2] = x->float32[2] = 0.0f;
        x->float64[3] = x->float32[3] = 10.0f;      
        x->float64[4] = x->float32[4] = -15.0f;     
        x->float64[5] = x->float32[5] = 6.0f;       
        jit_functor_transfer_quintic_recalc(x);
    }

    return (t_jit_object *)x;
}

t_jit_err jit_functor_transfer_quintic_free(t_jit_functor_transfer_quintic *x)
{
    return JIT_ERR_NONE;
}

// -----------------------------------------------------------------------------

t_jit_err jit_functor_transfer_quintic_a(
    t_jit_functor_transfer_quintic *x, void *attr, long argc, t_atom *argv)
{
    float v;

    if (x) {
        v = jit_atom_getfloat(argv);
        if (x->float32[0] != v) {
            x->float64[0] = x->float32[0] = v;
            jit_functor_transfer_quintic_recalc(x);
        }
        return JIT_ERR_NONE;
    }
    return JIT_ERR_INVALID_PTR;
}

t_jit_err jit_functor_transfer_quintic_b(
    t_jit_functor_transfer_quintic *x, void *attr, long argc, t_atom *argv)
{
    float v;

    if (x) {
        v = jit_atom_getfloat(argv);
        if (x->float32[1] != v) {
            x->float64[1] = x->float32[1] = v;
            jit_functor_transfer_quintic_recalc(x);
        }
        return JIT_ERR_NONE;
    }
    return JIT_ERR_INVALID_PTR;
}

t_jit_err jit_functor_transfer_quintic_c(
    t_jit_functor_transfer_quintic *x, void *attr, long argc, t_atom *argv)
{
    float v;

    if (x) {
        v = jit_atom_getfloat(argv);
        if (x->float32[2] != v) {
            x->float64[2] = x->float32[2] = v;
            jit_functor_transfer_quintic_recalc(x);
        }
        return JIT_ERR_NONE;
    }
    return JIT_ERR_INVALID_PTR;
}

t_jit_err jit_functor_transfer_quintic_d(
    t_jit_functor_transfer_quintic *x, void *attr, long argc, t_atom *argv)
{
    float v;

    if (x) {
        v = jit_atom_getfloat(argv);
        if (x->float32[3] != v) {
            x->float64[3] = x->float32[3] = v;
            jit_functor_transfer_quintic_recalc(x);
        }
        return JIT_ERR_NONE;
    }
    return JIT_ERR_INVALID_PTR;
}

t_jit_err jit_functor_transfer_quintic_e(
    t_jit_functor_transfer_quintic *x, void *attr, long argc, t_atom *argv)
{
    float v;

    if (x) {
        v = jit_atom_getfloat(argv);
        if (x->float32[4] != v) {
            x->float64[4] = x->float32[4] = v;
            jit_functor_transfer_quintic_recalc(x);
        }
        return JIT_ERR_NONE;
    }
    return JIT_ERR_INVALID_PTR;
}

t_jit_err jit_functor_transfer_quintic_f(
    t_jit_functor_transfer_quintic *x, void *attr, long argc, t_atom *argv)
{
    float v;

    if (x) {
        v = jit_atom_getfloat(argv);
        if (x->float32[5] != v) {
            x->float64[5] = x->float32[5] = v;
            jit_functor_transfer_quintic_recalc(x);
        }
        return JIT_ERR_NONE;
    }
    return JIT_ERR_INVALID_PTR;
}

t_jit_err jit_functor_transfer_quintic_recalc(t_jit_functor_transfer_quintic *x)
{
    // calculate intermediary values for efficiency
    return JIT_ERR_NONE;
}

// -----------------------------------------------------------------------------
// vector evaluation functions
// -----------------------------------------------------------------------------

long jit_functor_transfer_quintic_eval_fixed(
    t_jit_functor_transfer_quintic *x, long dimcount, long *vals)
{
    return jit_functor_eval_fixed_with_float64((t_jit_object *)x,dimcount,vals,
            (t_jit_functor_float64_sig)jit_functor_transfer_quintic_eval_float64);
}

float jit_functor_transfer_quintic_eval_float32(
    t_jit_functor_transfer_quintic *x, long dimcount, float *vals)
{
    return jit_functor_eval_float32_with_scalar_product((t_jit_object *)x,dimcount,vals,
            (t_jit_functor_float32_scalar_sig)jit_functor_transfer_quintic_eval_float32_scalar);
}

double jit_functor_transfer_quintic_eval_float64(
    t_jit_functor_transfer_quintic *x, long dimcount, double *vals)
{
    return jit_functor_eval_float64_with_scalar_product((t_jit_object *)x,dimcount,vals,
            (t_jit_functor_float64_scalar_sig)jit_functor_transfer_quintic_eval_float64_scalar);
}

// -----------------------------------------------------------------------------
// scalar evaluation functions
// -----------------------------------------------------------------------------

long jit_functor_transfer_quintic_eval_fixed_scalar(
    t_jit_functor_transfer_quintic *x, long val)
{
    return FloatToFixed(jit_functor_transfer_quintic_eval_float32_scalar(x,FixedToFloat(val)));
}

float jit_functor_transfer_quintic_eval_float32_scalar(
    t_jit_functor_transfer_quintic *x, float val)
{
    /* a + b * val + c * val^2 + d * val^3 + e * val^4 + f * val^5 */
    return ((((( x->float32[5] * val ) + x->float32[4]) * val + x->float32[3]) * val + x->float32[2]) * val + x->float32[1]) * val + x->float32[0];
}

double jit_functor_transfer_quintic_eval_float64_scalar(
    t_jit_functor_transfer_quintic *x, double val)
{
    /* a + b * val + c * val^2 + d * val^3 + e * val^4 + f * val^5 */
    return ((((( x->float64[5] * val ) + x->float64[4]) * val + x->float64[3]) * val + x->float64[2]) * val + x->float64[1]) * val + x->float64[0];
}
// -----------------------------------------------------------------------------

Copyright © 2008, Cycling '74