From f47eb69a354188154731846dde8b384c2c2f39f6 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 28 Jun 2014 18:46:16 -0400 Subject: Rename guile-2d to Sly! Massive find/replace job. --- 2d/fps.scm | 47 ----------------------------------------------- 1 file changed, 47 deletions(-) delete mode 100644 2d/fps.scm (limited to '2d/fps.scm') diff --git a/2d/fps.scm b/2d/fps.scm deleted file mode 100644 index 12e652e..0000000 --- a/2d/fps.scm +++ /dev/null @@ -1,47 +0,0 @@ -;;; guile-2d -;;; Copyright (C) 2013, 2014 David Thompson -;;; -;;; This program is free software: you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation, either version 3 of the -;;; License, or (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with this program. If not, see -;;; . - -;;; Commentary: -;; -;; Frames per second counter. -;; -;;; Code: - -(define-module (2d fps) - #:use-module (2d game) - #:use-module (2d signal) - #:export (fps)) - -;; Current frames per second -(define-signal fps (make-signal 0)) - -(define accumulate-fps! - (let* ((elapsed-time 0) - (fps-counter 0)) - (lambda (dt alpha) - (let ((new-time (+ elapsed-time dt)) - (new-fps (1+ fps-counter))) - (if (>= new-time 1000) - (begin - (signal-set! fps new-fps) - (set! fps-counter 0) - (set! elapsed-time 0)) - (begin - (set! fps-counter new-fps) - (set! elapsed-time new-time))))))) - -(add-hook! draw-hook accumulate-fps!) -- cgit v1.2.3