26 lines
505 B
Racket
26 lines
505 B
Racket
#lang whalesong
|
|
|
|
(require whalesong/resource
|
|
whalesong/image)
|
|
|
|
(define-resource whale-resource "images/humpback.jpg")
|
|
(define-resource self-resource "using-resources.rkt")
|
|
|
|
(define whale-image
|
|
(image-url
|
|
(resource->url whale-resource)))
|
|
|
|
(list whale-image whale-image)
|
|
(resource? whale-image)
|
|
(image? whale-image)
|
|
|
|
|
|
(list whale-resource whale-resource)
|
|
(resource? whale-resource)
|
|
(image? whale-resource)
|
|
|
|
|
|
(list self-resource self-resource)
|
|
(resource? self-resource)
|
|
(image? self-resource)
|