(define simple-circle
  (drawing-scale
   (drawing-shift drawing-unit-circle 0.5 0.5)
   50))

(define drawing-render
  (lambda (drawing)
    (image-show
     (drawing->image drawing 
                     (inexact->exact (round (drawing-right drawing)))
                     (inexact->exact (round (drawing-bottom drawing)))))))
  

(define drawing-hpair
  (lambda (drawing1 drawing2)
    (drawing-group
     drawing1
     (drawing-hshift drawing2 (drawing-right drawing1)))))

(define drawing-vpair
  (lambda (drawing1 drawing2)
    (drawing-group
     drawing1
     (drawing-vshift drawing2 (drawing-bottom drawing1)))))

(define warhol
  (lambda (drawing)
    (drawing-vpair
     (drawing-hpair 
      (drawing-recolor drawing "red")
      (drawing-recolor drawing "green"))
     (drawing-hpair 
      (drawing-recolor drawing "blue")
      (drawing-recolor drawing "yellow")))))

(define drawing-background
  (lambda (drawing color border)
    (drawing-group
     (drawing-vscale
      (drawing-hscale 
       (drawing-recolor
        (drawing-shift drawing-unit-square 0.5 0.5)
       color)
       (+ border border (drawing-width drawing)))
      (+ border border (drawing-height drawing)))
     (drawing-shift drawing border border))))

(define andy
  (lambda (drawing)
    (drawing-vpair
     (drawing-hpair
      (drawing-background drawing "red" 10)
      (drawing-background drawing "blue" 10))
     (drawing-hpair
      (drawing-background drawing "green" 10)
      (drawing-background drawing "yellow" 10)))))