(require pict pict/balloon file/convertible)

(define raw-text string-args)
(define txt
  (colorize (text (string-replace raw-text "\n" " ") null 25)
            "deepskyblue"))
(define w (pict-width txt))
(define a-pict
  (standard-fish 70
                 40
                 #:direction 'right
                 #:color "salmon"))
(define img-w
  (cond [(< w 70) 250]
        [else (+ w 100)]))

(define (show-png image)
  (make-image (convert image 'png-bytes)))

(show-png
 (inset
   (pin-balloon
    (wrap-balloon txt 'sw 5 5)
    (lb-superimpose (blank img-w 110)
                    a-pict)
    a-pict
    rt-find)
   50 20))