starcats.rkt

; WARNING: THIS IS A COPYRIGHTED IMAGE
(define jayfeather <picture-here>)

(define jayfeather-upside-down (rotate 180 jayfeather))

(define (make-diamond color) (polygon (list (make-posn 0 0)
                                     (make-posn -10 20)
                                     (make-posn -20 0)
                                     (make-posn -10 -20))
                               'solid
                               color))
(define (make-diamond-rotated color) (rotate -10 (make-diamond color)))

(define (make-starcat color)
  (place-image (make-diamond-rotated color)
             160 140
             jayfeather))

(define stormstar (make-starcat 'red))
(define revinestar (make-starcat 'blue))
(define leafstar (make-starcat 'green))
(define viperstar (make-starcat 'purple))
(define aquastar (make-starcat 'aqua))
(define blackstar (make-starcat 'black))

(define (make-mustache-starcat starcat)
  (place-image mustache-scaled 155 220 starcat))

(define (smallcat starcat)
  (scale 1/3 (make-mustache-starcat starcat)))