;draw-cloud: posn number number symbol symbol -> picture
;purpose is to make a picture of a cloud
;draw outline of cloud, then solid circles to fill in
;draw-cloud pos size color1 color2
;test
;;;(draw-cloud (make-posn 100 75) 20 'skyblue 'paleturquoise)


(define (draw-cloud pos size color1 color2)
  (and
   ;;Top: solid circle, then outlines: 3 in a row to create depth
   (draw-solid-disk
    (make-posn (* (posn-x pos) 4) (* (posn-y pos) 2.5)) (* size 2) color1)
   (draw-circle
    (make-posn (* (posn-x pos) 4.02) (* (posn-y pos) 2.5)) (* size 2) color2)
   (draw-circle
    (make-posn (* (posn-x pos) 4.01) (* (posn-y pos) 2.5)) (* size 2) color2) 
   (draw-circle
    (make-posn (* (posn-x pos) 4.00) (* (posn-y pos) 2.5)) (* size 2) color2)
   ;
   (draw-solid-disk
    (make-posn (* (posn-x pos) 3.5) (* (posn-y pos) 2.5)) (* size 3) color1)  
   (draw-circle
    (make-posn (* (posn-x pos) 3.52) (* (posn-y pos) 2.5)) (* size 3) color2)
   (draw-circle
    (make-posn (* (posn-x pos) 3.51) (* (posn-y pos) 2.5)) (* size 3) color2) 
   (draw-circle
    (make-posn (* (posn-x pos) 3.50) (* (posn-y pos) 2.5)) (* size 3) color2)
    ;
   (draw-solid-disk
    (make-posn (* (posn-x pos) 2.5) (* (posn-y pos) 2.25)) (* size 3.5) color1)
   (draw-circle
    (make-posn (* (posn-x pos) 2.52) (* (posn-y pos) 2.25)) (* size 3.5) color2)
   (draw-circle
    (make-posn (* (posn-x pos) 2.51) (* (posn-y pos) 2.25)) (* size 3.5) color2) 
   (draw-circle
    (make-posn (* (posn-x pos) 2.50) (* (posn-y pos) 2.25)) (* size 3.5) color2)
   
   ;
   (draw-solid-disk
    (make-posn (* (posn-x pos) 1.5) (* (posn-y pos) 2.5)) (* size 4) color1)
   (draw-circle
    (make-posn (* (posn-x pos) 1.52) (* (posn-y pos) 2.5)) (* size 4) color2)
   (draw-circle
    (make-posn (* (posn-x pos) 1.51) (* (posn-y pos) 2.5)) (* size 4) color2) 
   (draw-circle
    (make-posn (* (posn-x pos) 1.50) (* (posn-y pos) 2.5)) (* size 4) color2)
  
   ;bottom circles
   (draw-solid-disk
    (make-posn (* (posn-x pos) 4) (* (posn-y pos) 3)) (* size 3) color2)
   (draw-solid-disk
    (make-posn (* (posn-x pos) 3) (* (posn-y pos) 3)) (* size 4) color2)
   (draw-solid-disk
    (make-posn (* (posn-x pos) 2) (* (posn-y pos) 3)) (* size 3) color2)
   (draw-solid-disk
    (make-posn (* (posn-x pos) 1) (* (posn-y pos) 3)) (* size 4) color2)))

;(start 500 500)
;(draw-cloud (make-posn 100 75) 20 'skyblue 'paleturquoise)