;;;; This simple example illustrates the use of some of the
;;;; drawing functions in the draw.ss teachpack, and how to
;;;; use "and" to draw a sequence of things using a single
;;;; expression.

;; Open a canvas
(start 500 500)

;; Draw a simple-looking flag
(and
 (draw-solid-rect (make-posn 100 100) 300 200 'blue)
 (draw-solid-disk (make-posn 250 200) 50 'red)
 (draw-solid-line (make-posn 100 100) (make-posn 100 500) 'black))