correcting input and rulp main loop

[rulp/rulp.git] / layers / package.lisp

diff --git a/layers/package.lisp b/layers/package.lisp
index 5774943..31f00a9 100644 (file)
--- a/layers/package.lisp
+++ b/layers/package.lisp
@@ -1,10 +1,30 @@
-(defpackage :layers
+;;;; Ru*** roLeplay Playground virtual tabletop
+;;;; Copyright (C) 2022  Zull
+;;;;
+;;;; 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 <https://www.gnu.org/licenses/>.
+
+(defpackage :rulp.layers
   (:use :cl)
-  (:export screen x y width height rotation path texture surface
-           screen-source screen-destination coordinate size
+  (:export screen x y width height rotation path texture surface image-path
+           screen-source screen-destination screen-purge coordinate size
            model interactions interact
            movep usep pokep ;; temporaries
            plane collision-list entities-list span grid-dimension bounce
            entity ball grid-span displayp))
 
-(in-package :layers)
+(in-package :rulp.layers)
+
+;; (defparameter entropy 0
+;;   "parameter used for the random number generator, this variable is
+;; edited every time one of the dX function is used")