diff --git a/whalesong/image/private/image.rkt b/whalesong/image/private/image.rkt index 490e551..f5d9231 100644 --- a/whalesong/image/private/image.rkt +++ b/whalesong/image/private/image.rkt @@ -1,13 +1,15 @@ #lang s-exp "../../lang/base.rkt" ;; Image functions that be implemented using racket based on primitives +;; NOTE: Modifications here may require rebuilding of Whalesong (require "main.rkt" "../../lang/for.rkt" "../../lang/posn.rkt") (provide place-images - place-images/align) + place-images/align + empty-image) ; place-images : (listof image?) (listof posn?) image? -> image? (define (place-images images posns scene) @@ -20,3 +22,5 @@ (for/fold ([acc scene]) ([img images] [posn posns]) (place-image/align img (posn-x posn) (posn-y posn) x-place y-place acc))) + +(define empty-image (rectangle 0 0 "solid" "black"))