
( !StartupTASKS)
( 9th April 2016)

( n csec .... )  
 : Tdelay0_p    
  0 TIME=
  BEGIN  50000 0 DO I I * DROP  PAUSE LOOP DUP TIME < UNTIL
  DROP ;

: Tdelay_p ( dt ... )
   TIME             ( dt,T0...)
  BEGIN
     PAUSE
   DUP              ( dt,T0,T0...)
   TIME             ( dt,T0,T0,T1...)
   SWAP             ( dt,T0,T1,T0...)
   -                ( dt,T0,T1-T0...)
   3 PICK           ( dt,T0,T1-T0,dt...)
   >=               ( dt,T0,flg...)            
  UNTIL             ( dt,T0...)
  DROP DROP
;


FLOAD" Shapes"
TASK: circ movecircle TASK;
TASK: squre movesquare TASK;
TEX: circ_sq 100 100 circ 100 100 squre TEX;
: just_shapes NOWIMPS ." 2 Tasks: shapes only" circ_sq CR ;


FLOAD" FFT_AppTask"
TASK: taskFFT 3 0 DO FFT_examples LOOP TASK;
TEX: onlyFFT 100 100 taskFFT TEX;
: justFFT NOWIMPS  onlyFFT ;


TEX: FFT_shapes 100 100 taskFFT  100 100 circ 100 100 squre TEX;

: F&Sh NOWIMPS  FFT_shapes ;


just_shapes  
." 2shapes and FFT as 3 tasks [press any key]" KEY DROP
F&Sh
WIMPS



