Scheme Canvas

Aus ProgrammingWiki

(clear canvas)
(setcolor canvas 0 0 0)
(setwidth canvas 1)

(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)
(drawimage canvas 200 10 100 100 "http://www.michael-hielscher.de/images/atocc.jpg")

Scheme Canvas

Suche