(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