gfx:make-text-style

(gfx:make-text-style font-name font-size [font-colour])


Description:

Define a text style


Arguments:

    font-colour -- optional font colour

      font-name -- font family as string

      font-size -- size in points as real number


Returns: font-style


Examples:

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

(define *text-style* (gfx:make-text-style "Times-Roman" 72.0))

(define *text-path* (gfx:make-path))

; make the text into a path

(gfx:set-start-point *text-path* 150 250)

(gfx:add-text *text-path* *text-style* "impromptu")

(gfx:draw-path (now) *canvas* *text-path* '() '(0.0 0.5 1.0 1.0))



Back to index