namespace eval ::cmdr::say {
    namespace export \
	up down forw back \
	erase-screen erase-up erase-down \
	erase-line erase-back erase-forw \
	goto home line add line rewind lock-prefix clear-prefix \
	next next* animate barberpole percent progress-counter progress \
	ping pulse turn operation \
	\
	auto-width barber-phases progress-phases larson-phases \
	slider-phases pulse-phases turn-phases \
	\
	to

    namespace ensemble create
................................................................................
}

# # ## ### ##### ######## ############# #####################

proc ::cmdr::say::operation {lead script args} {
    debug.cmdr/say {}

    set cmd {}
    set delay 100


    while {1} {
	set o [lindex $args 0]
	switch -glob -- $o {
	    -every {
		set delay [lindex $args 1]
		set args  [lrange $args 2 end]
	    }
	    -play {
		set cmd  [lindex $args 1]
		set args [lrange $args 2 end]
	    }








	    -* {
		return -code error \
		    -errorcode {CMD SAY BAD-OPTION} \
		    "Unknown option $o, expected -a, or -d"
	    }
	    default break
	}
    }

    add $lead
    lock-prefix
................................................................................
	uplevel 1 $script
    } {*}$args on error {e o} {
	# General error => close line, and pass.
	line ""
	return {*}$o $e
    } on ok {e o} {
	rewind ; # remove animation output, leave only the lead

	line [color good OK]

    } finally {
	# Stop ongoing animation, if any
	if {[llength $cmd]} {
	    $animation done
	}
    }
    return $e
................................................................................

# # ## ### ##### ######## ############# #####################
## turn animation

proc ::cmdr::say::turn {} {
    debug.cmdr/say {}
    set phases [turn-phases]








































    # Run the animation via the general class.
    return [animate::Im new -phases $phases]
}

# # ## ### ##### ######## ############# #####################
## progress counter, n of max.

namespace eval ::cmdr::say {
    namespace export \
	up down forw back \
	erase-screen erase-up erase-down \
	erase-line erase-back erase-forw \
	goto home line add line rewind lock-prefix clear-prefix \
	next next* animate barberpole percent progress-counter progress \
	ping pulse turn larson slider operation \
	\
	auto-width barber-phases progress-phases larson-phases \
	slider-phases pulse-phases turn-phases \
	\
	to

    namespace ensemble create
................................................................................
}

# # ## ### ##### ######## ############# #####################

proc ::cmdr::say::operation {lead script args} {
    debug.cmdr/say {}

    set cmd     {}  ;# -play
    set delay   100 ;# -every
    set trailer OK  ;# -trailer, -no-trailer

    while {1} {
	set o [lindex $args 0]
	switch -glob -- $o {
	    -every { ;# int number argument
		set delay [lindex $args 1]
		set args  [lrange $args 2 end]
	    }
	    -play { ;# cmd prefix argument
		set cmd  [lindex $args 1]
		set args [lrange $args 2 end]
	    }
	    -no-trailer { ;# no argument
		set trailer {}
		set args    [lrange $args 1 end]
	    }
	    -trailer { ;# string argument
		set trailer [lindex $args 1]
		set args    [lrange $args 2 end]
	    }
	    -* {
		return -code error \
		    -errorcode {CMD SAY BAD-OPTION} \
		    "Unknown option $o, expected -every, -play, or -(no-)trailer"
	    }
	    default break
	}
    }

    add $lead
    lock-prefix
................................................................................
	uplevel 1 $script
    } {*}$args on error {e o} {
	# General error => close line, and pass.
	line ""
	return {*}$o $e
    } on ok {e o} {
	rewind ; # remove animation output, leave only the lead
	if {$trailer ne {}} {
	    line [color good $trailer]
	}
    } finally {
	# Stop ongoing animation, if any
	if {[llength $cmd]} {
	    $animation done
	}
    }
    return $e
................................................................................

# # ## ### ##### ######## ############# #####################
## turn animation

proc ::cmdr::say::turn {} {
    debug.cmdr/say {}
    set phases [turn-phases]
    # Run the animation via the general class.
    return [animate::Im new -phases $phases]
}

# # ## ### ##### ######## ############# #####################
## slider animation

proc ::cmdr::say::slider {args} {
    debug.cmdr/say {}

    array set config {
	-width   {}
	-pattern ***
    }
    array set config $args

    set phases [slider-phases \
		    [auto-width $config(-width)] \
		    $config(-pattern)]

    # Run the animation via the general class.
    return [animate::Im new -phases $phases]
}

# # ## ### ##### ######## ############# #####################
## larson scanner animation

proc ::cmdr::say::larson {args} {
    debug.cmdr/say {}

    array set config {
	-width   {}
	-pattern ***
    }
    array set config $args

    set phases [larson-phases \
		    [auto-width $config(-width)] \
		    $config(-pattern)]

    # Run the animation via the general class.
    return [animate::Im new -phases $phases]
}

# # ## ### ##### ######## ############# #####################
## progress counter, n of max.