// This version needs C preprocessor http://free.pages.at/filtermeister.html

%ffp
Author:"Guessous Mehdi."
URL:  "http://www.selwane.com/mehdi"
Dialog:"Performance Test", size=(500,235), Drag = Background, gradient=(powderblue,yellowgreen,horizontal)

ctl[CTL_OK]:invisible
ctl[CTL_CANCEL]:PUSHBUTTON,text="Cancel",pos=(385,218),size=(40,14),val=0
ctl[50]:CHECKBOX(PUSHLIKE),text="Test",pos=(300,218),size=(40,14),action=preview

ForEveryTile:{
    //----------------------------------------
    int loopTime=0; //time for the "for" loop
    int performance;
    int iter;
    int iterMax=30000000;//30 million of iterations for each test
    //----------------------------------------
    double rt,d1,d2;
    double Pi=3.14159265359; 
    double e1=2.71828182846;
    double *buff=malloc(8);
    int c;
       
    setCtlVal(50,0);

#define Performance(Ctl,Name,Code) \
    if (i0>=Ctl) { if (updateProgress(Ctl,i0)) abort(); \
      setCtlText(Ctl,Name " = waiting..."); \
      setCtlColor(Ctl,RGB(255,0,0)); \
      performance=clock(); \
      for(iter=0;iter<iterMax;iter++) {Code;} \
      performance=clock()-performance-loopTime; \
      setCtlTextv(Ctl,Name " = %.2f us",performance*1000000.0/iterMax); \
      setCtlColor(Ctl,RGB(255,250,205)); \
    } else _eval_FFP { ctl[Ctl]:STATICTEXT,Name " =...", \
      pos=(240+130*(((i0=Ctl)-1)&1),(Ctl+1)/2*10),size=(120,8), \
      color=lemonchiffon, fontcolor=black } 

#define Performance2(Ctl,Code) Performance(Ctl,#Code,Code)						

    Performance(1,"for",)
    loopTime=performance; //keeping the value

    Performance(2,"set var",rt=Pi) 
    Performance2(5,put(123,1000))
    Performance2(6,get(123))
    Performance2(7,tset(0,0,0,123))
    Performance2(8,tget(0,0,0))
    Performance2(9,pset(0,0,0,123))
    Performance2(10,pget(0,0,0))
    Performance(11,"memcpy",memcpy(buff,&Pi,8))
    Performance2(12,src(0,0,0))
    Performance(13,"putArray",putArray(0,0,0,0,123))
    Performance(14,"getArray",getArray(0,0,0,0))
    Performance2(17,if(Pi>e1))
    Performance2(18,if(456>123))
    Performance(19,"switch",switch(5){case 5:break;case 6:break;})
    Performance2(20,max(456,123))
    Performance(23,"double --> int (implicit)",c=Pi)
    Performance(24,"(int)double",(int)Pi)
    Performance2(25,floor(Pi))
    Performance(26,"(double)int",(double)456)
    Performance2(29,fabs(Pi))
    Performance(30,"modula",456%123)
    Performance(31,"sum",Pi+e1)
    Performance(32,"multiplication",Pi*e1)
    Performance(33,"division int",c/123)
    Performance(34,"division double",Pi/e1)
    Performance2(37,fsin(e1))
    Performance2(38,sin(e1))
    Performance2(39,sqrt(e1))
    Performance2(40,pow(e1,Pi))

    free(buff);
    updateProgress(0,1);
    return true;	
}//end ForEveryTile