#!/bin/sh  
# \
exec oagtclsh "$0" "$@"

#set auto_path [linsert $auto_path 0  /usr/local/oag/apps/lib/$env(HOST_ARCH)]
#set auto_path [linsert $auto_path 0 /usr/local/oag/lib_patch/$env(HOST_ARCH)]
#APSStandardSetup

set usage {usage: sddsplot3 <outputRootname> <sddsplotArguments> }
set args $argv
if {[llength $args]==0} {
    return -code error "$usage"
}

set colorsOpt ,linetypetable=$env(HOME)/whiteBGColors.sdds 
if [file exists whiteBGColors.sdds] {
    set colorsOpt ,linetypetable=whiteBGColors.sdds 
}
foreach item [lrange $argv 1 end] {
    if [string match "*order=*spec*" $item] {
        set colorsOpt ""
    }
}

catch {eval exec sddsplot -device=motif$colorsOpt \
  [lrange $argv 1 end] &}

if [file exists [lindex $argv 0].png] {
    puts stderr "in use: [lindex $argv 0].png"
    exit 1
}
if [file exists [lindex $argv 0].eps] {
    puts stderr "in use: [lindex $argv 0].eps"
    exit 1
}

# Make 3 sddsplots:
# PNG file
# EPS file
# motif display


if [catch {eval exec sddsplot -device=lpng,onwhite$colorsOpt \
  -thick=4 -line=0,thick=4 -output=[lindex $argv 0].tmp.png \
  [lrange $argv 1 end] } result] {
        puts stderr "$result"
}

exec convert -trim [lindex $argv 0].tmp.png [lindex $argv 0].png 
file delete [lindex $argv 0].tmp.png 

catch {eval exec sddsplot -device=ceps$colorsOpt -thick=2 -line=0,thick=2 \
  -output=[lindex $argv 0].eps \
  [lrange $argv 1 end] &}


