CRIMP
Check-in [e31fc40d96]
Not logged in
Home Documentation Timeline Branches Tags Tickets Wiki Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Added new demo allowing the chaing of flips
Timelines: family | ancestors | descendants | both | ak-experimental
Files: files | file ages | folders
SHA1: e31fc40d968a8f7f88b220847d2380b2d4ca2d25
User & Date: andreask 2010-08-18 07:07:32.000
Context
2010-08-18
07:20
Added demo, pseudo-bandpass images via median filter check-in: a360af1032 user: andreask tags: ak-experimental
07:07
Added new demo allowing the chaing of flips check-in: e31fc40d96 user: andreask tags: ak-experimental
07:07
Fixed bug left behind by [a526962f88]. Updated the decimation and interpolation commands to invoke the convolution step by the new name of the command. check-in: 8a38295342 user: andreask tags: ak-experimental
Changes
Unified Diff Ignore Whitespace Patch
Added demos/flip.tcl. 




























































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

def op_flip_vertical {
    label {Flip Chaining}
    setup {
	proc show {} {
	    variable image
	    show_image $image
	}
	proc do {args} {
	    variable image
	    set image [crimp {*}$args $image]
	    show
	    return
	}

	button .left.h  -text \u2191\u2193 -command [list [namespace current]::do flip vertical]
	button .left.v  -text \u2194       -command [list [namespace current]::do flip horizontal]
	button .left.tp -text \\           -command [list [namespace current]::do flip transpose]
	button .left.tv -text /            -command [list [namespace current]::do flip transverse]

	grid .left.h  -row 0 -column 0
	grid .left.v  -row 1 -column 0
	grid .left.tp -row 2 -column 0
	grid .left.tv -row 3 -column 0
    }
    setup_image {
	variable image [base]
	show
    }
}