TABLE OF CONTENTS

::pwtk::pwi::visualize

SYNOPSIS

proc ::pwtk::pwi::visualize {} {

PURPOSE

Visualize the structure from pw.x input file with xcrysden. If xcrysden is not detected, the input file is merely printed to stdout.

SOURCE

    global env
    if { [info exists env(XCRYSDEN_TOPDIR)] || [auto_execok xcrysden] != "" } {
        set input [::fileutil::tempfile pw.]
        ::pwtk::pwi_fprint $input
        catch {exec xcrysden --pwi $input}
    } else {
        # we don't have xcrysden: simply print the input to
        # stdout
        ::pwtk::pwi_fprint
    }
}