Max 5 API Reference

jit.transfer.sine.c

/* 
    jit.transfer.sine.c

    Copyright 2001-2005 - Cycling '74
    Joshua Kit Clayton jkc@cycling74.com
    
*/

/*
    normalized phase 0-1. i.e. mapped to 0-TWOPI
    not positive that this should be the product or 
    if it the normalized sum of sinewaves. product 
    implemented below

*/

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

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

#ifndef TWOPI
#define TWOPI       6.28318530717958647692
#endif  // TWOPI

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

typedef struct _jit_functor_transfer_sine
{
    t_jit_object    ob;
} t_jit_functor_transfer_sine;

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

t_jit_object *jit_functor_transfer_sine_new(void);
t_jit_err jit_functor_transfer_sine_free(t_jit_functor_transfer_sine *x);

t_jit_err jit_functor_transfer_sine_recalc(t_jit_functor_transfer_sine *x);

long jit_functor_transfer_sine_eval_fixed(t_jit_functor_transfer_sine *x, long dimcount, long *vals);
float jit_functor_transfer_sine_eval_float32(t_jit_functor_transfer_sine *x, long dimcount, float *vals);
double jit_functor_transfer_sine_eval_float64(t_jit_functor_transfer_sine *x, long dimcount, double *vals);

void jit_functor_transfer_sine_fixlut_init(void);

static long _sine_fixlut_init = 0;
static long *_sine_fixlut;

t_class *_jit_functor_transfer_sine_class;

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

t_jit_err jit_functor_transfer_sine_init(void)
{
    // create transfer class
    _jit_functor_transfer_sine_class = jit_class_new("jit_functor_transfer_sine",
        (method)jit_functor_transfer_sine_new,(method)jit_functor_transfer_sine_free,
        sizeof(t_jit_functor_transfer_sine),0L);

    // add evaluation methods
    jit_class_addmethod(_jit_functor_transfer_sine_class, (method)jit_functor_transfer_sine_eval_fixed, "evalfixed",    A_CANT, 0L);
    jit_class_addmethod(_jit_functor_transfer_sine_class, (method)jit_functor_transfer_sine_eval_float32,   "evalfloat32",  A_CANT, 0L);
    jit_class_addmethod(_jit_functor_transfer_sine_class, (method)jit_functor_transfer_sine_eval_float64,   "evalfloat64",  A_CANT, 0L);
                
    // important to add last for subclassing methods
    jit_functor_setup_class(_jit_functor_transfer_sine_class,"transfer","sine");
    jit_class_register(_jit_functor_transfer_sine_class);

    _sine_fixlut = (long *)jit_newptr(fixed1*sizeof(long));
    
    return JIT_ERR_NONE;
}

t_jit_object *jit_functor_transfer_sine_new(void)
{
    t_jit_functor_transfer_sine *x;
    
    if (x = (t_jit_functor_transfer_sine *)jit_object_alloc(_jit_functor_transfer_sine_class)) {
        //initialization
        jit_functor_transfer_sine_recalc(x);
    }
    
    return (t_jit_object *)x;
}

t_jit_err jit_functor_transfer_sine_free(t_jit_functor_transfer_sine *x)
{
    return JIT_ERR_NONE;
}

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

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

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

long jit_functor_transfer_sine_eval_fixed(t_jit_functor_transfer_sine *x, long dimcount, long *vals)
{
    if (!_sine_fixlut_init)
        jit_functor_transfer_sine_fixlut_init();
    
    return jit_functor_eval_fixed_with_lut_wrap_product((t_jit_object *)x,dimcount,vals,_sine_fixlut);
}

float jit_functor_transfer_sine_eval_float32(t_jit_functor_transfer_sine *x, long dimcount, float *vals)
{
    return jit_functor_eval_float32_with_float64((t_jit_object *)x,dimcount,vals,
            (t_jit_functor_float64_sig)jit_functor_transfer_sine_eval_float64);
}

double jit_functor_transfer_sine_eval_float64(t_jit_functor_transfer_sine *x, long dimcount, double *vals)
{
    long i;
    double rval=jit_math_sin(vals[0]*TWOPI);

    for (i=1;i<dimcount;i++) {  
        rval *= jit_math_sin(vals[i]*TWOPI);
    }
        
    return rval;
}

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

void jit_functor_transfer_sine_fixlut_init(void)
{
    long i; 
    
    for (i=0;i<fixed1;i++)  {
        _sine_fixlut[i] = DoubleToFixed(jit_math_sin(FixedToDouble(i)*TWOPI));
    }   
    _sine_fixlut_init = 1;
}

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

Copyright © 2008, Cycling '74