New terrain
This commit is contained in:
parent
4b81179e7a
commit
287341cbbc
|
@ -691,6 +691,8 @@
|
||||||
(match level-number
|
(match level-number
|
||||||
[0 (spawn-level #:level-size (vector 4000 800)
|
[0 (spawn-level #:level-size (vector 4000 800)
|
||||||
(spawn-ground-block (vector 400 200) (vector 200 standard-ground-height))
|
(spawn-ground-block (vector 400 200) (vector 200 standard-ground-height))
|
||||||
|
(spawn-ground-block (vector 200 280) (vector 200 200)
|
||||||
|
#:color "orange")
|
||||||
(spawn-ground-block (vector 25 300) (vector 500 standard-ground-height)))]))
|
(spawn-ground-block (vector 25 300) (vector 500 standard-ground-height)))]))
|
||||||
|
|
||||||
(define (spawn-level-spawner)
|
(define (spawn-level-spawner)
|
||||||
|
|
Loading…
Reference in New Issue