[PD] plans for Pd 0.48
Billy Stiltner
billy.stiltner at gmail.com
Sat Jan 7 20:30:16 CET 2017
re: moog, re:dir
/* Engine Driven Module Program
* By Billy Stiltner
*/
//[[[[[[[[[[[[[[[[[[[[[[[[[[<Setup Module>]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
#include <iostream.h>
#include <conio.h>
int state;
int _state;
int count;
int wait;
long double a1,b1,c1,a2,b2,c2,a3,b3,c3,z1,z2,z3,k1,k2,k3;
long double x,y,z,detn;
int input_mod(void);
int trip_simul(void);
int exit_mod(void);
//[[[[[[[[[[[[[[[[[[[[[[[[[[<<<<<<<>>>>>>>]]]]]]]]]]]]]]]]]]]]]]]]]]]]]*/
//[[[[[[[[[[[[[[[[[[[[[[[[[[<Engine Module>]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
main()
{
count=0;
while (count<100)
{//++++++++++++++++++++++<Engine Loop>+++++++++++++++++++++++++
switch (_state)
{
case 0:{
input_mod();
break;
};
case 1:{
trip_simul();
break;
};
case 2:{
exit_mod();
break;
};
};
};//++++++++++++++++++++++<<<<<<<>>>>>>+++++++++++++++++++++++++
return(0);
};
//[[[[[[[[[[[[[[[[[[[[[[[[[[<<<<<<<>>>>>>>]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
// <<<<input_mod>>>>
int input_mod(void)
{
clrscr();
cout<<"1 for a triple simultaneous equation 2 for exit ";
cin>>_state;
return(_state);
};
// <<<<<<<>>>>>>>
// <<<<trip_sim>>>>
int trip_simul(void)
{
clrscr();
cout<<"a1*x+b1*y+c1*z=k1\n";
cout<<"a2*x+b2*y+c2*z=k2\n";
cout<<"a3*x+b3*y+c3*z=k3\n";
cout<<"\nwhat is a1 = ";
cin>>a1;
cout<<"what is b1 = ";
cin>>b1;
cout<<"what is c1 = ";
cin>>c1;
cout<<"what is k1 = ";
cin>>k1;
cout<<"\nwhat is a2 = ";
cin>>a2;
cout<<"what is b2 = ";
cin>>b2;
cout<<"what is c2 = ";
cin>>c2;
cout<<"what is k2 = ";
cin>>k2;
cout<<"\nwhat is a3 = ";
cin>>a3;
cout<<"what is b3 = ";
cin>>b3;
cout<<"what is c3 = ";
cin>>c3;
cout<<"what is k3 = ";
cin>>k3;
detn=(((a1*b2*c3)+(b1*c2*a3)+(c1*a2*b3))-((a3*b2*c1)+(b3*c2*a1)+(c3*a2*b1)));
x=((((k1*b2*c3)+(b1*c2*k3)+(c1*k2*b3))-((k3*b2*c1)+(b3*c2*k1)+(c3*k2*b1)))/detn);
y=((((a1*k2*c3)+(k1*c2*a3)+(c1*a2*k3))-((a3*k2*c1)+(k3*c2*a1)+(c3*a2*k1)))/detn);
z=((((a1*b2*k3)+(b1*k2*a3)+(k1*a2*b3))-((a3*b2*k1)+(b3*k2*a1)+(k3*a2*b1)))/detn);
cout<<"\nx = "<<x<<"\n";
cout<<"y = "<<y<<"\n";
cout<<"z = "<<z<<"\n";
getch();
_state=0;
return(_state);
};
// <<<<<<<>>>>>>>
int exit_mod(void)
{
cout<<"see ya";
count = 101;
return (count);
};
//cgidir copyright 1996 Billy Stiltner
#include <stdio.h>
#include "g:\bc45\cgic\cgic105\cgic.h"
#include <dir.h>
#include <dos.h>
FILE *in, *out;
struct ffblk f;
char drive[3],dir[66],name[9],ext[5];
int done;
char pathname[81];
char ConfigUrl[255];
char ConfigDir[255];
int cgiMain() {
#if DEBUG
/* Load a saved CGI scenario if we're debugging */
cgiReadEnvironment("/home/boutell/public_html/capcgi.dat");
#endif
cgiHeaderContentType("text/html");
/*cgiHeaderLocation("http://206.151.77.100/output.htm");*/
fprintf(cgiOut, "<HTML><HEAD>\n");
fprintf(cgiOut, "<TITLE>Stiltner's Web Directory</TITLE></HEAD>\n");
fprintf(cgiOut, "<BODY>Stiltner's Web Directory Copyright 1996 Billy
Stiltner<BR>\n");
if((in = fopen("\\cgidir\\cgidir.cfg", "r+")) == NULL)
{
fprintf(cgiOut, "Cannot open configuration file.\n");
return 1;
}else{
fgets(ConfigUrl,255,in);
fgets(ConfigDir,255,in);
fprintf(cgiOut,ConfigUrl);
fprintf(cgiOut,ConfigDir);
// fprintf(cgiOut, "<form method=\"POST\" action=\"
http://206.151.77.100/scripts/cgidir.exe\">");
fprintf(cgiOut, "<form method=\"POST\" action=");
fprintf(cgiOut, ConfigUrl);
fprintf(cgiOut, ">");
};
fprintf(cgiOut, "<HR><BR>\n");
cgiFormStringNoNewlines("pathname", pathname, 81);
fprintf(cgiOut, "Directory of %s<BR>\n", pathname);
fprintf(cgiOut, "<HR>");
done = findfirst(pathname,&f,63);
while (!done)
{
fnsplit(f.ff_name,drive,dir,name,ext);
if(f.ff_attrib==FA_DIREC){
fprintf(cgiOut,"<IMG SRC=\"/dir.gif\" HEIGHT=13 WIDTH=15>");
}else{
fprintf(cgiOut,"<IMG SRC=\"/file.gif\" HEIGHT=16 WIDTH=13>");};
fprintf(cgiOut, f.ff_name);
fprintf(cgiOut, "<BR>\n");
done = findnext(&f);
}
fprintf(cgiOut, "<HR>");
fprintf(cgiOut, "Path:<input type=\"text\"
name=\"pathname\"><BR>\n<BR>\n");
fprintf(cgiOut, "<input type=\"submit\" name=\"submit1\" value=\"Get
Directory\">");
fprintf(cgiOut, "</form>");
fprintf(cgiOut, "</BODY></HTML>\n");
return 0;
}
On Thu, Jan 5, 2017 at 10:55 AM, Miller Puckette <msp at ucsd.edu> wrote:
> And another use case - non-real-time (batch) audio rendering as in csound
> where you just allocate instances as you need 'em. This definitely needs
> doing.
>
> cheers
> M
>
> On Thu, Jan 05, 2017 at 04:45:15PM +0100, IOhannes m zmoelnig wrote:
> > On 2017-01-01 21:32, Miller Puckette wrote:
> > > I can take on a larger list of smaller changes.
> > > The major changes I want to try to put in this release are as follows:
> >
> > here's another one that emerged from my wishlist, after the few mentions
> > of [clone] in the last days:
> >
> > add a method to clone to change the number of instances.
> > i understand that this is not a realtime operation, but a use-case could
> > look like:
> > - at startup, run a profiling patch estimating the CPU power of the
> machine.
> > - use that info to determine the number of voices my synth can handle
> today.
> >
> > or:
> > - specify the number voices via a startup flag (to my script, which
> > passes the voice-number to Pd via "-send num_voices ${VOICES}", which
> > passes the voice-number to [clone])
> >
> > fgmasdr
> > IOhannes
> >
>
>
>
>
> > _______________________________________________
> > Pd-list at lists.iem.at mailing list
> > UNSUBSCRIBE and account-management -> https://lists.puredata.info/
> listinfo/pd-list
>
>
> _______________________________________________
> Pd-list at lists.iem.at mailing list
> UNSUBSCRIBE and account-management -> https://lists.puredata.info/
> listinfo/pd-list
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.puredata.info/pipermail/pd-list/attachments/20170107/5275febf/attachment-0001.html>
More information about the Pd-list
mailing list