;;;4.207 
;;;Professor Nagakura

;;;Assignment 01 -- 02/11/04
;;;Jessica Rosenkrantz
;;;jrosenk@mit.edu

;;;a simple batch file 
;;;an accurate representation of Piet Mondrian's painting "Composition No. 10"

;;;Mondrian, Piet
;;;Composition No. 10
;;;1939-1942
;;;Oil on canvas
;;;31 1/2 x 28 3/4 in. (80 x 73 cm)

;;note to myself: each stroke is 1.533cm wide x 2cm high

; 1) disable snap
(command "osnap" "off")

; 2) use decimal units'
(command "-units" "2" "4" "" "" "" "") 

; 3) make needed layers
(command "-layer" "make" "yellow" "color" "yellow" "yellow" "")
(command "-layer" "make" "red" "color" "red" "red" "")
(command "-layer" "make" "blue" "color" "blue" "blue" "")
(command "-layer" "make" "white" "color" "white" "white" "")

; 4) draw the white boxes
;for aesthetic reasons I've chosen to draw the white space instead of drawing the black lines on a white solid
(command "-layer" "set" "white" "")
;(command "rectangle" (list 0 0) (list 73 80))

;column one
(command "rectangle" (list 0 0) (list 4.818 24.64))
(command "rectangle" (list 0 35.6) (list 4.818 52.32))
(command "rectangle" (list 0 54.32) (list 4.818 59.68))

;column two
(command "rectangle" (list 6.351 0) (list 15.987 24.64))
(command "rectangle" (list 6.351 26.64) (list 15.987 29.28))
(command "rectangle" (list 6.351 31.28) (list 15.987 33.6))
(command "rectangle" (list 6.351 35.6) (list 15.987 52.32))
(command "rectangle" (list 6.351 54.32) (list 15.987 80))

;column three
(command "rectangle" (list 17.52 0) (list 55.334 1.76))
(command "rectangle" (list 17.52 3.76) (list 55.334 24.64))
(command "rectangle" (list 17.52 26.64) (list 55.334 29.28))
(command "rectangle" (list 17.52 31.28) (list 55.334 33.6))
(command "rectangle" (list 17.52 35.6) (list 55.334 52.32))
(command "rectangle" (list 17.52 54.32) (list 55.334 60.24))
(command "rectangle" (list 17.52 62.24) (list 55.334 77))
(command "rectangle" (list 17.52 79) (list 55.334 80))

;column four
(command "rectangle" (list 56.867 3.76) (list 63.51 24.64))
(command "rectangle" (list 56.867 26.64) (list 63.51 29.28))
(command "rectangle" (list 56.867 31.28) (list 63.51 33.6))
(command "rectangle" (list 56.867 35.6) (list 63.51 52.32))
(command "rectangle" (list 56.867 54.32) (list 63.21 80))

;column five
(command "rectangle" (list 65.043 3.76) (list 69.642 24.64))
(command "rectangle" (list 65.043 26.64) (list 69.642 33.6))
(command "rectangle" (list 65.043 35.6) (list 69.642 52.32))
(command "rectangle" (list 65.043 54.32) (list 69.642 80))

;column six = last column!
(command "rectangle" (list 71.175 0) (list 73 1.76))
(command "rectangle" (list 71.175 3.76) (list 73 24.64))
(command "rectangle" (list 71.175 26.64) (list 73 33.6))
(command "rectangle" (list 71.175 54.32) (list 73 80))

; 5) draw the colored regions as solids

;draw the red rectangles
(command "-layer" "set" "red" "")
(command "solid" (list 0 16.8)  (list 0 21.6) (list 4.818 16.8) (list 4.818 21.6) "")
(command "solid" (list 36.792 0) (list 36.792 1.76) (list 40.15 0) (list 40.15 1.76) "")
(command "solid" (list 71.175 35.6) (list 71.175 52.32) (list 73 35.6) (list 73 52.32) "")

;draw the yellow rectangles
(command "-layer" "set" "yellow" "")
(command "solid" (list 0 26.24) (list 0 33.6) (list 4.818 26.24) (list 4.818 33.6) "")
(command "solid" (list 56.867 0) (list 56.867 1.76) (list 63.51 0) (list 63.51 1.76) "")
(command "solid" (list 65.043 0) (list 65.043 1.76) (list 69.642 0) (list 69.642 1.76) "")

;draw the blue rectangles
(command "-layer" "set" "blue" "")
(command "solid" (list 0 63.68) (list 0 80) (list 4.818 63.68) (list 4.818 80) "")

; 6) zoom! for a good view

(command "zoom" "extents")