Artifact c611c9c3b7cc9757f5e0a38cec37fb2dae3830a8:

• File demos/wavy.tcl — part of check-in [8ee78df8f1] at 2010-07-15 19:03:51 on branch ak-experimental — Demos.

  The demos are now handled like they are in a matrix, with the choice of images and actions as the two axes.

  Choose an action and it applies to the current image. Choose an image and the current action is applied.

  So, choose an image and walk the toolbar to see the various actions. Or, choose an action, maybe parameterize it, and then walk the images. (user: andreask size: 731) [more...]

def effect_wavy {
    label Wavy
    setup {
	proc show {args} {
	    variable wa
	    variable wb
	    variable wc
	    show_image [crimp wavy [base] $wa $wb $wc]
	    return
	}

	variable wa 1
	variable wb 1
	variable wc 1

	scale .left.wa -variable ::DEMO::wa -from -20 -to 20 -resolution 0.01 -orient vertical -command ::DEMO::show
	scale .left.wb -variable ::DEMO::wb -from -20 -to 20 -resolution 0.01 -orient vertical -command ::DEMO::show
	scale .left.wc -variable ::DEMO::wc -from -20 -to 20 -resolution 0.01 -orient vertical -command ::DEMO::show

	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
    }
    setup_image { show }
}