Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (require 2htdp/image)
- (require 2htdp/universe)
- ;; =================
- ;; Constants:
- (define WIDTH 800)
- (define HEIGHT 600)
- (define SPEED 1)
- (define TEXT-SIZE 12)
- (define TEXT-COLOUR "pink")
- (define MTS (empty-scene WIDTH HEIGHT))
- ;; =================
- ;; Data Definitions:
- (define-struct number (x y))
- ;; Number is (make-number Integer Integer)
- ;; interp. A number on the screen with x and y co-ordinates
- (define N1 (make-number 50 100))
- (define N2 (make-number 0 0))
- (define (fn-for-number n)
- (... (number-x n)
- (number-y n)))
- ;; Rules used:
- ;; - compound
- ;; - atomic non-distinct (number-x n) is Integer
- ;; - atomic non-distinct (number-y n) is Integer
Add Comment
Please, Sign In to add comment