Changeset 582 for abuse/trunk/data-frabs/addon/pong/common.lspTweet

Timestamp:

May 6, 2011, 12:47:14 AM (12 years ago)

Author:

Sam Hocevar

Message:

data: remove \r and trailing spaces and tabs from all Lisp sources.

File:

• abuse/trunk/data-frabs/addon/pong/common.lsp (modified) (7 diffs)

abuse/trunk/data-frabs/addon/pong/common.lsp

@@ -2 +2 @@
 ;; See licensing information for more details on usage rights
 
-; draw function for characters only displayed during edit mode 
+; draw function for characters only displayed during edit mode
 ; such as start, etc.
 ; (defun dev_draw () (if (edit_mode) (draw) nil))       -- compiled C function --
@@ -11 +11 @@
     (draw)
     (set_y y)))
-        
+
 
 
@@ -38 +38 @@
     nil)
   T)
-    
+
 
 
@@ -44 +44 @@
   (funs  (ai_fun   lhold_ai)
          (draw_fun dev_draw))
-  (states "art/misc.spe"         
+  (states "art/misc.spe"
           (stopped           "lhold")))
 
 
 
-(def_char OBJ_MOVER 
+(def_char OBJ_MOVER
   (funs (ai_fun       mover_ai)
         (constructor  mover_cons)
@@ -58 +58 @@
   (states "art/misc.spe" (stopped '("mover" "mover" ))))
 
-/*    Compiled C           
+/*    Compiled C
 (defun mover_ai ()
   (if (eq (total_objects) 2)
       (let ((dest (get_object 0))
             (mover (get_object 1)))
-        (if (< (aistate) 2)             ; transfer object to next mover       
+        (if (< (aistate) 2)             ; transfer object to next mover
             (progn
-              (with_object dest 
+              (with_object dest
                            (progn
                              (link_object mover)
                              (set_aistate (aitype))))
               (remove_object mover))
-          (progn              
+          (progn
             (set_aistate (- (aistate) 1))
             (let ((newx (- (with_object dest (x)) (/ (* (- (with_object dest (x)) (x)) (aistate)) (aitype))))
                   (newy (- (with_object dest (y)) (/ (* (- (with_object dest (y)) (y)) (aistate)) (aitype)))))
-              (with_object mover 
-                           (progn 
+              (with_object mover
+                           (progn
                              (platform_push (- newx (x)) (- newy (y)))
                              (set_x newx)
@@ -92 +92 @@
       (let ((last (get_object (- x 1))))   ; see if the last object has the same position as us
         (if (and (eq (with_object last (x)) (x)) (eq (with_object last (y)) (y)))
-            (if (eq (aistate) 1)                        
+            (if (eq (aistate) 1)
                 (if (eq (with_object last (fade_count)) 0)
                     (set_aistate 1)
@@ -107 +107 @@
   T)
 
-(defun respwan_cons () (set_xvel 50)) 
+(defun respwan_cons () (set_xvel 50))
 
 
-(def_char RESPAWN 
+(def_char RESPAWN
   (funs (ai_fun      respawn_ai)
-        (draw_fun    dev_draw)  
+        (draw_fun    dev_draw)
         (constructor respwan_cons))
   (flags (unlistable T))