;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <S E A P U N K ?>
;;;
;;; Description:
;;;   <I do it for the
;;;    A E S T H E T I C
;;;    no more said>

;;; inspired by "O U T R U N" from fall 2016 scheme art contest
;;; width 640 height 600

(define size (/ 600 10))
(define img 'dolphin.gif)
(define img2 'palmtree.gif)
(define img3 'dolphinflipped.gif)

;;; gradient for the background

(define (colorline y height col)
    (setpos -320 y)
    (pendown)
    (color col)
    (begin_fill)
    (setpos 320 y)
    (setpos 320 (+ height y))
    (setpos -320 (+ height y))
    (end_fill)
    (penup))

(define (grad y colors)
    (if (not (null? colors)
        (begin
          (colorline y size (car colors))
          (grad (+ y size) (cdr colors))))))

; works cited: https://stackoverflow.com/questions/40186594/how-can-i-draw-a-grid-of-squares
(define (grid step len c col)
    (if (>= c len) (penup)
      (begin
        (penup)
        (setpos (- (/ len 2)) (- (/ len 2) c))
        (color col)
        (pendown)
        (setpos (/ len 2) (- (/ len 2) c))
        (penup)
        (setpos (+ (- (/ len 2)) c) (/ len 2))
        (pendown)
        (setpos (+ (- (/ len 2)) c) (- (/ len 2)))
        (grid step len (+ step c) col))))

(define (draw)
; (but this is "seapunk or my version of it okay"
  (penup)
  (grad -300 (list "#459BC2" "#5C86C6" "#7175CE" "#8664D5"
                "#9854DB" "#A649E1" "#B63DE4" "#C72EEC" "#D71FEF" "#F30AFC"))
  (grid 25 640 0 "#ffffff")
  (addshape img2)
  (setpos 0 0)
  (stamp)
  (setpos 150 0)
  (addshape img)
  (stamp)
  (addshape img3)
  (setpos -150 0)
  (stamp)

)
; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)