fix title, reduce chattiness

TODO.org

@@ -1,13 +1,13 @@
 #+TITLE: Game TO DO List
 
-* Game Plan
+* Game Plan [6/15]
 
- - [x] start project organisation
- - [x] select some assets to start with
- - [x] animate hero 
- - [x] figure out tile maps
- - [ ] create hero entity
- - [ ] implement hero movement
+ - [X] start project organization
+ - [X] select some assets to start with
+ - [X] animate hero 
+ - [X] figure out tile maps
+ - [X] create hero entity
+ - [X] implement hero movement
  - [ ] create other entity
  - [ ] bundle game for distribution
  - [ ] upload to itch.io

bundle.scm

@@ -1,4 +1,13 @@
 '((asset-directories . ("assets/images" "assets/levels"))
+  (binary-directories . ("/usr/bin" 
+                         "/gnu/store/b5fan2998bvhb0fgjn74syhskbnszn77-profile/sbin"
+                         "/gnu/store/b5fan2998bvhb0fgjn74syhskbnszn77-profile/bin")
+  )
+  (library-directories . ("/usr/lib/" 
+                          "/home/pti/.guix-profile/lib/"
+                          "/home/pti/.guix-home/profile/lib/"
+                         "/gnu/store/b5fan2998bvhb0fgjn74syhskbnszn77-profile/lib/")
+  )
   (bundle-name . "bloatrunner-0.1.0-x86_64")
   (code . "game/main.scm")
   (launcher-name . "bloatrunner"))

game/main.scm

@@ -32,7 +32,6 @@
 (define (update dt)
   (poll-coop-repl-server repl)
   (set! hero (hero-update hero level inputs dt))
-  (pretty-print hero)
   )
 
 (define (draw _alpha)
@@ -47,7 +46,6 @@
 
 
 (define (key-press key _modifiers _repeat?)
-  (pretty-print (list 'press key inputs))
   (set! inputs
     (cond ((eq? key 'left) (set-add inputs 'left))
           ((eq? key 'right) (set-add inputs 'right))
@@ -59,7 +57,6 @@
 
 
 (define (key-release key _modifiers)
-  (pretty-print (list 'release key inputs))
   (set! inputs
     (cond ((eq? key 'left) (delete 'left inputs))
           ((eq? key 'right) (delete 'right inputs))
@@ -70,7 +67,7 @@
 
 (define (launch-game args)
   (run-game 
-   ;; #:title "Bloatrunner"
+   #:window-title "Bloatrunner"
    #:load (lambda () (load))
    #:update (lambda (dt) (update dt))
    #:draw (lambda (alpha) (draw alpha))

game/model/hero.scm

@@ -73,7 +73,6 @@
 
 
 (define (next-position position state inputs distance)
-  (pretty-print (list position state inputs distance))
   (case state
     ((fall) (vec2- position (vec2 0 distance)))
     ((go-left) (vec2- position (vec2 distance 0)))
@@ -94,7 +93,6 @@
          (position (next-position (hero-position hero) (hero-state hero) inputs distance))
          (tile (level-tile-at level position))
          )
-    (pretty-print (list state position tile))
     (hero-with-state 
      (if (member tile '(empty ladder other))
          (hero-with-position hero position)