diff --git a/collects/2htdp/planetcute/Brown Block.png b/collects/2htdp/planetcute/brown-block.png similarity index 100% rename from collects/2htdp/planetcute/Brown Block.png rename to collects/2htdp/planetcute/brown-block.png diff --git a/collects/2htdp/planetcute/brown-block.rkt b/collects/2htdp/planetcute/brown-block.rkt index d82ababa5f..e528812e62 100644 --- a/collects/2htdp/planetcute/brown-block.rkt +++ b/collects/2htdp/planetcute/brown-block.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide brown-block) (require racket/draw racket/runtime-path) -(define-runtime-path brown-block-img "Brown Block.png") +(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.png b/collects/2htdp/planetcute/character-boy.png similarity index 100% rename from collects/2htdp/planetcute/Character Boy.png rename to collects/2htdp/planetcute/character-boy.png diff --git a/collects/2htdp/planetcute/character-boy.rkt b/collects/2htdp/planetcute/character-boy.rkt index 3c86d9ab96..35114c0880 100644 --- a/collects/2htdp/planetcute/character-boy.rkt +++ b/collects/2htdp/planetcute/character-boy.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide character-boy) (require racket/draw racket/runtime-path) -(define-runtime-path character-boy-img "Character Boy.png") +(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.png b/collects/2htdp/planetcute/character-cat-girl.png similarity index 100% rename from collects/2htdp/planetcute/Character Cat Girl.png rename to collects/2htdp/planetcute/character-cat-girl.png diff --git a/collects/2htdp/planetcute/character-cat-girl.rkt b/collects/2htdp/planetcute/character-cat-girl.rkt index a97441c368..140cf0b5e0 100644 --- a/collects/2htdp/planetcute/character-cat-girl.rkt +++ b/collects/2htdp/planetcute/character-cat-girl.rkt @@ -1,5 +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-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.png b/collects/2htdp/planetcute/character-horn-girl.png similarity index 100% rename from collects/2htdp/planetcute/Character Horn Girl.png rename to collects/2htdp/planetcute/character-horn-girl.png diff --git a/collects/2htdp/planetcute/character-horn-girl.rkt b/collects/2htdp/planetcute/character-horn-girl.rkt index 639859deb7..4c08ac8344 100644 --- a/collects/2htdp/planetcute/character-horn-girl.rkt +++ b/collects/2htdp/planetcute/character-horn-girl.rkt @@ -1,5 +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-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.png b/collects/2htdp/planetcute/character-pink-girl.png similarity index 100% rename from collects/2htdp/planetcute/Character Pink Girl.png rename to collects/2htdp/planetcute/character-pink-girl.png diff --git a/collects/2htdp/planetcute/character-pink-girl.rkt b/collects/2htdp/planetcute/character-pink-girl.rkt index 56c1119c8e..17521e9d01 100644 --- a/collects/2htdp/planetcute/character-pink-girl.rkt +++ b/collects/2htdp/planetcute/character-pink-girl.rkt @@ -1,5 +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-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.png b/collects/2htdp/planetcute/character-princess-girl.png similarity index 100% rename from collects/2htdp/planetcute/Character Princess Girl.png rename to collects/2htdp/planetcute/character-princess-girl.png diff --git a/collects/2htdp/planetcute/character-princess-girl.rkt b/collects/2htdp/planetcute/character-princess-girl.rkt index a0c8e1bd63..953dbdf1a5 100644 --- a/collects/2htdp/planetcute/character-princess-girl.rkt +++ b/collects/2htdp/planetcute/character-princess-girl.rkt @@ -1,5 +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-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.png b/collects/2htdp/planetcute/chest-closed.png similarity index 100% rename from collects/2htdp/planetcute/Chest Closed.png rename to collects/2htdp/planetcute/chest-closed.png diff --git a/collects/2htdp/planetcute/chest-closed.rkt b/collects/2htdp/planetcute/chest-closed.rkt index b202cdb153..aa4da1d71c 100644 --- a/collects/2htdp/planetcute/chest-closed.rkt +++ b/collects/2htdp/planetcute/chest-closed.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide chest-closed) (require racket/draw racket/runtime-path) -(define-runtime-path chest-closed-img "Chest Closed.png") +(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.png b/collects/2htdp/planetcute/chest-lid.png similarity index 100% rename from collects/2htdp/planetcute/Chest Lid.png rename to collects/2htdp/planetcute/chest-lid.png diff --git a/collects/2htdp/planetcute/chest-lid.rkt b/collects/2htdp/planetcute/chest-lid.rkt index b145ecc2d9..27ad3512ce 100644 --- a/collects/2htdp/planetcute/chest-lid.rkt +++ b/collects/2htdp/planetcute/chest-lid.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide chest-lid) (require racket/draw racket/runtime-path) -(define-runtime-path chest-lid-img "Chest Lid.png") +(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.png b/collects/2htdp/planetcute/chest-open.png similarity index 100% rename from collects/2htdp/planetcute/Chest Open.png rename to collects/2htdp/planetcute/chest-open.png diff --git a/collects/2htdp/planetcute/chest-open.rkt b/collects/2htdp/planetcute/chest-open.rkt index c797a87e55..1ac9721d03 100644 --- a/collects/2htdp/planetcute/chest-open.rkt +++ b/collects/2htdp/planetcute/chest-open.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide chest-open) (require racket/draw racket/runtime-path) -(define-runtime-path chest-open-img "Chest Open.png") +(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.png b/collects/2htdp/planetcute/dirt-block.png similarity index 100% rename from collects/2htdp/planetcute/Dirt Block.png rename to collects/2htdp/planetcute/dirt-block.png diff --git a/collects/2htdp/planetcute/dirt-block.rkt b/collects/2htdp/planetcute/dirt-block.rkt index f994e224bc..95b188ff95 100644 --- a/collects/2htdp/planetcute/dirt-block.rkt +++ b/collects/2htdp/planetcute/dirt-block.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide dirt-block) (require racket/draw racket/runtime-path) -(define-runtime-path dirt-block-img "Dirt Block.png") +(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.png b/collects/2htdp/planetcute/door-tall-closed.png similarity index 100% rename from collects/2htdp/planetcute/Door Tall Closed.png rename to collects/2htdp/planetcute/door-tall-closed.png diff --git a/collects/2htdp/planetcute/door-tall-closed.rkt b/collects/2htdp/planetcute/door-tall-closed.rkt index c99477eaff..951049e5db 100644 --- a/collects/2htdp/planetcute/door-tall-closed.rkt +++ b/collects/2htdp/planetcute/door-tall-closed.rkt @@ -1,5 +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-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.png b/collects/2htdp/planetcute/door-tall-open.png similarity index 100% rename from collects/2htdp/planetcute/Door Tall Open.png rename to collects/2htdp/planetcute/door-tall-open.png diff --git a/collects/2htdp/planetcute/door-tall-open.rkt b/collects/2htdp/planetcute/door-tall-open.rkt index d816b85723..0ecb4f8dca 100644 --- a/collects/2htdp/planetcute/door-tall-open.rkt +++ b/collects/2htdp/planetcute/door-tall-open.rkt @@ -1,5 +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-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.png b/collects/2htdp/planetcute/enemy-bug.png similarity index 100% rename from collects/2htdp/planetcute/Enemy Bug.png rename to collects/2htdp/planetcute/enemy-bug.png diff --git a/collects/2htdp/planetcute/enemy-bug.rkt b/collects/2htdp/planetcute/enemy-bug.rkt index fda418ec6b..803b3418fa 100644 --- a/collects/2htdp/planetcute/enemy-bug.rkt +++ b/collects/2htdp/planetcute/enemy-bug.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide enemy-bug) (require racket/draw racket/runtime-path) -(define-runtime-path enemy-bug-img "Enemy Bug.png") +(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.png b/collects/2htdp/planetcute/gem-blue.png similarity index 100% rename from collects/2htdp/planetcute/Gem Blue.png rename to collects/2htdp/planetcute/gem-blue.png diff --git a/collects/2htdp/planetcute/gem-blue.rkt b/collects/2htdp/planetcute/gem-blue.rkt index 0cefadc044..2703bed4d5 100644 --- a/collects/2htdp/planetcute/gem-blue.rkt +++ b/collects/2htdp/planetcute/gem-blue.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide gem-blue) (require racket/draw racket/runtime-path) -(define-runtime-path gem-blue-img "Gem Blue.png") +(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.png b/collects/2htdp/planetcute/gem-green.png similarity index 100% rename from collects/2htdp/planetcute/Gem Green.png rename to collects/2htdp/planetcute/gem-green.png diff --git a/collects/2htdp/planetcute/gem-green.rkt b/collects/2htdp/planetcute/gem-green.rkt index 0ae03bbd52..4575b5feae 100644 --- a/collects/2htdp/planetcute/gem-green.rkt +++ b/collects/2htdp/planetcute/gem-green.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide gem-green) (require racket/draw racket/runtime-path) -(define-runtime-path gem-green-img "Gem Green.png") +(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.png b/collects/2htdp/planetcute/gem-orange.png similarity index 100% rename from collects/2htdp/planetcute/Gem Orange.png rename to collects/2htdp/planetcute/gem-orange.png diff --git a/collects/2htdp/planetcute/gem-orange.rkt b/collects/2htdp/planetcute/gem-orange.rkt index 01522b5b81..36f23529b6 100644 --- a/collects/2htdp/planetcute/gem-orange.rkt +++ b/collects/2htdp/planetcute/gem-orange.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide gem-orange) (require racket/draw racket/runtime-path) -(define-runtime-path gem-orange-img "Gem Orange.png") +(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.png b/collects/2htdp/planetcute/grass-block.png similarity index 100% rename from collects/2htdp/planetcute/Grass Block.png rename to collects/2htdp/planetcute/grass-block.png diff --git a/collects/2htdp/planetcute/grass-block.rkt b/collects/2htdp/planetcute/grass-block.rkt index e5b32961a8..9bf829c6d1 100644 --- a/collects/2htdp/planetcute/grass-block.rkt +++ b/collects/2htdp/planetcute/grass-block.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide grass-block) (require racket/draw racket/runtime-path) -(define-runtime-path grass-block-img "Grass Block.png") +(define-runtime-path grass-block-img "grass-block.png") (define grass-block (read-bitmap grass-block-img)) diff --git a/collects/2htdp/planetcute/Heart.png b/collects/2htdp/planetcute/heart.png similarity index 100% rename from collects/2htdp/planetcute/Heart.png rename to collects/2htdp/planetcute/heart.png diff --git a/collects/2htdp/planetcute/heart.rkt b/collects/2htdp/planetcute/heart.rkt index fd1dbced8d..5d5c886185 100644 --- a/collects/2htdp/planetcute/heart.rkt +++ b/collects/2htdp/planetcute/heart.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide heart) (require racket/draw racket/runtime-path) -(define-runtime-path heart-img "Heart.png") +(define-runtime-path heart-img "heart.png") (define heart (read-bitmap heart-img)) diff --git a/collects/2htdp/planetcute/Key.png b/collects/2htdp/planetcute/key.png similarity index 100% rename from collects/2htdp/planetcute/Key.png rename to collects/2htdp/planetcute/key.png diff --git a/collects/2htdp/planetcute/key.rkt b/collects/2htdp/planetcute/key.rkt index f0c7912037..a53c98f79f 100644 --- a/collects/2htdp/planetcute/key.rkt +++ b/collects/2htdp/planetcute/key.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide key) (require racket/draw racket/runtime-path) -(define-runtime-path key-img "Key.png") +(define-runtime-path key-img "key.png") (define key (read-bitmap key-img)) diff --git a/collects/2htdp/planetcute/Plain Block.png b/collects/2htdp/planetcute/plain-block.png similarity index 100% rename from collects/2htdp/planetcute/Plain Block.png rename to collects/2htdp/planetcute/plain-block.png diff --git a/collects/2htdp/planetcute/plain-block.rkt b/collects/2htdp/planetcute/plain-block.rkt index 3f0071718f..f43163843c 100644 --- a/collects/2htdp/planetcute/plain-block.rkt +++ b/collects/2htdp/planetcute/plain-block.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide plain-block) (require racket/draw racket/runtime-path) -(define-runtime-path plain-block-img "Plain Block.png") +(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.png b/collects/2htdp/planetcute/ramp-east.png similarity index 100% rename from collects/2htdp/planetcute/Ramp East.png rename to collects/2htdp/planetcute/ramp-east.png diff --git a/collects/2htdp/planetcute/ramp-east.rkt b/collects/2htdp/planetcute/ramp-east.rkt index 5e31a663ee..aaf7bb9a9d 100644 --- a/collects/2htdp/planetcute/ramp-east.rkt +++ b/collects/2htdp/planetcute/ramp-east.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide ramp-east) (require racket/draw racket/runtime-path) -(define-runtime-path ramp-east-img "Ramp East.png") +(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.png b/collects/2htdp/planetcute/ramp-north.png similarity index 100% rename from collects/2htdp/planetcute/Ramp North.png rename to collects/2htdp/planetcute/ramp-north.png diff --git a/collects/2htdp/planetcute/ramp-north.rkt b/collects/2htdp/planetcute/ramp-north.rkt index 7e3817376d..1716d9f9c4 100644 --- a/collects/2htdp/planetcute/ramp-north.rkt +++ b/collects/2htdp/planetcute/ramp-north.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide ramp-north) (require racket/draw racket/runtime-path) -(define-runtime-path ramp-north-img "Ramp North.png") +(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.png b/collects/2htdp/planetcute/ramp-south.png similarity index 100% rename from collects/2htdp/planetcute/Ramp South.png rename to collects/2htdp/planetcute/ramp-south.png diff --git a/collects/2htdp/planetcute/ramp-south.rkt b/collects/2htdp/planetcute/ramp-south.rkt index d880955110..c97746db69 100644 --- a/collects/2htdp/planetcute/ramp-south.rkt +++ b/collects/2htdp/planetcute/ramp-south.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide ramp-south) (require racket/draw racket/runtime-path) -(define-runtime-path ramp-south-img "Ramp South.png") +(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.png b/collects/2htdp/planetcute/ramp-west.png similarity index 100% rename from collects/2htdp/planetcute/Ramp West.png rename to collects/2htdp/planetcute/ramp-west.png diff --git a/collects/2htdp/planetcute/ramp-west.rkt b/collects/2htdp/planetcute/ramp-west.rkt index b699cf2b81..203833ebcc 100644 --- a/collects/2htdp/planetcute/ramp-west.rkt +++ b/collects/2htdp/planetcute/ramp-west.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide ramp-west) (require racket/draw racket/runtime-path) -(define-runtime-path ramp-west-img "Ramp West.png") +(define-runtime-path ramp-west-img "ramp-west.png") (define ramp-west (read-bitmap ramp-west-img)) diff --git a/collects/2htdp/planetcute/Rock.png b/collects/2htdp/planetcute/rock.png similarity index 100% rename from collects/2htdp/planetcute/Rock.png rename to collects/2htdp/planetcute/rock.png diff --git a/collects/2htdp/planetcute/rock.rkt b/collects/2htdp/planetcute/rock.rkt index 2ea4de834c..00842b3959 100644 --- a/collects/2htdp/planetcute/rock.rkt +++ b/collects/2htdp/planetcute/rock.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide rock) (require racket/draw racket/runtime-path) -(define-runtime-path rock-img "Rock.png") +(define-runtime-path rock-img "rock.png") (define rock (read-bitmap rock-img)) diff --git a/collects/2htdp/planetcute/Roof East.png b/collects/2htdp/planetcute/roof-east.png similarity index 100% rename from collects/2htdp/planetcute/Roof East.png rename to collects/2htdp/planetcute/roof-east.png diff --git a/collects/2htdp/planetcute/roof-east.rkt b/collects/2htdp/planetcute/roof-east.rkt index 73374755d2..a8d7069a19 100644 --- a/collects/2htdp/planetcute/roof-east.rkt +++ b/collects/2htdp/planetcute/roof-east.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide roof-east) (require racket/draw racket/runtime-path) -(define-runtime-path roof-east-img "Roof East.png") +(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.png b/collects/2htdp/planetcute/roof-north-east.png similarity index 100% rename from collects/2htdp/planetcute/Roof North East.png rename to collects/2htdp/planetcute/roof-north-east.png diff --git a/collects/2htdp/planetcute/roof-north-east.rkt b/collects/2htdp/planetcute/roof-north-east.rkt index 2f14aac677..7da869c7ac 100644 --- a/collects/2htdp/planetcute/roof-north-east.rkt +++ b/collects/2htdp/planetcute/roof-north-east.rkt @@ -1,5 +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-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.png b/collects/2htdp/planetcute/roof-north-west.png similarity index 100% rename from collects/2htdp/planetcute/Roof North West.png rename to collects/2htdp/planetcute/roof-north-west.png diff --git a/collects/2htdp/planetcute/roof-north-west.rkt b/collects/2htdp/planetcute/roof-north-west.rkt index c1f68de03a..c59ff52fc2 100644 --- a/collects/2htdp/planetcute/roof-north-west.rkt +++ b/collects/2htdp/planetcute/roof-north-west.rkt @@ -1,5 +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-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.png b/collects/2htdp/planetcute/roof-north.png similarity index 100% rename from collects/2htdp/planetcute/Roof North.png rename to collects/2htdp/planetcute/roof-north.png diff --git a/collects/2htdp/planetcute/roof-north.rkt b/collects/2htdp/planetcute/roof-north.rkt index 0e8a3451b5..9ed5af98d3 100644 --- a/collects/2htdp/planetcute/roof-north.rkt +++ b/collects/2htdp/planetcute/roof-north.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide roof-north) (require racket/draw racket/runtime-path) -(define-runtime-path roof-north-img "Roof North.png") +(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.png b/collects/2htdp/planetcute/roof-south-east.png similarity index 100% rename from collects/2htdp/planetcute/Roof South East.png rename to collects/2htdp/planetcute/roof-south-east.png diff --git a/collects/2htdp/planetcute/roof-south-east.rkt b/collects/2htdp/planetcute/roof-south-east.rkt index 7809aec2a5..2c709c3fab 100644 --- a/collects/2htdp/planetcute/roof-south-east.rkt +++ b/collects/2htdp/planetcute/roof-south-east.rkt @@ -1,5 +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-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.png b/collects/2htdp/planetcute/roof-south-west.png similarity index 100% rename from collects/2htdp/planetcute/Roof South West.png rename to collects/2htdp/planetcute/roof-south-west.png diff --git a/collects/2htdp/planetcute/roof-south-west.rkt b/collects/2htdp/planetcute/roof-south-west.rkt index 68f7c33c35..bd6228e373 100644 --- a/collects/2htdp/planetcute/roof-south-west.rkt +++ b/collects/2htdp/planetcute/roof-south-west.rkt @@ -1,5 +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-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.png b/collects/2htdp/planetcute/roof-south.png similarity index 100% rename from collects/2htdp/planetcute/Roof South.png rename to collects/2htdp/planetcute/roof-south.png diff --git a/collects/2htdp/planetcute/roof-south.rkt b/collects/2htdp/planetcute/roof-south.rkt index 3ee2448f2f..bd3db4de7e 100644 --- a/collects/2htdp/planetcute/roof-south.rkt +++ b/collects/2htdp/planetcute/roof-south.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide roof-south) (require racket/draw racket/runtime-path) -(define-runtime-path roof-south-img "Roof South.png") +(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.png b/collects/2htdp/planetcute/roof-west.png similarity index 100% rename from collects/2htdp/planetcute/Roof West.png rename to collects/2htdp/planetcute/roof-west.png diff --git a/collects/2htdp/planetcute/roof-west.rkt b/collects/2htdp/planetcute/roof-west.rkt index 3a04d50a13..7f4a883394 100644 --- a/collects/2htdp/planetcute/roof-west.rkt +++ b/collects/2htdp/planetcute/roof-west.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide roof-west) (require racket/draw racket/runtime-path) -(define-runtime-path roof-west-img "Roof West.png") +(define-runtime-path roof-west-img "roof-west.png") (define roof-west (read-bitmap roof-west-img)) diff --git a/collects/2htdp/planetcute/Selector.png b/collects/2htdp/planetcute/selector.png similarity index 100% rename from collects/2htdp/planetcute/Selector.png rename to collects/2htdp/planetcute/selector.png diff --git a/collects/2htdp/planetcute/selector.rkt b/collects/2htdp/planetcute/selector.rkt index d58a86af86..4263f572b4 100644 --- a/collects/2htdp/planetcute/selector.rkt +++ b/collects/2htdp/planetcute/selector.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide selector) (require racket/draw racket/runtime-path) -(define-runtime-path selector-img "Selector.png") +(define-runtime-path selector-img "selector.png") (define selector (read-bitmap selector-img)) diff --git a/collects/2htdp/planetcute/Shadow East.png b/collects/2htdp/planetcute/shadow-east.png similarity index 100% rename from collects/2htdp/planetcute/Shadow East.png rename to collects/2htdp/planetcute/shadow-east.png diff --git a/collects/2htdp/planetcute/shadow-east.rkt b/collects/2htdp/planetcute/shadow-east.rkt index b7301fd03d..a82ae19840 100644 --- a/collects/2htdp/planetcute/shadow-east.rkt +++ b/collects/2htdp/planetcute/shadow-east.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide shadow-east) (require racket/draw racket/runtime-path) -(define-runtime-path shadow-east-img "Shadow East.png") +(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.png b/collects/2htdp/planetcute/shadow-north-east.png similarity index 100% rename from collects/2htdp/planetcute/Shadow North East.png rename to collects/2htdp/planetcute/shadow-north-east.png diff --git a/collects/2htdp/planetcute/shadow-north-east.rkt b/collects/2htdp/planetcute/shadow-north-east.rkt index cfc1579bb0..3657a45093 100644 --- a/collects/2htdp/planetcute/shadow-north-east.rkt +++ b/collects/2htdp/planetcute/shadow-north-east.rkt @@ -1,5 +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-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.png b/collects/2htdp/planetcute/shadow-north-west.png similarity index 100% rename from collects/2htdp/planetcute/Shadow North West.png rename to collects/2htdp/planetcute/shadow-north-west.png diff --git a/collects/2htdp/planetcute/shadow-north-west.rkt b/collects/2htdp/planetcute/shadow-north-west.rkt index bb53c3a475..0d16843d9f 100644 --- a/collects/2htdp/planetcute/shadow-north-west.rkt +++ b/collects/2htdp/planetcute/shadow-north-west.rkt @@ -1,5 +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-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.png b/collects/2htdp/planetcute/shadow-north.png similarity index 100% rename from collects/2htdp/planetcute/Shadow North.png rename to collects/2htdp/planetcute/shadow-north.png diff --git a/collects/2htdp/planetcute/shadow-north.rkt b/collects/2htdp/planetcute/shadow-north.rkt index 1b271f4a47..8ef1855f8e 100644 --- a/collects/2htdp/planetcute/shadow-north.rkt +++ b/collects/2htdp/planetcute/shadow-north.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide shadow-north) (require racket/draw racket/runtime-path) -(define-runtime-path shadow-north-img "Shadow North.png") +(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.png b/collects/2htdp/planetcute/shadow-side-west.png similarity index 100% rename from collects/2htdp/planetcute/Shadow Side West.png rename to collects/2htdp/planetcute/shadow-side-west.png diff --git a/collects/2htdp/planetcute/shadow-side-west.rkt b/collects/2htdp/planetcute/shadow-side-west.rkt index 96e4befdb4..2b139ac35d 100644 --- a/collects/2htdp/planetcute/shadow-side-west.rkt +++ b/collects/2htdp/planetcute/shadow-side-west.rkt @@ -1,5 +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-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.png b/collects/2htdp/planetcute/shadow-south-east.png similarity index 100% rename from collects/2htdp/planetcute/Shadow South East.png rename to collects/2htdp/planetcute/shadow-south-east.png diff --git a/collects/2htdp/planetcute/shadow-south-east.rkt b/collects/2htdp/planetcute/shadow-south-east.rkt index b2512c446b..1c3072d6d9 100644 --- a/collects/2htdp/planetcute/shadow-south-east.rkt +++ b/collects/2htdp/planetcute/shadow-south-east.rkt @@ -1,5 +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-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.png b/collects/2htdp/planetcute/shadow-south-west.png similarity index 100% rename from collects/2htdp/planetcute/Shadow South West.png rename to collects/2htdp/planetcute/shadow-south-west.png diff --git a/collects/2htdp/planetcute/shadow-south-west.rkt b/collects/2htdp/planetcute/shadow-south-west.rkt index 1c75c83eeb..4c278604d3 100644 --- a/collects/2htdp/planetcute/shadow-south-west.rkt +++ b/collects/2htdp/planetcute/shadow-south-west.rkt @@ -1,5 +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-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.png b/collects/2htdp/planetcute/shadow-south.png similarity index 100% rename from collects/2htdp/planetcute/Shadow South.png rename to collects/2htdp/planetcute/shadow-south.png diff --git a/collects/2htdp/planetcute/shadow-south.rkt b/collects/2htdp/planetcute/shadow-south.rkt index 4c777aeac3..630c31fead 100644 --- a/collects/2htdp/planetcute/shadow-south.rkt +++ b/collects/2htdp/planetcute/shadow-south.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide shadow-south) (require racket/draw racket/runtime-path) -(define-runtime-path shadow-south-img "Shadow South.png") +(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.png b/collects/2htdp/planetcute/shadow-west.png similarity index 100% rename from collects/2htdp/planetcute/Shadow West.png rename to collects/2htdp/planetcute/shadow-west.png diff --git a/collects/2htdp/planetcute/shadow-west.rkt b/collects/2htdp/planetcute/shadow-west.rkt index 539961e97d..c661f6ebc4 100644 --- a/collects/2htdp/planetcute/shadow-west.rkt +++ b/collects/2htdp/planetcute/shadow-west.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide shadow-west) (require racket/draw racket/runtime-path) -(define-runtime-path shadow-west-img "Shadow West.png") +(define-runtime-path shadow-west-img "shadow-west.png") (define shadow-west (read-bitmap shadow-west-img)) diff --git a/collects/2htdp/planetcute/SpeechBubble.png b/collects/2htdp/planetcute/speech-bubble.png similarity index 100% rename from collects/2htdp/planetcute/SpeechBubble.png rename to collects/2htdp/planetcute/speech-bubble.png diff --git a/collects/2htdp/planetcute/speech-bubble.rkt b/collects/2htdp/planetcute/speech-bubble.rkt new file mode 100644 index 0000000000..07a01f5003 --- /dev/null +++ b/collects/2htdp/planetcute/speech-bubble.rkt @@ -0,0 +1,5 @@ +#lang racket/base +(provide speech-bubble) +(require racket/draw racket/runtime-path) +(define-runtime-path speech-bubble-img "speech-bubble.png") +(define speech-bubble (read-bitmap speech-bubble-img)) diff --git a/collects/2htdp/planetcute/speechbubble.rkt b/collects/2htdp/planetcute/speechbubble.rkt deleted file mode 100644 index 252d5e929d..0000000000 --- a/collects/2htdp/planetcute/speechbubble.rkt +++ /dev/null @@ -1,5 +0,0 @@ -#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.png b/collects/2htdp/planetcute/stone-block-tall.png similarity index 100% rename from collects/2htdp/planetcute/Stone Block Tall.png rename to collects/2htdp/planetcute/stone-block-tall.png diff --git a/collects/2htdp/planetcute/stone-block-tall.rkt b/collects/2htdp/planetcute/stone-block-tall.rkt index 6254b8c38d..78780c89f7 100644 --- a/collects/2htdp/planetcute/stone-block-tall.rkt +++ b/collects/2htdp/planetcute/stone-block-tall.rkt @@ -1,5 +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-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.png b/collects/2htdp/planetcute/stone-block.png similarity index 100% rename from collects/2htdp/planetcute/Stone Block.png rename to collects/2htdp/planetcute/stone-block.png diff --git a/collects/2htdp/planetcute/stone-block.rkt b/collects/2htdp/planetcute/stone-block.rkt index 8bfc9dc4a9..8f6ff70026 100644 --- a/collects/2htdp/planetcute/stone-block.rkt +++ b/collects/2htdp/planetcute/stone-block.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide stone-block) (require racket/draw racket/runtime-path) -(define-runtime-path stone-block-img "Stone Block.png") +(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.png b/collects/2htdp/planetcute/tree-short.png similarity index 100% rename from collects/2htdp/planetcute/Tree Short.png rename to collects/2htdp/planetcute/tree-short.png diff --git a/collects/2htdp/planetcute/tree-short.rkt b/collects/2htdp/planetcute/tree-short.rkt index f00b3f765a..fbc7f04cb8 100644 --- a/collects/2htdp/planetcute/tree-short.rkt +++ b/collects/2htdp/planetcute/tree-short.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide tree-short) (require racket/draw racket/runtime-path) -(define-runtime-path tree-short-img "Tree Short.png") +(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.png b/collects/2htdp/planetcute/tree-tall.png similarity index 100% rename from collects/2htdp/planetcute/Tree Tall.png rename to collects/2htdp/planetcute/tree-tall.png diff --git a/collects/2htdp/planetcute/tree-tall.rkt b/collects/2htdp/planetcute/tree-tall.rkt index f28113e4d1..6c8a2f8e70 100644 --- a/collects/2htdp/planetcute/tree-tall.rkt +++ b/collects/2htdp/planetcute/tree-tall.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide tree-tall) (require racket/draw racket/runtime-path) -(define-runtime-path tree-tall-img "Tree Tall.png") +(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.png b/collects/2htdp/planetcute/tree-ugly.png similarity index 100% rename from collects/2htdp/planetcute/Tree Ugly.png rename to collects/2htdp/planetcute/tree-ugly.png diff --git a/collects/2htdp/planetcute/tree-ugly.rkt b/collects/2htdp/planetcute/tree-ugly.rkt index 09ca9993fb..75bdf62b85 100644 --- a/collects/2htdp/planetcute/tree-ugly.rkt +++ b/collects/2htdp/planetcute/tree-ugly.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide tree-ugly) (require racket/draw racket/runtime-path) -(define-runtime-path tree-ugly-img "Tree Ugly.png") +(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.png b/collects/2htdp/planetcute/wall-block-tall.png similarity index 100% rename from collects/2htdp/planetcute/Wall Block Tall.png rename to collects/2htdp/planetcute/wall-block-tall.png diff --git a/collects/2htdp/planetcute/wall-block-tall.rkt b/collects/2htdp/planetcute/wall-block-tall.rkt index 97184c7fcc..94a3b6591c 100644 --- a/collects/2htdp/planetcute/wall-block-tall.rkt +++ b/collects/2htdp/planetcute/wall-block-tall.rkt @@ -1,5 +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-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.png b/collects/2htdp/planetcute/wall-block.png similarity index 100% rename from collects/2htdp/planetcute/Wall Block.png rename to collects/2htdp/planetcute/wall-block.png diff --git a/collects/2htdp/planetcute/wall-block.rkt b/collects/2htdp/planetcute/wall-block.rkt index 93db468b81..24560a628c 100644 --- a/collects/2htdp/planetcute/wall-block.rkt +++ b/collects/2htdp/planetcute/wall-block.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide wall-block) (require racket/draw racket/runtime-path) -(define-runtime-path wall-block-img "Wall Block.png") +(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.png b/collects/2htdp/planetcute/water-block.png similarity index 100% rename from collects/2htdp/planetcute/Water Block.png rename to collects/2htdp/planetcute/water-block.png diff --git a/collects/2htdp/planetcute/water-block.rkt b/collects/2htdp/planetcute/water-block.rkt index 7587e57aef..5f51359810 100644 --- a/collects/2htdp/planetcute/water-block.rkt +++ b/collects/2htdp/planetcute/water-block.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide water-block) (require racket/draw racket/runtime-path) -(define-runtime-path water-block-img "Water Block.png") +(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.png b/collects/2htdp/planetcute/window-tall.png similarity index 100% rename from collects/2htdp/planetcute/Window Tall.png rename to collects/2htdp/planetcute/window-tall.png diff --git a/collects/2htdp/planetcute/window-tall.rkt b/collects/2htdp/planetcute/window-tall.rkt index 99286452ae..fd6df710d1 100644 --- a/collects/2htdp/planetcute/window-tall.rkt +++ b/collects/2htdp/planetcute/window-tall.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide window-tall) (require racket/draw racket/runtime-path) -(define-runtime-path window-tall-img "Window Tall.png") +(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.png b/collects/2htdp/planetcute/wood-block.png similarity index 100% rename from collects/2htdp/planetcute/Wood Block.png rename to collects/2htdp/planetcute/wood-block.png diff --git a/collects/2htdp/planetcute/wood-block.rkt b/collects/2htdp/planetcute/wood-block.rkt index 0dd9e06cab..3f89326eba 100644 --- a/collects/2htdp/planetcute/wood-block.rkt +++ b/collects/2htdp/planetcute/wood-block.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide wood-block) (require racket/draw racket/runtime-path) -(define-runtime-path wood-block-img "Wood Block.png") +(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.png b/collects/2htdp/planetcute/yellow-star.png similarity index 100% rename from collects/2htdp/planetcute/Yellow Star.png rename to collects/2htdp/planetcute/yellow-star.png diff --git a/collects/2htdp/planetcute/yellow-star.rkt b/collects/2htdp/planetcute/yellow-star.rkt index 090da888ce..850c35ef13 100644 --- a/collects/2htdp/planetcute/yellow-star.rkt +++ b/collects/2htdp/planetcute/yellow-star.rkt @@ -1,5 +1,5 @@ #lang racket/base (provide yellow-star) (require racket/draw racket/runtime-path) -(define-runtime-path yellow-star-img "Yellow Star.png") +(define-runtime-path yellow-star-img "yellow-star.png") (define yellow-star (read-bitmap yellow-star-img)) diff --git a/collects/2htdp/private/planetcute-image-list.rkt b/collects/2htdp/private/planetcute-image-list.rkt index c2ea92816d..b6b8a6e7a8 100644 --- a/collects/2htdp/private/planetcute-image-list.rkt +++ b/collects/2htdp/private/planetcute-image-list.rkt @@ -2,17 +2,7 @@ (provide images name->filename) (define (name->filename img) - (define-values (_ new-chars) - (for/fold ([cap-next? #t] - [chars '()]) - ([c (in-string (format "~a" img))]) - (values (equal? #\- c) - (cons (cond - [(equal? c #\-) #\space] - [cap-next? (char-upcase c)] - [else c]) - chars)))) - (format "~a.png" (apply string (reverse new-chars)))) + (format "~a.png" img)) (define images '((Characters @@ -20,9 +10,9 @@ character-cat-girl character-horn-girl character-pink-girl - character-princess-girl + character-princess-girl enemy-bug - speechbubble) + speech-bubble) (Items chest-closed @@ -39,7 +29,7 @@ tree-tall tree-ugly yellow-star) - + (Blocks brown-block dirt-block @@ -57,7 +47,7 @@ ramp-north ramp-south ramp-west) - + (Buildings door-tall-closed door-tall-open @@ -70,7 +60,7 @@ roof-south roof-west window-tall) - + (Shadows shadow-east shadow-north-east