48 lines
782 B
HolyC
48 lines
782 B
HolyC
|
//Uses $LK,"fixed-point-arithmetic",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
|
|||
|
|
|
|||
|
|
I64 x[16],y[16],dx[16],dy[16];
|
|||
|
|
|
|||
|
|
U0 Init()
|
|||
|
|
{
|
|||
|
|
I64 i;
|
|||
|
|
F64 <EFBFBD>;
|
|||
|
|
MemSet(x,0,sizeof(x));
|
|||
|
|
MemSet(y,0,sizeof(y));
|
|||
|
|
for (i=0;i<16;i++) {
|
|||
|
|
<EFBFBD>=Rand*2*<EFBFBD>;
|
|||
|
|
dx[i]=I32_MAX*Cos(<EFBFBD>);
|
|||
|
|
dy[i]=I32_MAX*Sin(<EFBFBD>);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
U0 Bounce()
|
|||
|
|
{
|
|||
|
|
CDC *dc=DCAlias;
|
|||
|
|
I64 i,ch;
|
|||
|
|
Init;
|
|||
|
|
try {//Catch <CTRL-ALT-c>
|
|||
|
|
do {
|
|||
|
|
for (i=0;i<16;i++) {
|
|||
|
|
dc->color=i;
|
|||
|
|
GrPlot(dc,x[i].i32[1],y[i].i32[1]);
|
|||
|
|
x[i]+=dx[i];
|
|||
|
|
y[i]+=dy[i];
|
|||
|
|
if (!(0<=x[i]<Fs->pix_width<<32)) {
|
|||
|
|
x[i]-=dx[i];
|
|||
|
|
dx[i]=-dx[i];
|
|||
|
|
}
|
|||
|
|
if (!(0<=y[i]<Fs->pix_height<<32)) {
|
|||
|
|
y[i]-=dy[i];
|
|||
|
|
dy[i]=-dy[i];
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
Yield;
|
|||
|
|
} while (!(ch=ScanChar) || (ch!=CH_SHIFT_ESC && ch!=CH_ESC));
|
|||
|
|
} catch
|
|||
|
|
PutExcept;
|
|||
|
|
DCFill(dc);
|
|||
|
|
DCDel(dc);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
Bounce;
|