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

minor changes so that things run in drdr

Browse Source 
svn: r17544
This commit is contained in:
Robby Findler 2010-01-07 20:10:59 +00:00
parent 0eb5178ca8
commit f9311ff9dc
4 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/2htdp/tests/mp.ss
View File

@ -2,6 +2,7 @@
;; about the language level of this file in a form that our tools can easily process. ;; about the language level of this file in a form that our tools can easily process.
#reader(lib "htdp-beginner-reader.ss" "lang")((modname mp) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ()))) #reader(lib "htdp-beginner-reader.ss" "lang")((modname mp) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
(require 2htdp/universe) (require 2htdp/universe)
(require htdp/image)
;; WorldState = Image ;; WorldState = Image

4
collects/2htdp/tests/stop.ss
View File

@ -1,8 +1,8 @@
;; The first three lines of this file were inserted by DrScheme. They record metadata ;; The first three lines of this file were inserted by DrScheme. They record metadata
;; about the language level of this file in a form that our tools can easily process. ;; about the language level of this file in a form that our tools can easily process.
#reader(lib "htdp-intermediate-lambda-reader.ss" "lang")((modname test-stop) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ()))) #reader(lib "htdp-intermediate-lambda-reader.ss" "lang")((modname stop) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
(require 2htdp/universe) (require 2htdp/universe)
(require htdp/image)
;; on RETURN stop ;; on RETURN stop

10
collects/2htdp/tests/test-image.ss
View File

@ -994,19 +994,19 @@
(check-equal? (bmbytes-ref/safe checker3x3 3 3 1 19) (list->bytes '( 0 0 255 0))) (check-equal? (bmbytes-ref/safe checker3x3 3 3 1 19) (list->bytes '( 0 0 255 0)))
#;
(check-equal? (bytes->list (interpolate checker2x2 2 2 1 0)) (check-equal? (bytes->list (interpolate checker2x2 2 2 1 0))
'(255 0 255 0)) '(255 0 255 0))
#;
(check-equal? (bytes->list (interpolate checker3x3 3 3 0 0)) (check-equal? (bytes->list (interpolate checker3x3 3 3 0 0))
'(255 0 0 255)) '(255 0 0 255))
#;
(check-equal? (bytes->list (interpolate checker3x3 3 3 0 1)) (check-equal? (bytes->list (interpolate checker3x3 3 3 0 1))
'(255 0 255 0)) '(255 0 255 0))
#;
(check-equal? (bytes->list (interpolate checker3x3 3 3 0 2)) (check-equal? (bytes->list (interpolate checker3x3 3 3 0 2))
'(255 0 0 255)) '(255 0 0 255))
#;
(check-equal? (bytes->list (interpolate checker3x3 3 3 0.5 0)) (check-equal? (bytes->list (interpolate checker3x3 3 3 0.5 0))
'(255 0 128 128)) '(255 0 128 128))

3
collects/2htdp/tests/ufo-rename.ss
View File

@ -1,5 +1,6 @@
#lang scheme #lang scheme
(require (prefix-in uni: 2htdp/universe)) (require (prefix-in uni: 2htdp/universe)
(prefix-in uni: htdp/image))
(define (create-UFO-scene height) (define (create-UFO-scene height)
(uni:place-image UFO 50 height (uni:empty-scene 100 100))) (uni:place-image UFO 50 height (uni:empty-scene 100 100)))