diff --git a/collects/2htdp/planetcute.rkt b/collects/2htdp/planetcute.rkt index 5eaca72632..a167ff3c3b 100644 --- a/collects/2htdp/planetcute.rkt +++ b/collects/2htdp/planetcute.rkt @@ -1,14 +1,48 @@ #lang racket/base (require 2htdp/image + racket/runtime-path (for-syntax "private/planetcute-image-list.rkt") (for-syntax racket/base)) (define-syntax (definitions stx) #`(begin #,@(for/list ([img (in-list (apply append (map cdr images)))]) - (define req (string->symbol (format "2htdp/planetcute/~a" (name->filename img)))) #`(begin (provide #,img) - (define #,img (bitmap #,req)))))) + (define-syntax #,img (make-planetcute-transformer '#,img)))))) + + +(define-for-syntax (make-planetcute-transformer img) + (make-set!-transformer + (let ([saved-id-table (make-hasheq)]) + (λ (stx) + (if (eq? 'expression (syntax-local-context)) + ;; In an expression context: + (let* ([key (syntax-local-lift-context)] + ;; Already lifted in this lifting context? + [lifted-id + (or (hash-ref saved-id-table key #f) + ;; No: lift the require for the image: + (syntax-local-lift-require `(lib ,(format "~a.rkt" img) "2htdp" "planetcute") + (datum->syntax stx img)))]) + (when key (hash-set! saved-id-table key lifted-id)) + ;; Expand to a use of the lifted expression: + (with-syntax ([saved-id (syntax-local-introduce lifted-id)]) + (syntax-case stx (set!) + [name (identifier? #'name) #'saved-id] + [(set! id arg) + (raise-syntax-error + '2htdp/planetcute + "cannot set! a Planet Cute variable" + stx #'id)] + [(name . more) + (raise-syntax-error + '2htdp/planetcute + "the Planet Cute variables cannot be used after an open parenthesis as they are not functions" + stx #'id)]))) + ;; In case of partial expansion for module-level and internal-defn + ;; contexts, delay expansion until it's a good time to lift + ;; expressions: + (quasisyntax/loc stx (#%expression #,stx))))))) (definitions) diff --git a/collects/2htdp/planetcute/brown-block.rkt b/collects/2htdp/planetcute/brown-block.rkt new file mode 100644 index 0000000000..d82ababa5f --- /dev/null +++ b/collects/2htdp/planetcute/brown-block.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide brown-block) +(require racket/draw racket/runtime-path) +(define-runtime-path brown-block-img "Brown Block.png") +(define brown-block (read-bitmap brown-block-img)) diff --git a/collects/2htdp/planetcute/character-boy.rkt b/collects/2htdp/planetcute/character-boy.rkt new file mode 100644 index 0000000000..3c86d9ab96 --- /dev/null +++ b/collects/2htdp/planetcute/character-boy.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide character-boy) +(require racket/draw racket/runtime-path) +(define-runtime-path character-boy-img "Character Boy.png") +(define character-boy (read-bitmap character-boy-img)) diff --git a/collects/2htdp/planetcute/character-cat-girl.rkt b/collects/2htdp/planetcute/character-cat-girl.rkt new file mode 100644 index 0000000000..a97441c368 --- /dev/null +++ b/collects/2htdp/planetcute/character-cat-girl.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide character-cat-girl) +(require racket/draw racket/runtime-path) +(define-runtime-path character-cat-girl-img "Character Cat Girl.png") +(define character-cat-girl (read-bitmap character-cat-girl-img)) diff --git a/collects/2htdp/planetcute/character-horn-girl.rkt b/collects/2htdp/planetcute/character-horn-girl.rkt new file mode 100644 index 0000000000..639859deb7 --- /dev/null +++ b/collects/2htdp/planetcute/character-horn-girl.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide character-horn-girl) +(require racket/draw racket/runtime-path) +(define-runtime-path character-horn-girl-img "Character Horn Girl.png") +(define character-horn-girl (read-bitmap character-horn-girl-img)) diff --git a/collects/2htdp/planetcute/character-pink-girl.rkt b/collects/2htdp/planetcute/character-pink-girl.rkt new file mode 100644 index 0000000000..56c1119c8e --- /dev/null +++ b/collects/2htdp/planetcute/character-pink-girl.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide character-pink-girl) +(require racket/draw racket/runtime-path) +(define-runtime-path character-pink-girl-img "Character Pink Girl.png") +(define character-pink-girl (read-bitmap character-pink-girl-img)) diff --git a/collects/2htdp/planetcute/character-princess-girl.rkt b/collects/2htdp/planetcute/character-princess-girl.rkt new file mode 100644 index 0000000000..a0c8e1bd63 --- /dev/null +++ b/collects/2htdp/planetcute/character-princess-girl.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide character-princess-girl) +(require racket/draw racket/runtime-path) +(define-runtime-path character-princess-girl-img "Character Princess Girl.png") +(define character-princess-girl (read-bitmap character-princess-girl-img)) diff --git a/collects/2htdp/planetcute/chest-closed.rkt b/collects/2htdp/planetcute/chest-closed.rkt new file mode 100644 index 0000000000..b202cdb153 --- /dev/null +++ b/collects/2htdp/planetcute/chest-closed.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide chest-closed) +(require racket/draw racket/runtime-path) +(define-runtime-path chest-closed-img "Chest Closed.png") +(define chest-closed (read-bitmap chest-closed-img)) diff --git a/collects/2htdp/planetcute/chest-lid.rkt b/collects/2htdp/planetcute/chest-lid.rkt new file mode 100644 index 0000000000..b145ecc2d9 --- /dev/null +++ b/collects/2htdp/planetcute/chest-lid.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide chest-lid) +(require racket/draw racket/runtime-path) +(define-runtime-path chest-lid-img "Chest Lid.png") +(define chest-lid (read-bitmap chest-lid-img)) diff --git a/collects/2htdp/planetcute/chest-open.rkt b/collects/2htdp/planetcute/chest-open.rkt new file mode 100644 index 0000000000..c797a87e55 --- /dev/null +++ b/collects/2htdp/planetcute/chest-open.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide chest-open) +(require racket/draw racket/runtime-path) +(define-runtime-path chest-open-img "Chest Open.png") +(define chest-open (read-bitmap chest-open-img)) diff --git a/collects/2htdp/planetcute/dirt-block.rkt b/collects/2htdp/planetcute/dirt-block.rkt new file mode 100644 index 0000000000..f994e224bc --- /dev/null +++ b/collects/2htdp/planetcute/dirt-block.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide dirt-block) +(require racket/draw racket/runtime-path) +(define-runtime-path dirt-block-img "Dirt Block.png") +(define dirt-block (read-bitmap dirt-block-img)) diff --git a/collects/2htdp/planetcute/door-tall-closed.rkt b/collects/2htdp/planetcute/door-tall-closed.rkt new file mode 100644 index 0000000000..c99477eaff --- /dev/null +++ b/collects/2htdp/planetcute/door-tall-closed.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide door-tall-closed) +(require racket/draw racket/runtime-path) +(define-runtime-path door-tall-closed-img "Door Tall Closed.png") +(define door-tall-closed (read-bitmap door-tall-closed-img)) diff --git a/collects/2htdp/planetcute/door-tall-open.rkt b/collects/2htdp/planetcute/door-tall-open.rkt new file mode 100644 index 0000000000..d816b85723 --- /dev/null +++ b/collects/2htdp/planetcute/door-tall-open.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide door-tall-open) +(require racket/draw racket/runtime-path) +(define-runtime-path door-tall-open-img "Door Tall Open.png") +(define door-tall-open (read-bitmap door-tall-open-img)) diff --git a/collects/2htdp/planetcute/enemy-bug.rkt b/collects/2htdp/planetcute/enemy-bug.rkt new file mode 100644 index 0000000000..fda418ec6b --- /dev/null +++ b/collects/2htdp/planetcute/enemy-bug.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide enemy-bug) +(require racket/draw racket/runtime-path) +(define-runtime-path enemy-bug-img "Enemy Bug.png") +(define enemy-bug (read-bitmap enemy-bug-img)) diff --git a/collects/2htdp/planetcute/gem-blue.rkt b/collects/2htdp/planetcute/gem-blue.rkt new file mode 100644 index 0000000000..0cefadc044 --- /dev/null +++ b/collects/2htdp/planetcute/gem-blue.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide gem-blue) +(require racket/draw racket/runtime-path) +(define-runtime-path gem-blue-img "Gem Blue.png") +(define gem-blue (read-bitmap gem-blue-img)) diff --git a/collects/2htdp/planetcute/gem-green.rkt b/collects/2htdp/planetcute/gem-green.rkt new file mode 100644 index 0000000000..0ae03bbd52 --- /dev/null +++ b/collects/2htdp/planetcute/gem-green.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide gem-green) +(require racket/draw racket/runtime-path) +(define-runtime-path gem-green-img "Gem Green.png") +(define gem-green (read-bitmap gem-green-img)) diff --git a/collects/2htdp/planetcute/gem-orange.rkt b/collects/2htdp/planetcute/gem-orange.rkt new file mode 100644 index 0000000000..01522b5b81 --- /dev/null +++ b/collects/2htdp/planetcute/gem-orange.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide gem-orange) +(require racket/draw racket/runtime-path) +(define-runtime-path gem-orange-img "Gem Orange.png") +(define gem-orange (read-bitmap gem-orange-img)) diff --git a/collects/2htdp/planetcute/grass-block.rkt b/collects/2htdp/planetcute/grass-block.rkt new file mode 100644 index 0000000000..e5b32961a8 --- /dev/null +++ b/collects/2htdp/planetcute/grass-block.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide grass-block) +(require racket/draw racket/runtime-path) +(define-runtime-path grass-block-img "Grass Block.png") +(define grass-block (read-bitmap grass-block-img)) diff --git a/collects/2htdp/planetcute/heart.rkt b/collects/2htdp/planetcute/heart.rkt new file mode 100644 index 0000000000..fd1dbced8d --- /dev/null +++ b/collects/2htdp/planetcute/heart.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide heart) +(require racket/draw racket/runtime-path) +(define-runtime-path heart-img "Heart.png") +(define heart (read-bitmap heart-img)) diff --git a/collects/2htdp/planetcute/key.rkt b/collects/2htdp/planetcute/key.rkt new file mode 100644 index 0000000000..f0c7912037 --- /dev/null +++ b/collects/2htdp/planetcute/key.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide key) +(require racket/draw racket/runtime-path) +(define-runtime-path key-img "Key.png") +(define key (read-bitmap key-img)) diff --git a/collects/2htdp/planetcute/plain-block.rkt b/collects/2htdp/planetcute/plain-block.rkt new file mode 100644 index 0000000000..3f0071718f --- /dev/null +++ b/collects/2htdp/planetcute/plain-block.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide plain-block) +(require racket/draw racket/runtime-path) +(define-runtime-path plain-block-img "Plain Block.png") +(define plain-block (read-bitmap plain-block-img)) diff --git a/collects/2htdp/planetcute/ramp-east.rkt b/collects/2htdp/planetcute/ramp-east.rkt new file mode 100644 index 0000000000..5e31a663ee --- /dev/null +++ b/collects/2htdp/planetcute/ramp-east.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide ramp-east) +(require racket/draw racket/runtime-path) +(define-runtime-path ramp-east-img "Ramp East.png") +(define ramp-east (read-bitmap ramp-east-img)) diff --git a/collects/2htdp/planetcute/ramp-north.rkt b/collects/2htdp/planetcute/ramp-north.rkt new file mode 100644 index 0000000000..7e3817376d --- /dev/null +++ b/collects/2htdp/planetcute/ramp-north.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide ramp-north) +(require racket/draw racket/runtime-path) +(define-runtime-path ramp-north-img "Ramp North.png") +(define ramp-north (read-bitmap ramp-north-img)) diff --git a/collects/2htdp/planetcute/ramp-south.rkt b/collects/2htdp/planetcute/ramp-south.rkt new file mode 100644 index 0000000000..d880955110 --- /dev/null +++ b/collects/2htdp/planetcute/ramp-south.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide ramp-south) +(require racket/draw racket/runtime-path) +(define-runtime-path ramp-south-img "Ramp South.png") +(define ramp-south (read-bitmap ramp-south-img)) diff --git a/collects/2htdp/planetcute/ramp-west.rkt b/collects/2htdp/planetcute/ramp-west.rkt new file mode 100644 index 0000000000..b699cf2b81 --- /dev/null +++ b/collects/2htdp/planetcute/ramp-west.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide ramp-west) +(require racket/draw racket/runtime-path) +(define-runtime-path ramp-west-img "Ramp West.png") +(define ramp-west (read-bitmap ramp-west-img)) diff --git a/collects/2htdp/planetcute/rock.rkt b/collects/2htdp/planetcute/rock.rkt new file mode 100644 index 0000000000..2ea4de834c --- /dev/null +++ b/collects/2htdp/planetcute/rock.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide rock) +(require racket/draw racket/runtime-path) +(define-runtime-path rock-img "Rock.png") +(define rock (read-bitmap rock-img)) diff --git a/collects/2htdp/planetcute/roof-east.rkt b/collects/2htdp/planetcute/roof-east.rkt new file mode 100644 index 0000000000..73374755d2 --- /dev/null +++ b/collects/2htdp/planetcute/roof-east.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide roof-east) +(require racket/draw racket/runtime-path) +(define-runtime-path roof-east-img "Roof East.png") +(define roof-east (read-bitmap roof-east-img)) diff --git a/collects/2htdp/planetcute/roof-north-east.rkt b/collects/2htdp/planetcute/roof-north-east.rkt new file mode 100644 index 0000000000..2f14aac677 --- /dev/null +++ b/collects/2htdp/planetcute/roof-north-east.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide roof-north-east) +(require racket/draw racket/runtime-path) +(define-runtime-path roof-north-east-img "Roof North East.png") +(define roof-north-east (read-bitmap roof-north-east-img)) diff --git a/collects/2htdp/planetcute/roof-north-west.rkt b/collects/2htdp/planetcute/roof-north-west.rkt new file mode 100644 index 0000000000..c1f68de03a --- /dev/null +++ b/collects/2htdp/planetcute/roof-north-west.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide roof-north-west) +(require racket/draw racket/runtime-path) +(define-runtime-path roof-north-west-img "Roof North West.png") +(define roof-north-west (read-bitmap roof-north-west-img)) diff --git a/collects/2htdp/planetcute/roof-north.rkt b/collects/2htdp/planetcute/roof-north.rkt new file mode 100644 index 0000000000..0e8a3451b5 --- /dev/null +++ b/collects/2htdp/planetcute/roof-north.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide roof-north) +(require racket/draw racket/runtime-path) +(define-runtime-path roof-north-img "Roof North.png") +(define roof-north (read-bitmap roof-north-img)) diff --git a/collects/2htdp/planetcute/roof-south-east.rkt b/collects/2htdp/planetcute/roof-south-east.rkt new file mode 100644 index 0000000000..7809aec2a5 --- /dev/null +++ b/collects/2htdp/planetcute/roof-south-east.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide roof-south-east) +(require racket/draw racket/runtime-path) +(define-runtime-path roof-south-east-img "Roof South East.png") +(define roof-south-east (read-bitmap roof-south-east-img)) diff --git a/collects/2htdp/planetcute/roof-south-west.rkt b/collects/2htdp/planetcute/roof-south-west.rkt new file mode 100644 index 0000000000..68f7c33c35 --- /dev/null +++ b/collects/2htdp/planetcute/roof-south-west.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide roof-south-west) +(require racket/draw racket/runtime-path) +(define-runtime-path roof-south-west-img "Roof South West.png") +(define roof-south-west (read-bitmap roof-south-west-img)) diff --git a/collects/2htdp/planetcute/roof-south.rkt b/collects/2htdp/planetcute/roof-south.rkt new file mode 100644 index 0000000000..3ee2448f2f --- /dev/null +++ b/collects/2htdp/planetcute/roof-south.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide roof-south) +(require racket/draw racket/runtime-path) +(define-runtime-path roof-south-img "Roof South.png") +(define roof-south (read-bitmap roof-south-img)) diff --git a/collects/2htdp/planetcute/roof-west.rkt b/collects/2htdp/planetcute/roof-west.rkt new file mode 100644 index 0000000000..3a04d50a13 --- /dev/null +++ b/collects/2htdp/planetcute/roof-west.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide roof-west) +(require racket/draw racket/runtime-path) +(define-runtime-path roof-west-img "Roof West.png") +(define roof-west (read-bitmap roof-west-img)) diff --git a/collects/2htdp/planetcute/selector.rkt b/collects/2htdp/planetcute/selector.rkt new file mode 100644 index 0000000000..d58a86af86 --- /dev/null +++ b/collects/2htdp/planetcute/selector.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide selector) +(require racket/draw racket/runtime-path) +(define-runtime-path selector-img "Selector.png") +(define selector (read-bitmap selector-img)) diff --git a/collects/2htdp/planetcute/shadow-east.rkt b/collects/2htdp/planetcute/shadow-east.rkt new file mode 100644 index 0000000000..b7301fd03d --- /dev/null +++ b/collects/2htdp/planetcute/shadow-east.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide shadow-east) +(require racket/draw racket/runtime-path) +(define-runtime-path shadow-east-img "Shadow East.png") +(define shadow-east (read-bitmap shadow-east-img)) diff --git a/collects/2htdp/planetcute/shadow-north-east.rkt b/collects/2htdp/planetcute/shadow-north-east.rkt new file mode 100644 index 0000000000..cfc1579bb0 --- /dev/null +++ b/collects/2htdp/planetcute/shadow-north-east.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide shadow-north-east) +(require racket/draw racket/runtime-path) +(define-runtime-path shadow-north-east-img "Shadow North East.png") +(define shadow-north-east (read-bitmap shadow-north-east-img)) diff --git a/collects/2htdp/planetcute/shadow-north-west.rkt b/collects/2htdp/planetcute/shadow-north-west.rkt new file mode 100644 index 0000000000..bb53c3a475 --- /dev/null +++ b/collects/2htdp/planetcute/shadow-north-west.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide shadow-north-west) +(require racket/draw racket/runtime-path) +(define-runtime-path shadow-north-west-img "Shadow North West.png") +(define shadow-north-west (read-bitmap shadow-north-west-img)) diff --git a/collects/2htdp/planetcute/shadow-north.rkt b/collects/2htdp/planetcute/shadow-north.rkt new file mode 100644 index 0000000000..1b271f4a47 --- /dev/null +++ b/collects/2htdp/planetcute/shadow-north.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide shadow-north) +(require racket/draw racket/runtime-path) +(define-runtime-path shadow-north-img "Shadow North.png") +(define shadow-north (read-bitmap shadow-north-img)) diff --git a/collects/2htdp/planetcute/shadow-side-west.rkt b/collects/2htdp/planetcute/shadow-side-west.rkt new file mode 100644 index 0000000000..96e4befdb4 --- /dev/null +++ b/collects/2htdp/planetcute/shadow-side-west.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide shadow-side-west) +(require racket/draw racket/runtime-path) +(define-runtime-path shadow-side-west-img "Shadow Side West.png") +(define shadow-side-west (read-bitmap shadow-side-west-img)) diff --git a/collects/2htdp/planetcute/shadow-south-east.rkt b/collects/2htdp/planetcute/shadow-south-east.rkt new file mode 100644 index 0000000000..b2512c446b --- /dev/null +++ b/collects/2htdp/planetcute/shadow-south-east.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide shadow-south-east) +(require racket/draw racket/runtime-path) +(define-runtime-path shadow-south-east-img "Shadow South East.png") +(define shadow-south-east (read-bitmap shadow-south-east-img)) diff --git a/collects/2htdp/planetcute/shadow-south-west.rkt b/collects/2htdp/planetcute/shadow-south-west.rkt new file mode 100644 index 0000000000..1c75c83eeb --- /dev/null +++ b/collects/2htdp/planetcute/shadow-south-west.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide shadow-south-west) +(require racket/draw racket/runtime-path) +(define-runtime-path shadow-south-west-img "Shadow South West.png") +(define shadow-south-west (read-bitmap shadow-south-west-img)) diff --git a/collects/2htdp/planetcute/shadow-south.rkt b/collects/2htdp/planetcute/shadow-south.rkt new file mode 100644 index 0000000000..4c777aeac3 --- /dev/null +++ b/collects/2htdp/planetcute/shadow-south.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide shadow-south) +(require racket/draw racket/runtime-path) +(define-runtime-path shadow-south-img "Shadow South.png") +(define shadow-south (read-bitmap shadow-south-img)) diff --git a/collects/2htdp/planetcute/shadow-west.rkt b/collects/2htdp/planetcute/shadow-west.rkt new file mode 100644 index 0000000000..539961e97d --- /dev/null +++ b/collects/2htdp/planetcute/shadow-west.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide shadow-west) +(require racket/draw racket/runtime-path) +(define-runtime-path shadow-west-img "Shadow West.png") +(define shadow-west (read-bitmap shadow-west-img)) diff --git a/collects/2htdp/planetcute/speechbubble.rkt b/collects/2htdp/planetcute/speechbubble.rkt new file mode 100644 index 0000000000..252d5e929d --- /dev/null +++ b/collects/2htdp/planetcute/speechbubble.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide speechbubble) +(require racket/draw racket/runtime-path) +(define-runtime-path speechbubble-img "Speechbubble.png") +(define speechbubble (read-bitmap speechbubble-img)) diff --git a/collects/2htdp/planetcute/stone-block-tall.rkt b/collects/2htdp/planetcute/stone-block-tall.rkt new file mode 100644 index 0000000000..6254b8c38d --- /dev/null +++ b/collects/2htdp/planetcute/stone-block-tall.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide stone-block-tall) +(require racket/draw racket/runtime-path) +(define-runtime-path stone-block-tall-img "Stone Block Tall.png") +(define stone-block-tall (read-bitmap stone-block-tall-img)) diff --git a/collects/2htdp/planetcute/stone-block.rkt b/collects/2htdp/planetcute/stone-block.rkt new file mode 100644 index 0000000000..8bfc9dc4a9 --- /dev/null +++ b/collects/2htdp/planetcute/stone-block.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide stone-block) +(require racket/draw racket/runtime-path) +(define-runtime-path stone-block-img "Stone Block.png") +(define stone-block (read-bitmap stone-block-img)) diff --git a/collects/2htdp/planetcute/tree-short.rkt b/collects/2htdp/planetcute/tree-short.rkt new file mode 100644 index 0000000000..f00b3f765a --- /dev/null +++ b/collects/2htdp/planetcute/tree-short.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide tree-short) +(require racket/draw racket/runtime-path) +(define-runtime-path tree-short-img "Tree Short.png") +(define tree-short (read-bitmap tree-short-img)) diff --git a/collects/2htdp/planetcute/tree-tall.rkt b/collects/2htdp/planetcute/tree-tall.rkt new file mode 100644 index 0000000000..f28113e4d1 --- /dev/null +++ b/collects/2htdp/planetcute/tree-tall.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide tree-tall) +(require racket/draw racket/runtime-path) +(define-runtime-path tree-tall-img "Tree Tall.png") +(define tree-tall (read-bitmap tree-tall-img)) diff --git a/collects/2htdp/planetcute/tree-ugly.rkt b/collects/2htdp/planetcute/tree-ugly.rkt new file mode 100644 index 0000000000..09ca9993fb --- /dev/null +++ b/collects/2htdp/planetcute/tree-ugly.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide tree-ugly) +(require racket/draw racket/runtime-path) +(define-runtime-path tree-ugly-img "Tree Ugly.png") +(define tree-ugly (read-bitmap tree-ugly-img)) diff --git a/collects/2htdp/planetcute/wall-block-tall.rkt b/collects/2htdp/planetcute/wall-block-tall.rkt new file mode 100644 index 0000000000..97184c7fcc --- /dev/null +++ b/collects/2htdp/planetcute/wall-block-tall.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide wall-block-tall) +(require racket/draw racket/runtime-path) +(define-runtime-path wall-block-tall-img "Wall Block Tall.png") +(define wall-block-tall (read-bitmap wall-block-tall-img)) diff --git a/collects/2htdp/planetcute/wall-block.rkt b/collects/2htdp/planetcute/wall-block.rkt new file mode 100644 index 0000000000..93db468b81 --- /dev/null +++ b/collects/2htdp/planetcute/wall-block.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide wall-block) +(require racket/draw racket/runtime-path) +(define-runtime-path wall-block-img "Wall Block.png") +(define wall-block (read-bitmap wall-block-img)) diff --git a/collects/2htdp/planetcute/water-block.rkt b/collects/2htdp/planetcute/water-block.rkt new file mode 100644 index 0000000000..7587e57aef --- /dev/null +++ b/collects/2htdp/planetcute/water-block.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide water-block) +(require racket/draw racket/runtime-path) +(define-runtime-path water-block-img "Water Block.png") +(define water-block (read-bitmap water-block-img)) diff --git a/collects/2htdp/planetcute/window-tall.rkt b/collects/2htdp/planetcute/window-tall.rkt new file mode 100644 index 0000000000..99286452ae --- /dev/null +++ b/collects/2htdp/planetcute/window-tall.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide window-tall) +(require racket/draw racket/runtime-path) +(define-runtime-path window-tall-img "Window Tall.png") +(define window-tall (read-bitmap window-tall-img)) diff --git a/collects/2htdp/planetcute/wood-block.rkt b/collects/2htdp/planetcute/wood-block.rkt new file mode 100644 index 0000000000..0dd9e06cab --- /dev/null +++ b/collects/2htdp/planetcute/wood-block.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide wood-block) +(require racket/draw racket/runtime-path) +(define-runtime-path wood-block-img "Wood Block.png") +(define wood-block (read-bitmap wood-block-img)) diff --git a/collects/2htdp/planetcute/yellow-star.rkt b/collects/2htdp/planetcute/yellow-star.rkt new file mode 100644 index 0000000000..090da888ce --- /dev/null +++ b/collects/2htdp/planetcute/yellow-star.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide yellow-star) +(require racket/draw racket/runtime-path) +(define-runtime-path yellow-star-img "Yellow Star.png") +(define yellow-star (read-bitmap yellow-star-img))