> From: Brian Schott
> Sent: Thursday, 3 June 2010 08:57
> 
>       I would like to put visiblee captions into snapshot
> files without using Photoshop. Has anyone done this with J,
> or is there any inexpensive Mac or Web app to do this?
> 
>       My family is using a very effective web app called
> framechannel.com to put snapshots directly on a wifi enabled
> Kodak digital picture frame, but there are no captions for
> the photos at framechannel. Captions add so much.

Here is the sketch of a gl2 solution. It is probably possible to do this using 
entirely using the media/platimg addon, in which case you could do it from 
jconsole too, not just jwd.

However because the solution resaves the image, the downside is that you will 
be losing some image fidelity if you use the jpg format. 

NB.=========================================
require 'gl2 media/platimg'

addCaption=: 4 : 0
  caption=. x
  imgpath=. y
  img=. readimg imgpath
  imgsize=. $img
  wd 'pc capimg;'
  wd 'xywh 0 0 ', ": >.-: imgsize
  wd 'cc g isigraph rightmove bottommove;pas 0 0;'
  glpixels_jgl2_ 0 0 , imgsize , ,img
  gltextcolor_jgl2_ glrgb_jgl2_ 255 0 0
  gltextxy_jgl2_ 0 0
  glfont_jgl2_ 'Arial 24 bold'
  gltext_jgl2_ caption
  newimg=. imgsize$ glqpixels_jgl2_ 0 0, imgsize
  wd 'pclose'
  r=. newimg writeimg jpath '~temp/testcaption.jpg'
)

Note 'test'
require 'viewmat'
(jpath '~temp/testcaption.jpg') fcopynew jpath '~help/box.jpg'
viewrgb readimg jpath '~temp/testcaption.jpg'
'Hello World' addCaption jpath '~temp/testcaption.jpg'
viewrgb readimg jpath '~temp/testcaption.jpg'
)
NB. ===============================================

----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to