(use-modules (oop goops)
             (png)
             (png image)
             (png graphics))

(define (main args)
  "Entry point."
  (let* ((image (make <png-image>
                  #:color-type 2
                  #:bit-depth 8
                  #:width  1000
                  #:height 1000))
         (color   #vu8(255 255 255))
         (diameter 400))
    (for-each (lambda (d)
                (draw! image
                       (make <hexagon>
                         #:color (list->u8vector
                                  (list (remainder (random d) 255)
                                        (remainder (random d) 255)
                                        (remainder (random d) 255)))
                         #:center (make <point> #:x 500 #:y 500)
                         #:diameter d)))
              (iota 900 10 1))
    (let ((port (open-output-file "hex.png")))
      (scm->png image port)
      (close port))))