[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/slime-volleyball 9a934dc: * slime-volleyball.el: Use le
From: |
Stefan Monnier |
Subject: |
[elpa] externals/slime-volleyball 9a934dc: * slime-volleyball.el: Use lexical-binding |
Date: |
Tue, 24 Nov 2020 17:55:44 -0500 (EST) |
branch: externals/slime-volleyball
commit 9a934dcdb755e9cf697b5fc3d6f893c00e2e5367
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* slime-volleyball.el: Use lexical-binding
Remove unused vars pointed out by the byte-compiler.
---
slime-volleyball.el | 21 ++++++++-------------
1 file changed, 8 insertions(+), 13 deletions(-)
diff --git a/slime-volleyball.el b/slime-volleyball.el
index 12ad1ff..740018a 100644
--- a/slime-volleyball.el
+++ b/slime-volleyball.el
@@ -1,6 +1,6 @@
-;;; slime-volleyball.el --- An SVG Slime Volleyball Game -*- lexical-binding:
nil -*-
+;;; slime-volleyball.el --- An SVG Slime Volleyball Game -*- lexical-binding:t
-*-
-;; Copyright (C) 2013 Free Software Foundation, Inc.
+;; Copyright (C) 2013-2020 Free Software Foundation, Inc.
;; Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
;; Version: 1.1.4
@@ -937,7 +937,7 @@
(setf (slime-volleyball-slime-v-y-f slime) -30)))))
;; Do not change the slime's movement.
-(defun slime-volleyball-slime-none (slime)
+(defun slime-volleyball-slime-none (_slime)
"Make SLIME do nothing this frame."
nil)
@@ -1343,7 +1343,6 @@
(px slime-volleyball-ball-x)
(diff-x (- px x))
(diff-y (- py y))
- (m)
(b)
(intersection-y)
;; Debugging.
@@ -1528,8 +1527,7 @@
(diff-x (- slime-eye-x slime-volleyball-ball-x))
(diff-y (- slime-eye-y slime-volleyball-ball-y))
(ball-distance (sqrt (+ (expt diff-x 2)
- (expt diff-y 2))))
- (eye-radius (* 0.9 (slime-volleyball-slime-eye-radius slime))))
+ (expt diff-y 2)))))
(when (< (abs ball-distance) 0.1)
(slime-volleyball-warn "Divide-by-zero danger 4"))
(setf (slime-volleyball-slime-pupil-center-x slime)
@@ -1540,7 +1538,8 @@
(setf (slime-volleyball-slime-pupil-center-y slime)
(- (slime-volleyball-slime-eye-center-y slime)
(sqrt (- (expt (- (slime-volleyball-slime-eye-radius slime)
- (slime-volleyball-slime-pupil-radius slime)) 2)
+ (slime-volleyball-slime-pupil-radius slime))
+ 2)
(expt (- (slime-volleyball-slime-pupil-center-x slime)
(slime-volleyball-slime-eye-center-x slime))
2)))))))
@@ -1589,7 +1588,8 @@
(if (< (slime-volleyball-slime-x slime) 0)
(setf (slime-volleyball-slime-x slime) 0)
(if (> (+ (slime-volleyball-slime-x slime)
- (* 2 slime-volleyball-slime-radius))
slime-volleyball-net-x)
+ (* 2 slime-volleyball-slime-radius))
+ slime-volleyball-net-x)
(setf (slime-volleyball-slime-x slime)
(- slime-volleyball-net-x
(* 2 slime-volleyball-slime-radius)))))
@@ -1717,11 +1717,6 @@
(slime-volleyball-x-i slime-volleyball-ball-x)
(slime-volleyball-v-x-i slime-volleyball-ball-velocity-x)
(slime-volleyball-v-x-f)
- (speed)
- (reflection)
- (unit)
- (factor)
- (orig-size)
(slime-volleyball-x-f slime-volleyball-ball-x)
(point-for)
(slime1 slime-volleyball-slime1)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/slime-volleyball 9a934dc: * slime-volleyball.el: Use lexical-binding,
Stefan Monnier <=