コード例 #1
0
ファイル: OMax.learn.c プロジェクト: kidaa/Synthesis
	/**@public @memberof t_OMax_learn
	 * @brief Bind the learner with FO and Data Sequence */
	bool OMax_learn_bind(t_OMax_learn *x)
	{
		///@remarks Do this binding only once
		if (x->obound == FALSE)
		{
			///@details Check if FO name points to an existing @link t_OMax_oracle OMax.oracle @endlink object. If so, binds t_OMax_learn::oname with the actual FO structure (t_OMax_oracle::oracle member).
			if ((x->oname->s_thing) && (ob_sym(x->oname->s_thing) == gensym("OMax.oracle")))
			{
				x->builder.set_oracle((((t_OMax_oracle*)(x->oname->s_thing))->oracle));
				object_post((t_object *)x,"Learner bound to Oracle %s", x->oname->s_name);
			}
			else
			{
				object_error((t_object *)x,"No oracle %s declared", x->oname->s_name);
			}
			
			/// Do the same for Data Sequence with member t_OMax_learn::dataname and the related @link t_OMax_data OMax.data @endlink object.
			if ((x->dataname->s_thing) && (ob_sym(x->dataname->s_thing) == gensym("OMax.data")))
			{
				x->builder.set_data((((t_OMax_data*)(x->dataname->s_thing))->data));
				x->obound = TRUE;
				x->datatype = ((t_OMax_data*)(x->dataname->s_thing))->datatype;
				if (x->datatype == SPECTRAL)
					x->nbcoeffs = ((t_OMax_data*)(x->dataname->s_thing))->nbcoeffs;
				((t_OMax_data*)(x->dataname->s_thing))->noDelete = FALSE;
				object_post((t_object *)x,"Learner bound to Data of Oracle %s", x->oname->s_name);
			}
			else
			{
				object_error((t_object *)x,"No data for oracle %s declared", x->oname->s_name);
			}
		}
		// If binding is ok, then don't do it next time.
		return x->obound;
	}
コード例 #2
0
ファイル: SDIF-listpoke.c プロジェクト: CNMAT/CNMAT-Externs
static void LookupMyBuffer(SDIFlistpoke *x) {
#ifdef THE_S_THING_KLUDGE
	void *thing;
	
	thing = x->t_bufferSym->s_thing;
	
	if (thing) {
		if (ob_sym(thing) = ps_SDIFbuffer) {
			x->t_buffer = thing;
			return;
		}
	}
	x->t_buffer = 0;
#else
	SDIFBufferLookupFunction f;
	
	f = (SDIFBufferLookupFunction) ps_SDIF_buffer_lookup->s_thing;
	if (f == 0) {
		/* No SDIF buffer has ever been created yet. */
		x->t_buffer = 0;
	} else {
		x->t_buffer = (*f)(x->t_bufferSym);
	}
#endif

  //  get access to the SDIFbuf_Buffer instance
  if (x->t_buffer)
    x->t_buf = (x->t_buffer->BufferAccessor)(x->t_buffer);
  else
    x->t_buf = NULL;
}
コード例 #3
0
ファイル: simpwave~.c プロジェクト: pukulsesuatu/max6-sdk
void simpwave_dblclick(t_simpwave *x)
{
	t_buffer *b;
	
	if ((b = (t_buffer *)(x->w_name->s_thing)) && ob_sym(b) == ps_buffer)
		mess0((struct object *)b,gensym("dblclick"));
}
コード例 #4
0
ファイル: hoa.convolve~.cpp プロジェクト: dimibil/HoaLibrary
t_max_err buffer_set(t_HoaConvolve *x, t_object *attr, long argc, t_atom *argv)
{
	t_buffer *b;
	t_symbol *name;
	t_atom channel[1];
	if(argc && argv && atom_gettype(argv) == A_SYM)
	{
		if(argc > x->f_numberOfHarmonics)
		argc = x->f_numberOfHarmonics;

		name = atom_getsym(argv);
		if(x->f_name != name)
		{
			if ((b = (t_buffer *)(name->s_thing)) && ob_sym(b) == gensym("buffer~"))
			{
				if(x->f_name && x->f_buffer != NULL)
				{
					globalsymbol_dereference((t_object*)x, x->f_name->s_name, "buffer~");
				}
				x->f_name = name;
				x->f_buffer = (t_buffer*)globalsymbol_reference((t_object*)x, x->f_name->s_name, "buffer~");
				
			}
			else
			{
				x->f_buffer = NULL;
				x->f_name= gensym("none");
			}
		}
        atom_setlong(channel, x->f_channel);
        channel_set(x, attr, 2, channel);
	}
	return 0;
}
コード例 #5
0
ファイル: hoa.convolve~.cpp プロジェクト: dimibil/HoaLibrary
void HoaConvolve_dblclick(t_HoaConvolve *x)
{
	t_buffer *b;
	
	if ((b = (t_buffer *)(x->f_name->s_thing)) && ob_sym(b) == gensym("buffer~"))
		mess0((t_object *)b,gensym("dblclick"));
}
コード例 #6
0
ファイル: index~.c プロジェクト: Alfpercar/MaxMSPExternals
// this lets us double-click on index~ to open up the buffer~ it references
void index_dblclick(t_index *x)
{
	t_buffer *b;
	
	if ((b = (t_buffer *)(x->l_sym->s_thing)) && ob_sym(b) == ps_buffer)
		mess0((t_object *)b,gensym("dblclick"));
}
t_buffer_write_error buffer_write_float(t_symbol *buffer, float *in, AH_SIntPtr write_length, long resize, long chan, double sample_rate, float mul)
{
    AH_SIntPtr length;
    long n_chans, format;
    void *samps;
    AH_SIntPtr i;

    float *samples;

    void *b = ibuffer_get_ptr(buffer);

    if (!b)
        return BUFFER_WRITE_ERR_NOT_FOUND;

    if (ob_sym(b) != ps_buffer)
        return BUFFER_WRITE_ERR_NOT_FOUND;

    if (!ibuffer_info(b, &samps, &length, &n_chans, &format))
        return BUFFER_WRITE_ERR_INVALID;

    if (chan >= n_chans)
        return BUFFER_WRITE_ERR_CHANNEL_INVALID;

    if (resize)
    {
        t_atom temp_atom[2];
        atom_setlong(temp_atom, write_length);
        object_method_typed ((t_object *)b, gensym("sizeinsamps"), 1L, temp_atom, temp_atom + 1);
        ibuffer_info(b, &samps, &length, &n_chans, &format);
    }

    if (length < write_length)
        return BUFFER_WRITE_ERR_TOO_SMALL;

    ibuffer_increment_inuse(b);

    samples = (float *) samps;
    chan = chan % n_chans;

    for (i = 0; i < write_length; i++)
        samples[i * n_chans + chan] = in[i] * mul;

    if (!resize)
        for (i = write_length; i < length; i++)
            samples[i * n_chans + chan] = 0.f;

    if (sample_rate)
    {
        t_atom temp_atom[2];
        atom_setfloat(temp_atom, sample_rate);
        object_method_typed ((t_object *)b, gensym("sr"), 1L, temp_atom, temp_atom + 1);
    }

    object_method ((t_object *)b, gensym("dirty"));

    ibuffer_decrement_inuse(b);

    return BUFFER_WRITE_ERR_NONE;
}
コード例 #8
0
void poki_dblclick(t_poki *x)
{
	t_buffer *b;	
	if ((b = (t_buffer *)(x->p_sym->s_thing)) && ob_sym(b) == ps_buffer)
  {
		mess0((t_object *)b, gensym("dblclick"));
  }
}
コード例 #9
0
void bvplay_dblclick(t_bvplay *x)
{
	t_buffer *b;
  t_symbol *wavename = x->l_sym;
	
  if ((b = (t_buffer *)(wavename->s_thing)) && ob_sym(b) == gensym("buffer~"))
    mess0((t_object *)b,gensym("dblclick"));

}
コード例 #10
0
ファイル: amaranth~.c プロジェクト: CNMAT/CNMAT-Externs
t_buffer *SymbolToBuffer(t_symbol *s) {
    t_buffer *b;

    if ((b = (t_buffer *)(s->s_thing)) && ob_sym(b) == ps_buffer) {
        return b;
    } else {
        return 0;
    }
}
コード例 #11
0
ファイル: firbank~.c プロジェクト: CNMAT/CNMAT-Externs
// msp arcana to extract t_buffer* from a t_symbol*
t_buffer* _sym_to_buffer(t_symbol* s) {

    t_buffer *b;
    if ((b = (t_buffer *)(s->s_thing)) && ob_sym(b) == ps_buffer_tilde) {
		return b;
    } else {
        return 0;
    }

}
コード例 #12
0
ファイル: terrain~.c プロジェクト: dsholmes/PeRColate
void terrain_set(t_terrain *x, t_symbol *s)
{
	t_buffer *b;
	
	x->l_sym = s;
	if ((b = (t_buffer *)(s->s_thing)) && ob_sym(b) == ps_buffer) {
		x->l_buf = b;
	} else {
		error("terrain~: no buffer~ %s", s->s_name);
		x->l_buf = 0;
	}
}
コード例 #13
0
void bvplay_set(t_bvplay *x, t_symbol *s)
{
	t_buffer *b;
	
	x->l_sym = s;
	if ((b = (t_buffer *)(s->s_thing)) && ob_sym(b) == ps_buffer) {
		x->l_buf = b;
	} else {
		error("bvplay~: no buffer~ %s", s->s_name);
		x->l_buf = 0;
	}
}
コード例 #14
0
ファイル: simpwave~.c プロジェクト: pukulsesuatu/max6-sdk
void simpwave_setup(t_simpwave *x, t_symbol *s, double sr)
{
	t_buffer *b;
	
	if (sr)
		x->w_msr = sr * .001;
	if (s != ps_nothing) {
		if ((b = (t_buffer *)(s->s_thing)) && ob_sym(b) == ps_buffer) {
			simpwave_limits(x,b);
			x->w_buf = b;
		} else
			x->w_buf = 0;
	} else
		x->w_buf = 0;
	x->w_name = s;
}
コード例 #15
0
ファイル: index~.c プロジェクト: Alfpercar/MaxMSPExternals
// here's where we set the buffer~ we're going to access
void index_set(t_index *x, t_symbol *s)
{
	t_buffer *b;
	
	if (s) {
		x->l_sym = s;
		if ((b = (t_buffer *)(s->s_thing)) && ob_sym(b) == ps_buffer) {
			x->l_buf = b;
		} else {
			object_error((t_object *)x, "no buffer~ %s", s->s_name);
			x->l_buf = 0;
		}
	} else {
		// this will reappear every time the dsp is restarted; do we really want it?
		object_error((t_object *)x, "no buffer~ object specified");
	}
}
コード例 #16
0
ファイル: bed_max.c プロジェクト: juandagilc/DAO-MaxMSP-Pd
/* The object-specific methods ************************************************/
int bed_attach_buffer(t_bed *x)
{
    t_object *o;
    o = x->b_name->s_thing;

    if (o == NULL) {
        post("bed • \"%s\" is not a valid buffer", x->b_name->s_name);
        return 0;
    }

    if (ob_sym(o) == gensym("buffer~")) {
        x->buffer = (t_buffer *)o;
        return 1;
    } else {
        return 0;
    }
}
コード例 #17
0
void poki_set(t_poki *x, t_symbol *s)
{
	t_buffer *b;
	
	if (s)
  {
		x->p_sym = s;
		if ((b = (t_buffer *)(s->s_thing)) && ob_sym(b) == ps_buffer) {
			x->p_buf = b;
		} else {
			object_error((t_object *)x, "buffer not found", s->s_name);
			x->p_buf = 0;
		}
	} else {
		object_error((t_object *)x, "no buffer argument?");
	}
}
コード例 #18
0
ファイル: vd~.c プロジェクト: ericlyon/LyonPotpourri-MaxMSP
int vd_setdestbuf(t_vd *x, t_symbol *wavename)
{
	t_buffer *b;


		
	if ((b = (t_buffer *)(wavename->s_thing)) && ob_sym(b) == gensym("buffer~")) {
    	if( b->b_nchans > 1 ){
      		error("%s; wavetable must be a mono",OBJECT_NAME);
      		return(0);

    	} else {
    	    x->destbuf = b;
    	    return(1);
    	}		
	} else {
    	error("%s: no such buffer~ %s",OBJECT_NAME, wavename->s_name);
    	return(0);
	}
}
コード例 #19
0
ファイル: bed_max.c プロジェクト: juandagilc/DAO-MaxMSP-Pd
int bed_attach_any_buffer(t_buffer **b, t_symbol *b_name)
{
    t_object *o;
    o = b_name->s_thing;

    if (o == NULL) {
        return 0;
    }

    if (ob_sym(o) == gensym("buffer~")) {
        *b = (t_buffer *)o;
        if (*b == NULL) {
            post("bed • \"%s\" is not a valid buffer", b_name->s_name);
            return 0;
        }
        return 1;
    } else {
        post("bed • \"%s\" is not a valid buffer", b_name->s_name);
        return 0;
    }
}
コード例 #20
0
ファイル: vdb~.c プロジェクト: ericlyon/LyonPotpourri-MaxMSP
int vdb_attach_buffer(t_vdb *x)
{
	t_buffer *b;
	t_symbol *wavename = x->buffername;



	if ((b = (t_buffer *)(wavename->s_thing)) && ob_sym(b) == gensym("buffer~")) {
		
		if(b->b_frames <= 0){
    	error("%s: zero length buffer~ %s",OBJECT_NAME, wavename->s_name);
    	x->b_valid = 0;
    	return(0);
		}	/*

	    if(x->b_frames != b->b_frames){
	      post("updating buffer sIze from %d to %d",x->b_frames, b->b_frames);
	    } */
	    x->delay_buffer = b;
		x->b_nchans = b->b_nchans;
		x->b_frames = b->b_frames;
		x->b_samples = b->b_samples;
		x->b_valid = b->b_valid;		
		x->len = x->b_frames;
		if(x->maxdelay_len > x->len){
			x->maxdelay_len = x->len;
			post("%s: shortened maxdelay to %d frames",OBJECT_NAME,x->maxdelay_len);
		}


   		return(1);	
	} 
	else {
    	error("%s: no such buffer~ %s",OBJECT_NAME, wavename->s_name);
    	return(0);
	}
}