;; The first three lines of this file were inserted by DrRacket. 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 7.8.8) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
(require picturing-programs)

; Worked exercise 7.8.8

; red-function : number(x) number(y)
;                number(red) number(green) number(blue) -> number
(check-expect (red-function 10 20 30 40 50) 0)
(check-expect (red-function 1000 100 250 125 0) 0)
(define (red-function x y red green blue)
  ; x a number
  ; y a number
  ; red a number
  ; green a number
  ; blue a number
  0)

; green-function : number(x) number(y)
;                  number(red) number(green) number(blue) -> number
(check-expect (green-function 10 20 30 40 50) 40)
(check-expect (green-function 1000 100 250 125 0) 125)
(define (green-function x y red green blue)
  ; x a number
  ; y a number
  ; red a number
  ; green a number
  ; blue a number
  green)

; blue-function : number(x) number(y)
;                 number(red) number(blue) number(blue) -> number
(check-expect (blue-function 10 20 30 40 50) 50)
(check-expect (blue-function 1000 100 250 125 0) 0)
(define (blue-function x y red green blue)
  ; x a number
  ; y a number
  ; red a number
  ; blue a number
  ; blue a number
  blue)


(map3-image red-function green-function blue-function pic:bloch)