;;; Heavyweight Submission for the Project 4 Contest
(load "stk-turtle-stuff")

(define two (list 39 47 146 105 124 179 164 177 200 254 15 266 55 147 9 123 39 47)) ;TWO
(define zero (list 139 147 193 52 213 70 275 12 391 125 336 218 317 200 256 259 139 147)) ;ZERO
(define one (list 34 293 126 263 177 313 149 423 51 449 80 342 34 293)) ;ONE
(define two1 (list 183 308 195 260 257 263 246 314 183 308)) ;TWO1
(define two2 (list 259 264 325 224 387 324 309 371 395 428 280 448 175 365 283 303 259 264)) ;TWO2
(define rings (list 232 131 288 131 345 131 261 154 317 154 73 221 138 221)) ;rings
(define lndn (list 54 205 49 227 81 228 83 213 82 219 95 214 95 214 93 228 118 205 115 228 116 217 105 213 105 213 103 228 103 228 115 223 148 214 146 228 147 220 159 213 159 213 158 228)) ;lndn
(define yellow (list 49 31 160 99 192 44 200 49 203 45 220 58 274 3 284 11 291 4 396 123 393 131 400 137 337 233 328 218 320 212 280 245 328 218 392 324 386 328 388 334 321 371 407 432 387 435 395 443 266 457 167 371 171 355 272 304 259 279 250 315 237 321 183 315 153 429 46 453 51 442 33 445 68 334 28 291 30 290 24 280 63 269 137 263 175 304 188 261 207 253 241 255 140 155 133 170 155 169 179 194 207 253 188 261 10 272 14 263 8 262 50 150 4 126 36 40 42 43 49 31)) ;yellow
(define shapes (list yellow two zero one two1 two2))
(color "yellow")

(define (drawshape coords)
  (if (= (length coords) 0)
      coords
      (begin
        (goto (/ (- (first coords) 200) 2) (/ (- 230 (first (rest coords))) 2))
        (drawshape (rest (rest coords))))))

(define (drawshapes lst)
  (if (= (length lst) 0)
      lst
      (begin
        (if (not (equal? (first lst) yellow))
          (color "#e60086")
          (color "yellow"))
        (penup)
        (goto (/ (- (first (first lst)) 200) 2) (/ (- 230 (first (rest (first lst)))) 2))
        (pendown)
        (begin_fill)
        (drawshape (first lst))
        (end_fill)
        (drawshapes (butfirst lst)))))

(define (drawrings rings x y)
  (if (= (length rings) 0)
      rings
      (begin
        (penup)
        (goto (- (first rings) 200 x) (- 230 (first (rest rings)) y))
        (pendown)
        (color "white")
        (if (> (length rings) 4)
            (circle 23)
            (circle 7))
        (drawrings (rest (rest rings)) x y))))

(define (drawtext text x y)
  (if (= (length text) 0)
      text
      (begin
        (penup)
        (goto (- (first text) 200 x) (- 230 (first (rest text)) y))
        (pendown)
        (goto (- (first (rest (rest text))) 200 x) (- 230 (first (rest (rest (rest text)))) y))
        (drawtext (rest (rest (rest (rest text)))) x y))))

(define coord (list -160 0 0 0 160 0 -80 -60 80 -60))
(define ringcolor (list "#01005B" "#363636" "#5B0000" "#5B5A00" "#035B00"))
(define (bgrings n)
  (if (= n 0)
      n
      (begin
        (forward 100)
        (right 85)
        (bgrings (- n 1)))))

(define (drawbg coords colr)
  (if (= (length coords) 0)
      coords
      (begin
        (penup)
        (goto (- (first coords) 50) (first (rest coords)))
        (pendown)
        (color (first colr))
        (bgrings 72)
        (drawbg (rest (rest coords)) (rest colr)))))

     

(cs)
(ht)
(set-canvas-background-color "black")
(drawbg coord ringcolor)
(drawshapes shapes)


(define (drawrings rings)
  (if (= (length rings) 0)
      rings
      (begin
        (penup)
        (goto (/ (- (first rings) 200) 2) (/ (- 230 (first (rest rings))) 2))
        (pendown)
        (color "white")
        (if (> (length rings) 4)
            (circle 11)
            (circle 3))
        (drawrings (rest (rest rings))))))

(define (drawtext text)
  (if (= (length text) 0)
      text
      (begin
        (penup)
        (goto (/ (- (first text) 200) 2) (/ (- 230 (first (rest text))) 2))
        (pendown)
        (goto (/ (- (first (rest (rest text))) 200) 2) (/ (- 230 (first (rest (rest (rest text))))) 2))
        (drawtext (rest (rest (rest (rest text))))))))
     
(drawrings rings)
(drawtext lndn)