(define colors (list color.black color.orange color.red color.blue color.green color.grey color.copper color.brown color.steel-blue color.spicy-pink))

(define brushes (list "Calligraphic Brush" "Circle (03)" "Circle (05)" 
        "Circle Fuzzy (03)" "Felt Pen"))

(define create-drawing 
  (lambda (filename val1 val2 val3) 
    (let ((port (open-output-file filename))) 
    (filled-rectangle.write port (list-ref colors val1) 40 (+ (* val1 2) 10) 80 (+ (* val1 10) 60)) 
    (filled-circle.write port (list-ref colors val2) 50 30 (+ (* val1 2) 5)) 
        (filled-circle.write port (list-ref colors val2) 90 30 (+ (* val1 2) 5)) 
    (line.write port (list-ref colors val3) (list-ref brushes (modulo val3 5)) 60 65 110 65) 
      (line.write port (list-ref colors (modulo val2 9)) (list-ref brushes (modulo val2 5)) (- 60 (* val3 5)) 120 (- 140 (* val3 5)) 180)

     (line.write port (list-ref colors (modulo val2 9)) (list-ref brushes (modulo val2 5)) (- 140 (* val3 5)) 120 (- 60 (* val3 5)) 180)

    (close-output-port port))))