63 lines
2.1 KiB
Scheme
63 lines
2.1 KiB
Scheme
|
|
(spite-init "Spite Test" 800 800)
|
|
|
|
(define player-x 100)
|
|
(define player-y 100)
|
|
|
|
(define font-image (load-image "test-resources/charmap-cellphone_black.png"))
|
|
(define icons-image (load-image "test-resources/icons.png"))
|
|
|
|
(define black '(0 0 0))
|
|
(define blue '(0 0 255))
|
|
|
|
(define character-width 7)
|
|
(define character-height 9)
|
|
(define draw-width 14)
|
|
(define draw-height 18)
|
|
(define character-lists
|
|
`((#\space #\! #\" #\# #\$ #\% #\& #\/ #\( #\) #\* #\+ #\, #\- #\. #\0 #\1)
|
|
(#\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9 #\: #\; #\< #\= #\> #\? #\@ #\A #\B #\C)
|
|
(#\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U)
|
|
(#\V #\W #\X #\Y #\Z #\[ #\\ #\] #\^ #\_ #\` #\a #\b #\c #\d #\e #\f #\g)
|
|
(#\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y)
|
|
(#\z #\{ #\| #\} #\~ #\~)))
|
|
(define font (make-bitmap-font font-image
|
|
character-width
|
|
character-height
|
|
draw-width
|
|
draw-height
|
|
character-lists))
|
|
(set-bitmap-font font)
|
|
|
|
(define update
|
|
(lambda (delta-time events)
|
|
(for-each
|
|
(lambda (event)
|
|
(when (symbol=? (cdr (assoc 'type event)) 'key-down)
|
|
(let ((key (cdr (assoc 'key event))))
|
|
(when (string=? key "W") (set! player-y (- player-y 5)))
|
|
(when (string=? key "A") (set! player-x (- player-x 5)))
|
|
(when (string=? key "S") (set! player-y (+ player-y 5)))
|
|
(when (string=? key "D") (set! player-x (+ player-x 5)))
|
|
)))
|
|
events)
|
|
#t))
|
|
|
|
(define draw
|
|
(lambda ()
|
|
(draw-bitmap-text "Cool beans!" 100 100)
|
|
(apply set-draw-color black)
|
|
(draw-line 50 50 100 100)
|
|
(apply set-draw-color blue)
|
|
(draw-line 150 150 200 200)
|
|
(apply set-draw-color black)
|
|
(draw-rectangle player-x player-y 64 64)
|
|
(fill-rectangle (+ player-x 32) (+ player-y 32) 16 16)
|
|
(draw-triangle 350 350 380 380 330 380)
|
|
;(fill-triangle 450 450 480 480 430 480)
|
|
(draw-image-slice icons-image 500 500 32 32 0 0 32 32)
|
|
(draw-image-slice icons-image 532 532 32 32 32 32 32 32)
|
|
))
|
|
|
|
(spite-start update draw)
|