;;draw-panda posn number -> boolean boolean
;;
;;Consumes the position of the panda's stomach (type posn) and its size(number) and creates an image of a panda.
;;
;;Unfortunately, the functions that we use to draw require an integer for size. However, since the proportions at points
;;require division by 16, the size needs to be divisible by 16
;
;;before using this function, function start must be called according to the following definition-
;;
;;(start number1 number2) - number1 equals the width of the canvas window while number2 equals the height
;;
;;test -> (draw-panda (make-posn 150 150) 50) -> false (no picture)
;;test -> (draw-panda (make-posn 150 150) 64) -> true true (draws picture)
(define (draw-panda pos size)
(and
 ;;Creates arms of panda
 (draw-solid-disk (make-posn (- (posn-x pos) (* size .72)) (- (posn-y pos) (* size .72))) (* size .25) 'black)
 (draw-solid-disk (make-posn (+ (posn-x pos) (* size .72)) (- (posn-y pos) (* size .72))) (* size .25) 'black)
 (draw-solid-disk (make-posn (- (posn-x pos) (* size .72)) (+ (posn-y pos) (* size .72))) (* size .25) 'black)
 (draw-solid-disk (make-posn (+ (posn-x pos) (* size .72)) (+ (posn-y pos) (* size .72))) (* size .25) 'black)
 ;;Creates body of panda
 (draw-solid-disk pos size 'white)
 (draw-circle pos size 'black)
 ;;Creates ears
 (draw-solid-disk (make-posn (- (posn-x pos) (* size .375)) (- (posn-y pos) (* size 1.575))) (* size .25) 'black)
 (draw-solid-disk (make-posn (+ (posn-x pos) (* size .375)) (- (posn-y pos) (* size 1.575))) (* size .25) 'black)
 ;;Creates Head and covers portion of ears
 (draw-solid-disk (make-posn (posn-x pos) (- (posn-y pos) (* size 1.2))) (* size .5) 'white)
 ;;Creates black eye circles and white eyes
 (draw-solid-disk (make-posn (- (posn-x pos) (* size .25)) (- (posn-y pos) (* size 1.45))) (/ size 8) 'black)
 (draw-solid-disk (make-posn (+ (posn-x pos) (* size .25)) (- (posn-y pos) (* size 1.45))) (/ size 8) 'black)
 (draw-solid-disk (make-posn (- (posn-x pos) (* size .175)) (- (posn-y pos) (* size 1.415))) (/ size 16) 'white)
 (draw-solid-disk (make-posn (+ (posn-x pos) (* size .175)) (- (posn-y pos) (* size 1.415))) (/ size 16) 'white)
 ;;Creates Nose
 (draw-solid-rect (make-posn (- (posn-x pos) (* size .125)) (- (posn-y pos) (* size 1.2))) (* size .25) (* size .25) 'black)
 (draw-solid-disk (make-posn (- (posn-x pos) (* size .375)) (- (posn-y pos) (* size .95))) (* size .375) 'white)
 (draw-solid-disk (make-posn (+ (posn-x pos) (* size .375)) (- (posn-y pos) (* size .95))) (* size .375) 'white)
 ;;Creates Mouth
 (draw-solid-line
  (make-posn (- (posn-x pos) (* size .125)) (- (posn-y pos) (* size .95)))
  (make-posn (+ (posn-x pos) (* size .125)) (- (posn-y pos) (* size .95)))
  'black)
 ;;Outlines face
 (draw-circle (make-posn (posn-x pos) (- (posn-y pos) (* size 1.2))) (* size .5) 'black)))


;(start 300 300)
;(draw-panda (make-posn 150 150) 64)