71 lines
3.2 KiB
Scheme
71 lines
3.2 KiB
Scheme
;; 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.
|
|
#reader(lib "htdp-beginner-reader.ss" "lang")((modname world-add-line) (read-case-sensitive #t) (teachpacks ((lib "world.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "world.ss" "teachpack" "htdp")))))
|
|
(require (lib "world.ss" "htdp"))
|
|
|
|
(define plain (empty-scene 100 100))
|
|
|
|
(scene+line plain .5 10.3 -20 80 'red)
|
|
|
|
'verticals
|
|
(check-expect (scene+line plain -10 90 -10 80 'red) plain)
|
|
(check-expect (scene+line plain 110 90 110 80 'red) plain)
|
|
(check-expect (scene+line plain +10 90 +10 80 'red)
|
|
(scene+line plain +10 90 +10 80 'red))
|
|
#;
|
|
(check-expect (scene+line plain +10 900000 +10 80 'red)
|
|
(scene+line plain +10 100 +10 80 'red))
|
|
;; can't make image of this size
|
|
|
|
(check-expect (scene+line plain +10 -10 +10 80 'red)
|
|
(scene+line plain +10 0 +10 80 'red))
|
|
|
|
'horizontals
|
|
(check-expect (scene+line plain 20 -10 30 -10 'red) plain)
|
|
(check-expect (scene+line plain 20 110 30 110 'red) plain)
|
|
(check-expect (scene+line plain 20 +10 30 +10 'red)
|
|
(scene+line plain 20 +10 30 +10 'red))
|
|
#;
|
|
(check-expect (scene+line plain 20 +10 30000 +10 'red)
|
|
(scene+line plain 20 +10 100 +10 'red))
|
|
;; can't make image of this size
|
|
|
|
'inside-outside
|
|
(check-expect (scene+line plain 10 10 -10 -10 'red) ; upper-left
|
|
(scene+line plain 10 10 0 0 'red))
|
|
(check-expect (scene+line plain 10 10 -10 0 'red) ; upper-left
|
|
(scene+line plain 10 10 0 5 'red))
|
|
(check-expect (scene+line plain 90 10 110 -10 'red) ; upper-right
|
|
(scene+line plain 90 10 100 0 'red))
|
|
(check-expect (scene+line plain 90 10 110 0 'red) ; upper-left
|
|
(scene+line plain 90 10 100 5 'red))
|
|
(check-expect (scene+line plain 90 90 110 110 'red) ; lower-right
|
|
(scene+line plain 90 90 100 100 'red))
|
|
(check-expect (scene+line plain 90 90 110 100 'red) ; lower-right
|
|
(scene+line plain 90 90 100 95 'red))
|
|
(check-expect (scene+line plain 110 110 10 10 'red) ; lower-right
|
|
(scene+line plain 10 10 100 100 'red))
|
|
(check-expect (scene+line plain 10 10 210 110 'red) ; lower-right
|
|
(scene+line plain 10 10 100 55 'red))
|
|
(check-expect (scene+line plain 10 10 -10 30 'red) ; lower-left
|
|
(scene+line plain 10 10 0 20 'red))
|
|
(check-expect (scene+line plain 10 10 -10 210 'red) ; lower-left
|
|
(scene+line plain 10 10 0 110 'red))
|
|
|
|
'outside-outside
|
|
(check-expect (scene+line plain -100 10 300 50 'red) ;; left-right
|
|
(scene+line plain 0 20 100 30 'red))
|
|
(check-expect (scene+line plain -50 0 60 110 'red) ;; left-low
|
|
(scene+line plain 0 50 50 100 'red))
|
|
(check-expect (scene+line plain -50 50 60 -5 'red) ;; left-top
|
|
(scene+line plain 0 25 50 0 'red))
|
|
(check-expect (scene+line plain -10 -10 110 50 'red) ;; top-right
|
|
(scene+line plain 10 0 100 45 'red))
|
|
(check-expect (scene+line plain -10 -10 110 110 'red) ;; top-low
|
|
(scene+line plain 0 0 100 100 'red))
|
|
(check-expect (scene+line plain -10 110 110 50 'red) ;; low-right
|
|
(scene+line plain 0 105 100 55 'red))
|
|
|
|
'totally-outside
|
|
(check-expect (scene+line plain -100 -100 -200 -500 'red) plain)
|