TempleOSCDV4.11.ISO

Demo/Graphics/Bounce.HC

@@ -0,0 +1,47 @@
+//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 é;
+  MemSet(x,0,sizeof(x));
+  MemSet(y,0,sizeof(y));
+  for (i=0;i<16;i++) {
+    é=Rand*2*ã;
+    dx[i]=MAX_I32*Cos(é);
+    dy[i]=MAX_I32*Sin(é);
+  }
+}
+ 
+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;