SparrowOSTS_121127.ISO

SparrowOS/Demo/Graphics/Blink.CPP

@@ -0,0 +1,34 @@
+U0 DrawIt(CTask *task,CDC *dc)
+{ //This routine is called by the window mgr task.
+  GrPrintF(dc,0,0*FONT_HEIGHT,"tNP:%4.3f tP:%4.3f",tNP,tP(task));
+
+  //default 2.5Hz
+  if (Blink)
+    GrPutS(dc,0,1*FONT_HEIGHT,"Blink");
+
+   //10 Hz
+  if (Blink(10))
+    GrPutS(dc,0,2*FONT_HEIGHT,"Blink(10)");
+
+  //$LK,"tNP","MN:tNP"$ is a float var with time in seconds, function actually.
+  //You can skip arguments if they have defaults.
+  if (Blink(,tNP))
+    GrPutS(dc,0,3*FONT_HEIGHT,"Blink(,tNP)");
+
+  //$LK,"tP","MN:tP"$ is a pausable function.
+  if (Blink(,tP(task)))
+    GrPutS(dc,0,4*FONT_HEIGHT,"Blink(,tP(task))");
+}
+
+U0 BlinkDemo()
+{
+  SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
+  Fs->draw_it=&DrawIt;
+  DocClear;
+  NewLine(10);
+  "Pause and unpause task with $$FG,GREEN$$<CTRL-ALT-P>$$FG$$\n";
+  PressAKey;
+  SettingsPop;
+}
+
+BlinkDemo;