Пример #1
0
void main(void)
{	
	setup(&gspline_class, gspline_new, (method)gspline_free, (short)sizeof(t_gspline), gspline_menufun, A_GIMME, 0);
	addmess((method)gspline_dsp, "dsp", A_CANT, 0);
	addbang((method)gspline_bang);
	addfloat((method)gspline_float);
	addint((method)gspline_int);
    addmess((method)gspline_list, "list", A_GIMME, 0);
    addmess((method)gspline_deriv, "deriv", A_GIMME, 0);
    
	addmess((method)gspline_restore, "done", 	0);
	addmess((method)gspline_color, "color", 	A_DEFLONG, 0);
	addmess((method)gspline_brgb, "brgb", 	A_DEFLONG, A_DEFLONG, A_DEFLONG, 0);
	addmess((method)gspline_frgb, "frgb", 	A_DEFLONG, A_DEFLONG, A_DEFLONG, 0);
	addmess((method)gspline_domain, "domain", 	A_DEFLONG, A_DEFLONG, 0);
	addmess((method)gspline_range, "range", 	A_DEFFLOAT, 0);
	addmess((method)gspline_update, "update", 	A_CANT, 0);
	addmess((method)gspline_assist, "assist",	A_CANT, 0);
	
	addmess((method)gspline_setautoderiv, "autoderiv", 0);
	addmess((method)gspline_logamp, "logamp", 0);
	addmess((method)gspline_linamp, "linamp", 0);
	addmess((method)gspline_save, "psave", 	A_CANT, 0);

	bindMeBaby = gensym("#X");			// symbol that we will use for restore
	
	rescopy('STR#',RES_ID);

	dsp_initboxclass();
	
}
Пример #2
0
// Main function
void main(void) 
{
	post("gaussdraw object version " VERSION " by Tristan Jehan");
    post("copyright © 2001 Massachusetts Institute of Technology");
	post("");
	
	setup(								// Setup Object
		(Messlist**) &gaussdraw_class,	// Pointer to class
		(method) gaussdraw_new,			// Constructor
		(method) gaussdraw_free,		// Destructor
		(short) sizeof(t_gaussdraw),	// Class Size
		0L,	A_GIMME, 0);

	/* bind your methods to symbols */
	addbang((method)gaussdraw_bang);
	addfloat((method)gaussdraw_float);
	addint((method)gaussdraw_int);
	addinx((method)gaussdraw_int_1,1);
	addinx((method)gaussdraw_int_2,2);
	addftx((method)gaussdraw_float_1,1);
	addftx((method)gaussdraw_float_2,2);
	addmess((method)gaussdraw_assist,"assist",A_CANT,0);
	addmess((method)gaussdraw_min,"min",A_GIMME,0);
	addmess((method)gaussdraw_max,"max",A_GIMME,0);
	addmess((method)gaussdraw_numpts,"numbars",A_GIMME,0);
	addmess((method)gaussdraw_default,"default",A_GIMME,0);
	addmess((method)gaussdraw_print,"print",A_GIMME,0);

	/* list object in the new object list */
	finder_addclass("Statistics", "gaussdraw");

	rescopy('STR#', RES_ID);
}
Пример #3
0
void main(void)
{
    setup((struct messlist **)&dcblock_class, (method)dcblock_new, (method)dsp_free, (short)sizeof(t_dcblock), 0L, A_DEFFLOAT, 0);
    addmess((method)dcblock_dsp, "dsp", A_CANT, 0);
    addmess((method)dcblock_assist,"assist",A_CANT,0);
    dsp_initclass();
    rescopy('STR#',3214);
}
Пример #4
0
//primary MSP funcs
void main(void)
{
    setup((struct messlist **)&bowedbar_class, (method)bowedbar_new, (method)bowedbar_free, (short)sizeof(t_bowedbar), 0L, A_DEFFLOAT, 0);
    addmess((method)bowedbar_dsp, "dsp", A_CANT, 0);
    addmess((method)bowedbar_assist,"assist",A_CANT,0);
    addfloat((method)bowedbar_float);
    dsp_initclass();
    rescopy('STR#',9979);
}
Пример #5
0
//primary MSP funcs
void main(void)
{
    setup((struct messlist **)&cabasa_class, (method)cabasa_new, (method)dsp_free, (short)sizeof(t_cabasa), 0L, A_DEFFLOAT, 0);
    addmess((method)cabasa_dsp, "dsp", A_CANT, 0);
    addmess((method)cabasa_assist,"assist",A_CANT,0);
    addfloat((method)cabasa_float);
    addint((method)cabasa_int);
    addbang((method)cabasa_bang);
    dsp_initclass();
    rescopy('STR#',9332);
}
Пример #6
0
void main(void) {
	post("pitcher~ version " PITCHER_VERSION " by Brian K. Vogel");
	post("Copyright © 1999 Regents of the University of California.  ");

    setup((t_messlist **)&pitcher_class, (method)pitcher_new, (method)pitcher_free, (short)sizeof(t_pitcher),
          0L, A_GIMME, 0);
    addmess((method)pitcher_dsp, "dsp", A_CANT, 0);
    addmess((method)pitcher_assist,"assist",A_CANT,0);
    dsp_initclass();
    rescopy('STR#',3241);
}
Пример #7
0
//primary MSP funcs
void main(void)
{
    setup((struct messlist **)&guiro_class, (method)guiro_new, (method)dsp_free, (short)sizeof(t_guiro), 0L, A_DEFFLOAT, 0);
    addmess((method)guiro_dsp, "dsp", A_CANT, 0);
    addmess((method)guiro_assist,"assist",A_CANT,0);
    addfloat((method)guiro_float);
    addint((method)guiro_int);
    addbang((method)guiro_bang);
    dsp_initclass();
    rescopy('STR#',9333);
}
Пример #8
0
//primary MSP funcs
void main(void)
{
    setup((struct messlist **)&marimba_class, (method)marimba_new, (method)marimba_free, (short)sizeof(t_marimba), 0L, A_DEFFLOAT, 0);
    addmess((method)marimba_dsp, "dsp", A_CANT, 0);
    addmess((method)marimba_assist,"assist",A_CANT,0);
    addmess((method)marimba_noteon, "noteon", A_GIMME, 0);
    addmess((method)marimba_noteoff, "noteoff", A_GIMME, 0);
    addfloat((method)marimba_float);
    dsp_initclass();
    rescopy('STR#',9278);
}
Пример #9
0
void main(void)
{
	setup(&fir_class, fir_new, (method)dsp_free, (short)sizeof(t_fir), 0L, A_LONG, 0);
	addmess((method)fir_dsp, "dsp", A_CANT, 0);
	addbang((method)fir_bang);
	addmess((method)fir_set, "set", A_GIMME, 0);
	addmess((method)fir_clear, "clear", 0);
	addmess((method)fir_assist, "assist", A_CANT, 0);
	dsp_initclass();
	rescopy('STR#',RES_ID);
}
Пример #10
0
void main(void)
{
	setup(&stft_class, stft_new, (method)stft_free, (short)sizeof(t_stft), 
		0L, A_GIMME, 0);
	addmess((method)stft_dsp, "dsp", A_CANT, 0);
	addmess((method)stft_assist, "assist", A_CANT, 0);
	addbang((method)stft_bang);

	ps_sdifstftbuffconnect = gensym("sdifstftbuffconnect");
	rescopy('STR#',RES_ID);
	dsp_initclass();
}
Пример #11
0
void main(void)
{
	setup(&fft_class, fft_new, (method)fft_free, (short)sizeof(t_fft), 
		0L, A_GIMME, 0);
	addmess((method)fft_dsp, "dsp", A_CANT, 0);
	addmess((method)fft_assist, "assist", A_CANT, 0);
	ps_fft = gensym("fft~");
	ps_ifft = gensym("ifft~");
	rescopy('STR#',3210);
	dsp_initclass();
	fts_mode = (long)dsp_fts_mode;
}
Пример #12
0
void main(void) {

	setup( (t_messlist **)&getonset_class, getonset_new, (method)getonset_free,
			(short)sizeof(t_getonset), 0L, A_GIMME, 0);
		
	addmess((method)getonset_dsp, "dsp", A_CANT, 0);
	addmess((method)getonset_assist, "assist", A_CANT, 0);
	addfloat((method)getonset_float);
	addint((method)getonset_int);
	dsp_initclass();

	rescopy('STR#', RES_ID);
}
Пример #13
0
void main(void)
{
	setup(&fft_class, fft_new, (method)fft_free, (short)sizeof(t_fft), 
		0L, A_GIMME, 0);
	addmess((method)fft_dsp, "dsp", A_CANT, 0);
	addmess((method)fft_assist, "assist", A_CANT, 0);
	addbang((method)fft_bang);
	ps_rfft = gensym("fftÅ");
	ps_rifft = gensym("ifftÅ");
	ps_fftbuffconnect = gensym("fftbuffconnect");
	rescopy('STR#',3210);
	dsp_initclass();
}
Пример #14
0
void main(void) {

	setup( (t_messlist **)&stringpitch_class, stringpitch_new, (method)stringpitch_free,
			(short)sizeof(t_stringpitch), 0L, A_GIMME, 0);
		
	addmess((method)stringpitch_dsp, "dsp", A_CANT, 0);
	addmess((method)stringpitch_assist, "assist", A_CANT, 0);
	addfloat((method)stringpitch_float);
	addint((method)stringpitch_int);
	dsp_initclass();

	rescopy('STR#', RES_ID);
}
Пример #15
0
/* initialization routine */
void main(fptr *f) {
  version(0);
	/* tell Max about your class. The cast to short is important for 68K */
	setup(&tpeq_sinelist_class, tpeq_sinelist_new, (method) tpeq_sinelist_free, 
		  (short)sizeof(tpeq_sinelist), 0L, A_DEFLONG, 0);
	/* bind your methods to symbols */
	addmess((method)tpeq_sinelist_assist, "assist", A_CANT, 0);
	addmess((method)version, "version", 0);
	addmess((method)tpeq_sinelist_tellmeeverything, "tellmeeverything", 0);
	addmess((method)tpeq_sinelist_list, "list", A_GIMME, 0);
	addmess((method)tpeq_sinelist_points, "tpe_points", A_GIMME, 0);
	
	rescopy('STR#', RESOURCE_ID_WITH_ASSIST_STRINGS);
	
}
Пример #16
0
void main(void) {

	ps_rectangular = gensym("rectangular");
	ps_hanning = gensym("hanning");
	ps_hamming = gensym("hamming");
	ps_blackman = gensym("blackman");

	setup( &centroid_class, centroid_new, (method)centroid_free, (short)sizeof(t_centroid), 0L, A_GIMME, 0);
		
	addmess((method)centroid_dsp, "dsp", A_CANT, 0);
	addmess((method)centroid_assist, "assist", A_CANT, 0);
	addfloat((method)centroid_float);
	addint((method)centroid_int);
	dsp_initclass();

	rescopy('STR#', RES_ID);
}
Пример #17
0
void main(void) {

  
	version(0);

    setup((t_messlist **)&ioi_report_class, (method) ioi_report_new, (method)ioi_report_free, 
    	  (short)sizeof(t_ioi_report), 0L, A_GIMME, 0);
    addmess((method)ioi_report_dsp, "dsp", A_CANT, 0);
    addmess((method)ioi_report_dsp, "reset", 0);
    addmess((method)version, "version", 0);
    addmess((method)ioi_report_assist,"assist",A_CANT,0);
    addmess((method)ioi_report_min_ioi_time, "min_ioi", A_LONG, 0);
    addmess((method)ioi_report_max_ioi_time, "max_ioi", A_LONG, 0);
    addmess((method)ioi_report_max_iois_per_event, "max_per_event", A_LONG, 0);

    dsp_initclass();
    rescopy('STR#',3241);
}
Пример #18
0
void main(void) {

    post("Noisiness~ object version " VERSION " by Tristan Jehan (Media Laboratory)");
    post("copyright © 2001 Massachusetts Institute of Technology");
    post("");

    ps_rectangular = gensym("rectangular");
    ps_hanning = gensym("hanning");
    ps_hamming = gensym("hamming");
    ps_blackman62 = gensym("blackman62");
    ps_blackman70 = gensym("blackman70");
    ps_blackman74 = gensym("blackman74");
    ps_blackman92 = gensym("blackman92");

    setup((Messlist **)&noisiness_class, (method)noisiness_new, (method)noisiness_free, (short)sizeof(t_noisiness), 0L, A_GIMME, 0);

    addmess((method)noisiness_dsp, "dsp", A_CANT, 0);
    addmess((method)noisiness_assist, "assist", A_CANT, 0);
    addfloat((method)noisiness_float);
    addint((method)noisiness_int);
    dsp_initclass();

    rescopy('STR#', RES_ID);
}
Пример #19
0
void main(fptr *f)
{
	CInfoRec ct;
	
	long oldA4;
	oldA4 = SetCurrentA4();
	RememberA4();
	FNS = f;

	setup(&lcd_class, (void *)LCD_new, (method) LCD_free, (short)sizeof(Lcd),
		(method)LCD_menu, A_GIMME, 0);
	
	addmess((method)LCD_ascii,"ascii",A_GIMME,0);
	addmess((method)LCD_update,"clear",0);
	addmess((method)LCD_click,"click",A_CANT,0);
	addmess((method)LCD_color,"color",A_LONG,0);
	addmess((method)LCD_debug,"debug",0);
	addmess((method)LCD_font,"font",A_DEFLONG,A_DEFLONG,0);
	addmess((method)LCD_frameOval,"frameOval",A_LONG,A_LONG,A_LONG,A_LONG,A_DEFLONG,0L,0);
	addmess((method)LCD_frameRect,"frameRect",A_LONG,A_LONG,A_LONG,A_LONG,A_DEFLONG,0L,0);
	addmess((method)LCD_Line,"Line",A_LONG,A_LONG,0L,0);
	addmess((method)LCD_LineTo,"LineTo",A_LONG,A_LONG,0L,0);
	addmess((method)LCD_Move,"Move",A_LONG,A_LONG,0L,0);
	addmess((method)LCD_MoveTo,"MoveTo",A_LONG,A_LONG,0L,0);
	addmess((method)LCD_linesegment,"LineSegment",A_LONG,A_LONG,A_LONG,A_LONG,A_DEFLONG,0);
	addmess((method)LCD_paintOval,"PaintOval",A_LONG,A_LONG,A_LONG,A_LONG,A_DEFLONG,0L,0);
	addmess((method)LCD_paintRect,"PaintRect",A_LONG,A_LONG,A_LONG,A_LONG,A_DEFLONG,0L,0);
	addmess((method)LCD_penMode,"penMode",A_LONG,0L,0);
	addmess((method)LCD_pos,"pos",A_LONG,A_LONG,0);
	addmess((method)LCD_save,"psave",A_CANT,0);
	addmess((method)LCD_reson,"reson",A_GIMME,0);
	addmess((method)LCD_resonSampleRate,"resonfreqmax",A_FLOAT,0L,0);
	addmess((method)LCD_resonSpect,"resonSpect",A_FLOAT,0L,0);
	addmess((method)LCD_resonTrim,"resonTrim",A_FLOAT,0L,0);
	addmess((method)LCD_update,"update",A_CANT, 0);
	addmess((method)LCD_write,"write",A_GIMME,0);
	addmess((method)LCD_assist,"assist",A_CANT, 0);
	
	addmess((method)LCD_local,"local",A_LONG,0);
	addmess((method)LCD_readpict,"readpict",A_GIMME,0);
	addmess((method)LCD_drawpict,"drawpict",0);
	addmess((method)LCD_picthandle,"picthandle",A_LONG,0);

	GetIndPattern(&blk,sysPatListID,1);
	GetIndPattern(&wht,sysPatListID,20);
	colorinfo(&ct);
	hasColorQD = ct.c_hasColorQD;
	numPaletteColors = ct.c_depth>=8? 256 : (ct.c_depth==4? 16 : 2);
	
	if (numPaletteColors<=16)
		hasColorQD=0; // sde 4-bit mode is screwey, ignore it.
		
#ifdef debug	
	post("hasColor %d",hasColorQD);
	post("numColors %d",numPaletteColors);
#endif	
	post("LCD Object by Michael Lee, Steve Ellison, David Zicarelli");
	post("copyright © 1991-97 Regents of the University of California. All Rights Reserved.");
	
	LCD_makepalette();		/* DDZ made palette in main(), avoids rescopy */
	rescopy('STR#',myRes);	/* DDZ added assistance */

	ps_picthandle=gensym("picthandle");
	ps_pictname=gensym("pictname");

	RestoreA4(oldA4);
}
Пример #20
0
void main(fptr *f) {
	long oldA4;
	OSStatus err;
	DateTimeRec date;
	
	oldA4 = SetCurrentA4();
	RememberA4();
	FNS = f;	

#ifdef MULTI_SEGMENT
	/* Multi-segment code resource stuff */
	{
		Str255 buf;
		short i, n, theID;
		char **ch;
		OSType theType;
		n = Count1Resources('Cccc');
	    post("This external has %ld resources", (long) n);
		for (i = 1; i <= n; i++) {
			ch = Get1IndResource('Cccc', i);
			GetResInfo(ch, &theID, &theType, buf);
			rescopy('Cccc', theID);
		}
	}
#endif

#ifdef EXTENDED_CODE_RESOURCE
	// Cause it's an extended code resource...
	// rescopy('Cccc',22222);
#endif

	ps_readbufsize = gensym("readbufsize");
	ps_writebufsize = gensym("writebufsize");
	ps_OTTCP_nbytes = gensym("OTTCP_nbytes");
	ps_OTTCP_delim = gensym("OTTCP_delim");
	ps_connected = gensym("connected");
	ps_disconnected = gensym("disconnected");

	setup(&ottcp_class, ottcp_new, (method) ottcp_free, (short)sizeof(OTTCP), 0L, A_GIMME, 0);
	
	version(0);
#ifdef DAVID_LIKES_EXPIRING_MAX_OBJECTS
	post("Expires %d/%d/%d", MONTH, DAY, YEAR);
#endif

#ifdef DAVID_LIKES_EXPIRING_MAX_OBJECTS
	GetTime(&date);
	if((date.year > YEAR)  || 
       (date.year == YEAR && ((date.month > MONTH) ||
							  (date.month == MONTH && date.day > DAY)))) {
            ouchstring(EXPIRATION_NOTICE);
            goto quit;
    }
#endif
    
    // post ("*** before  InitOpenTransport();");
	err = InitOpenTransport();
	if (err != kOTNoError) {
		ouchstring("Couldn't InitOpenTransport (err %d).  Perhaps Open Transport is not installed.",
					err);
		goto quit;
	}
	
	/* bind methods */
	addmess((method) ottcp_connect, "connect", A_SYM, A_LONG, 0);
	addmess((method) ottcp_disconnect, "disconnect", 0);
	addmess((method) ottcp_read_nbytes, "nbytes", A_LONG, 0);
	addmess((method) ottcp_read_until_delimiter_symbol, "delim", A_SYM, 0);
	addmess((method) ottcp_read_until_delimiter_bytes, "delim-bytes", A_GIMME, 0);
	addmess((method) ottcp_write, "write", A_LONG, A_LONG, 0);
	addmess((method) version, "version", 0);
	addmess((method) ottcp_ErrorReporting, "errorreporting", 0);
	addmess((method) ottcp_tellmeeverything, "tellmeeverything", 0);
	addmess((method) ottcp_assist, "assist", A_CANT, 0);

	finder_addclass("System","ottcp");

quit:
	RestoreA4(oldA4);
}
Пример #21
0
void main(fptr *f) {
	OSStatus err;
	DateTimeRec date;
	
#ifdef MULTI_SEGMENT
	/* Multi-segment code resource stuff */
	{
		Str255 buf;
		short i, n, theID;
		char **ch;
		OSType theType;
		n = Count1Resources('Cccc');
	    post("This external has %ld resources", (long) n);
		for (i = 1; i <= n; i++) {
			ch = Get1IndResource('Cccc', i);
			GetResInfo(ch, &theID, &theType, buf);
			rescopy('Cccc', theID);
		}
	}
#endif

#ifdef EXTENDED_CODE_RESOURCE
	// Cause it's an extended code resource...
	// rescopy('Cccc',22222);
#endif

	setup((t_messlist **)&otudp_class, (method)otudp_new, (method) otudp_free, (short)sizeof(OTUDP), 0L, A_GIMME, 0);
	
	version(0);
#ifdef DAVID_LIKES_EXPIRING_MAX_OBJECTS
	post("Expires %d/%d/%d", MONTH, DAY, YEAR);
#endif


#ifdef DAVID_LIKES_EXPIRING_MAX_OBJECTS
	GetTime(&date);
	if((date.year > YEAR)  || 
       (date.year == YEAR && ((date.month > MONTH) ||
							  (date.month == MONTH && date.day > DAY)))) {
            ouchstring(EXPIRATION_NOTICE);
            return;
    }
#endif
        
    // post ("*** before  InitOpenTransport();");
	err = InitOpenTransportInContext(kInitOTForExtensionMask, &OTContext);
	if (err != kOTNoError) {
		error("¥ OTUDP: Couldn't InitOpenTransport (err %d).  Perhaps Open Transport is not installed.",
					err);
		return;
	}
	
	/* bind methods */
	addmess((method) otudp_write, "FullPacket", A_LONG, A_LONG, 0);
	addmess((method) version, "version", 0);
	addmess((method) otudp_toggleErrorReporting, "errorreporting", 0);
	addmess((method) otudp_tellmeeverything, "tellmeeverything", 0);
	addmess((method) otudp_old_write, "write", A_GIMME, 0);
	addmess((method) otudp_old_write, "gimme", A_GIMME, 0);
	addmess((method) otudp_assist, "assist", A_CANT, 0);
	addmess((method) otudp_changeHost, "host", A_SYM, A_LONG, 0);
	addmess((method) otudp_changeReceivePort, "receiveport", A_LONG, 0);

	/* These methods are just for debugging. */
	addmess((method) otudp_debugstats, "debugstats", 0);
	addmess((method) otudp_resetdebugstats, "resetdebugstats", 0);
	addmess((method) otudp_read, "readitagainsam", 0);

	finder_addclass("System","otudp");

	ps_read = gensym("read");
	ps_write = gensym("write");
	ps_FullPacket = gensym("FullPacket");
	ps_PartialPacket = gensym("PartialPacket");
	ps_nbufs = gensym("nbufs");
	ps_bufsize = gensym("bufsize");
}