(define g (make-graphics-device #f))

(graphics-operation g 'set-foreground-color "brown")
(graphics-draw-line g 0 0 0.7 0.75)
(graphics-operation g 'set-foreground-color "blue")
(graphics-draw-text g -0.3 -0.3 "Hello!")
(graphics-operation g 'set-foreground-color "red")
(graphics-operation g 'draw-ellipse 0 -0.2 0.8 -0.8)
(graphics-operation g 'set-foreground-color "green")
(graphics-draw-line g 0 0 -0.5 0.8)
(graphics-operation g 'fill-polygon
                      #(0 0.2 -0.8 -0.8 -0.8 0.2))