+ #if REAL >= REAL_RATIONAL
+ view->Translate(Real(oldx, scr->ViewportWidth()) -Real(x,scr->ViewportWidth()), Real(oldy, scr->ViewportHeight()) - Real(y,scr->ViewportHeight()));
+ #else
+ view->Translate(Real(oldx-x)/Real(scr->ViewportWidth()), Real(oldy-y)/Real(scr->ViewportHeight()));
+ #endif
+ }
+ else
+ {
+ oldButtonDown = false;
+ scr->SetMouseCursor(Screen::CursorArrow);
+ }
+ oldx = x;
+ oldy = y;
+
+ if (wheel)
+ {
+ #if REAL >= REAL_RATIONAL
+ view->ScaleAroundPoint(Real(x,scr->ViewportWidth()), Real(y,scr->ViewportHeight()), Real(20-wheel, 20));
+ #else
+ view->ScaleAroundPoint(Real(x)/Real(scr->ViewportWidth()),Real(y)/Real(scr->ViewportHeight()), Real(expf(-wheel/20.f)));
+ #endif
+
+ }
+}
+
+
+inline void MainLoop(Document & doc, Screen & scr, View & view)
+{
+ // order is important... segfaults occur when screen (which inits GL) is not constructed first -_-
+
+ scr.DebugFontInit("fonts/DejaVuSansMono.ttf");
+ scr.SetMouseHandler(RatCatcher);
+
+ double total_cpu_time = 0;
+ double total_gpu_time = 0;
+ double total_real_time = 0;
+ struct timespec real_clock_start;
+ struct timespec real_clock_now;
+ struct timespec real_clock_prev;
+ clock_gettime(CLOCK_MONOTONIC_RAW, &real_clock_start);
+ real_clock_now = real_clock_start;
+ double frames = 0;
+ double data_rate = 1; // period between data output to stdout (if <= 0 there will be no output)
+ uint64_t data_points = 0;
+ setbuf(stdout, NULL);
+ while (scr.PumpEvents())
+ {
+ real_clock_prev = real_clock_now;
+ ++frames;
+ scr.Clear();
+ //view.ForceBoundsDirty();
+ //view.ForceBufferDirty();
+ //view.ForceRenderDirty();
+
+ view.Render(scr.ViewportWidth(), scr.ViewportHeight());
+
+ double cpu_frame = scr.GetLastFrameTimeCPU();
+ double gpu_frame = scr.GetLastFrameTimeGPU();
+ clock_gettime(CLOCK_MONOTONIC_RAW, &real_clock_now);
+ double real_frame = (real_clock_now.tv_sec - real_clock_prev.tv_sec) + 1e-9*(real_clock_now.tv_nsec - real_clock_prev.tv_nsec);
+
+
+ total_real_time += real_frame; total_cpu_time += cpu_frame; total_gpu_time += gpu_frame;
+ if (data_rate > 0 && total_real_time > data_rate*(data_points+1))