suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #20 from vishesh/2htdp/image

Browse Source 
Implement place-images* functions in image library
This commit is contained in:
Jens Axel Søgaard 2015-05-15 11:32:40 +02:00
commit 5d5ab6b32a
2 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
whalesong/image/main.rkt
View File

@ -1,7 +1,9 @@
#lang s-exp "../lang/base.rkt" #lang s-exp "../lang/base.rkt"
(require "private/main.rkt" (require "private/main.rkt"
"private/color.rkt") "private/color.rkt"
"private/image.rkt")
(provide (all-from-out "private/main.rkt") (provide (all-from-out "private/main.rkt")
(all-from-out "private/color.rkt")) (all-from-out "private/color.rkt")
(all-from-out "private/image.rkt"))

22
whalesong/image/private/image.rkt Normal file
View File

@ -0,0 +1,22 @@
#lang s-exp "../../lang/base.rkt"
;; Image functions that be implemented using racket based on primitives
(require "main.rkt"
"../../lang/for.rkt"
"../../lang/posn.rkt")
(provide place-images
place-images/align)
; place-images : (listof image?) (listof posn?) image? -> image?
(define (place-images images posns scene)
(for/fold ([acc scene])
([img images] [posn posns])
(place-image img (posn-x posn) (posn-y posn) acc)))
; place-images : (listof image?) (listof posn?) x-place? y-place? image? -> image?
(define (place-images/align images posns x-place y-place scene)
(for/fold ([acc scene])
([img images] [posn posns])
(place-image/align img (posn-x posn) (posn-y posn) x-place y-place acc)))