;;in the function draw-flower, the user inputs the positon of the center of the large circle that will be the flower's face [center], the radius of that circle, and the colors of the petals [colorpetal] and the circle [colorflower]
(define (draw-flower center radius colorpetal colorflower)
  (and(
   ;; the width of the stem of the flower will be twice the radius, the length five times the radius
       draw-solid-rect (make-posn (- (posn-x center) radius)(posn-y center)) 
       (* radius 2)(* radius 5) 'green)

      ;;the centers of the 4 petals of the flower are at the top, bottom and sides of the center circle
      (draw-solid-disk (make-posn (- (posn-x center) radius)(posn-y center))
      radius colorpetal)
      (draw-circle (make-posn (- (posn-x center) radius)(posn-y center))
      radius 'black)
      (draw-solid-disk (make-posn (posn-x center)(- (posn-y center) radius) )
       radius colorpetal)
      (draw-circle (make-posn (posn-x center)(- (posn-y center) radius) )
       radius 'black)
      (draw-solid-disk (make-posn (+ (posn-x center) radius)(posn-y center))
       radius colorpetal)
       (draw-circle (make-posn (+ (posn-x center) radius)(posn-y center))
       radius 'black)
      (draw-solid-disk (make-posn (posn-x center)(+ (posn-y center) radius))
       radius colorpetal)
      (draw-circle (make-posn (posn-x center)(+ (posn-y center) radius))
       radius 'black)

      ;; the center circle of the flower
      (draw-solid-disk (make-posn (posn-x center)(posn-y center))
       radius colorflower)
      (draw-circle (make-posn (posn-x center)(posn-y center))
       radius 'black)

      ;;the pot is made out of 2 rectables. The width of the top rectangle is 4 times the radius, the length 1 time. The other rectangle's sides is 2 times the radius, the length 1 time. Here is the code for the bottom rectangle: 

       (draw-solid-rect (make-posn (- (posn-x center) radius)(+ (posn-y center) (* 5 radius))) (* 2 radius) radius 'brown)
       (draw-solid-line (make-posn (- (posn-x center) radius)(+ (posn-y center) (* 5 radius)))
                        (make-posn (- (posn-x center) radius)(+ (posn-y center) (* 6 radius))))
       (draw-solid-line (make-posn (- (posn-x center) radius)(+ (posn-y center) (* 6 radius)))
                        (make-posn (+ (posn-x center) radius)(+ (posn-y center) (* 6 radius))))
  
                    ;;now, the top rectangle:      
       (draw-solid-rect (make-posn (- (posn-x center) (* 2 radius))(+ (posn-y center) (* 4 radius)))(* radius 4) radius 'brown)
      (draw-solid-line (make-posn (- (posn-x center) (* 2 radius))(+ (posn-y center) (* 4 radius)))
                       (make-posn (+ (- (posn-x center) (* 2 radius)) (* 4 radius)) (+ (posn-y center) (* 4 radius))) 
                       'black)
       (draw-solid-line (make-posn (- (posn-x center) (* 2 radius))(+ (posn-y center) (* 4 radius)))
                       (make-posn (- (posn-x center) (* 2 radius))(+ (+ (posn-y center) (* 4 radius)) radius)) 
                       'black) 

       (draw-solid-line (make-posn (- (posn-x center) (* 2 radius))(+ (posn-y center) (* 5 radius)))
                        (make-posn (+ (posn-x center)(* 2 radius))(+ (posn-y center) 
                        (* 5 radius)))'black)
       (draw-solid-line (make-posn (+ (posn-x center)(* 2 radius))(+ (posn-y center) (* 5 radius)))
                        (make-posn (+ (posn-x center) (* 2 radius)) (+ (posn-y center) (* 4 radius))) 
                       'black)

)) 

;(start 200 200)
;(draw-flower (make-posn 100 100) 30 'pink 'green)