# $XConsortium: transform,v 1.2 94/04/01 16:33:18 matt Exp $
#  This dish script uses inout params to transform a vector with a matrix

set circle [figure_kit circle 0 [figure_kit default_style] 0 0 100]
set t [circle transformation]
t store_matrix m
puts "The original matrix is: $m"

set scale "{0.5 0.5 0.5}"
t scale scale
t store_matrix m
puts "Scaled by $scale is: $m"

set vector "{1 1 1}"
t transform_vertex vector
puts "The vector {1 1 1} is transformed to: $vector"

set inverse "{1 1 1}"
t inverse_transform_vertex inverse
puts "The inverse transform of {1 1 1} is: $inverse"