Scheme Canvas

<eval> (clear canvas) (setcolor canvas 0 0 0) (setwidth canvas 1)</eval>

(line canvas 20 20 80 20) (line canvas 80 20 80 80) (line canvas 80 80 20 80) (line canvas 20 80 20 20)

(fillrect canvas 60 20 20 20)

(setwidth canvas 5) (setcolor canvas 0 0 255) (rect canvas 120 20 20 20)

(setcolor canvas 255 0 0) (ellipse canvas 150 50 20)

(text canvas 20 75 "x" 50)