;; The first three lines of this file were inserted by DrRacket. They record metadata
;; about the language level of this file in a form that our tools can easily process.
#reader(lib "htdp-beginner-abbr-reader.ss" "lang")((modname jhc-components) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
;; CS 151, University of Chicago
;; Sept 2010
;; Lab 1 starter file

(require 2htdp/image)

;; John Hancock Center ("jhc"):
;; 344 m tall
;; with antennas, 457 m
;; thus antennas are 113 m

;; JHC dimensions from http://en.wikipedia.org/wiki/John_Hancock_Center.

;; named constants
;; all numbers 1 meter per pixel
(define mid-h 339) ;; middle part height
(define mid-w 44)  ;; middle part width
(define tri-w 12)  ;; triangle width
(define top-h 5)   ;; topper height
(define top-w 37)  ;; topper width
(define ant-h 113) ;; antenna height

;; jhc components

;; jhc-middle : img
(define jhc-middle
  (rectangle mid-w mid-h "solid" "black"))

;; jhc-rside : img
(define jhc-rside
  (right-triangle tri-w mid-h "solid" "black"))

;; jhc-lside : img
(define jhc-lside
  (flip-horizontal jhc-rside))

;; jhc-topper : img
(define jhc-topper
  (rectangle top-w top-h "solid" "black"))

;; antenna : img
(define antenna
  (rectangle 1 ant-h "outline" "gray"))