# $XConsortium: colors,v 1.2 94/04/01 16:33:16 matt Exp $
#  This dish script uses out params to get the color intensities of the
#  default foreground and background of FigureStyle

set style [figure_kit default_style]
set color [style _get_foreground]
color rgb r g b
puts "foreground: r = $r, g = $g, b = $b"

set color [style _get_background]
color rgb r g b
puts "background: r = $r, g = $g, b = $b"