Artifact 49dad534d30a7d7e74d1fce07ab2b298bf39ee61:

• File demos/wavy.tcl — part of check-in [f5b2cc8125] at 2010-07-10 23:21:33 on branch ak-experimental —

  
  Changed demos GUI to use grid over pack, and changed the API to the
  GUI extensibility.
  
  Updated all demos to the new extensibility API. Changed several demos
  to use plot widgets to show the curves they are using.
  
   (user:
  andreask
  size: 664)
  

def effect_wavy {
    label Wavy
    setup {
	proc ::W {args} {
	    global WA WB WC
	    show_image [crimp wavy [base] $WA $WB $WC]
	    return
	}

	set ::WA 1
	set ::WB 1
	set ::WC 1

	scale .left.wa -variable ::WA -from -20 -to 20 -resolution 0.01 -orient vertical -command ::W
	scale .left.wb -variable ::WB -from -20 -to 20 -resolution 0.01 -orient vertical -command ::W
	scale .left.wc -variable ::WC -from -20 -to 20 -resolution 0.01 -orient vertical -command ::W

	pack .left.wa -side left -expand 1 -fill both
	pack .left.wb -side left -expand 1 -fill both
	pack .left.wc -side left -expand 1 -fill both
    }
    shutdown {
	unset ::WA ::WB ::WC
    }
}