15,17d14 < * < * Modified 2 May 1994 by David Fiedler, david@infopro.com, to report < * average RPM after a decent number of runs. 34d30 < #define LOOPS 13 37c33 < XtTimerCallbackProc Cycle(); --- > XtTimerCallbackProc Cylcle(); 39c35 < Widget toplevel, base, rpm_info, avg_info, engine; --- > Widget toplevel, base, rpm_info, engine; 116d111 < avg_info = XtCreateManagedWidget("avg_info", asciiTextWidgetClass, base, args, i); 209,210c204 < static int flag = 0; < static int sample = 0; --- > static int sample_count = 0; 212,213d205 < static double rpm = 0.0; < static double total = 0.0; 217,219c209 < rpm = mean / 10.0; < sprintf(tmp_str, "%4.1f rpm\n", rpm); < total += rpm; --- > sprintf(tmp_str, "%4.1f rpm\n", mean / 10.0); 221c211 < if (sample++ > LOOPS) { --- > if (sample_count++ > 14) { 223,227c213 < strcat(label, tmp_str); < sprintf(tmp_str, "Avg %4.1f rpm\n", total / sample); < sample = 0; < total = 0.0; < flag = 1; --- > sample_count = 0; 237,241d222 < < if (flag) { < system ("sleep 15"); < exit(); < } 347a329 >