gfx:text2image

(gfx:text2image str image font-style bounds)


Description:

Draw str onto image using font-style at the point '(x,y)


Arguments:

          image -- image to draw to

         bounds -- bounds are either '(x y) or '(x y w h)

     font-style -- font style to use

            str -- string to draw


Returns: boolean


Examples:

(define loop

   (lambda (time mtime)

      (let ((image (gfx:get-movie-frame movie mtime)))

         (gfx:text2image (number->string mtime) image font-style '(10 0))

         (gfx:draw-image time canvas image 1.0 '(0 0 600 600))

         (set! time (+ time frame-length))

         (if (< mtime mlgth)

             (callback (- time 4000) 'loop time (+ mtime 0.041))))))



Back to index