source: branches/blt4/examples/zoo/image/image.tcl @ 1650

# ----------------------------------------------------------------------
#  EXAMPLE: Rappture <image> elements
# ======================================================================
#  AUTHOR:  Michael McLennan, Purdue University
#  Copyright (c) 2004-2005  Purdue Research Foundation
#
#  See the file "license.terms" for information on usage and
#  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
# ======================================================================
package require Tk
package require Rappture
wm withdraw .
package require BLT

# open the XML file containing the run parameters
set driver [Rappture::library [lindex $argv 0]]

set data [$driver get input.image.current]
set angle [$driver get input.(angle).current]
set angle [Rappture::Units::convert $angle -to deg -units off]

set imh [image create picture -data $data]
set dest [image create picture]
$dest rotate $imh $angle

$driver put output.image(outi).about.label "Rotated Image"
$driver put output.image(outi).current [$dest export jpg]

# add a little html note
set htmltext "html://<p style=\"text-align: center;\"><a href=\"angles.html\">Learn more about angles...</a></p>"
$driver put output.image(outi).note.contents $htmltext

# save the updated XML describing the run...
Rappture::result $driver
exit 0