/*prints an integer*/
void printnumber(int number)
{
char num[12];
char pnum[12];
int d=1;
int i=0;
int j;
/*convert the number to a string digit by digit*/
while(i<10)
{
num[i]=mod(mydiv(number,d),10)+0x30;
i++;
d=d*10;
if (mydiv(number,d)==0)
break;
}
/*reverse it to read most significant to least significant*/
j=0;
for (d=i-1; d>=0; d--)
pnum[j++]=num[d];
pnum[j]=0;
printstring(pnum);
}
/*writes buffer to a sector*/
void writesector(int sectornumber, char* buffer)
{
int sec,head,cyl;
/*convert to CHS*/
sec=mod(sectornumber,0x12)+1;
head=mod(mydiv(sectornumber,0x12),2);
cyl=mydiv(sectornumber,0x24);
writesect(buffer,sec,head,cyl);
}
/*allow the user to create a text file*/
void docreate(char* line)
{
char file[12800];
int index=0;
char* name=getargument(line);
char c=0;
printstring("Enter your text. End the file by typing CTRL-C.\r\n\n\0");
/*terminates when user presses CTRL-C - 3) */
while(c!=0x3)
{
/*get a character and store it*/
c=getchar();
file[index++]=c;
/*echo it back if it isn't CTRL-C*/
if (c!=0x3)
putchar(c);
/*if the user presses ENTER, follow the CR with a LF*/
if (c==0xd)
{
file[index++]=0xa;
putchar(0xa);
}
}
/*terminate the file with a 0*/
file[index-1]=0x0;
/*write it to the disk. Round up the sector*/
writefile(name,file,mydiv(index,512)+1);
printstring("\r\n\0");
}
int
main ()
{
int x, y;
char op;
scanf ("%d%c%d", &x, &op, &y); // 5+4 8*9 11-6
switch (op)
{
case '+':
printf ("%d+%d=%d\n", x, y, myadd (x, y));
break;
case '-':
printf ("%d-%d=%d\n", x, y, mysub (x, y));
break;
case '*':
printf ("%d*%d=%d\n", x, y, mymul (x, y));
break;
case '/':
printf ("%d/%d=%d\n", x, y, mydiv (x, y));
break;
default:
break;
}
return 0;
}
BOOL WINAPI myQueryPerformanceCounter(PLARGE_INTEGER PerformanceCounter)
{
SharedDara* pShared;
INIT_SHARED_DATA_PTR(pShared);
pShared->qpc_f(PerformanceCounter, nullptr);
PerformanceCounter->QuadPart = ((PerformanceCounter->QuadPart - pShared->qpc_start.QuadPart) * LONGLONG(pShared->scale));
ULONGLONG den = DefaultScale;
mydiv(PerformanceCounter->QuadPart, den);
PerformanceCounter->QuadPart += pShared->qpc_start.QuadPart;
return TRUE;
}
void main() {
allegrosetup(scrwid,scrhei);
psychedelicpalette();
mypalette(255,0,0,0);
V3d pos=V3d(0,0,0);
V3d vel=V3d(0,0,0);
V3d acc=V3d(0,0,0);
Ori ori;
float roll=0;
float yaw=0;
JBmp b=JBmp(scrwid,scrhei);
PPsetup(scrwid,scrhei,4);
do {
b.clear(255);
V3d off=V3d(mymod(pos.x,gjump),mymod(pos.y,gjump),mymod(pos.z,gjump));
int ioff=-mydiv(pos.x,gjump);
int joff=-mydiv(pos.y,gjump);
int koff=-mydiv(pos.z,gjump);
for (int k=gridsize;k>=-gridsize;k-=gjump)
for (int i=-gridsize;i<=gridsize;i+=gjump)
for (int j=-gridsize;j<=gridsize;j+=gjump) {
int x,y;
V3d cen=V3d(i,j,k)-off;
cen=V3d::orientate(cen,ori);
int c=256.0*mymod(5*mysquare((i-ioff)/gjump)-11*(j-joff)/gjump-7*(k-koff)/gjump,6)/6.0;
PPgetscrpos(cen,&x,&y);
b.filledcircle(x,y,0.1*PPgetunit(cen),c);
}
b.writetoscreen();
acc=hang(acc,V3d::origin,0.93,0.02);
vel=hang(vel,V3d::origin,0.93,0)+acc;
pos=pos+vel;
roll=hang(roll,0,0.92,0.01);
yaw=hang(yaw,0,0.92,0.01);
ori.roll(roll);
ori.yaw(yaw);
} while (!key[KEY_ESC]);
}
void main() {
allegrosetup(scrwid,scrhei);
makepalette(&greypalette);
mypalette(255,0,0,0);
mypalette(0,0,0,0);
mypalette(255,1,1,1);
mypalette(128,0,0,0);
randomise();
for (int i=0;i<=5;i++) {
waves+Wave();
//waves.num(i).display();
}
for (int r=0;r<8;r++) {
for (int g=0;g<8;g++) {
int palc=r+g*8;
mypalette(palc,(r==0?0:0.1+0.6*r/7.0),(g==0?0:0.1+0.2*g/7.0),(g==0?0:0.1+0.7*g/7.0));
// Good colours: mypalette(palc,(r==0?0:0.3+0.4*r/7.0),(g==0?0:0.1+0.2*g/7.0),(g==0?0:0.3+0.5*g/7.0));
}
}
V3d vel=V3d(0,0,0);
V3d acc=V3d(0,0,0);
Ori ori;
float droll=0;
float dyaw=0;
float roll=0;
float yaw=0;
float pitch=0;
int frame=0;
List<V3d> particles=List<V3d>(gridsize*gridsize*gridsize);
/* for (int i=1;i<gridsize*gridsize*gridsize;i++) {
particles+gridsize*V3d(floatrnd(-1,1),floatrnd(-1,1),floatrnd(-1,1));
}*/
for (float thru=0;thru<1.0;thru+=0.01) {
particles+getpos(thru);
//v.print();
}
starttimer();
float thru=0;
V3d pos=getpos(thru);
do {
thru+=0.001;
V3d last=pos;
V3d pos=getpos(thru);
V3d newz=pos-last;
ori.forcez(newz);
frame++;
float pd=1.6+1.3*sin(2*pi*frame/1000.0);
PPsetup(scrwid,scrhei,pd);
left.clear(0);
right.clear(0);
// b.fadeby(16);
V3d off=V3d(mymod(pos.x,gridsize),mymod(pos.y,gridsize),mymod(pos.z,gridsize));
int ioff=-mydiv(pos.x,gjump);
int joff=-mydiv(pos.y,gjump);
int koff=-mydiv(pos.z,gjump);
ori.quickorisetup();
// Need to find largest axis, and do loops with that one outside
int ks=mysgn(ori.qz.z);
int js=-mysgn(ori.qz.y);
int is=-mysgn(ori.qz.x);
for (int i=1;i<=particles.len;i++) {
int x,y;
V3d p=particles.num(i);
//V3d cen=p-off;
V3d cen=p+pos;
cen=V3d(mymod2(cen.x,-gridsize,gridsize),mymod2(cen.y,-gridsize,gridsize),mymod2(cen.z,-gridsize,gridsize));
cen=V3d::qorientate(cen,ori);
int c=7.0-chop(6.0*(cen.z+gridsize)/(float)(gridsize*2),0,6);
plotsphere(cen,c);
}
for (int i=0;i<scrwid;i++) {
for (int j=0;j<scrhei;j++) {
b.bmp[j][i]=(left.bmp[j][i] | right.bmp[j][i]);
}
}
b.writetoscreen();
// acc=hang(acc,V3d::origin,0.95,0.01);
// vel=hang(vel,(ori.qz/5.0).neg(),0.9,0)+acc;
// pos=pos+vel;
// droll=hang(droll,0,0.9,0.01);
// dyaw=hang(dyaw,0,0.95,0.01);
// roll=hang(roll,0,0.95,0)+droll;
// yaw=hang(yaw,0,0.92,0)+dyaw;
// pitch=hang(pitch,0,0.999,0.01);
// pos=pos+ori.qz*4;
// ori.roll(roll/5.0);
// ori.yaw(yaw/5.0);
// pos=pos-ori.z()*4;
framedone();
} while (!key[KEY_SPACE] && !key[KEY_ESC]);
savetimer();
allegro_exit();
displayframespersecond();
}
void main() {
allegrosetup(scrwid,scrhei);
makepalette(&greypalette);
mypalette(255,0,0,0);
mypalette(0,0,0,0);
mypalette(255,1,1,1);
mypalette(128,0,0,0);
for (int r=0;r<8;r++) {
for (int g=0;g<8;g++) {
int palc=r+g*8;
mypalette(palc,(r==0?0:0.3+0.4*r/7.0),(g==0?0:0.1+0.2*g/7.0),(g==0?0:0.3+0.5*g/7.0));
}
}
// randomise();
V3d pos=V3d(0,0,0);
V3d vel=V3d(0,0,0);
V3d acc=V3d(0,0,0);
Ori ori;
float droll=0;
float dyaw=0;
float roll=0;
float yaw=0;
float pitch=0;
int frame=0;
starttimer();
do {
frame++;
float pd=2.0+1.8*sin(2*pi*frame/1000.0);
PPsetup(scrwid,scrhei,pd);
left.clear(0);
right.clear(0);
// b.fadeby(16);
V3d off=V3d(mymod(pos.x,gjump),mymod(pos.y,gjump),mymod(pos.z,gjump));
int ioff=-mydiv(pos.x,gjump);
int joff=-mydiv(pos.y,gjump);
int koff=-mydiv(pos.z,gjump);
ori.quickorisetup();
// Need to find largest axis, and do loops with that one outside
int ks=mysgn(ori.qz.z);
int js=-mysgn(ori.qz.y);
int is=-mysgn(ori.qz.x);
for (int k=ks*gridsize;k!=-ks*gridsize;k=k-ks*gjump)
for (int i=-is*gridsize;i!=is*gridsize;i=i+is*gjump)
for (int j=-js*gridsize;j!=js*gridsize;j=j+js*gjump) {
int x,y;
V3d cen=V3d(i,j,k)-off;
cen=V3d::qorientate(cen,ori);
int c=7-chop(7*(cen.z+pd+1)/(gridsize+2),0,7);
plotsphere(cen,c);
}
for (int i=0;i<scrwid;i++) {
for (int j=0;j<scrhei;j++) {
b.bmp[j][i]=(left.bmp[j][i] | right.bmp[j][i]);
}
}
b.writetoscreen();
acc=hang(acc,V3d::origin,0.95,0.01);
vel=hang(vel,ori.qz/10,0.94,0)+acc;
pos=pos+vel;
droll=hang(droll,0,0.9,0.01);
dyaw=hang(dyaw,0,0.95,0.01);
roll=hang(roll,0,0.95,0)+droll;
yaw=hang(yaw,0,0.92,0)+dyaw;
pitch=hang(pitch,0,0.999,0.01);
pos=pos+ori.qz*4;
ori.roll(roll/5.0);
ori.yaw(yaw/5.0);
pos=pos-ori.z()*4;
framedone();
} while (!key[KEY_SPACE] && !key[KEY_ESC]);
savetimer();
allegro_exit();
displayframespersecond();
}
void main() {
allegrosetup(scrwid,scrhei);
makepalette(&greypalette);
mypalette(255,0,0,0);
mypalette(0,0,0,0);
mypalette(255,1,1,1);
mypalette(128,0,0,0);
randomise();
for (int i=0;i<=15;i++) {
waves+Wave();
// waves.num(i).display();
}
for (int r=0;r<16;r++) {
for (int g=0;g<16;g++) {
int palc=r+g*16;
mypalette(palc,(r==0?0:brightness+0.2+change*0.5*r/15.0),(g==0?0:brightness+change*0.1+0.2*g/15.0),(g==0?0:brightness+change*0.2+0.6*g/15.0));
// Groovy colours mypalette(palc,(r==0?0:0.1+0.6*r/15.0),(g==0?0:0.1+0.2*g/15.0),(g==0?0:0.1+0.7*g/15.0));
// Good colours: mypalette(palc,(r==0?0:0.3+0.4*r/15.0),(g==0?0:0.1+0.2*g/15.0),(g==0?0:0.3+0.5*g/15.0));
}
}
V3d vel=V3d(0,0,0);
V3d acc=V3d(0,0,0);
Ori ori;
float droll=0;
float dyaw=0;
float dpitch=0;
int frame=0;
List<V3d> particles=List<V3d>(gridsize*gridsize*gridsize);
/* for (int i=1;i<gridsize*gridsize*gridsize;i++) {
particles+gridsize*V3d(floatrnd(-1,1),floatrnd(-1,1),floatrnd(-1,1));
}*/
int ps=1;
float rad=0;
for (float thru=0;thru<1.0;thru+=0.0016) {
V3d here=getpos(thru);
V3d forward=getpos(thru+0.00001)-here;
V3d up=V3d::normcross(V3d::crazy,forward);
V3d right=V3d::normcross(forward,up);
for (int i=0;i<ps;i++) {
float t=2*pi*(float)i/(float)ps;
float s=sin(t);
float c=cos(t);
particles+(here+rad*(s*up+c*right));
}
// v.print();
}
starttimer();
float thru=0;
float marker=0;
V3d pos=getpos(marker);
V3d *tail=new V3d[taillen];
int tailpos=0;
do {
thru+=0.001;
// V3d last=V3d(pos.x,pos.y,pos.z);
// V3d pos=getpos(thru);
// V3d next=getpos(thru+0.00001);
// V3d newz=next-pos;
// ori.forcez(newz);
frame++;
// float pd=1.6+1.3*sin(2*pi*frame/1000.0);
float pd=2.0;
PPsetup(scrwid,scrhei,pd);
left.clear(0);
right.clear(0);
// b.fadeby(16);
int ioff=-mydiv(pos.x,gjump);
int joff=-mydiv(pos.y,gjump);
int koff=-mydiv(pos.z,gjump);
ori.quickorisetup();
// Need to find largest axis, and do loops with that one outside
int ks=mysgn(ori.qz.z);
int js=-mysgn(ori.qz.y);
int is=-mysgn(ori.qz.x);
for (int i=1;i<=particles.len;i++) {
int x,y;
V3d p=particles.num(i);
V3d cen=p-pos+0.0*ori.y;
cen=V3d::disorientate(cen,ori);
int c=15.0-chop(14.0*(cen.z+gridsize)/(float)(gridsize*2),0,14);
// int c=7.0-chop(6.0*(i/particles.len),0,6);
plotsphere(cen,c);
}
// Plot and move marker
V3d m;
for (int i=1;i<=15;i++) {
m=V3d::disorientate(getpos(marker)-pos,ori);
if (m.mod()<markerrange)
marker+=0.0002;
}
float u=PPgetunitnoadd(m);
bool plot=false;
if (u) {
int x,y;
float rad=0.08*u;
PPgetscrposnoadd(m,PPlefteye,&x,&y);
if (left.inimage(x,y)) {
plot=true;
left.opencircle(x,y,rad,15);
}
PPgetscrposnoadd(m,PPrighteye,&x,&y);
if (right.inimage(x,y)) {
plot=true;
right.opencircle(x,y,rad,15*16);
}
}
if (!plot) {
V2d v=scrwid*2*V2d(m.x,m.y).norm();
if (abs(v.x)>scrwid/2) {
float change=(float)scrwid/2.0/abs(v.x);
v=change*v;
}
if (abs(v.y)>scrhei/2) {
float change=(float)scrhei/2.0/abs(v.y);
v=change*v;
}
v=v+V2d(scrwid/2,scrhei/2);
left.opencircle(v,5,15);
right.opencircle(v,5,15*16);
}
// Pull player towards marker
// if (m.mod()>markerrange+.1) {
V3d pulldir=getpos(marker)-pos;
// vel=vel+pulldir*0.02;
// float amount=(V3d::normdot(ori.z(),pulldir)+5.0)/6.0;
float amount=chop(0.99-(m.mod()-markerrange)/5.0,0,1);
V3d newz=ori.z()*amount+(1.0-amount)*pulldir;
ori.forcez(newz);
// vel=vel*amount;
//
//}
// Draw and update tail
V3d last=(tail[tailpos]-pos).disorientate(ori);
for (int k=1;k<taillen;k++) {
int j=mymod(tailpos+k,taillen);
V3d next=(tail[j]-pos).disorientate(ori);
plotline(last,next,(float)k/(float)taillen);
last=next;
}
if ((frame % 5)==0) {
tail[tailpos]=pos-ori.qz;
tailpos=mymod(tailpos+1,taillen);
}
// Or screens
for (int i=0;i<scrwid;i++) {
for (int j=0;j<scrhei;j++) {
b.bmp[j][i]=(left.bmp[j][i] | right.bmp[j][i]);
}
}
b.writetoscreen();
// acc=hang(acc,V3d::origin,0.95,0.01);
// Movement
float angvel=turnability;
if (key[KEY_LCONTROL])
vel=vel+ori.z()*forcevel;
else
angvel=turnability*2.0;
if (key[KEY_UP])
dpitch=dpitch+angvel;
if (key[KEY_DOWN])
dpitch=dpitch-angvel;
if (key[KEY_LEFT])
if (key[KEY_ALT])
droll=droll-angvel;
else
dyaw=dyaw-angvel;
if (key[KEY_RIGHT])
if (key[KEY_ALT])
droll=droll+angvel;
else
dyaw=dyaw+angvel;
vel=hang(vel,V3d::o,0.91,0);
pos=pos+vel;
droll=hang(droll,0,0.9,0);
dyaw=hang(dyaw,0,0.9,0);
dpitch=hang(dpitch,0,0.9,0);
ori.roll(droll/5.0);
ori.yaw(dyaw/5.0);
ori.pitch(dpitch/5.0);
framedone();
} while (!key[KEY_SPACE] && !key[KEY_ESC]);
savetimer();
allegro_exit();
displayframespersecond();
}
void main() {
allegrosetup(scrwid,scrhei);
makepalette(&greypalette);
mypalette(255,0,0,0);
randomise();
V3d pos=V3d(0,0,0);
V3d vel=V3d(0,0,0);
V3d acc=V3d(0,0,0);
Ori ori;
float droll=0;
float dyaw=0;
float roll=0;
float yaw=0;
float pitch=0;
for (int i=1;i<1000;i++) {
acc=hang(acc,V3d::origin,0.92,0.01);
vel=hang(vel,ori.qz/5,0.99,0)+acc;
pos=pos+vel;
droll=hang(droll,0,0.9,0.01);
dyaw=hang(dyaw,0,0.95,0.01);
roll=hang(roll,0,0.95,0)+droll;
yaw=hang(yaw,0,0.92,0)+dyaw;
pitch=hang(pitch,0,0.999,0.01);
pos=pos+ori.qz*4;
ori.roll(roll/5.0);
ori.yaw(yaw/5.0);
pos=pos-ori.z()*4;
}
JBmp b=JBmp(scrwid,scrhei);
int frame=0;
starttimer();
do {
frame++;
float pd=2.0-1.5*cos(2*pi*frame/200.0);
PPsetup(scrwid,scrhei,pd);
b.clear(255);
// b.fadeby(16);
V3d off=V3d(mymod(pos.x,gjump),mymod(pos.y,gjump),mymod(pos.z,gjump));
int ioff=-mydiv(pos.x,gjump);
int joff=-mydiv(pos.y,gjump);
int koff=-mydiv(pos.z,gjump);
ori.quickorisetup();
// Need to find largest axis, and do loops with that one outside
int ks=mysgn(ori.qz.z);
int js=-mysgn(ori.qz.y);
int is=-mysgn(ori.qz.x);
for (int k=ks*gridsize;k!=-ks*gridsize;k=k-ks*gjump)
for (int i=-is*gridsize;i!=is*gridsize;i=i+is*gjump)
for (int j=-js*gridsize;j!=js*gridsize;j=j+js*gjump) {
int x,y;
V3d cen=V3d(i,j,k)-off;
cen=V3d::qorientate(cen,ori);
if (PPgetscrpos(cen,&x,&y)) {
int c=255-ucharchop(255*(cen.z+pd+1)/(gridsize+2));
c=quantiseto(64,c+63);
b.filledcircle(x,y,0.1*PPgetunit(cen),c);
}
}
b.writetoscreen();
b.saveframe();
acc=hang(acc,V3d::origin,0.92,0.01);
vel=hang(vel,ori.qz/5,0.99,0)+acc;
pos=pos+vel;
droll=hang(droll,0,0.9,0.01);
dyaw=hang(dyaw,0,0.95,0.01);
roll=hang(roll,0,0.95,0)+droll;
yaw=hang(yaw,0,0.92,0)+dyaw;
pitch=hang(pitch,0,0.999,0.01);
pos=pos+ori.qz*4;
ori.roll(roll/5.0);
ori.yaw(yaw/5.0);
pos=pos-ori.z()*4;
framedone();
} while (!key[KEY_SPACE] && !key[KEY_ESC]);
savetimer();
allegro_exit();
displayframespersecond();
}
void main() {
allegrosetup(scrwid,scrhei);
makepalette(&greypalette);
mypalette(255,0,0,0);
mypalette(0,0,0,0);
mypalette(255,1,1,1);
mypalette(128,0,0,0);
randomise();
for (int i=0;i<=10;i++) {
waves+Wave();
//waves.num(i).display();
}
for (int r=0;r<8;r++) {
for (int g=0;g<8;g++) {
int palc=r+g*8;
mypalette(palc,(r==0?0:0.2+0.5*r/7.0),(g==0?0:0.1+0.2*g/7.0),(g==0?0:0.2+0.6*g/7.0));
// Groovy colours mypalette(palc,(r==0?0:0.1+0.6*r/7.0),(g==0?0:0.1+0.2*g/7.0),(g==0?0:0.1+0.7*g/7.0));
// Good colours: mypalette(palc,(r==0?0:0.3+0.4*r/7.0),(g==0?0:0.1+0.2*g/7.0),(g==0?0:0.3+0.5*g/7.0));
}
}
V3d vel=V3d(0,0,0);
V3d acc=V3d(0,0,0);
Ori ori;
float droll=0;
float dyaw=0;
float dpitch=0;
int frame=0;
List<V3d> particles=List<V3d>(gridsize*gridsize*gridsize);
/* for (int i=1;i<gridsize*gridsize*gridsize;i++) {
particles+gridsize*V3d(floatrnd(-1,1),floatrnd(-1,1),floatrnd(-1,1));
}*/
int ps=1;
float rad=0;
for (float thru=0;thru<1.0;thru+=0.002) {
V3d here=getpos(thru);
V3d forward=getpos(thru+0.00001)-here;
V3d up=V3d::normcross(V3d::crazy,forward);
V3d right=V3d::normcross(forward,up);
for (int i=0;i<ps;i++) {
float t=2*pi*(float)i/(float)ps;
float s=sin(t);
float c=cos(t);
particles+(here+rad*(s*up+c*right));
}
//v.print();
}
starttimer();
float thru=0;
V3d pos=getpos(thru);
do {
thru+=0.001;
// V3d last=V3d(pos.x,pos.y,pos.z);
// V3d pos=getpos(thru);
// V3d next=getpos(thru+0.00001);
// V3d newz=next-pos;
// ori.forcez(newz);
frame++;
// float pd=1.6+1.3*sin(2*pi*frame/1000.0);
float pd=2.0;
PPsetup(scrwid,scrhei,pd);
left.clear(0);
right.clear(0);
// b.fadeby(16);
int ioff=-mydiv(pos.x,gjump);
int joff=-mydiv(pos.y,gjump);
int koff=-mydiv(pos.z,gjump);
ori.quickorisetup();
// Need to find largest axis, and do loops with that one outside
int ks=mysgn(ori.qz.z);
int js=-mysgn(ori.qz.y);
int is=-mysgn(ori.qz.x);
float maxdist=100000;
int maxp;
for (int i=1;i<=particles.len;i++) {
int x,y;
V3d p=particles.num(i);
V3d cen=p-pos+0.0*ori.y;
if (cen.mod()<maxdist) {
maxdist=cen.mod();
maxp=i;
}
cen=V3d::disorientate(cen,ori);
int c=7.0-chop(6.0*(cen.z+gridsize)/(float)(gridsize*2),0,6);
// int c=7.0-chop(6.0*(i/particles.len),0,6);
plotsphere(cen,c);
}
plotline(V3d(-0.1,0,0),V3d(0,0,0.5));
plotline(V3d(0.1,0,0),V3d(0,0,0.5));
plotline(V3d(0,-0.1,0),V3d(0,0,0.5));
plotline(V3d(0,0.1,0),V3d(0,0,0.5));
for (int i=0;i<scrwid;i++) {
for (int j=0;j<scrhei;j++) {
b.bmp[j][i]=(left.bmp[j][i] | right.bmp[j][i]);
}
}
// Simple crosshair
// b.hline(scrwid/2-10,scrhei/2,scrwid/2+10,255);
// b.vline(scrwid/2,scrhei/2-10,scrhei/2+10,255);
b.writetoscreen();
// acc=hang(acc,V3d::origin,0.95,0.01);
if (key[KEY_UP])
dpitch=dpitch+angvel;
if (key[KEY_DOWN])
dpitch=dpitch-angvel;
if (key[KEY_LEFT])
if (key[KEY_ALT])
droll=droll-angvel;
else
dyaw=dyaw-angvel;
if (key[KEY_RIGHT])
if (key[KEY_ALT])
droll=droll+angvel;
else
dyaw=dyaw+angvel;
if (key[KEY_LCONTROL])
vel=vel+ori.z()*forcevel;
V3d pulldir=particles.num(maxp)-pos;
vel=hang(vel,V3d::o,0.98,0)+pulldir*0.02;
// pos=hang(pos,particles.num(maxp),0.9,0)+vel;
pos=pos+vel;
droll=hang(droll,0,0.9,0);
dyaw=hang(dyaw,0,0.9,0);
dpitch=hang(dpitch,0,0.9,0);
ori.roll(droll/5.0);
ori.yaw(dyaw/5.0);
ori.pitch(dpitch/5.0);
V3d at=particles.num(mymod2(maxp+10,1,particles.len+1))-pos;
V3d newz=ori.z()*.99+.01*at;
ori.forcez(newz);
framedone();
} while (!key[KEY_SPACE] && !key[KEY_ESC]);
savetimer();
allegro_exit();
displayframespersecond();
}
