diff options
Diffstat (limited to 'game.scm')
| -rw-r--r-- | game.scm | 18 |
1 files changed, 16 insertions, 2 deletions
@@ -233,13 +233,14 @@ ;; Screen size stuff (define game-width 240.0) (define game-height 320.0) - (define canvas-scale 2.0) + (define canvas-scale 3.0) (define canvas-width (* game-width canvas-scale)) (define canvas-height (* game-height canvas-scale)) ;; Elements (define canvas (get-element-by-id "canvas")) (define context (get-context canvas "2d")) + (define image:background (get-element-by-id "image-background")) (define image:player (get-element-by-id "image-player")) (define image:player-bullet (get-element-by-id "image-player-bullet")) (define image:enemy-bullets (get-element-by-id "image-enemy-bullets")) @@ -805,12 +806,25 @@ (define (draw-enemy-bullets) (draw-bullets enemy-bullets image:enemy-bullets 16.0 16.0)) + (define (draw-background image parallax) + (let ((scroll (remainder (* *scroll* parallax) game-height))) + ;; Bottom + (draw-image context image:background + 0.0 0.0 game-width (- game-height scroll) + 0.0 scroll game-width (- game-height scroll)) + ;; Top + (draw-image context image:background + 0.0 (- game-height scroll) game-width scroll + 0.0 0.0 game-width scroll) + )) + (define (draw time) (clear-screen) (set-transform! context 1.0 0.0 0.0 1.0 0.0 0.0) (set-scale! context canvas-scale canvas-scale) - (set-fill-color! context demichrome0) + (set-fill-color! context "#3f2832") (fill-rect context 0.0 0.0 game-width game-height) + (draw-background image:background 0.75) (draw-tiles level) ;; (draw-tiles level 0.0) (draw-player-bullets) |