(require "common.scm")


(define width 200)
(define height 200)


(let* (
	(img (Gd.create_truecolor width height))
	(ca  (img#colors))
	(bg  (ca#create 255 255 255))
	(sq  (ca#create 0 0 127))
	)
	(img#filled_rectangle 0 0 (- width 1) (- height 1) bg)
	(img#filled_rectangle 50 50 150 150 sq)

	(img#save_as_png "draw1.png")
	)