diff options
Diffstat (limited to 'src/pokedex')
| -rw-r--r-- | src/pokedex/imgs/blank.txt | 1 | ||||
| -rw-r--r-- | src/pokedex/pokedex.rkt | 42 |
2 files changed, 33 insertions, 10 deletions
diff --git a/src/pokedex/imgs/blank.txt b/src/pokedex/imgs/blank.txt new file mode 100644 index 0000000..87058af --- /dev/null +++ b/src/pokedex/imgs/blank.txt @@ -0,0 +1 @@ +file to force this directory to show up in git diff --git a/src/pokedex/pokedex.rkt b/src/pokedex/pokedex.rkt index 3aebea1..5af1710 100644 --- a/src/pokedex/pokedex.rkt +++ b/src/pokedex/pokedex.rkt @@ -1,4 +1,3 @@ - #lang racket ;; let's try to make a pokedex in racket! @@ -13,11 +12,12 @@ ;; basic GET request -(require net/url) -(require json) +(require net/url + net/url-connect + json + slideshow/pict + racket/draw) -; 🤔 -(require slideshow/pict racket/draw) ;; API URL (define *POKE-API* "https://pokeapi.co/api/v2/") @@ -52,8 +52,30 @@ (inspector (dex-entry 11)) (inspector (dex-entry "bulbasaur")) -(define img (hash-ref (dex-entry 11) "sprite")) - -(define display-image (bitmap (make-object bitmap% img))) - -(frame (scale display-image 0.3)) ; this doesn't actually seem to work with URLs/PNGs +(define (get-image id sprite-file-name) + (define img (hash-ref (dex-entry id) "sprite")) + (define img-url + (string->url img)) + (define the-data + (parameterize ([current-https-protocol 'secure]) + (port->bytes (get-pure-port img-url)))) + (define out (open-output-file sprite-file-name)) + (write-bytes the-data out) + (close-output-port out) + (display-image sprite-file-name)) + +(define (display-image image) + (define display-image (bitmap (make-object bitmap% image))) + (frame (scale display-image 1))) + +(define (see-pokemon id) + (define sprite-file-name + (~a "imgs/" id ".png")) + (if (file-exists? sprite-file-name) + (display-image sprite-file-name) + (get-image id sprite-file-name))) + +(see-pokemon "bulbasaur") +(see-pokemon "butterfree") +(see-pokemon "pikachu") +(see-pokemon 124) \ No newline at end of file |