DibujoJulio04

; Autor: Johan Steven Muñoz López, Código: 1958380
; Fecha: Julio 04 de 2019
; Taller 1; Dibujo libre
; Descripcion: Dibujo de "Spartan117" del videojuego Halo, a 8 bits.
;              El dibujo fue realizado practicamente cuadro a cuadro,
;              debido algunas limitaciones de DrRacket.
; Proposito: Realizar un dibujo libre apoyado en la libreria draw.rtk


;;Lienzo
(start 480 440)

;;Fondo
(draw-solid-rect (make-posn 0 0) 480 520 'slategray)

;circulo
(draw-solid-disk (make-posn 240 220) 200 'navy)
(draw-circle (make-posn 240 220) 201 'orangered)
(draw-circle (make-posn 240 220) 202 'orangered)

;;linea1
(draw-solid-rect (make-posn 180 50) 120 20 'black)

;;linea2
(draw-solid-rect (make-posn 140 70) 40 20 'black)
(draw-solid-rect (make-posn 180 70) 20 20 'olivedrab)
(draw-solid-rect (make-posn 200 70) 80 20 'yellowgreen)
(draw-solid-rect (make-posn 280 70) 20 20 'olivedrab)
(draw-solid-rect (make-posn 300 70) 40 20 'black)

;;linea3
(draw-solid-rect (make-posn 120 90) 40 20 'black)
(draw-solid-rect (make-posn 160 90) 20 20 'olivedrab)
(draw-solid-rect (make-posn 180 90) 120 20 'yellowgreen)
(draw-solid-rect (make-posn 300 90) 20 20 'olivedrab)
(draw-solid-rect (make-posn 320 90) 40 20 'black)

;;linea4
(draw-solid-rect (make-posn 120 110) 240 20 'black)

;linea5
(draw-solid-rect (make-posn 100 130) 20 20 'black)
(draw-solid-rect (make-posn 120 130) 20 20 'olivedrab)
(draw-solid-rect (make-posn 140 130) 20 20 'yellowgreen)
(draw-solid-rect (make-posn 160 130) 160 20 'olivedrab)
(draw-solid-rect (make-posn 320 130) 20 20 'yellowgreen)
(draw-solid-rect (make-posn 340 130) 20 20 'olivedrab)
(draw-solid-rect (make-posn 360 130) 20 20 'black)

;linea6
(draw-solid-rect (make-posn 80 150) 20 20 'black)
(draw-solid-rect (make-posn 100 150) 20 20 'olivedrab)
(draw-solid-rect (make-posn 120 150) 240 20 'black)
(draw-solid-rect (make-posn 360 150) 20 20 'olivedrab)
(draw-solid-rect (make-posn 380 150) 20 20 'black)

;linea7
(draw-solid-rect (make-posn 80 170) 20 20 'black)
(draw-solid-rect (make-posn 100 170) 20 20 'olivedrab)
(draw-solid-rect (make-posn 120 170) 20 20 'black)
(draw-solid-rect (make-posn 140 170) 200 20 'darkorange)
(draw-solid-rect (make-posn 160 170) 40 20 'azure)
(draw-solid-rect (make-posn 280 170) 40 20 'azure)
(draw-solid-rect (make-posn 340 170) 20 20 'black)
(draw-solid-rect (make-posn 360 170) 20 20 'olivedrab)
(draw-solid-rect (make-posn 380 170) 20 20 'black)

;linea8
(draw-solid-rect (make-posn 100 190) 20 20 'black)
(draw-solid-rect (make-posn 120 190) 20 20 'darkorange)
(draw-solid-rect (make-posn 140 190) 20 20 'gold)
(draw-solid-rect (make-posn 160 190) 20 20 'azure)
(draw-solid-rect (make-posn 180 190) 120 20 'gold)
(draw-solid-rect (make-posn 300 190) 20 20 'azure)
(draw-solid-rect (make-posn 320 190) 20 20 'gold)
(draw-solid-rect (make-posn 340 190) 20 20 'darkorange)
(draw-solid-rect (make-posn 360 190) 20 20 'black)

;linea 9
(draw-solid-rect (make-posn 100 200) 20 20 'black)
(draw-solid-rect (make-posn 120 200) 20 20 'darkorange)
(draw-solid-rect (make-posn 140 200) 20 20 'gold)
(draw-solid-rect (make-posn 160 200) 20 20 'azure)
(draw-solid-rect (make-posn 180 200) 120 20 'gold)
(draw-solid-rect (make-posn 300 200) 20 20 'azure)
(draw-solid-rect (make-posn 320 200) 20 20 'gold)
(draw-solid-rect (make-posn 340 200) 20 20 'darkorange)
(draw-solid-rect (make-posn 360 200) 20 20 'black)

;linea10
(draw-solid-rect (make-posn 100 220) 20 20 'black)
(draw-solid-rect (make-posn 120 220) 20 20 'darkorange)
(draw-solid-rect (make-posn 140 220) 200 20 'gold)
(draw-solid-rect (make-posn 340 220) 20 20 'darkorange)
(draw-solid-rect (make-posn 220 220) 40 20 'darkorange)
(draw-solid-rect (make-posn 360 220) 20 20 'black)

;linea11
(draw-solid-rect (make-posn 80 240) 20 20 'black)
(draw-solid-rect (make-posn 100 240) 20 20 'olivedrab)
(draw-solid-rect (make-posn 120 240) 20 20 'black)
(draw-solid-rect (make-posn 140 240) 20 20 'darkorange)
(draw-solid-rect (make-posn 160 240) 20 20 'azure)
(draw-solid-rect (make-posn 180 240) 120 20 'gold)
(draw-solid-rect (make-posn 200 240) 80 20 'black)
(draw-solid-rect (make-posn 280 240) 20 20 'gold)
(draw-solid-rect (make-posn 300 240) 20 20 'azure)
(draw-solid-rect (make-posn 320 240) 20 20 'darkorange)
(draw-solid-rect (make-posn 340 240) 20 20 'black)
(draw-solid-rect (make-posn 360 240) 20 20 'olivedrab)
(draw-solid-rect (make-posn 380 240) 20 20 'black)

;linea12
(draw-solid-rect (make-posn 80 260) 320 20 'black)
(draw-solid-rect (make-posn 100 260) 40 20 'olivedrab)
(draw-solid-rect (make-posn 200 260) 80 20 'olivedrab)
(draw-solid-rect (make-posn 340 260) 40 20 'olivedrab)

;linea13
(draw-solid-rect (make-posn 100 280) 280 20 'black)
(draw-solid-rect (make-posn 140 280) 20 20 'olivedrab)
(draw-solid-rect (make-posn 160 280) 20 20 'yellowgreen)
(draw-solid-rect (make-posn 200 280) 20 20 'yellowgreen)
(draw-solid-rect (make-posn 260 280) 20 20 'yellowgreen)
(draw-solid-rect (make-posn 300 280) 20 20 'yellowgreen)
(draw-solid-rect (make-posn 320 280) 20 20 'olivedrab)

;;linea14
(draw-solid-rect (make-posn 120 300) 240 20 'black)
(draw-solid-rect (make-posn 160 300) 20 20 'olivedrab)
(draw-solid-rect (make-posn 200 300) 80 20 'olivedrab)
(draw-solid-rect (make-posn 300 300) 20 20 'olivedrab)

;;linea15
(draw-solid-rect (make-posn 140 320) 200 20 'black)
(draw-solid-rect (make-posn 200 320) 80 20 'olivedrab)

;;linea16
(draw-solid-rect (make-posn 160 340) 160 20 'black)
(draw-solid-rect (make-posn 200 340) 80 20 'olivedrab)

;;linea17
(draw-solid-rect (make-posn 200 360) 80 20 'black)