TempleOSTS_130315.ISO

TempleOS/Demo/MultiCore/Noise.CPP

@@ -0,0 +1,63 @@
+Bool noise_done;
+I64 done_ack;
+I64 cnt;
+
+U0 DrawNoise(CTask *task)
+{
+  I64 i,
+    h=task->win_pixel_width,
+    v=task->win_pixel_height;
+  CDC *dc=DCAlias(gr_dc2,task);
+  for (i=0;i<cnt;i++) {
+    dc->color=RandU16&15;
+    GrPlot(dc,RandU16%h,RandU16%v);
+  }
+  dc->color=WHITE;
+  GrRect(dc,0,Gs->num*FONT_HEIGHT,12*FONT_WIDTH,FONT_HEIGHT);
+  dc->color=BLACK;
+  GrPrintF(dc,0,Gs->num*FONT_HEIGHT,"Cnt:%08X",cnt);
+  DCDel(dc);
+}
+
+U0 MPTask(CTask *task)
+{
+  while (!noise_done) {
+    DrawNoise(task);
+    WinMgrSync;
+  }
+  LBts(&done_ack,Gs->num);
+}
+
+U0 NoiseDemo()
+{
+  I64 i;
+  F64 t0;
+  SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
+  WinMax;
+  WordStat;
+  cnt=0x1000;
+
+  noise_done=FALSE;
+  for (i=1;i<mp_cnt;i++)
+    MPSpawn(&MPTask,Fs,"Job",i);
+
+  while (!ScanChar) {
+    t0=tT;
+    DrawNoise(Fs);
+    if (tT-t0>1.0/80.0)
+      cnt-=0x100;
+    else
+      cnt+=0x100;
+    WinMgrSync;
+  }
+
+  done_ack=1;
+  noise_done=TRUE;
+  while (done_ack!=1<<mp_cnt-1)
+    Yield;
+
+  DCFill;
+  SettingsPop;
+}
+
+NoiseDemo;