gfx:make-square

(gfx:make-square x y size)

Description:

Create a new square path

Arguments:

              x -- x coordinate of lower left corner

              y -- y coordinate of lower left corner

           size -- the length of one side

Returns: path

Examples:

(define *canvas* (gfx:make-canvas 800 600))

(define square (gfx:make-square 100 100 50))

(define circle (gfx:make-circle 200 200 20))

(define oval (gfx:make-oval 200 100 50 100))

(gfx:draw-path (now) *canvas* square '(0.1 0.5 0.5 0.5) '(0.4 0.2 0.8 0.4))

(gfx:draw-path (now) *canvas* circle '(0.1 0.5 0.5 0.5) '() 20.0)

(gfx:draw-path (now) *canvas* oval '() '(0.4 0.2 0.8 0.4))

Back to index